Ignore:
Timestamp:
Aug 11, 2008, 6:48:00 AM (11 years ago)
Author:
gb
Message:

Add FORMAT-TO-STRING.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/format.lisp

    r9046 r10431  
    360360                 (do-sub-format stream))))))
    361361        nil))))
     362
     363(defun format-to-string (string control-string &rest format-arguments)
     364  (declare (dynamic-extent format-arguments))
     365  (if string
     366    (with-output-to-string (stream string)
     367      (apply #'format stream control-string format-arguments))
     368    (with-output-to-string (stream)
     369      (apply #'format stream control-string format-arguments))))
    362370
    363371(defun do-sub-format (stream)
Note: See TracChangeset for help on using the changeset viewer.