diff options
author | dos-reis <gdr@axiomatics.org> | 2012-05-06 15:13:16 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2012-05-06 15:13:16 +0000 |
commit | 03c3da037eca3d7d557784db3d3a9872ba2a2cb5 (patch) | |
tree | b7ebac6bf164dc2b15dfe8430c66593524e51fb0 /src/interp/debug.lisp | |
parent | 1dbbbe925423f63ad24be607081ced422eed5181 (diff) | |
download | open-axiom-03c3da037eca3d7d557784db3d3a9872ba2a2cb5.tar.gz |
misc cleanup
Diffstat (limited to 'src/interp/debug.lisp')
-rw-r--r-- | src/interp/debug.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/debug.lisp b/src/interp/debug.lisp index 5c4abac9..bb51443d 100644 --- a/src/interp/debug.lisp +++ b/src/interp/debug.lisp @@ -562,7 +562,7 @@ EXAMINE (SETQ RECNO (NOTE |$InputStream|)) (if (AND (INTEGERP X) (> X 0) (< X 9)) - (LIST (FETCHCHAR (STRINGIMAGE X) 0)))) + (LIST (ELT (STRINGIMAGE X) 0)))) onlys))) (if (NOT (OR A V C NL)) (if Caller (return "119") (return "019"))) |