From: David Vázquez <davazp@gmail.com>
Date: Sun, 5 May 2013 15:39:12 +0000 (+0100)
Subject: Fix etypecase
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=dd8daad1861ec2a99356c055016c278b20b5822f;p=jscl.git

Fix etypecase
---

diff --git a/src/boot.lisp b/src/boot.lisp
index ceaf956..8778da2 100644
--- a/src/boot.lisp
+++ b/src/boot.lisp
@@ -585,9 +585,10 @@
 
 (defmacro etypecase (x &rest clausules)
   (let ((g!x (gensym)))
-    `(typecase ,g!x
-       ,@clausules
-       (t (error "~X fell through etypeacase expression." ,g!x)))))
+    `(let ((,g!x ,x))
+       (typecase ,g!x
+         ,@clausules
+         (t (error "~X fell through etypeacase expression." ,g!x))))))
 
 (defun notany (fn seq)
   (not (some fn seq)))