Changeset 9361


Ignore:
Timestamp:
May 5, 2008, 7:26:01 PM (11 years ago)
Author:
gz
Message:

Tweaks in string-equal optimizer

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/compiler/optimizers.lisp

    r9360 r9361  
    18721872
    18731873(define-compiler-macro string-equal (&whole call
    1874                                      &environment env
    18751874                                     string1 string2
    18761875                                     &rest keys)
     
    18821881                (s2 0)
    18831882                (e2 `(length ,string2)))
    1884       `(when (= ,e1 ,e2)
    1885          (if (not (typep ,string1 'simple-string env))
     1883      `(when (eql ,e1 ,e2)
     1884         (if (not (typep ,string1 'simple-string))
    18861885           (multiple-value-setq (,string1 ,s1 ,e1)
    18871886             (string-start-end (string ,string1) ,s1 ,e1)))
    1888          (if (not (typep ,string2 'simple-string env))
     1887         (if (not (typep ,string2 'simple-string))
    18891888           (multiple-value-setq (,string2 ,s2 ,e2)
    18901889             (string-start-end (string ,string2) ,s2 ,e2)))
Note: See TracChangeset for help on using the changeset viewer.