X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fprimtype.lisp;h=4fee64c00cb0ae2bc3da704d802bdf6910879094;hb=57c91e4719ca9d0f9b8bef3b713ba40088a275f6;hp=43c5e26f35c6483df2ba736dfa1aaa65cd5b2c5e;hpb=8258b3ef68a2ce4529c4c62e54ad2035193c1a53;p=sbcl.git

diff --git a/src/compiler/generic/primtype.lisp b/src/compiler/generic/primtype.lisp
index 43c5e26..4fee64c 100644
--- a/src/compiler/generic/primtype.lisp
+++ b/src/compiler/generic/primtype.lisp
@@ -356,8 +356,8 @@
                               (setq res new-ptype)
                               (return (any)))))
                       (setf res ptype))))
-              type))
-           res))
+              type)
+             res)))
         (named-type
          (ecase (named-type-name type)
            ((t *) (values *backend-t-primitive-type* t))