Hi,
still another patch for a minor quirk in plot.lisp:
there was a strange use of defconst inside a function
diff -u plot.lisp.old plot.lisp.new
--- plot.lisp.old 2004-05-11 01:22:56.000000000 +0200
+++ plot.lisp.new 2004-05-11 21:58:54.000000000 +0200
@@ -962,12 +962,16 @@
;; See: http://cl-cookbook.sourceforge.net/dates_and_times.html
(defun do-ps-created-date (my-stream)
- (defconstant *day-names* '("Mon" "Tue" "Wed" "Thu" "Fri" "Sat" "Sun"))
- (multiple-value-bind
- (second minute hour date month year day-of-week dst-p tz)
- (get-decoded-time)
- (format my-stream "%%CreatedDate: ~2,'0d:~2,'0d:~2,'0d ~a, ~d/~2,'0d/~d (GM
T~@d)~%"
- hour minute second (nth day-of-week *day-names*) month date year (- tz)))
)
+ (let ((day-names #("Mon" "Tue" "Wed" "Thu" "Fri" "Sat" "Sun")))
+ (multiple-value-bind
+ (second minute hour date month year day-of-week dst-p tz)
+ (get-decoded-time)
+ (declare (ignore dst-p))
+ (format my-stream "%%CreatedDate: ~2,'0d:~2,'0d:~2,'0d ~a, ~d/~2,'0d/~d (
G
+MT~@d)~%"
+ hour minute second (aref day-names day-of-week) month date year (
-
+ tz)))))
+
(defun do-ps-trailer ()
(p "showpage")
This will be the last patch for a while, since I will be away from my
computer at home in the next two weeks.
So relax, I won't bother you for a while.
Andreas
--
Wherever I lay my .emacs, there's my $HOME.