projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.16.26:
[sbcl.git]
/
contrib
/
sb-cltl2
/
compiler-let.lisp
diff --git
a/contrib/sb-cltl2/compiler-let.lisp
b/contrib/sb-cltl2/compiler-let.lisp
index
60600b5
..
932b4cb
100644
(file)
--- a/
contrib/sb-cltl2/compiler-let.lisp
+++ b/
contrib/sb-cltl2/compiler-let.lisp
@@
-1,6
+1,6
@@
(in-package :sb-cltl2)
(in-package :sb-cltl2)
-(def-ir1-translator compiler-let ((bindings &rest forms) start cont)
+(def-ir1-translator compiler-let ((bindings &rest forms) start next result)
(loop for binding in bindings
if (atom binding)
collect binding into vars
(loop for binding in bindings
if (atom binding)
collect binding into vars
@@
-9,7
+9,7
@@
and collect (first binding) into vars
and collect (eval (second binding)) into values
finally (return (progv vars values
and collect (first binding) into vars
and collect (eval (second binding)) into values
finally (return (progv vars values
- (sb-c::ir1-convert-progn-body start cont forms)))))
+ (sb-c::ir1-convert-progn-body start next result forms)))))
(defun walk-compiler-let (form context env)
(declare (ignore context))
(defun walk-compiler-let (form context env)
(declare (ignore context))