0.6.8: tweaked SXHASH DEFTRANSFORMs, fixed HANDLER-BIND

[sbcl.git] / src / code / byte-interp.lisp

diff --git a/src/code/byte-interp.lisp b/src/code/byte-interp.lisp
index c6173c5..67f7fac 100644 (file)
--- a/src/code/byte-interp.lisp
+++ b/src/code/byte-interp.lisp
@@ -2,9 +2,6 @@
 
 (in-package "SB!C")
 
-(file-comment
-  "$Header$")
-
 ;;;; This software is part of the SBCL system. See the README file for
 ;;;; more information.
 ;;;;
@@ -312,10 +309,7 @@
                            (inline-function-info-type info)))
                     (arg-types (second spec))
                     (result-type (third spec))
-                    (args (mapcar #'(lambda (x)
-                                      (declare (ignore x))
-                                      (gensym))
-                                  arg-types))
+                    (args (make-gensym-list (length arg-types)))
                     (func
                      `(the ,result-type
                            (,(inline-function-info-interpreter-function info)
@@ -326,11 +320,8 @@
                                      arg-types args))
                   ,(if (and (consp result-type)
                             (eq (car result-type) 'values))
-                       (let ((results
-                              (mapcar #'(lambda (x)
-                                          (declare (ignore x))
-                                          (gensym))
-                                      (cdr result-type))))
+                       (let ((results (make-gensym-list
+                                       (length (cdr result-type)))))
                          `(multiple-value-bind ,results ,func
                             ,@(mapcar #'(lambda (res)
                                           `(push-eval-stack ,res))