From 7ec890167616f033cee4260a79a43ea92154bc72 Mon Sep 17 00:00:00 2001
From: Bert Burgemeister <trebbu@googlemail.com>
Date: Sun, 25 Oct 2009 16:14:45 +0100
Subject: [PATCH] Added a few words to defsetf.

---
 clqr-conditions-and-errors.tex | 2 +-
 clqr-control-structure.tex     | 5 +++--
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/clqr-conditions-and-errors.tex b/clqr-conditions-and-errors.tex
index 8574f92..39a8ab7 100644
--- a/clqr-conditions-and-errors.tex
+++ b/clqr-conditions-and-errors.tex
@@ -43,7 +43,7 @@
   \VAR{report-function} of arguments condition and stream.
   }
 
-  \IT{(\FU*{MAKE-CONDITION} \VAR{type} \Goos{\kwd{:}\VAR{initarg} \VAR{value}})}
+  \IT{(\FU*{MAKE-CONDITION} \VAR{type} \Goos{\kwd{:}\VAR{initarg-name} \VAR{value}})}
   {
   Return new \retval{condition of \VAR{type}}.
   }
diff --git a/clqr-control-structure.tex b/clqr-control-structure.tex
index 049e8eb..be275f7 100644
--- a/clqr-control-structure.tex
+++ b/clqr-control-structure.tex
@@ -497,7 +497,8 @@
     Specify how to \kwd{setf} a place accessed by
     \retval{\VAR{function}}.
     \EM{Short form:} (\kwd{setf} (\VAR{function} \OPn{\VAR{arg}}) \VAR{value-form}) is
-    replaced by (\VAR{updater} \OPn{\VAR{arg}} \VAR{value-form}).
+    replaced by (\VAR{updater} \OPn{\VAR{arg}} \VAR{value-form}); the
+    latter must return \VAR{value-form}.
     \EM{Long form:} on invocation of (\kwd{setf} (\VAR{function}
     \OPn{\VAR{arg}}) \VAR{value-form}), \VAR{form}s must expand
     into code that sets the place accessed where \VAR{setf-$\lambda$}
@@ -732,7 +733,7 @@
 
   \IT{(\SO*{TAGBODY} \Goos{\NEV{\VAR{tag}}\XOR\VAR{form}})}
   {
-  Evaluate \VAR{form}s in al lexical environment. \VAR{tag}s (symbols or integers) have lexical
+  Evaluate \VAR{form}s in a lexical environment. \VAR{tag}s (symbols or integers) have lexical
   scope and dynamic extent, and are targets for \SO{GO}. Return
   \retval{\NIL}. 
   }
-- 
2.11.4.GIT