X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fvmdef.lisp;h=0d0376820c29163127f463a4f22c23c76e63c7fc;hb=90ca09b75fbc3b63b2f7d09c67b04b866dd783f6;hp=cf523adf8dc1cd52ff4dabf1b12736ed162c7e16;hpb=4a4f1e5ca70363d64d7cbb141863a387334e6760;p=sbcl.git diff --git a/src/compiler/vmdef.lisp b/src/compiler/vmdef.lisp index cf523ad..0d03768 100644 --- a/src/compiler/vmdef.lisp +++ b/src/compiler/vmdef.lisp @@ -201,7 +201,7 @@ (flet ((convert (types more-types) (flet ((frob (x) (if (eq x '*) - 't + t (ecase (first x) (:or `(or ,@(mapcar #'(lambda (type) (type-specifier