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?
Ray