X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fvm-type.lisp;h=9c50878187e5c5b0f0a7369dda9aeb39a968a73a;hb=ee3bfc5a989b5c0a1ea5a094e9541169ea2eb4ad;hp=62a6609372cddc91f97ffa4841e25eb9697824ea;hpb=2db3b6b4cb740d5b6512459c223859f747807b09;p=sbcl.git diff --git a/src/compiler/generic/vm-type.lisp b/src/compiler/generic/vm-type.lisp index 62a6609..9c50878 100644 --- a/src/compiler/generic/vm-type.lisp +++ b/src/compiler/generic/vm-type.lisp @@ -170,7 +170,7 @@ (if (type= type (specifier-type 'cons)) 'sb!c:check-cons nil)) - (built-in-class + (built-in-classoid (if (type= type (specifier-type 'symbol)) 'sb!c:check-symbol nil))