Fix etypecase

diff --git a/src/boot.lisp b/src/boot.lisp
index ceaf956..8778da2 100644 (file)
--- 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)))