Changeset 9471

Timestamp:

May 14, 2008, 9:29:16 AM (17 years ago)

Author:

marco baringer

Message:

Missing comma in the expansion of format for non nil, not t, non stream-p arguments to format

File:

• branches/working-0711/ccl/compiler/optimizers.lisp (modified) (1 diff)

branches/working-0711/ccl/compiler/optimizers.lisp

@@ -1940 +1940 @@
                `(let ((,stream-var ,stream))
                   (if (or (null ,stream-var) (stringp ,stream-var))
-                    (format-to-string stream-var ,string ,obj ,@args)
+                    (format-to-string ,stream-var ,string ,obj ,@args)
                     (progn
                       (when (eq ,stream-var t) (setq ,stream-var *standard-output*))