X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffop.lisp;h=11612399e81fdf5d1f097ffb99fca4078ef17a0d;hb=1cdc827b3ae2b9a9952f0d497d630c15054015cd;hp=ddf5ba7d155c5a6b609408ff7864874af17844e4;hpb=8ee61a7761181511d15690246eb52d100e233935;p=sbcl.git

diff --git a/src/code/fop.lisp b/src/code/fop.lisp
index ddf5ba7..1161239 100644
--- a/src/code/fop.lisp
+++ b/src/code/fop.lisp
@@ -145,7 +145,7 @@
   #+sb-xc-host ; since xc host doesn't know how to compile %PRIMITIVE
   (error "FOP-MISC-TRAP can't be defined without %PRIMITIVE.")
   #-sb-xc-host
-  (%primitive sb!c:make-other-immediate-type 0 sb!vm:unbound-marker-widetag))
+  (%primitive sb!c:make-unbound-marker))
 
 (define-cloned-fops (fop-character 68) (fop-short-character 69)
   (code-char (clone-arg)))
@@ -322,6 +322,12 @@
     #!+long-float
     (define-float-fop fop-long-float 52 long-float)))
 
+#!+sb-simd-pack
+(define-fop (fop-simd-pack 88)
+  (with-fast-read-byte ((unsigned-byte 8) *fasl-input-stream*)
+    (%make-simd-pack (fast-read-s-integer 8)
+                     (fast-read-u-integer 8)
+                     (fast-read-u-integer 8))))
 
 ;;;; loading lists