Changeset 18704 for lang/commonlisp

Timestamp:

09/03/08 10:23:51 (5 years ago)

Author:

g000001

Message:

lang/commonlisp/xyzzy-compat: parse-date-stringが読みづらい流れのコードになっていたので修正。

Files:

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

lang/commonlisp/xyzzy-compat/timestamp.lisp

@@ -247 +247 @@
 
 (defun parse-date-string (string)
-  (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)))))
+  (if (stringp string)
+      (multiple-value-bind (win parts) 
+          (ppcre:scan-to-strings *date-format-regexp* string)
+        (when win
+          (handler-case 
+              (apply #'encode-universal-time
+                     (nreverse (map 'list #'parse-integer parts)))
+            (error () nil))))
+      nil))
 
 ; usage