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