From 55322fdb5d4cdf67644b3cc0d9930511e1abe80a Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 18 Oct 2008 04:42:45 +0000 Subject: * interp/debug.lisp (WHOCALLED): Add dummy definition. --- src/ChangeLog | 4 ++++ src/interp/debug.lisp | 2 ++ 2 files changed, 6 insertions(+) (limited to 'src') diff --git a/src/ChangeLog b/src/ChangeLog index 4ea2b579..fa693bce 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2008-10-17 Gabriel Dos Reis + + * interp/debug.lisp (WHOCALLED): Add dummy definition. + 2008-10-17 Gabriel Dos Reis * interp/i-output.boot (callForm2String): Properly display package 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 -- cgit v1.2.3