Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

correct compiler-let

  • Loading branch information...
commit bbb31f7259647b8bd1f6ece3fa671a85a9c36bf9 1 parent b70e21e
John Fremlin authored February 24, 2010
10  addons/cl-cont/src/special-transformers.lisp
@@ -298,11 +298,13 @@ list of expressions for the tag."
298 298
 
299 299
 (defcpstransformer compiler-let (cons k-expr env)
300 300
   "Passes through a compiler-let form"
301  
-  (let ((varlist (cadr cons))
  301
+  (let (
  302
+	(name (car cons))
  303
+	(varlist (cadr cons))
302 304
 	(forms (cddr cons)))
303  
-    `(,(car cons) ,varlist
304  
-       ,@(extract-declarations forms)
305  
-       ,@(expr-sequence->cps (remove-declarations forms) k-expr env))))
  305
+    `(,name ,varlist
  306
+	    ,@(extract-declarations forms)
  307
+	    ,(expr-sequence->cps (remove-declarations forms) k-expr env))))
306 308
 
307 309
 (defcpstransformer let* (cons k-expr env)
308 310
   "Converts a LET* expression to CPS style."

0 notes on commit bbb31f7

Please sign in to comment.
Something went wrong with that request. Please try again.