From bcde0dca1696a9f9e754d52776700edc83663453 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sat, 26 Jul 2008 22:29:43 +0200
Subject: Make the interpreter capable of a restricted form of minimal
 compilation.

---
 util.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'util.lisp')

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)
-- 
cgit v1.2.3