X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fclass.lisp;h=6b868bd0f596ec0b8997f91dc50ef918ccff70a9;hb=829ced3e78a23ba153ba4db64e6ea6984c2313b6;hp=c29bc8f6ec5575ecaf9b1d246cc67bb42be78db6;hpb=b704b22c4bea05b9e6551ef0c0a26add7a7df083;p=sbcl.git

diff --git a/src/code/class.lisp b/src/code/class.lisp
index c29bc8f..6b868bd 100644
--- a/src/code/class.lisp
+++ b/src/code/class.lisp
@@ -808,8 +808,12 @@
          ;; getting a different cell for a classoid with the same name
          ;; just would not do.
 
-         ;; Remove the proper name of the classoid.
-         (setf (classoid-name (classoid-cell-classoid cell)) nil)
+         ;; Remove the proper name of the classoid, if this was it.
+         (let* ((classoid (classoid-cell-classoid cell))
+                (proper-name (classoid-name classoid)))
+           (when (eq proper-name name)
+             (setf (classoid-name classoid) nil)))
+
          ;; Clear the cell.
          (setf (classoid-cell-classoid cell) nil
                (classoid-cell-pcl-class cell) nil))
@@ -1100,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