Changeset 10431

Timestamp:

Aug 11, 2008, 6:48:00 AM (11 years ago)

Author:

gb

Message:

Add FORMAT-TO-STRING.

File:

• trunk/source/lib/format.lisp (modified) (1 diff)

trunk/source/lib/format.lisp

@@ -360 +360 @@
                  (do-sub-format stream))))))
         nil))))
+
+(defun format-to-string (string control-string &rest format-arguments)
+  (declare (dynamic-extent format-arguments))
+  (if string
+    (with-output-to-string (stream string)
+      (apply #'format stream control-string format-arguments))
+    (with-output-to-string (stream)
+      (apply #'format stream control-string format-arguments))))
 
 (defun do-sub-format (stream)