From 3eb043e814a43ce8fcb12e4121225ad484f00671 Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Sun, 23 Dec 2012 19:37:37 +0000 Subject: [PATCH] Fix cons --- lispstrack.lisp | 2 +- test.lisp | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) 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 -- 1.7.10.4