0.8.0.59:

[sbcl.git] / src / compiler / srctran.lisp

diff --git a/src/compiler/srctran.lisp b/src/compiler/srctran.lisp
index 124d841..ac6527a 100644 (file)
--- a/src/compiler/srctran.lisp
+++ b/src/compiler/srctran.lisp
@@ -2265,7 +2265,8 @@
   (values-specifier-type
    `(values ,@(mapcar (lambda (x)
                        (type-specifier (continuation-type x)))
-                     values))))
+                     values)
+            &optional)))
 \f
 ;;;; byte operations
 ;;;;