From: David Vazquez <davazp@gmail.com>
Date: Mon, 14 Jan 2013 20:50:28 +0000 (+0000)
Subject: Fix compilation of quote in target
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=eb65d54cc784096c66ce2aaa1326a0129d8c304d;p=jscl.git

Fix compilation of quote in target
---

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index c77c154..396ade5 100644
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@ -523,9 +523,6 @@
          do (write-line line)))))
 
 
-(defun test ()
-  (mapcar (lambda (x) (1+ x)) '(1 2 3 4)))
-
 (defun integer-to-string (x)
   (cond
     ((zerop x)
@@ -1026,17 +1023,9 @@
 	     (push (concat "var " v " = " c) *toplevel-compilations*)
 	     v))))))
 
-#+common-lisp
 (define-compilation quote (sexp)
   (literal sexp))
 
-#+ecmalisp
-(define-compilation quote (sexp)
-  (let ((v (genlit)))
-    (push (ls-compile `(js-vset ,v ,sexp) env)
-	  *toplevel-compilations*)
-    v))
-
 
 (define-compilation %while (pred &rest body)
   (js!selfcall
@@ -1484,7 +1473,7 @@
 	 (lexical-variable
 	  (binding-translation b))
 	 (special-variable
-	  (ls-compile `(symbol-value ',sexp) env)))))
+          (ls-compile `(symbol-value ',sexp) env)))))
     ((integerp sexp) (integer-to-string sexp))
     ((stringp sexp) (concat "\"" (escape-string sexp) "\""))
     ((listp sexp)