X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-alieneval.lisp;h=054e282a19cc77985d26eaf30cbfd3c55d1fc732;hb=c9e11f1e55e5e19f35c931af8180a2cd075ab5f5;hp=8665ecfc9752cf60a8bb3a19b19d2da2c8ce0014;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/code/target-alieneval.lisp b/src/code/target-alieneval.lisp
index 8665ecf..054e282 100644
--- a/src/code/target-alieneval.lisp
+++ b/src/code/target-alieneval.lisp
@@ -11,9 +11,6 @@
 ;;;; files for more information.
 
 (in-package "SB!ALIEN")
-
-(file-comment
-  "$Header$")
 
 ;;;; alien variables
 
@@ -245,9 +242,9 @@
 ;;; system area pointer to it.
 #!-sb-fluid (declaim (inline %make-alien))
 (defun %make-alien (bits)
-  (declare (type sb!kernel:index bits) (optimize-interface (safety 2)))
+  (declare (type index bits) (optimize-interface (safety 2)))
   (alien-funcall (extern-alien "malloc" (function system-area-pointer unsigned))
-		 (ash (the sb!kernel:index (+ bits 7)) -3)))
+		 (ash (the index (+ bits 7)) -3)))
 
 #!-sb-fluid (declaim (inline free-alien))
 (defun free-alien (alien)
@@ -562,7 +559,7 @@
 	 (unless stub
 	   (setf stub
 		 (let ((fun (gensym))
-		       (parms (loop repeat (length args) collect (gensym))))
+		       (parms (make-gensym-list (length args))))
 		   (compile nil
 			    `(lambda (,fun ,@parms)
 			       (declare (type (alien ,type) ,fun))
@@ -643,10 +640,9 @@
 			  :extern ,alien-name)
 	      ,@(alien-vars))
 	     ,(if (alien-values-type-p result-type)
-		  (let ((temps (loop
-				 repeat (length (alien-values-type-values
-						 result-type))
-				 collect (gensym))))
+		  (let ((temps (make-gensym-list
+				(length
+				 (alien-values-type-values result-type)))))
 		    `(multiple-value-bind ,temps
 			 (alien-funcall ,lisp-name ,@(alien-args))
 		       (values ,@temps ,@(results))))