0.6.7.22: removed CVS dollar-Header-dollar tags from sources

[sbcl.git] / src / code / defboot.lisp

diff --git a/src/code/defboot.lisp b/src/code/defboot.lisp
index 4e9854c..f095935 100644 (file)
--- 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$")
 \f
 ;;;; 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))