From 6c88585c829e2554f8533369dbef3eea01a3edeb Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Mon, 17 Dec 2012 18:36:04 +0000 Subject: [PATCH] Fix SET --- lispstrack.lisp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lispstrack.lisp b/lispstrack.lisp index 3b80936..c8bb3c5 100644 --- a/lispstrack.lisp +++ b/lispstrack.lisp @@ -442,9 +442,11 @@ (concat "(" (ls-compile object env fenv) ")[" (ls-compile key env fenv) "]")) (define-compilation set (object key value) - (concat "(" (ls-compile object env fenv) ")[" (ls-compile key env fenv) "]") - " = " (ls-compile value env fenv)) - + (concat "((" + (ls-compile object env fenv) + ")[" + (ls-compile key env fenv) "]" + " = " (ls-compile value env fenv) ")")) (defun %compile-defvar (name) -- 1.7.10.4