ETYPECASE

diff --git a/src/boot.lisp b/src/boot.lisp
index ab043a9..ceaf956 100644 (file)
--- a/src/boot.lisp
+++ b/src/boot.lisp
@@ -583,10 +583,15 @@
                                  (list nil)))))
                    clausules)))))
 
+(defmacro etypecase (x &rest clausules)
+  (let ((g!x (gensym)))
+    `(typecase ,g!x
+       ,@clausules
+       (t (error "~X fell through etypeacase expression." ,g!x)))))
+
 (defun notany (fn seq)
   (not (some fn seq)))
 
-
 (defconstant internal-time-units-per-second 1000) 
 
 (defun get-internal-real-time ()