[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)
(push '((t) t #.(flags set)
  (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
                 (if (get (car l1) 'nodisp) (princ '$) (princ '|;|))
                ((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,

reply via email to

[Prev in Thread] Current Thread [Next in Thread]