Ignored variable.

ruricolist · Aug 5, 2016 · f4f56ad · f4f56ad
1 parent f133a87
commit f4f56ad
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/fbind.lisp b/fbind.lisp
@@ -77,6 +77,7 @@ an ftype declaration."
 (defun build-bind/ftype (var temp decls env)
   (multiple-value-bind (args ret known?)
       (declared-ftype var decls env)
+    (declare (ignore ret))
     (flet ((give-up ()
              `(,var (&rest args)
                     (declare (dynamic-extent args))