[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Gcl-devel] Maxima suprv1.lisp + GCL compiler error
From: |
Robert Dodier |
Subject: |
[Gcl-devel] Maxima suprv1.lisp + GCL compiler error |
Date: |
Sun, 4 Feb 2007 22:47:58 -0700 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Gcl-devel] Maxima suprv1.lisp + GCL compiler error,
Robert Dodier <=