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

diff --git a/src/code/fop.lisp b/src/code/fop.lisp
index b3863eb..1161239 100644
--- a/src/code/fop.lisp
+++ b/src/code/fop.lisp
@@ -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