From: David Vázquez <davazp@gmail.com>
Date: Fri, 5 Jul 2013 03:10:39 +0000 (+0200)
Subject: Migrate special variable references
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=f7f9949c223bf09334ab28a42d316043cfe29373;p=jscl.git

Migrate special variable references
---

diff --git a/src/compiler.lisp b/src/compiler.lisp
index 81b6c4c..5947915 100644
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -1426,7 +1426,7 @@
               (binding-value b))
              ((or (keywordp sexp)
                   (and b (member 'constant (binding-declarations b))))
-              `(code ,(ls-compile `',sexp) ".value"))
+              `(get ,(ls-compile `',sexp) "value"))
              (t
               (ls-compile `(symbol-value ',sexp))))))
         ((or (integerp sexp) (floatp sexp) (characterp sexp) (stringp sexp) (arrayp sexp))