+ (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