diff options
Diffstat (limited to 'src/interp/nocompil.lisp.pamphlet')
| -rw-r--r-- | src/interp/nocompil.lisp.pamphlet | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/src/interp/nocompil.lisp.pamphlet b/src/interp/nocompil.lisp.pamphlet index a3a3c980..6e7b6bf1 100644 --- a/src/interp/nocompil.lisp.pamphlet +++ b/src/interp/nocompil.lisp.pamphlet @@ -69,6 +69,7 @@ with this hack and will try to convince the GCL crowd to fix this. <<gcl-cmpnote>> +(import-module "boot-pkg") (in-package "BOOT") (defun protected-symbol-warn (&rest arg)) @@ -89,13 +90,6 @@ with this hack and will try to convince the GCL crowd to fix this. #+:ccl (format t "protected-symbol-warn called with ~A~%" arg)) -;; NOTE: JoinInner is defined in CATEGORY BOOT -;; following code needs to run interpreted to overcome arglist length limits -(defun |Join| (&rest L) - (|JoinInner| L (if (OR (not (boundp '|$e|)) (NULL |$e|) |$InteractiveMode|) - |$CategoryFrame| - |$e|))) - @ \eject \begin{thebibliography}{99} |