X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-extensions.lisp;h=0e1d52a906f359e55bc080e486e674e17b37e526;hb=75f37cd646778cc8d4bed86d79309b7161bd41dc;hp=3d1a9b7fab987be41690479d383511d8bd24dd5b;hpb=6fc7d9db187e254b4963c9d7c3b3d0c001984212;p=sbcl.git

diff --git a/src/code/early-extensions.lisp b/src/code/early-extensions.lisp
index 3d1a9b7..0e1d52a 100644
--- a/src/code/early-extensions.lisp
+++ b/src/code/early-extensions.lisp
@@ -789,7 +789,7 @@
       ;; :VARIABLE :TYPE is in the db only if it is declared, so no need to
       ;; check.
       (let ((type (info :variable :type symbol)))
-        (unless (sb!kernel::%%typep new-value type)
+        (unless (sb!kernel::%%typep new-value type nil)
           (let ((spec (type-specifier type)))
             (error 'simple-type-error
                    :format-control "Cannot ~@? to ~S (not of type ~S.)"