0.8.21.28:

[sbcl.git] / src / compiler / x86-64 / macros.lisp

diff --git a/src/compiler/x86-64/macros.lisp b/src/compiler/x86-64/macros.lisp
index 933b11c..a02c756 100644 (file)
--- a/src/compiler/x86-64/macros.lisp
+++ b/src/compiler/x86-64/macros.lisp
@@ -57,8 +57,7 @@
 (defmacro storew (value ptr &optional (slot 0) (lowtag 0))
   (once-only ((value value))
     `(cond ((and (integerp ,value) 
-                (not (typep ,value 
-                            '(or (signed-byte 32) (unsigned-byte 32)))))
+                (not (typep ,value '(signed-byte 32))))
            (multiple-value-bind (lo hi) (dwords-for-quad ,value)
              (inst mov (make-ea-for-object-slot-half
                         ,ptr ,slot ,lowtag) lo)
@@ -157,8 +156,7 @@
   (declare (ignore ignored))
   (inst push size)
   (inst lea r13-tn (make-ea :qword
-                           :disp (make-fixup (extern-alien-name "alloc_tramp")
-                                             :foreign)))
+                           :disp (make-fixup "alloc_tramp" :foreign)))
   (inst call r13-tn)
   (inst pop alloc-tn)
   (values))
@@ -172,14 +170,12 @@
        (free-pointer
         (make-ea :qword :disp 
                  #!+sb-thread (* n-word-bytes thread-alloc-region-slot)
-                 #!-sb-thread (make-fixup (extern-alien-name "boxed_region")
-                                          :foreign)
+                 #!-sb-thread (make-fixup "boxed_region" :foreign)
                  :scale 1))            ; thread->alloc_region.free_pointer
        (end-addr 
         (make-ea :qword :disp
                  #!+sb-thread (* n-word-bytes (1+ thread-alloc-region-slot))
-                 #!-sb-thread (make-fixup (extern-alien-name "boxed_region")
-                                          :foreign 8)
+                 #!-sb-thread (make-fixup "boxed_region" :foreign 8)
                  :scale 1)))           ; thread->alloc_region.end_addr
     (cond (in-elsewhere
           (allocation-tramp alloc-tn size))
@@ -209,8 +205,7 @@
   (declare (ignore ignored))
   (inst push size)
   (inst lea r13-tn (make-ea :qword
-                           :disp (make-fixup (extern-alien-name "alloc_tramp")
-                                             :foreign)))
+                           :disp (make-fixup "alloc_tramp" :foreign)))
   (inst call r13-tn)
   (inst pop alloc-tn)
   (values))