Changeset 17927 for lang/commonlisp/xyzzy-compat/timestamp.lisp

Timestamp:

08/20/08 16:05:41 (5 months ago)

Author:

g000001

Message:

format-date-stringのoptional引数の取り方をデフォルトで、(get-universal-time)となるように変更。

Files:

• lang/commonlisp/xyzzy-compat/timestamp.lisp (modified) (1 diff)

lang/commonlisp/xyzzy-compat/timestamp.lisp

@@ -188 +188 @@
                (write-char c s)))))))
 
-(defun format-date-string (fmt &optional universal-time)
+(defun format-date-string (fmt &optional (universal-time (get-universal-time)))
   (with-output-to-string (s)
     (format-date s fmt universal-time)))