[Maxima-commits] [git] Maxima CAS branch, master, updated. 5.28.0-300-g1fc4bdb

[Rupert S. <rsw...@us...>]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Maxima CAS".

The branch, master has been updated
       via  1fc4bdbad55146ea657d4e20297141c994ffc7e9 (commit)
      from  e22ef374167646278e346c7670cd2caedd006a0f (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 1fc4bdbad55146ea657d4e20297141c994ffc7e9
Author: Rupert Swarbrick <rsw...@gm...>
Date:   Tue Feb 19 16:24:41 2013 +0000

    Sticking plaster for gcl build after bugfix for #2547
    
    Proper fix to come when I understand Common Lisp properly...

diff --git a/src/compar.lisp b/src/compar.lisp
index 0ddf279..1ca5168 100644
--- a/src/compar.lisp
+++ b/src/compar.lisp
@@ -1177,6 +1177,9 @@ TDNEG TDZERO TDPN) to store it, and also sets SIGN."
       e
       (infsimp e)))
 
+;; GCL needs to know that compsplt and compsplt-eq return multiple values
+#+gcl (declaim (ftype (function (t) t t) compsplt compsplt-eq))
+
 ;; Like WITH-COMPSPLT, but runs COMPSPLT-EQ instead
 (defmacro with-compsplt-eq ((lhs rhs x) &body forms)
   `(multiple-value-bind (,lhs ,rhs) (compsplt-eq ,x)

-----------------------------------------------------------------------

Summary of changes:
 src/compar.lisp |    3 +++
 1 files changed, 3 insertions(+), 0 deletions(-)


hooks/post-receive
-- 
Maxima CAS