[Maxima-commits] CVS: maxima-pre59/src mdebug.lisp,1.8,1.9

[Raymond T. <rt...@us...>]

Update of /cvsroot/maxima/maxima-pre59/src
In directory usw-pr-cvs1:/tmp/cvs-serv6559/src

Modified Files:
	mdebug.lisp 
Log Message:
o Make a note of an ANSI CL portability problem.
o Because of the above problem, CMUCL calls $describe with the first
  character of the string chopped off.  Don't do that.


Index: mdebug.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima-pre59/src/mdebug.lisp,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- mdebug.lisp	2002/01/07 18:43:48	1.8
+++ mdebug.lisp	2002/02/01 05:05:53	1.9
@@ -290,6 +290,8 @@
 	  (go top)
 	  )
 	 ((eq ch eof-value) (return-from dbm-read eof-value)))
+   ;; ANSI CL portability bug here.  It's undefined if you do a stream
+   ;; operation and then unread-char.
    (and (eql ch #\?) (setq next (peek-char nil  stream  nil)))
    (unread-char ch stream)
   )
@@ -314,7 +316,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))))