From: Olof-Joachim Frahm <olof@macrolet.net>
Date: Mon, 10 Jun 2013 19:23:06 +0000 (+0200)
Subject: Fix TYPECASE macro for T/ELSE case.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=534fabb0df092703bad56af3267d74abcb850daf;p=jscl.git

Fix TYPECASE macro for T/ELSE case.
---

diff --git a/src/boot.lisp b/src/boot.lisp
index 16463e5..484429e 100644
--- a/src/boot.lisp
+++ b/src/boot.lisp
@@ -488,7 +488,7 @@
        (cond
          ,@(mapcar (lambda (c)
                      (if (eq (car c) t)
-                         `((t ,@(rest c)))
+                         `(t ,@(rest c))
                          `((,(ecase (car c)
                                     (integer 'integerp)
                                     (cons 'consp)