diff --git a/books/bookvol5.pamphlet b/books/bookvol5.pamphlet
index e4d4007..152ada1 100644
--- a/books/bookvol5.pamphlet
+++ b/books/bookvol5.pamphlet
@@ -860,6 +860,20 @@ does nothing but print the argument value.
(defvar |$promptMsg| 'S2CTP023)
\end{chunk}
+
+\defun{cmpnote}{GCL cmpnote function}
+GCL keeps noting the fact that the compiler is performing tail-recursion.
+Bill Schelter added this as a debugging tool for Axiom and it was never
+removed. Patching the lisp code in the GCL build fails as the system
+is actually built from the pre-compiled C code. Thus, we can only step
+on this message after the fact. The cmpnote function is used nowhere
+else in GCL so stepping on the function call seems best. We're unhappy
+with this hack and will try to convince the GCL crowd to fix this.
+\begin{chunk}{defun cmpnote}
+#+:gcl (defun compiler::cmpnote (&rest x))
+
+\end{chunk}
+
\defdollar{newcompErrorCount}
\begin{chunk}{initvars}
(defvar |$newcompErrorCount| 0)
@@ -13201,7 +13215,6 @@ Bug in the compiler: something which shouldn't have happened did.
(setq erMsg
(|processKeyedError|
(|msgCreate| '|bug| |$nopos| erMsgKey erArgL "Bug!" optAttr)))
- (enable-backtrace nil)
(break)
(|ncAbort|)))
@@ -25768,148 +25781,6 @@ linker linker arguments (e.g. libraries to search) -lxlf
\end{chunk}
-\section{kernel}
-\begin{verbatim}
- Current Values of kernel Variables
-
-Variable Description Current Value
------------------------------------------------------------------
-warn warn when re-definition is attempted off
-protect prevent re-definition of kernel functions off
-
-\end{verbatim}
-\begin{chunk}{kernel}
- (|kernel|
- "library functions built into the kernel for efficiency"
- |interpreter|
- TREE
- |novar|
- (
-\getchunk{kernelwarn}
-\getchunk{kernelprotect}
- )
- )
-
-\end{chunk}
-\subsection{kernelwarn}
-\begin{verbatim}
------------------------ The warn Option -----------------------
-
- Description: warn when re-definition is attempted
-
-Some AXIOM library functions are compiled into the kernel for
-efficiency reasons. To prevent them being re-defined when loaded
-from a library they are specially protected. If a user wishes to
-know when an attempt is made to re-define such a function, he or
-she should issue the command:
- )set kernel warn on
-To restore the default behaviour, he or she should issue the
-command:
- )set kernel warn off
-\end{verbatim}
-\begin{chunk}{kernelwarn}
- (|warn|
- "warn when re-definition is attempted"
- |interpreter|
- FUNCTION
- |protectedSymbolsWarning|
- NIL
- |htSetKernelWarn|)
-\end{chunk}
-\defun{protectedSymbolsWarning}{protectedSymbolsWarning}
-\calls{protectedSymbolsWarning}{protected-symbol-warn}
-\calls{protectedSymbolsWarning}{describeProtectedSymbolsWarning}
-\calls{protectedSymbolsWarning}{translateYesNo2TrueFalse}
-\begin{chunk}{defun protectedSymbolsWarning}
-(defun |protectedSymbolsWarning| (arg)
- (let (v)
- (cond
- ((eq arg '|%initialize%|) (protected-symbol-warn nil))
- ((eq arg '|%display%|)
- (setq v (protected-symbol-warn t))
- (protected-symbol-warn v)
- (if v "on" "off"))
- ((or (null arg) (eq arg '|%describe%|) (eq (car arg) '?))
- (|describeProtectedSymbolsWarning|))
- (t (protected-symbol-warn (|translateYesNo2TrueFalse| (car arg)))))))
-
-\end{chunk}
-
-\defun{describeProtectedSymbolsWarning}{describeProtectedSymbolsWarning}
-\calls{describeProtectedSymbolsWarning}{sayBrightly}
-\begin{chunk}{defun describeProtectedSymbolsWarning}
-(defun |describeProtectedSymbolsWarning| ()
- (|sayBrightly| (list
- "Some AXIOM library functions are compiled into the kernel for efficiency"
- '|%l| "reasons. To prevent them being re-defined when loaded from a library"
- '|%l|
- "they are specially protected. If a user wishes to know when an attempt"
- '|%l|
- "is made to re-define such a function, he or she should issue the command:"
- '|%l| " )set kernel warn on"
- '|%l| "To restore the default behaviour, he or she should issue the command:"
- '|%l| " )set kernel warn off")))
-
-\end{chunk}
-\subsection{kernelprotect}
-\begin{verbatim}
---------------------- The protect Option ----------------------
-
- Description: prevent re-definition of kernel functions
-
-Some AXIOM library functions are compiled into the kernel for
-efficiency reasons. To prevent them being re-defined when loaded
-from a library they are specially protected. If a user wishes
-to re-define these functions, he or she should issue the command:
- )set kernel protect off
-To restore the default behaviour, he or she should issue the
-command:
- )set kernel protect on
-\end{verbatim}
-\begin{chunk}{kernelprotect}
- (|protect|
- "prevent re-definition of kernel functions"
- |interpreter|
- FUNCTION
- |protectSymbols|
- NIL
- |htSetKernelProtect|)
-\end{chunk}
-
-\defun{protectSymbols}{protectSymbols}
-\calls{protectSymbols}{protect-symbols}
-\calls{protectSymbols}{describeProtectSymbols}
-\calls{protectSymbols}{translateYesNo2TrueFalse}
-\begin{chunk}{defun protectSymbols}
-(defun |protectSymbols| (arg)
- (let (v)
- (cond
- ((eq arg '|%initialize%|) (protect-symbols t))
- ((eq arg '|%display%|)
- (setq v (protect-symbols t))
- (protect-symbols v)
- (if v "on" "off"))
- ((or (null arg) (eq arg '|%describe%|) (eq (car arg) '?))
- (|describeProtectSymbols|))
- (t (protect-symbols (|translateYesNo2TrueFalse| (car arg)))))))
-
-\end{chunk}
-\defun{describeProtectSymbols}{describeProtectSymbols}
-\calls{describeProtectSymbols}{sayBrightly}
-\begin{chunk}{defun describeProtectSymbols}
-(defun |describeProtectSymbols| ()
- (|sayBrightly| (list
- "Some AXIOM library functions are compiled into the kernel for efficiency"
- '|%l|
- "reasons. To prevent them being re-defined when loaded from a library"
- '|%l| "they are specially protected. If a user wishes to re-define these"
- '|%l| "functions, he or she should issue the command:"
- '|%l| " )set kernel protect off"
- '|%l|
- "To restore the default behaviour, he or she should issue the command:"
- '|%l| " )set kernel protect on")))
-
-\end{chunk}
\section{hyperdoc}
\begin{verbatim}
Current Values of hyperdoc Variables
@@ -29249,10 +29120,11 @@ which gets called with \verb|%describe%|
(set (fifth setdata)
(|translateYesNo2TrueFalse| (seventh setdata))))
(t
- (cond ((eq arg2 '|nobreak|) (use-fast-links t)))
+ (cond ((eq arg2 '|nobreak|)
+ #+:GCL (si::use-fast-links t)))
(cond
((eq arg2 '|fastlinks|)
- (use-fast-links nil)
+ #+:GCL (si::use-fast-links nil)
(setq arg2 '|break|)))
(set (fifth setdata) (|translateYesNo2TrueFalse| arg2))))))
(when (or |$displaySetValue| (null arg2))
@@ -32916,7 +32788,6 @@ to convert the data into type "Expression"
(return
(progn
(setq condition (|MONITOR,EVALTRAN| /breakcondition nil))
- (enable-backtrace nil)
(when (eval condition)
(|sayBrightly| msg)
(interrupt))))))
@@ -40725,6 +40596,7 @@ This needs to work off the internal exposure list, not the file.
\getchunk{defun clearSpad2Cmd}
\getchunk{defun close}
\getchunk{defun closeInterpreterFrame}
+\getchunk{defun cmpnote}
\getchunk{defun coerceSpadArgs2E}
\getchunk{defun coerceSpadFunValue2E}
\getchunk{defun coerceTraceArgs2E}
@@ -40751,8 +40623,6 @@ This needs to work off the internal exposure list, not the file.
\getchunk{defun describeFortPersistence}
\getchunk{defun describeInputLibraryArgs}
\getchunk{defun describeOutputLibraryArgs}
-\getchunk{defun describeProtectedSymbolsWarning}
-\getchunk{defun describeProtectSymbols}
\getchunk{defun describeSetFortDir}
\getchunk{defun describeSetFortTmpDir}
\getchunk{defun describeSetFunctionsCache}
@@ -41485,12 +41355,10 @@ This needs to work off the internal exposure list, not the file.
\getchunk{defun processInteractive1}
\getchunk{defun processKeyedError}
\getchunk{defun processMsgList}
-\getchunk{defun protectedSymbolsWarning}
\getchunk{defun protectedEVAL}
\getchunk{defun processSynonymLine}
\getchunk{defun processSynonymLine,removeKeyFromLine}
\getchunk{defun processSynonyms}
-\getchunk{defun protectSymbols}
\getchunk{defun prTraceNames}
\getchunk{defun prTraceNames,fn}
\getchunk{defun pspacers}
diff --git a/books/bookvol7.pamphlet b/books/bookvol7.pamphlet
index 5b08c71..7dbd1ad 100644
--- a/books/bookvol7.pamphlet
+++ b/books/bookvol7.pamphlet
@@ -14843,7 +14843,6 @@ static void makeInputFileFromPage(HyperDocPage *page) {
sendLispCommand("(|setOutputCharacters| '(default))");
sendLispCommand("(setq |$printLoadMsgs| NIL)");
sendLispCommand("(setq |$UserLevel| '|development|)");
- sendLispCommand("(verbos 0)");
}
if (make_patch_files) {
pfile = fopen(c, "a");
diff --git a/changelog b/changelog
index 28ca1cb..7ad6aba 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,14 @@
+20110923 tpd src/axiom-website/patches.html 20110924.01.tpd.patch
+20110924 tpd src/input/unittest2.input fixup broken tests
+20110924 tpd src/input/unittest1.input fixup broken tests
+20110924 tpd src/input/setcmd.input fixup broken tests
+20110924 tpd src/input/cmds.input fixup broken tests
+20110924 tpd src/input/axiom.input fixup broken tests
+20110924 tpd src/interp/nocompil.lisp remove most functions
+20110924 tpd src/interp/ht-util.lisp merge nocompil.lisp
+20110924 tpd src/interp/g-error.lisp merge nocompil.lisp
+20110924 tpd books/bookvol7 merge nocompil.lisp
+20110924 tpd books/bookvol5 merge nocompil.lisp
20110923 tpd src/axiom-website/patches.html 20110923.04.tpd.patch
20110923 tpd books/bookvol5 remove ncParseAndInterpretString
20110923 tpd src/axiom-website/patches.html 20110923.03.tpd.patch
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index cd2b6c1..a0e1ca2 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -3630,5 +3630,7 @@ books/bookvol5 remove packageTran
src/interp/Makefile remove nci.lisp
20110923.04.tpd.patch
books/bookvol5 remove ncParseAndInterpretString
+20110924.01.tpd.patch
+books/bookvol5 merge nocompil.lisp