From a24d75788f04c7bfa08d957c9939ef2e8260b268 Mon Sep 17 00:00:00 2001
From: Bert Burgemeister <trebbu@googlemail.com>
Date: Wed, 10 Oct 2018 14:08:44 +0200
Subject: [PATCH] Fix bugs reported by Fengjing Xiao

- define-compiler-macro is a macro, not a function.
- symbol-name and symbol-package aren't setfable.
---
 clqr-control-structure.tex    |  2 +-
 clqr-packages-and-symbols.tex | 13 +++++++++----
 2 files changed, 10 insertions(+), 5 deletions(-)

diff --git a/clqr-control-structure.tex b/clqr-control-structure.tex
index 840ec0b..1ba144f 100644
--- a/clqr-control-structure.tex
+++ b/clqr-control-structure.tex
@@ -472,7 +472,7 @@ argument.  \VAR{init} forms can refer to any \VAR{init} and
 \begin{LIST}{1cm}
 
   \IT{(\xorGOO{\MC*{DEFMACRO}\\
-      \FU*{DEFINE-COMPILER-MACRO}}{\}}
+      \MC*{DEFINE-COMPILER-MACRO}}{\}}
     \xorGOO{\VAR{foo}\\
       (\kwd{setf } \VAR{foo})}{\}}
     (\OPn{\VAR{macro-$\lambda$}})
diff --git a/clqr-packages-and-symbols.tex b/clqr-packages-and-symbols.tex
index 63b3145..4e25cbd 100644
--- a/clqr-packages-and-symbols.tex
+++ b/clqr-packages-and-symbols.tex
@@ -274,14 +274,19 @@ function (\kwd{function}, macro, or special operator \VAR{name}).
 
   \IT{\arrGOO{%
       (\FU*{SYMBOL-NAME} \VAR{ symbol})\\
-      (\FU*{SYMBOL-PACKAGE} \VAR{ symbol})\\
+      (\FU*{SYMBOL-PACKAGE} \VAR{ symbol})}{.}}
+  {
+    \retval{Name} or \retval{package}, respectively,
+    of \VAR{symbol}.
+  }
+
+  \IT{\arrGOO{%
       (\FU*{SYMBOL-PLIST} \VAR{ symbol})\\
       (\FU*{SYMBOL-VALUE} \VAR{ symbol})\\
       (\FU*{SYMBOL-FUNCTION} \VAR{ symbol})}{.}}
   {
-  \retval{Name}, \retval{package}, \retval{property list},
-  \retval{value}, or \retval{function}, respectively,
-  of \VAR{symbol}. \kwd{setf}able.
+    \retval{Property list}, \retval{value}, or \retval{function},
+    respectively, of \VAR{symbol}. \kwd{setf}able.
   }
 
   \IT{(\xorGOO{%
-- 
2.11.4.GIT