;;;; Author: Kevin M. Rosenberg\r
;;;; Date Started: June 2002\r
;;;;\r
-;;;; $Id: utils.lisp,v 1.4 2003/07/15 04:28:56 kevin Exp $\r
+;;;; $Id: utils.lisp,v 1.5 2003/07/15 21:49:36 kevin Exp $\r
;;;;\r
;;;; This file, part of LML2, is copyrighted and open-source software.\r
;;;; Rights of modification and redistribution are in the LICENSE file.\r
#-(or allegro clisp cmu scl sbcl cormanlisp lispworks lucid mcl) (truename "."))\r
\r
\r
-\r
+#+ignore\r
(defun fformat (&rest args)\r
(declare (dynamic-extent args))\r
- (apply #'format args))\r
+ (apply (if (find-package 'kmrcl)\r
+ (symbol-function (intern (symbol-name #:fformat)\r
+ (symbol-name #:kmrcl)))\r
+ #'format)\r
+ args))\r
+\r
+(defmacro fformat (stream control-string &rest args)\r
+ (if stream\r
+ `(funcall (formatter ,control-string) ,stream ,@args)\r
+ `(format nil ,control-string ,@args)))\r
+ \r