projects
/
jscl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove unnecessary reader macro
[jscl.git]
/
lispstrack.lisp
diff --git
a/lispstrack.lisp
b/lispstrack.lisp
index
3b80936
..
e8ecb3f
100644
(file)
--- a/
lispstrack.lisp
+++ b/
lispstrack.lisp
@@
-14,7
+14,6
@@
((not ,condition))
,@body))
((not ,condition))
,@body))
- #+common-lisp
(defun concat-two (s1 s2)
(concatenate 'string s1 s2)))
(defun concat-two (s1 s2)
(concatenate 'string s1 s2)))
@@
-442,9
+441,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) "]"))
(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)
(defun %compile-defvar (name)