Permalink
Browse files

correct compiler-let

  • Loading branch information...
1 parent b70e21e commit bbb31f7259647b8bd1f6ece3fa671a85a9c36bf9 @vii committed Feb 24, 2010
Showing with 6 additions and 4 deletions.
  1. +6 −4 addons/cl-cont/src/special-transformers.lisp
@@ -298,11 +298,13 @@ list of expressions for the tag."
(defcpstransformer compiler-let (cons k-expr env)
"Passes through a compiler-let form"
- (let ((varlist (cadr cons))
+ (let (
+ (name (car cons))
+ (varlist (cadr cons))
(forms (cddr cons)))
- `(,(car cons) ,varlist
- ,@(extract-declarations forms)
- ,@(expr-sequence->cps (remove-declarations forms) k-expr env))))
+ `(,name ,varlist
+ ,@(extract-declarations forms)
+ ,(expr-sequence->cps (remove-declarations forms) k-expr env))))
(defcpstransformer let* (cons k-expr env)
"Converts a LET* expression to CPS style."

0 comments on commit bbb31f7

Please sign in to comment.