Changeset 18703 for lang/commonlisp

Timestamp:

09/03/08 10:09:43 (4 months ago)

Author:

g000001

Message:

lang/commonlisp/xyzzy-compat: defconstantだと再定義となった場合不便なので、defconstant*を定義して再定義を回避

Files:

• lang/commonlisp/xyzzy-compat/timestamp.lisp (modified) (3 diffs)

lang/commonlisp/xyzzy-compat/timestamp.lisp

@@ -59 +59 @@
 (in-package :xyzzy)
 
-(defconstant +abbreviated-weekday-names+
+(defmacro defconstant* (sym value &optional doc)
+  `(defconstant ,sym (if (boundp ',sym)
+                         (symbol-value ',sym)
+                         ,value)
+     ,@(when doc (list doc))))
+
+(defconstant* +abbreviated-weekday-names+
   #("Mon" "Tue" "Wed" "Thu" "Fri" "Sat" "Sun"))
 
-(defconstant +full-weekday-names+
+(defconstant* +full-weekday-names+
   #("Monday" "Tuesday" "Wednesday" "Thursday" "Friday" "Saturday" "Sunday"))
 
-(defconstant +japanese-weekday-names+ "月火水木金土日")
-
-(defconstant +abbreviated-month-names+
+(defconstant* +japanese-weekday-names+ "月火水木金土日")
+
+(defconstant* +abbreviated-month-names+
   #("Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec"))
 
-(defconstant +full-month-names+
+(defconstant* +full-month-names+
   #("January" "February" "March" "April" "May" "June"
     "July" "August" "September" "October" "November" "December"))
@@ -77 +83 @@
 
 ;; 元号と西暦の対応表(たぶん合ってる)
-(defconstant +japanese-era-list+
+(defconstant* +japanese-era-list+
   '(("平成" "H" 1989 1 8)
     ("昭和" "S" 1926 12 25)
@@ -85 +91 @@
    ))
 
-(defconstant +japanese-era+
+(defconstant* +japanese-era+
   (mapcar #'(lambda (x)
               (list (encode-universal-time