X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fearly-objdef.lisp;h=eb6927509bbb286d175cbaa4b3ef4e7c1c410c53;hb=7f579b076a1fc54587538ead07e506e7f06f3fe8;hp=bda8fcd6b9b19d512af6e7ad5cb23114f94dde01;hpb=48d0753f3d6bedd4067269bed7e83994814c1402;p=sbcl.git

diff --git a/src/compiler/generic/early-objdef.lisp b/src/compiler/generic/early-objdef.lisp
index bda8fcd..eb69275 100644
--- a/src/compiler/generic/early-objdef.lisp
+++ b/src/compiler/generic/early-objdef.lisp
@@ -99,7 +99,7 @@
                        (string= name "-LOWTAG" :start1 (- len 7))
                        (zerop (logand (symbol-value sym) fixnum-tag-mask)))
               (push sym fixtags))))
-        `',fixtags)
+        `',(sort fixtags #'string< :key #'symbol-name))
   #'equal)
 
 ;;; the heap types, stored in 8 bits of the header of an object on the
@@ -174,10 +174,10 @@
   fdefn-widetag                             ; 01010110
 
   no-tls-value-marker-widetag               ; 01011010
-  #!-(and sb-lutex sb-thread)
+  #!-sb-simd-pack
   unused01-widetag
-  #!+(and sb-lutex sb-thread)
-  lutex-widetag                             ; 01011110
+  #!+sb-simd-pack
+  simd-pack-widetag                          ; 01011110
   unused02-widetag                          ; 01100010
   unused03-widetag                          ; 01100110
   unused04-widetag                          ; 01101010