Added an ignore declaration.

Pascal J. Bourguignon [2018-10-10 09:19]
Added an ignore declaration.
Filename
clext/pkcs11/cffi-utils.lisp
diff --git a/clext/pkcs11/cffi-utils.lisp b/clext/pkcs11/cffi-utils.lisp
index 9c79a1e..4d556b7 100644
--- a/clext/pkcs11/cffi-utils.lisp
+++ b/clext/pkcs11/cffi-utils.lisp
@@ -89,6 +89,7 @@ Returns the destination LISP-VECTOR."
     :finally (return i)))

 (defun foreign-null-terminated-vector (pointer ctype ltype size &key (convert (function identity)))
+  (declare (ignore size)) ; TODO: or use it as max???
   (let ((len (foreign-null-terminated-vector-length pointer ctype)))
     (foreign-vector-copy-to pointer ctype len (make-array len :element-type ltype) :convert convert)))
ViewGit