[Sbcl-commits] master: Remove compile-time-only symbol from image

[Douglas K. <sn...@us...>]

The branch "master" has been updated in SBCL:
       via  a09a87df9be448b232ab5eac9e6cb8c5e3d70e9d (commit)
      from  e1f34a7980532a80be56776478bd7009c496f3cd (commit)

- Log -----------------------------------------------------------------
commit a09a87df9be448b232ab5eac9e6cb8c5e3d70e9d
Author: Douglas Katzman <do...@go...>
Date:   Tue Jun 20 16:33:00 2017 -0400

    Remove compile-time-only symbol from image
---
 src/compiler/constantp.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/compiler/constantp.lisp b/src/compiler/constantp.lisp
index e5b447a..5e9b7bd 100644
--- a/src/compiler/constantp.lisp
+++ b/src/compiler/constantp.lisp
@@ -111,7 +111,7 @@
 ;;;; into account.
 
 (eval-when (:compile-toplevel :execute)
-(defparameter *special-form-constantp-defs* (make-array 20 :fill-pointer 0)))
+(defparameter *!special-form-constantp-defs* (make-array 20 :fill-pointer 0)))
 
 (defmacro !defconstantp (operator lambda-list &key test eval)
   (let ((args (make-symbol "ARGS")))
@@ -152,7 +152,7 @@
       `(eval-when (:compile-toplevel :execute)
          (vector-push-extend ',(list* operator test eval
                                       (binding-maker 'args '(go fail)))
-                             *special-form-constantp-defs*)))))
+                             *!special-form-constantp-defs*)))))
 
 ;;; NOTE: special forms are tested in the order as written,
 ;;; so there is some benefit to listing important ones earliest.
@@ -252,7 +252,7 @@
                          (let* ,bindings
                            (declare (ignorable ,@(mapcar #'car bindings)))
                            ,(nth expr-selector spec))))
-                     *special-form-constantp-defs*)
+                     *!special-form-constantp-defs*)
               (t
                ,default-clause))))))
 

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


hooks/post-receive
-- 
SBCL