summaryrefslogtreecommitdiff
path: root/util.lisp
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <matthias@benkard.de>2008-07-26 22:29:43 +0200
committerMatthias Andreas Benkard <matthias@benkard.de>2008-07-26 22:29:43 +0200
commitbcde0dca1696a9f9e754d52776700edc83663453 (patch)
tree3dd93de7e96dfe822e4cf0eb13ad0ac990e8673c /util.lisp
parent96b3e70222d5ac608467f87d70f404771cd58e19 (diff)
Make the interpreter capable of a restricted form of minimal compilation.
Diffstat (limited to 'util.lisp')
-rw-r--r--util.lisp2
1 files changed, 1 insertions, 1 deletions
diff --git a/util.lisp b/util.lisp
index 3a5320d..08c7d1c 100644
--- a/util.lisp
+++ b/util.lisp
@@ -169,7 +169,7 @@
(quote ,(car this-clause)))
`(eq ,object-sym
(quote ,(car this-clause))))
- (progn ,(cdr this-clause))
+ (progn ,@(cdr this-clause))
(case ,object-sym ,@rest)))))))
(%defun* list-eqp (list1 list2)