Changeset 14372

Timestamp:

Oct 23, 2010, 3:46:29 PM (14 years ago)

Author:

Gary Byers

Message:

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

File:

• trunk/source/compiler/optimizers.lisp (modified) (1 diff)

trunk/source/compiler/optimizers.lisp

@@ -2504 +2504 @@
 
 
+(define-compiler-macro concatenate (&whole w type &rest sequences)
+  (if (and (quoted-form-p type)
+           (ignore-errors (subtypep (cadr type) 'string)))
+    `(concat-to-string ,@sequences)
+    w))
+
 (provide "OPTIMIZERS")