X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86-64%2Fmacros.lisp;h=a02c756d79831767c67829e1834841c5f3f8b330;hb=5ecef987f3847ed5de8c03f66ef9d8ab468af993;hp=933b11c6d36f160a32a73fea6d7a837a7b8efbb8;hpb=78fa16bf55be44cc16845be84d98023e83fb14bc;p=sbcl.git

diff --git a/src/compiler/x86-64/macros.lisp b/src/compiler/x86-64/macros.lisp
index 933b11c..a02c756 100644
--- 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))