Raymond writes:
> Andreas Eder wrote:
> > Index: suprv1.lisp
> > ===================================================================
> > RCS file: /cvsroot/maxima/maxima/src/suprv1.lisp,v
> > retrieving revision 1.46
> > retrieving revision 1.47
> > diff -u -d -r1.46 -r1.47
> > --- suprv1.lisp 4 Mar 2007 02:04:42 -0000 1.46
> > +++ suprv1.lisp 6 Mar 2007 23:20:18 -0000 1.47
> > @@ -1066,9 +1066,8 @@
> > ;; line, leave the cursor there and send the blank line to transcript
> > ;; files only.
> >
> > -(defmfun mterpri (&aux x)
> > - #-nocp (setq x (cursorpos))
> > - (if (and smart-tty x (equal x '(0 . 0)))
> > +(defmfun mterpri ()
> > + (if smart-tty
> > (let ((#.ttyoff t))
> > (terpri))
> > (terpri)))
> >
> >
> Although it probably doesn't matter, but doesn't this change how mterpri
> behaves? cursorpos signals an error with no args. And if nocp is not a
> feature, Isn't x bound to NIL so the condition for if is always false?
Yes, it could change the behaviour, but it doesn't :-)
nocp was always set as a feature and smart-tty is set to nil in display.
'Andreas