From 6c1fb40cf5f6f6e89a47dc096acedccaa1fe5c01 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Thu, 18 Jun 2009 17:34:58 +0000
Subject: [PATCH] Update docstring for CASE and TYPECASE to mention that
 Otherwise can also be used to indicate the default clause.

---
 code/macros.lisp | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/code/macros.lisp b/code/macros.lisp
index 57390ac8b..2a7f74c25 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.112 2008/06/19 22:20:12 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/macros.lisp,v 1.113 2009/06/18 17:34:58 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1405,8 +1405,9 @@
 
 (defmacro case (keyform &body cases)
   "CASE Keyform {({(Key*) | Key} Form*)}*
-  Evaluates the Forms in the first clause with a Key EQL to the value of
-  Keyform.  If a singleton key is T then the clause is a default clause."
+  Evaluates the Forms in the first clause with a Key EQL to the value
+  of Keyform.  If a singleton key is T or Otherwise then the clause is
+  a default clause."
   (case-body 'case keyform cases t 'eql nil nil))
 
 (defmacro ccase (keyform &body cases)
@@ -1424,8 +1425,9 @@
 
 (defmacro typecase (keyform &body cases)
   "TYPECASE Keyform {(Type Form*)}*
-  Evaluates the Forms in the first clause for which TYPEP of Keyform and Type
-  is true."
+  Evaluates the Forms in the first clause for which TYPEP of Keyform
+  and Type is true.  If a singleton key is T or Otherwise then the
+  clause is a default clause."
   (case-body 'typecase keyform cases nil 'typep nil nil))
 
 (defmacro ctypecase (keyform &body cases)
-- 
GitLab