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

Timestamp:

08/24/08 13:30:08 (5 months ago)

Author:

g000001

Message:

lang/commonlisp/xyzzy-compat: parse-date-stringで、scanを2回実行していたので、一回に短縮した。

Files:

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

lang/commonlisp/xyzzy-compat/timestamp.lisp

@@ -241 +241 @@
 
 (defun parse-date-string (string)
-  (when (and (stringp string)
-             (ppcre:scan *date-format-regexp* string))
-    (handler-case 
-        (apply #'encode-universal-time
-               (nreverse
-                (map 'list #'parse-integer
-                     (nth-value 1 (ppcre:scan-to-strings *date-format-regexp* string)))))
-      (error () nil))))
+  (multiple-value-bind (win parts) 
+      (ppcre:scan-to-strings *date-format-regexp* 
+                             (and (stringp string) string))
+    (when win
+      (handler-case 
+          (apply #'encode-universal-time
+                 (nreverse (map 'list #'parse-integer parts)))
+        (error () nil)))))
 
 ; usage
 ;(format-date-string (nth 12 *date-formats*)
 ;                    (get-universal-time))
-;"平成20年8月19日 火曜日"
+;=> "平成20年8月19日 火曜日"
+
+;(parse-date-string "1999/01/01 17:00:0")
+;=> 3124166400