diff options
Diffstat (limited to 'src/interp/debug.lisp')
| -rw-r--r-- | src/interp/debug.lisp | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/src/interp/debug.lisp b/src/interp/debug.lisp index bb7351e9..467716ac 100644 --- a/src/interp/debug.lisp +++ b/src/interp/debug.lisp @@ -57,8 +57,6 @@ (DEFVAR /PRETTY () "controls pretty printing of trace output") (defparameter /ECHO NIL) ;;"prevents echo of SPAD or BOOT code with /c" (MAKEPROP 'LISP '/TERMCHR '(#\ #\()) -(MAKEPROP 'LSP '/TERMCHR '(#\ #\()) -(MAKEPROP 'META '/TERMCHR '(#\: #\()) (MAKEPROP 'INPUT '/TERMCHR '(#\: #\< #\ #\()) (MAKEPROP 'SPAD '/TERMCHR '(#\: #\< #\ #\()) (MAKEPROP 'BOOT '/TERMCHR '(#\: #\< #\ #\()) @@ -155,16 +153,16 @@ (declare (special OUTPUTSTREAM)) (PROG (FT oft SFN X EDINFILE FILE DEF KEY RECNO U W SOURCEFILES |$Echo| SINGLINEMODE INPUTSTREAM SPADERRORSTREAM - ISID NBLNK COMMENTCHR $TOKSTACK (/SOURCEFILES |$sourceFiles|) + ISID NBLNK COMMENTCHR (/SOURCEFILES |$sourceFiles|) METAKEYLST DEFINITION_NAME (|$sourceFileTypes| '(|spad| |boot| |lisp| |lsp| |meta|)) ($FUNCTION FN) $NEWSPAD $LINESTACK $LINENUMBER STACK STACKX BACK OK - TRAPFLAG |$InteractiveMode| TOK COLUMN *QUERY CHR LINE + TRAPFLAG |$InteractiveMode| COLUMN *QUERY LINE (*COMP370-APPLY* (if (eq op 'define) #'eval-defun #'compile-defun))) (declare (special |$Echo| SINGLINEMODE INPUTSTREAM - SPADERRORSTREAM ISID NBLNK COMMENTCHR $TOKSTACK /SOURCEFILES + SPADERRORSTREAM ISID NBLNK COMMENTCHR /SOURCEFILES METAKEYLST DEFINITION_NAME |$sourceFileTypes| $FUNCTION $NEWSPAD $LINESTACK $LINENUMBER STACK STACKX BACK OK - TRAPFLAG |$InteractiveMode| TOK COLUMN *QUERY CHR LINE)) + TRAPFLAG |$InteractiveMode| COLUMN *QUERY LINE)) (if (CONSP FN) (SETQ FN (QCAR FN))) (SETQ INFILE (OR INFILE (|getFunctionSourceFile| FN))) ;; $FUNCTION is freely set in getFunctionSourceFile |