X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fdump.lisp;h=f2152f0fd3408d4a810a8669b408cdf3581f5115;hb=2378406d6eda78090dfe05e372438495aeace5e0;hp=cf973826400b92d3283a7988fa0a8bc2d752dd4a;hpb=29d8741c513c6866c1cc618132964e6d320b5e41;p=sbcl.git

diff --git a/src/compiler/dump.lisp b/src/compiler/dump.lisp
index cf97382..f2152f0 100644
--- a/src/compiler/dump.lisp
+++ b/src/compiler/dump.lisp
@@ -389,6 +389,14 @@
                   (float (dump-float x file))
                   (integer (dump-integer x file)))
                 (equal-save-object x file)))
+             #!+sb-simd-pack
+             (simd-pack
+              (unless (equal-check-table x file)
+                (dump-fop 'fop-simd-pack file)
+                (dump-integer-as-n-bytes (%simd-pack-tag  x) 8 file)
+                (dump-integer-as-n-bytes (%simd-pack-low  x) 8 file)
+                (dump-integer-as-n-bytes (%simd-pack-high x) 8 file))
+              (equal-save-object x file))
              (t
               ;; This probably never happens, since bad things tend to
               ;; be detected during IR1 conversion.