From dd8daad1861ec2a99356c055016c278b20b5822f Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Sun, 5 May 2013 16:39:12 +0100 Subject: [PATCH] Fix etypecase --- src/boot.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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))) -- 1.7.10.4