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 _______________________________________________ Gcl-devel mailing list Gcl-devel@gnu.org http://lists.gnu.org/mailman/listinfo/gcl-devel