Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: de3c02b)
cosmetic: doc typo and declaration
authorDaniel Kochmański <daniel@turtleware.eu>
Sat, 22 Aug 2015 17:06:00 +0000 (19:06 +0200)
committerDaniel Kochmański <daniel@turtleware.eu>
Sat, 22 Aug 2015 17:06:00 +0000 (19:06 +0200)
Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
doc/ffi.xmlf patch | blob | blame | history
src/lsp/ffi.lsp patch | blob | blame | history

diff --git a/doc/ffi.xmlf b/doc/ffi.xmlf
index a79b067..ebd34bd 100644 (file)
--- a/doc/ffi.xmlf
+++ b/doc/ffi.xmlf
@@ -480,7 +480,7 @@ Build and load this module with (compile-file "ecl.lsp" :load t)
 
     <para>Note that the conversion between lisp arguments and
     <acronym>FFI</acronym> types is automatic. Note also that
-    <function>et:c-inline</function> cannot be used in interpreted or
+    <function>ffi:c-inline</function> cannot be used in interpreted or
     bytecompiled code!</para>
    </refsect1>
 
diff --git a/src/lsp/ffi.lsp b/src/lsp/ffi.lsp
index 9dfd6e3..700763b 100644 (file)
--- a/src/lsp/ffi.lsp
+++ b/src/lsp/ffi.lsp
@@ -669,7 +669,8 @@
   (defmacro c-inline (args arg-types ret-type &body others)
     `(error "The special form c-inline cannot be used in the interpreter: ~A"
       (list (list ,@args) ',arg-types ',ret-type ,@others)))
-  (defmacro c-progn (&rest body)
+  (defmacro c-progn (args &rest body)
+    (declare (ignore args))
     '(error "The special form c-progn cannot be used in the interpreter.")))
 
 (defmacro definline (fun arg-types type code)
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)