0.6.8.9:

[sbcl.git] / src / compiler / seqtran.lisp

diff --git a/src/compiler/seqtran.lisp b/src/compiler/seqtran.lisp
index 8c493b1..3bd162c 100644 (file)
--- a/src/compiler/seqtran.lisp
+++ b/src/compiler/seqtran.lisp
@@ -322,13 +322,13 @@
 
 ;;; names of predicates that compute the same value as CHAR= when
 ;;; applied to characters
-(defconstant char=-functions '(eql equal char=))
+(defparameter *char=-functions* '(eql equal char=))
 
 (deftransform search ((string1 string2 &key (start1 0) end1 (start2 0) end2
                               test)
                      (simple-string simple-string &rest t))
   (unless (or (not test)
-             (continuation-function-is test char=-functions))
+             (continuation-function-is test *char=-functions*))
     (give-up-ir1-transform))
   '(sb!impl::%sp-string-search string1 start1 (or end1 (length string1))
                               string2 start2 (or end2 (length string2))))
@@ -336,7 +336,7 @@
 (deftransform position ((item sequence &key from-end test (start 0) end)
                        (t simple-string &rest t))
   (unless (or (not test)
-             (continuation-function-is test char=-functions))
+             (continuation-function-is test *char=-functions*))
     (give-up-ir1-transform))
   `(and (typep item 'character)
        (,(if (constant-value-or-lose from-end)
@@ -355,8 +355,8 @@
 \f
 ;;;; utilities
 
-;;; Return true if Cont's only use is a non-notinline reference to a global
-;;; function with one of the specified Names.
+;;; Return true if CONT's only use is a non-notinline reference to a
+;;; global function with one of the specified NAMES.
 (defun continuation-function-is (cont names)
   (declare (type continuation cont) (list names))
   (let ((use (continuation-use cont)))