[Maxima-discuss] trouble with GCL build

[Robert D. <rob...@gm...>]

I'm having trouble building current Maxima with GCL. I have updated GCL
to 2.6.12 which appears to be the most recent version, at least to judge
by http://www.gnu.org/software/gcl and http://gnu.mirror.iweb.com/gcl/.
I built it from the 2.6.12 tarball via make && make install. I am
working on Ubuntu 14.04 if it makes a difference.

According to commit 367d0e22, some symbols have been moved around.
However I find I still have to make some changes to get it to
compile. I've attached a patch to this message.

At this point I'm not sure what to do. I wonder if it's meaningful to
commit changes which might or might not depend on sub-subminor versions
of GCL. Rupert -- what do you think?

best

Robert Dodier

PS. Here's the changes I need to make to get Maxima to compile.
diff --git a/src/lmdcls.lisp b/src/lmdcls.lisp
index 6985ba2..1f0add1 100644
--- a/src/lmdcls.lisp
+++ b/src/lmdcls.lisp
@@ -12,8 +12,8 @@

 #+gcl
 (progn
-  (system:clines "#define MAKE_UNSPECIAL(x)
(check_type_symbol(&(x)),(x)->s.s_stype = stp_ordinary, Cnil)")
-  (system:defentry make-unspecial (system:object) (system:object
"MAKE_UNSPECIAL")))
+  (system::clines "#define MAKE_UNSPECIAL(x)
(check_type_symbol(&(x)),(x)->s.s_stype = stp_ordinary, Cnil)")
+  (system::defentry make-unspecial (system::object) (system::object
"MAKE_UNSPECIAL")))

 #+(or scl cmu)
 (defun make-unspecial (symbol)
diff --git a/src/macsys.lisp b/src/macsys.lisp
index 5d1a5ce..86a4544 100644
--- a/src/macsys.lisp
+++ b/src/macsys.lisp
@@ -610,7 +610,7 @@ DESTINATION is an actual stream (rather than nil
for a string)."
        (setf shell "cmd") (setf shell-opt "/c"))
       (t (setf shell "/bin/sh") (setf shell-opt "-c")))

-    #+gcl (system:system (apply '$sconcat args))
+    #+gcl (system::system (apply '$sconcat args))
     #+ecl (si:system (apply '$concat args))
     #+clisp (let ((output (ext:run-shell-command (apply '$sconcat args)
                                                  :wait t :output :stream)))
diff --git a/src/numeric.lisp b/src/numeric.lisp
index 95c51e6..2f1ed2b 100755
--- a/src/numeric.lisp
+++ b/src/numeric.lisp
@@ -963,7 +963,8 @@
   "The first argument is some location holding a number. This number is
   incremented by the second argument, DELTA, which defaults to 1."
   (multiple-value-bind (dummies vals newval setter getter)
-      (get-setf-expansion place env)
+      ;; GET-SETF-EXPANSION is present in GCL 2.6.12, but it is not FBOUNDP; ??
+      (#-gcl get-setf-expansion #+gcl get-setf-method place env)
     (let ((d (gensym)))
       `(let* (,@(mapcar #'list dummies vals)
               (,d ,delta)
@@ -974,7 +975,7 @@
   "The first argument is some location holding a number. This number is
   decremented by the second argument, DELTA, which defaults to 1."
   (multiple-value-bind (dummies vals newval setter getter)
-      (get-setf-expansion place env)
+      (#-gcl get-setf-expansion #+gcl get-setf-method place env)
     (let ((d (gensym)))
       `(let* (,@(mapcar #'list dummies vals)
               (,d ,delta)
diff --git a/src/utils.lisp b/src/utils.lisp
index c4357f1..55c18ed 100644
--- a/src/utils.lisp
+++ b/src/utils.lisp
@@ -44,7 +44,7 @@
   #+sbcl               (sb-ext:quit)
   #+allegro            (excl:exit 0 :quiet t)
   #+(or mcl openmcl)   (ccl:quit)
-  #+gcl                (system:quit)
+  #+gcl                (system::quit)
   #+ecl                (si:quit)
   #+lispworks          (lispworks:quit)
   #+abcl               (cl-user::quit)