diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-10-18 04:42:45 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-10-18 04:42:45 +0000 |
| commit | 55322fdb5d4cdf67644b3cc0d9930511e1abe80a (patch) | |
| tree | 63c10702ed9e1f6878183f4ecb0f6d55bd804cee | |
| parent | 5fa1aa207c014a8cfeb3056f10857bb0c2cbd1a2 (diff) | |
| download | open-axiom-55322fdb5d4cdf67644b3cc0d9930511e1abe80a.tar.gz | |
* interp/debug.lisp (WHOCALLED): Add dummy definition.
| -rw-r--r-- | src/ChangeLog | 4 | ||||
| -rw-r--r-- | src/interp/debug.lisp | 2 |
2 files changed, 6 insertions, 0 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 4ea2b579..fa693bce 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,9 @@ 2008-10-17 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/debug.lisp (WHOCALLED): Add dummy definition. + +2008-10-17 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/i-output.boot (callForm2String): Properly display package call. diff --git a/src/interp/debug.lisp b/src/interp/debug.lisp index 4b281043..344838c5 100644 --- a/src/interp/debug.lisp +++ b/src/interp/debug.lisp @@ -964,6 +964,8 @@ EXAMINE (SETQ RECNO (NOTE |$InputStream|)) (defvar |$TraceFlag| t) (defvar |depthAlist| nil) + +(defun WHOCALLED nil nil) (defun /MONITORX (/ARGS FUNCT OPTS &AUX NAME TYPE TRACECODE COUNTNAM TIMERNAM BEFORE AFTER CONDITION BREAK TRACEDMODEMAP |