From e6b87e8c1f297a717e4f82cbfef23016cb2c7d92 Mon Sep 17 00:00:00 2001
From: Bert Burgemeister <trebbu@googlemail.com>
Date: Thu, 5 Apr 2012 11:49:25 +0200
Subject: [PATCH] Make entries on etypecase/ctypecase and ecase/ccase more
 consistent

---
 clqr-control-structure.tex |  6 +++---
 clqr-types-and-classes.tex | 24 +++++++++++++-----------
 2 files changed, 16 insertions(+), 14 deletions(-)

diff --git a/clqr-control-structure.tex b/clqr-control-structure.tex
index c7618cc..aeacb17 100644
--- a/clqr-control-structure.tex
+++ b/clqr-control-structure.tex
@@ -627,9 +627,9 @@
         \NEV{\VAR{key}}}{\}} \PROGN{\VAR{foo}})})}
   {
     Return the \retval{values} of the first \OPn{\VAR{foo}} one of
-    whose \VAR{key}s is \kwd{eql} \VAR{test}. Signal
-    non-correctable/correctable \kwd{type-error} and return
-    \retval{\NIL} if there is no matching \VAR{key}.
+    whose \VAR{key}s is \kwd{eql} \VAR{test}.  Signal
+    non-correctable/correctable \kwd{type-error} if there is no
+    matching \VAR{key}.
   }
 
   \IT{(\MC*{AND} \OPn{\VAR{form}}\DF{\T})}
diff --git a/clqr-types-and-classes.tex b/clqr-types-and-classes.tex
index 7a0af0c..0ea515f 100644
--- a/clqr-types-and-classes.tex
+++ b/clqr-types-and-classes.tex
@@ -1,4 +1,4 @@
-% Copyright (C) 2008, 2009, 2010, 2011 Bert Burgemeister
+% Copyright (C) 2008, 2009, 2010, 2011, 2012 Bert Burgemeister
 %
 % Permission is granted to copy, distribute and/or modify this
 % document under the terms of the GNU Free Documentation License,
@@ -158,23 +158,25 @@ For any class, there is always a corresponding type of the same name.
     \OP{(\xorGOO{\kwd*{OTHERWISE}\\
         \T}{\}} \PROGN{\VAR{b-form}\DF{\NIL}})})}
   {
-  Return \retval{values of the \VAR{a-form}s} whose \VAR{type} is
-  \VAR{foo} of. Return \retval{values of \VAR{b-form}s} if no
-  \VAR{type} matches.
+    Return \retval{values of the \VAR{a-form}s} whose \VAR{type} is
+    \VAR{foo} of. Return \retval{values of \VAR{b-form}s} if no
+    \VAR{type} matches.
   }
 
-  \IT{(\xorGOO{\MC*{CTYPECASE}\\
-      \MC*{ETYPECASE}}{\}} \VAR{foo} \OPn{(\NEV{\VAR{type}}
-      \PROGN{\VAR{form}})})}
+  \IT{(\xorGOO{%
+      \MC*{ETYPECASE}\\
+      \MC*{CTYPECASE}}{\}}
+    \VAR{foo}
+    \OPn{(\NEV{\VAR{type}} \PROGN{\VAR{form}})})}
   {
-  Return \retval{values of the \VAR{form}s} whose \VAR{type} is
-  \VAR{foo} of. Signal correctable/non-correctable error, respectively
-  if no \VAR{type} matches.
+    Return \retval{values} of the first \OPn{\VAR{form}} whose \VAR{type} is
+    \VAR{foo} of.  Signal non-correctable/correctable \kwd{type-error}
+    if no \VAR{type} matches.
   }
 
   \IT{(\FU*{TYPE-OF} \VAR{foo})}
   {
-  \retval{Type of \VAR{foo}}.
+    \retval{Type of \VAR{foo}}.
   }
 
   \IT{(\MC*{CHECK-TYPE} \VAR{place} \VAR{type}
-- 
2.11.4.GIT