diff options
author | dos-reis <gdr@axiomatics.org> | 2011-04-30 18:55:21 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-04-30 18:55:21 +0000 |
commit | 42cf0984b569e49060252e536c0c7e7aee469873 (patch) | |
tree | c2cb31c68df04f75bfd9a490ae10b9c6cf795102 /src/interp/debug.lisp | |
parent | 5770442f576aa0c1e389344a636f1e4edca1b136 (diff) | |
download | open-axiom-42cf0984b569e49060252e536c0c7e7aee469873.tar.gz |
* More cleanup
Diffstat (limited to 'src/interp/debug.lisp')
-rw-r--r-- | src/interp/debug.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/debug.lisp b/src/interp/debug.lisp index 71098c9c..a9ca2349 100644 --- a/src/interp/debug.lisp +++ b/src/interp/debug.lisp @@ -140,10 +140,10 @@ METAKEYLST DEFINITION_NAME |$sourceFileTypes| $FUNCTION $NEWSPAD $LINESTACK $LINENUMBER STACK STACKX BACK OK TRAPFLAG |$InteractiveMode| TOK ERRCOL COLUMN *QUERY CHR LINE)) - (if (PAIRP FN) (SETQ FN (QCAR FN))) + (if (CONSP FN) (SETQ FN (QCAR FN))) (SETQ INFILE (OR INFILE (|getFunctionSourceFile| FN))) ;; $FUNCTION is freely set in getFunctionSourceFile - (IF (PAIRP $FUNCTION) (SETQ $FUNCTION (QCAR $FUNCTION))) + (IF (CONSP $FUNCTION) (SETQ $FUNCTION (QCAR $FUNCTION))) (SETQ FN $FUNCTION) (SETQ /FN $FUNCTION) LOOP (SETQ SOURCEFILES @@ -297,7 +297,7 @@ (RETURN (LIST /FN)) ) ) (DEFUN FUNLOC (func &aux file) - (if (PAIRP func) (SETQ func (CAR func))) + (if (CONSP func) (SETQ func (CAR func))) (setq file (ifcar (findtag func))) (if file (list (pathname-name file) (pathname-type file) func) nil)) |