Changeset 14372


Ignore:
Timestamp:
Oct 23, 2010, 10:46:29 PM (9 years ago)
Author:
gb
Message:

(concatenate 'string ,@sequences) => (concat-to-string ,@sequences)

File:
1 edited

Legend:

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

    r14348 r14372  
    25042504
    25052505
     2506(define-compiler-macro concatenate (&whole w type &rest sequences)
     2507  (if (and (quoted-form-p type)
     2508           (ignore-errors (subtypep (cadr type) 'string)))
     2509    `(concat-to-string ,@sequences)
     2510    w))
     2511
    25062512(provide "OPTIMIZERS")
Note: See TracChangeset for help on using the changeset viewer.