diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-05-17 15:37:57 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-05-17 15:37:57 +0000 |
| commit | e6d8d5bae2f449dac29859066530aafe8aa47006 (patch) | |
| tree | 4e49c1c793cd5b2f3b7f81ec65b12956fd0cedbb /src/interp/debug.lisp | |
| parent | 86a5494a7187d226750c7cf49ce2c6505ec87079 (diff) | |
| download | open-axiom-e6d8d5bae2f449dac29859066530aafe8aa47006.tar.gz | |
* interp/buildom.boot (EnumerationCategory): Rewrite.
* interp/compiler.boot (compEnumCat): New. Compile
EnumerationCategory forms.
Diffstat (limited to 'src/interp/debug.lisp')
| -rw-r--r-- | src/interp/debug.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/debug.lisp b/src/interp/debug.lisp index a9ca2349..7e409ff3 100644 --- a/src/interp/debug.lisp +++ b/src/interp/debug.lisp @@ -720,7 +720,7 @@ EXAMINE (SETQ RECNO (NOTE |$InputStream|)) (T (COND (|$mathTrace| (TERPRI))) (PRINMATHOR0 VAL CURSTRM))))))) -(DEFUN MONITOR-BLANKS (N) (PRINC (MAKE-FULL-CVEC N " ") CURSTRM)) +(DEFUN MONITOR-BLANKS (N) (PRINC (|makeString| N (|char| " ")) CURSTRM)) (DEFUN MONITOR-EVALBEFORE (X) (EVAL (MONITOR-EVALTRAN X NIL)) X) |