projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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")
(in-package "SB!C")
-(file-comment
- "$Header$")
-
;;;; This software is part of the SBCL system. See the README file for
;;;; more information.
;;;;
;;;; 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))
(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)
(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))
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))
`(multiple-value-bind ,results ,func
,@(mapcar #'(lambda (res)
`(push-eval-stack ,res))