X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86-64%2Fparms.lisp;h=7d90673b6de69bfcd4a229d2b5326124a20b631f;hb=bc7cd341567dd3b2978c2accb6063356280fb80e;hp=f51e4adfd3fb13cf457556d3a4460780c0b870ce;hpb=26ac616b6783b8841ccda8b4f1caa7d898d91b86;p=sbcl.git

diff --git a/src/compiler/x86-64/parms.lisp b/src/compiler/x86-64/parms.lisp
index f51e4ad..7d90673 100644
--- a/src/compiler/x86-64/parms.lisp
+++ b/src/compiler/x86-64/parms.lisp
@@ -20,7 +20,7 @@
 ;;; and register specs, we use the Intel convention. But whenever we
 ;;; are talking about stuff the rest of the lisp system might be
 ;;; interested in, we use ``word'' to mean the size of a descriptor
-;;; object, which is 32 bits.
+;;; object, which is 64 bits.
 
 ;;;; machine architecture parameters
 
@@ -204,3 +204,6 @@
     sb!kernel:two-arg-xor
     sb!kernel:two-arg-gcd
     sb!kernel:two-arg-lcm))
+
+#!+sb-simd-pack
+(defvar *simd-pack-element-types* '(integer single-float double-float))