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

diff --git a/src/code/fop.lisp b/src/code/fop.lisp
index b3863eb..02dcf61 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
 
@@ -594,6 +600,9 @@
 (define-fop (fop-fdefinition 60)
   (fdefinition-object (pop-stack) t))
 
+(define-fop (fop-known-fun 65)
+  (%coerce-name-to-fun (pop-stack)))
+
 (define-fop (fop-sanctify-for-execution 61)
   (let ((component (pop-stack)))
     (sb!vm:sanctify-for-execution component)