diff options
| -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 |