Changeset 16785


Ignore:
Timestamp:
Aug 29, 2016, 9:00:15 PM (4 years ago)
Author:
gz
Message:

constant fold #'STRING

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/optimizers.lisp

    r16747 r16785  
    7070(can-constant-fold '(specfier-type %ilsl %ilsr 1- 1+ eql eq
    7171                     byte make-point - / (+ . fold-constant-subforms) (* . fold-constant-subforms) ash character
    72                      char-code code-char lsh
     72                     string char-code code-char lsh
    7373                     (logior . fold-constant-subforms) (logand . fold-constant-subforms)
    7474                     (logxor . fold-constant-subforms) logcount logorc2 listp consp expt
Note: See TracChangeset for help on using the changeset viewer.