/[slime]/slime/swank.lisp
ViewVC logotype

Diff of /slime/swank.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.397 by mbaringer, Wed Sep 13 14:31:41 2006 UTC revision 1.398 by mbaringer, Wed Sep 13 15:25:17 2006 UTC
# Line 4503  See `methods-by-applicability'.") Line 4503  See `methods-by-applicability'.")
4503                     ;; Tricky.  Sign of time zone is reversed in ISO 8601                     ;; Tricky.  Sign of time zone is reversed in ISO 8601
4504                     ;; relative to Common Lisp convention!                     ;; relative to Common Lisp convention!
4505                     (format nil "~:[+~;-~]~2,'0D:~2,'0D"                     (format nil "~:[+~;-~]~2,'0D:~2,'0D"
4506                             (> zone 0) h (round m))))))                             (> zone 0) h (round (* 60 m)))))))
4507      (multiple-value-bind (second minute hour day month year dow dst zone)      (multiple-value-bind (second minute hour day month year dow dst zone)
4508        (decode-universal-time time-value)        (decode-universal-time time-value)
4509        (declare (ignore dow dst))        (declare (ignore dow dst))

Legend:
Removed from v.1.397  
changed lines
  Added in v.1.398

  ViewVC Help
Powered by ViewVC 1.1.5