--- src/interp/nocompil.lisp.pamphlet.old +++ src/interp/nocompil.lisp.pamphlet @@ -85,9 +85,10 @@ (defun verbos (arg)) ; (format t "verbos called with ~A~%" arg)) -(defun enable-backtrace (&rest arg)) +(defun enable-backtrace (&rest arg) #+:ccl - (format t "protected-symbol-warn called with ~A~%" arg)) + (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
_______________________________________________ Axiom-developer mailing list [email protected] http://lists.nongnu.org/mailman/listinfo/axiom-developer
