Changeset 9471


Ignore:
Timestamp:
May 14, 2008, 4:29:16 PM (11 years ago)
Author:
mb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/compiler/optimizers.lisp

    r9464 r9471  
    19401940               `(let ((,stream-var ,stream))
    19411941                  (if (or (null ,stream-var) (stringp ,stream-var))
    1942                     (format-to-string stream-var ,string ,obj ,@args)
     1942                    (format-to-string ,stream-var ,string ,obj ,@args)
    19431943                    (progn
    19441944                      (when (eq ,stream-var t) (setq ,stream-var *standard-output*))
Note: See TracChangeset for help on using the changeset viewer.