Changeset 4136
- Timestamp:
- 09/29/03 17:59:52 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/Time.java
r4051 r4136 3 3 * 4 4 * Copyright (C) 2003 Peter Graves 5 * $Id: Time.java,v 1. 7 2003-09-25 15:37:08piso Exp $5 * $Id: Time.java,v 1.8 2003-09-29 17:59:52 piso Exp $ 6 6 * 7 7 * This program is free software; you can redistribute it and/or … … 23 23 24 24 import java.io.File; 25 import java.util.TimeZone; 25 26 26 27 public final class Time extends Lisp … … 90 91 } 91 92 }; 93 94 private static final Primitive0 DEFAULT_TIME_ZONE = 95 new Primitive0("default-time-zone", PACKAGE_SYS, false) 96 { 97 public LispObject execute() throws ConditionThrowable 98 { 99 TimeZone tz = TimeZone.getDefault(); 100 int offset = tz.getOffset(System.currentTimeMillis()); 101 // "Time zone values increase with motion to the west..." 102 // Convert milliseconds to hours. 103 return new Fixnum(- offset).divideBy(new Fixnum(3600000)); 104 } 105 }; 92 106 }
Note: See TracChangeset
for help on using the changeset viewer.