X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdefboot.lisp;h=f0959353d007ff78bcb91471017623f2aaeb91c3;hb=6973177fbe23d007655345c1fe2e0d6a5e397aa5;hp=4e9854cf2c65ec8a1db23e3ae5c77c493b8d6486;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/code/defboot.lisp b/src/code/defboot.lisp
index 4e9854c..f095935 100644
--- a/src/code/defboot.lisp
+++ b/src/code/defboot.lisp
@@ -19,9 +19,6 @@
 ;;;; files for more information.
 
 (in-package "SB!IMPL")
-
-(file-comment
-  "$Header$")
 
 ;;;; IN-PACKAGE
 
@@ -59,9 +56,7 @@
 	   `(multiple-value-bind (,g) ,value-form
 	      ,g)))
 	((list-of-symbols-p vars)
-	 (let ((temps (mapcar #'(lambda (x)
-				  (declare (ignore x))
-				  (gensym)) vars)))
+	 (let ((temps (make-gensym-list (length vars))))
 	   `(multiple-value-bind ,temps ,value-form
 	      ,@(mapcar #'(lambda (var temp)
 			    `(setq ,var ,temp))