Parent Directory | Revision Log | Patch
revision 1.1.1.1 by wfs, Mon Dec 6 22:44:07 1999 UTC | revision 1.2 by camm, Thu Sep 19 03:25:19 2002 UTC | |
---|---|---|
# | Line 24 | Line 24 |
24 | ||
25 | ||
26 | (export 'time) | (export 'time) |
27 | (export 'nth-value) | |
28 | (export '(decode-universal-time encode-universal-time)) | (export '(decode-universal-time encode-universal-time)) |
29 | ||
30 | ||
# | Line 101 | Line 102 |
102 | seconds-per-day) | seconds-per-day) |
103 | (* h 3600) (* min 60) sec)) | (* h 3600) (* min 60) sec)) |
104 | ||
105 | ; Courtesy Paul Dietz | |
106 | (defmacro nth-value (n expr) | |
107 | `(nth ,n (multiple-value-list ,expr))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |