X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Ftarget-alieneval.lisp;h=fe4aff5e366ca94201a467242aafa0edf760d8e4;hb=b63c81837c2eae7bcf3b09911f68ba62d102b63d;hp=cb061ee8bb434569cb9c111fbdc5a0f6d620eb23;hpb=ca20672bfac54095ae593d1f7da0eccbc0bf6257;p=sbcl.git

diff --git a/src/code/target-alieneval.lisp b/src/code/target-alieneval.lisp
index cb061ee..fe4aff5 100644
--- a/src/code/target-alieneval.lisp
+++ b/src/code/target-alieneval.lisp
@@ -678,7 +678,7 @@
 	 ;; alien values) both messy to do by hand and very important
 	 ;; for performance of later code which uses the return value.
 	 (declaim (ftype (function ,(lisp-arg-types)
-                                   (values ,@(lisp-result-types)))
+                                   (values ,@(lisp-result-types) &optional))
                          ,lisp-name))
 	 (defun ,lisp-name ,(lisp-args)
 	   ,@(docs)