From: David Vazquez <davazp@gmail.com>
Date: Sun, 23 Dec 2012 19:37:37 +0000 (+0000)
Subject: Fix cons
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=3eb043e814a43ce8fcb12e4121225ad484f00671;p=jscl.git

Fix cons
---

diff --git a/lispstrack.lisp b/lispstrack.lisp
index 3b76ca4..b4adc1b 100644
--- a/lispstrack.lisp
+++ b/lispstrack.lisp
@@ -500,7 +500,7 @@
   (compile-bool (concat "(" (ls-compile x env fenv) "===" (ls-compile nil env fenv) ")")))
 
 (define-compilation cons (x y)
-  (concat "{car: " (ls-compile x env fenv) ", cdr: " (ls-compile y env fenv) "}"))
+  (concat "({car: " (ls-compile x env fenv) ", cdr: " (ls-compile y env fenv) "})"))
 
 (define-compilation consp (x)
   (compile-bool
diff --git a/test.lisp b/test.lisp
index 173b814..dc1b52e 100644
--- a/test.lisp
+++ b/test.lisp
@@ -739,7 +739,7 @@
      (lookup-function-translation x fenv))))
 
 #+common-lisp
-c(defmacro eval-when-compile (&body body)
+(defmacro eval-when-compile (&body body)
   `(eval-when (:compile-toplevel :load-toplevel :execute)
      ,@body))
 
@@ -831,7 +831,7 @@ c(defmacro eval-when-compile (&body body)
   (compile-bool (concat "(" (ls-compile x env fenv) "===" (ls-compile nil env fenv) ")")))
 
 (define-compilation cons (x y)
-  (concat "{car: " (ls-compile x env fenv) ", cdr: " (ls-compile y env fenv) "}"))
+  (concat "({car: " (ls-compile x env fenv) ", cdr: " (ls-compile y env fenv) "})"))
 
 (define-compilation consp (x)
   (compile-bool