From bef4e224fbe54e4152d300dde1922fc6f9ab252b Mon Sep 17 00:00:00 2001
From: toy <toy>
Date: Fri, 25 Oct 2002 14:38:43 +0000
Subject: [PATCH] CTYPECASE and ETYPECASE also accept T and OTHERWISE as keys,
 just like CCASE and ECASE.

---
 code/macros.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/code/macros.lisp b/code/macros.lisp
index 152ee9aaf..0140dc937 100644
--- a/code/macros.lisp
+++ b/code/macros.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/macros.lisp,v 1.74 2002/08/07 15:19:47 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/macros.lisp,v 1.75 2002/10/25 14:38:43 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1320,13 +1320,13 @@
   "CTYPECASE Keyform {(Type Form*)}*
   Evaluates the Forms in the first clause for which TYPEP of Keyform and Type
   is true.  If no form is satisfied then a correctable error is signalled."
-  (case-body 'ctypecase keyform cases nil 'typep t t))
+  (case-body 'ctypecase keyform cases nil 'typep nil t t))
 
 (defmacro etypecase (keyform &body cases)
   "ETYPECASE Keyform {(Type Form*)}*
   Evaluates the Forms in the first clause for which TYPEP of Keyform and Type
   is true.  If no form is satisfied then an error is signalled."
-  (case-body 'etypecase keyform cases nil 'typep t nil))
+  (case-body 'etypecase keyform cases nil 'typep nil nil t))
 
 
 ;;;; ASSERT and CHECK-TYPE.
-- 
GitLab