From 03c3da037eca3d7d557784db3d3a9872ba2a2cb5 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 6 May 2012 15:13:16 +0000 Subject: misc cleanup --- src/interp/debug.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/interp/debug.lisp') 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"))) -- cgit v1.2.3