Small bug in mdebug.lisp



I've appended a patch for a small bug in mdebug.lisp that could affect
describe for cmulisp.  When you ask for help:

(C1) ? integrate;

cmucl actually tries to look up "ntegrate".  The leading i is dropped.

This is actually caused by a bug.  The does an unread-char after it
has already done a peek-char.  The CLHS says this behavior is
undefined.  On Clisp, this is ok, but cmucl drops a character.  The
following patch fixes this so that cmucl will look for "integrate"
instead.

Ray

--- maxima-pre59/src/mdebug.lisp	Thu Apr 19 02:06:10 2001
+++ maxima-cvs-1025/src/mdebug.lisp	Fri Nov 16 13:29:02 2001
@@ -311,7 +311,7 @@
 				  eof-error-p eof-value)))))))
 	((and (eql #\? ch) (member next '(#\space #\tab)))
 	 (let* ((line (string-trim '(#\space #\tab #\; #\$)
-				   (subseq  (read-line stream eof-error-p eof-value) 2))))
+				   (subseq  (read-line stream eof-error-p eof-value) 1))))
 	   `((displayinput) nil (($describe) ,line))))
 	(t (setq *last-dbm-command* nil)
 	     (mread stream eof-value))))