aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2008-10-21 02:27:17 +0000
committerdos-reis <gdr@axiomatics.org>2008-10-21 02:27:17 +0000
commit2762de6da5f955eb7b15aaeb027e87afb981db09 (patch)
tree83adbdc430b641da4447028be6584ce8dd37f823
parent0bf31eb75faa6ef6efb77fb4c2512b99fc225f2a (diff)
downloadopen-axiom-2762de6da5f955eb7b15aaeb027e87afb981db09.tar.gz
* interp/debug.lisp (WHOCALLED): Fix thinko.
-rw-r--r--src/ChangeLog6
-rw-r--r--src/interp/debug.lisp2
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