Changeset 5404

Timestamp:

Oct 23, 2006, 4:24:14 AM (18 years ago)

Author:

Gary Byers

Message:

MAKE-STRING-OUTPUT-STREAM: skip some keyword/subtype checking if element-type not
provided. (Could also skip it if it's explicit and obviously OK.)

File:

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

trunk/ccl/compiler/optimizers.lisp

@@ -1601 +1601 @@
     call))
 
+(define-compiler-macro make-string-output-stream (&whole whole &rest keys)
+  (if (null keys)
+    '(make-simple-string-output-stream)
+    whole))
+
+
 (define-compiler-macro sbit (&environment env &whole call v &optional sub0 &rest others)
   (if (and sub0 (null others))