diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-10-21 02:27:17 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-10-21 02:27:17 +0000 |
| commit | 2762de6da5f955eb7b15aaeb027e87afb981db09 (patch) | |
| tree | 83adbdc430b641da4447028be6584ce8dd37f823 | |
| parent | 0bf31eb75faa6ef6efb77fb4c2512b99fc225f2a (diff) | |
| download | open-axiom-2762de6da5f955eb7b15aaeb027e87afb981db09.tar.gz | |
* interp/debug.lisp (WHOCALLED): Fix thinko.
| -rw-r--r-- | src/ChangeLog | 6 | ||||
| -rw-r--r-- | src/interp/debug.lisp | 2 |
2 files changed, 6 insertions, 2 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 486073d8..02f1f0d8 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,4 +1,8 @@ -2008-10-19 Alfredo Portes <doyenatccny@gmail.com> +2008-10-20 Gabriel Dos Reis <gdr@cs.tamu.edu> + + * interp/debug.lisp (WHOCALLED): Fix thinko. + +2008-10-19 Alfredo Portes <doyenatccny@gmail.com> * include/open-axiom.h: Replace __MINGW32__ declaration with __WIN32__. diff --git a/src/interp/debug.lisp b/src/interp/debug.lisp index 344838c5..fbcdc575 100644 --- a/src/interp/debug.lisp +++ b/src/interp/debug.lisp @@ -965,7 +965,7 @@ EXAMINE (SETQ RECNO (NOTE |$InputStream|)) (defvar |$TraceFlag| t) (defvar |depthAlist| nil) -(defun WHOCALLED nil nil) +(defun WHOCALLED (x) (declare (ignore x)) nil) (defun /MONITORX (/ARGS FUNCT OPTS &AUX NAME TYPE TRACECODE COUNTNAM TIMERNAM BEFORE AFTER CONDITION BREAK TRACEDMODEMAP |