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