[Gcl-devel] Maxima suprv1.lisp + GCL compiler error

[Robert Dodier]

Camm, thanks for this information --

> (in-package 'compiler)
> ;;WRITE-CHAR
> (push '((t) t #.(flags set)
>  "@0;(writec_stream(char_code(#0),sLAstandard_outputA->s.s_dbind),(#0))")
>   (get 'write-char 'inline-unsafe))

Trying various fixes to src/suprv1.lisp I find that the following is
enough to avoid the GCL compiler error observed before --

--- suprv1.lisp 3 Feb 2007 14:41:10 -0000       1.41
+++ suprv1.lisp 5 Feb 2007 05:35:37 -0000
@@ -700,7 +700,7 @@
          (cond ((and (not nostringp) incharp)
                 (let ((linelable (car l1))) (mterpri) (printlabel))
                 (if grindp (mgrind (meval1 (car l1)) nil)
-                     (mapc #'write-char (mstring (meval1 (car l1)))))
+                     (mapc #+gcl #'tyo #-gcl #'write-char (mstring (meval1 (car
l1)))))
                 (if (get (car l1) 'nodisp) (princ '$) (princ '|;|))
                 (mterpri))
                ((or incharp

I've committed this to Maxima cvs.

> I'll try to get this into 2.6.8pre when I get back in March, if that timeline 
> will suffice.

Whenever you have time is OK by me.

Thanks for your help,
Robert