diff --git a/books/bookvol5.pamphlet b/books/bookvol5.pamphlet
index 97338eb..2e98195 100644
--- a/books/bookvol5.pamphlet
+++ b/books/bookvol5.pamphlet
@@ -34563,6 +34563,34 @@ searchCurrentEnv(x,currentEnv) ==
\end{chunk}
+\defun{ioclear}{ioclear}
+The IO state manipulation routines assume that
+\begin{itemize}
+\item one I/O stream pair is in effect at any moment
+\item there is a current line
+\item there is a current token and a next token
+\item there is a reduction stack
+\end{itemize}
+\calls{ioclear}{line-clear}
+\calls{ioclear}{token-stack-clear}
+\calls{ioclear}{reduce-stack-clear}
+\uses{ioclear}{current-fragment}
+\uses{ioclear}{current-line}
+\usesdollar{ioclear}{boot}
+\usesdollar{ioclear}{spad}
+\begin{chunk}{defun ioclear}
+(defun ioclear (&optional (in t) (out t))
+ (declare (special current-fragment current-line $boot $spad))
+ (setq current-fragment nil)
+ (line-clear current-line)
+ (token-stack-clear)
+ (reduce-stack-clear)
+ (if (or $boot $spad) (next-lines-clear))
+ nil)
+
+\end{chunk}
+
+
\defun{next-lines-clear}{Set boot-line-stack to nil}
\uses{next-lines-clear}{boot-line-stack}
\begin{chunk}{defun next-lines-clear}
@@ -40174,6 +40202,7 @@ This needs to work off the internal exposure list, not the file.
\getchunk{defun intloopSpadProcess,interp}
\getchunk{defun intProcessSynonyms}
\getchunk{defun intSayKeyedMsg}
+\getchunk{defun ioclear}
\getchunk{defun isDomainOrPackage}
\getchunk{defun isgenvar}
\getchunk{defun isInterpOnlyMap}
diff --git a/books/bookvol9.pamphlet b/books/bookvol9.pamphlet
index a2b27d4..12deab8 100644
--- a/books/bookvol9.pamphlet
+++ b/books/bookvol9.pamphlet
@@ -11951,7 +11951,6 @@ Again we find a lot of redundant work. We finally end up calling
\calls{compileSpad2Cmd}{error}
\calls{compileSpad2Cmd}{strconc}
\calls{compileSpad2Cmd}{object2String}
-\calls{compileSpad2Cmd}{oldParserAutoloadOnceTrigger}
\calls{compileSpad2Cmd}{browserAutoloadOnceTrigger}
\calls{compileSpad2Cmd}{spad2AsTranslatorAutoloadOnceTrigger}
\calls{compileSpad2Cmd}{convertSpadToAsFile}
@@ -12744,6 +12743,24 @@ And the {\bf s-process} function which returns a parsed version of the input.
\end{chunk}
+\defun{print-defun}{print-defun}
+\calls{print-defun}{is-console}
+\calls{print-defun}{print-full}
+\uses{print-defun}{vmlisp::optionlist}
+\usesdollar{print-defun}{PrettyPrint}
+\begin{chunk}{defun print-defun}
+(defun print-defun (name body)
+ (let* ((sp (assoc 'vmlisp::compiler-output-stream vmlisp::optionlist))
+ (st (if sp (cdr sp) *standard-output*)))
+ (declare (special vmlisp::optionlist |$PrettyPrint|))
+ (when (and (is-console st) (symbolp name) (fboundp name)
+ (not (compiled-function-p (symbol-function name))))
+ (compile name))
+ (when (or |$PrettyPrint| (not (is-console st)))
+ (print-full body st) (force-output st))))
+
+\end{chunk}
+
\defun{def-rename}{def-rename}
\calls{def-rename}{def-rename1}
\begin{chunk}{defun def-rename}
@@ -14642,6 +14659,7 @@ if \verb|$InteractiveMode| then use a null outputstream
\getchunk{defun preparseReadLine}
\getchunk{defun preparseReadLine1}
\getchunk{defun primitiveType}
+\getchunk{defun print-defun}
\getchunk{defun push-reduction}
\getchunk{defun quote-if-string}
diff --git a/changelog b/changelog
index fd519b0..16cfc90 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,9 @@
+20110228 tpd src/axiom-website/patches.html 20110228.01.tpd.patch
+20110228 tpd src/interp/util.lisp treeshake compiler
+20110228 tpd src/interp/parsing.lisp treeshake compiler
+20110228 tpd src/interp/g-util.lisp treeshake compiler
+20110228 tpd books/bookvol9 treeshake compiler
+20110228 tpd books/bookvol5 treeshake compiler
20110227 tpd src/axiom-website/patches.html 20110227.01.tpd.patch
20110227 tpd src/interp/parsing.lisp treeshake compiler
20110227 tpd books/bookvol9 treeshake compiler
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index 40f8d51..697f02e 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -3405,5 +3405,7 @@ books/bookvol9 treeshake compiler
books/bookvol9 treeshake compiler
20110227.01.tpd.patch
books/bookvol9 treeshake compiler
+20110228.01.tpd.patch
+books/bookvol9 treeshake compiler