X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=src%2Fcode%2Fclass.lisp;h=fc7ed296f292a9a40e9a67d13b89b50967ff502c;hb=82cd148d729c241e79c8df04b700beec1b7c55de;hp=19edd29d70ea125c629480739ff917a8f64671b1;hpb=38329dab20845da6964ffc2b03c6a0778c5498a1;p=sbcl.git

diff --git a/src/code/class.lisp b/src/code/class.lisp
index 19edd29..fc7ed29 100644
--- a/src/code/class.lisp
+++ b/src/code/class.lisp
@@ -685,7 +685,7 @@
              (:make-load-form-fun (lambda (c)
                                     `(find-classoid-cell
                                       ',(classoid-cell-name c)
-                                      :errorp t)))
+                                      :create t)))
              #-no-ansi-print-object
              (:print-object (lambda (s stream)
                               (print-unreadable-object (s stream :type t)
@@ -1104,6 +1104,11 @@
       :inherits (complex number)
       :codes (#.sb!vm:complex-long-float-widetag)
       :prototype-form (complex 42l0 42l0))
+     #!+sb-simd-pack
+     (simd-pack
+      :translation simd-pack
+      :codes (#.sb!vm:simd-pack-widetag)
+      :prototype-form (%make-simd-pack-ub64 42 42))
      (real :translation real :inherits (number))
      (float
       :translation float