[Maxima-commits] [git] Maxima CAS branch, master, updated. branch-5_33-base-88-g30f2cf8

[Kris K. <kj...@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  30f2cf8e5f466f1273bd1c1ceb968569b37644d6 (commit)
      from  b270a95c54a5607cfd035c6b83955d00734453c7 (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 30f2cf8e5f466f1273bd1c1ceb968569b37644d6
Author: Kris Katterjohn <kat...@gm...>
Date:   Fri May 30 19:22:46 2014 -0500

    Prevent some Lisp errors in featurep
    
    When checking certain properties of an object with featurep, a Lisp
    error would occur under several Lisps when the object was not a symbol.
    This would happen for the 12 properties in OPERS (the default values in
    opproperties), along with evfun, evflag, bindtest, nonarray and noun.
    
    Now use SAFE-GET instead of GET when checking these properties.

diff --git a/src/compar.lisp b/src/compar.lisp
index 302c813..50d9855 100644
--- a/src/compar.lisp
+++ b/src/compar.lisp
@@ -1833,11 +1833,11 @@ TDNEG TDZERO TDPN) to store it, and also sets SIGN."
            (intl:gettext "featurep: second argument must be a symbol; found ~M")
           ind))
         ;; Properties not related to the assume database.
-        ((and (member ind opers) (get e ind)))
+        ((and (member ind opers) (safe-get e ind)))
         ((and (member ind '($evfun $evflag $bindtest $nonarray))
-              (get e (stripdollar ind))))
+              (safe-get e (stripdollar ind))))
         ((and (eq ind '$noun)
-              (get e (stripdollar ind))
+              (safe-get e (stripdollar ind))
               t))
         ((and (member ind '($scalar $nonscalar $mainvar))
               (mget e ind)))

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

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


hooks/post-receive
-- 
Maxima CAS