Changeset 14842
- Timestamp:
- 11/09/15 11:18:27 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/time.lisp
r14840 r14842 130 130 (hours (+ hour (* days 24)))) 131 131 (cond (time-zone 132 (let* ((tz-guess ( get-time-zone (* hours 3600)))132 (let* ((tz-guess (ext:get-time-zone (* hours 3600))) 133 133 (guess (+ second (* 60 (+ minute (* 60 (+ hours tz-guess)))))) 134 134 (tz (get-time-zone guess)))
Note: See TracChangeset
for help on using the changeset viewer.