Changeset 17925

Timestamp:

08/20/08 15:36:39 (5 months ago)

Author:

g000001

Message:

lang/commonlisp/xyzzy-compat: ASDFに対応した。SBCLだと警告になるので定数の変数名を*foo*という流儀から、+foo+に変更した。

Files:

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

lang/commonlisp/xyzzy-compat/timestamp.lisp

@@ -57 +57 @@
 ;;;   cl-ppcreに依存しています。
 
-(defpackage :xyzzy-compat 
-  (:use :cl)
-  (:nicknames :xyzzy)
-  (:export :format-date
-           :format-date-string
-           :*date-formats*
-           :add-date-format
-           :parse-date-string))
-
 (in-package :xyzzy)
 
-(defconstant *abbreviated-weekday-names*
+(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"))
@@ -86 +77 @@
 
 ;; 元号と西暦の対応表(たぶん合ってる)
-(defconstant *japanese-era-list*
+(defconstant +japanese-era-list+
   '(("平成" "H" 1989 1 8)
     ("昭和" "S" 1926 12 25)
@@ -94 +85 @@
    ))
 
-(defconstant *japanese-era*
+(defconstant +japanese-era+
   (mapcar #'(lambda (x)
               (list (encode-universal-time
                      0 0 0 (fifth x) (fourth x) (third x) -9)
                     (third x) (first x) (second x)))
-          *japanese-era-list*))
+          +japanese-era-list+))
 
 (defun get-japanese-era (universal-time year)
-  (let ((x (find universal-time *japanese-era* :test #'>= :key #'car)))
+  (let ((x (find universal-time +japanese-era+ :test #'>= :key #'car)))
     (if x
         (cons (+ (- year (cadr x)) 1) (cddr x))
@@ -132 +123 @@
                    (case c
                      (#\a
-                      (princ (svref *abbreviated-weekday-names* dow) s))
+                      (princ (svref +abbreviated-weekday-names+ dow) s))
                      (#\A
-                      (princ (svref *full-weekday-names* dow) s))
+                      (princ (svref +full-weekday-names+ dow) s))
                      (#\b
-                      (princ (svref *abbreviated-month-names* (- mon 1)) s))
+                      (princ (svref +abbreviated-month-names+ (- mon 1)) s))
                      (#\B
-                      (princ (svref *full-month-names* (- mon 1)) s))
+                      (princ (svref +full-month-names+ (- mon 1)) s))
                      (#\d
                       (format s fmtd day))
@@ -180 +171 @@
                       (format s fmtd sec))
                      (#\v
-                      (princ (aref *japanese-weekday-names* dow) s))
+                      (princ (aref +japanese-weekday-names+ dow) s))
                      (#\y
                       (format s "~2,'0d" (mod year 100)))