1 % Copyright (C) 2008, 2010, 2011 Bert Burgemeister
3 % Permission is granted to copy, distribute and/or modify this
4 % document under the terms of the GNU Free Documentation License,
5 % Version 1.2 or any later version published by the Free Software
6 % Foundation; with no Invariant Sections, no Front-Cover Texts and
7 % no Back-Cover Texts. For details see file COPYING.
10 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11 \section{External Environment
}
12 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15 \IT{\arrGOO{(
\FU*
{GET-INTERNAL-REAL-TIME
})\\
16 (
\FU*
{GET-INTERNAL-RUN-TIME
})
}{.
}}
18 \retval{Current time
}, or
\retval{computing time
},
19 respectively, in clock ticks.
22 \IT{\CNS*
{INTERNAL-TIME-UNITS-PER-SECOND
}}
24 Number of clock ticks per second.
28 (
\FU*
{ENCODE-UNIVERSAL-TIME
}
29 \VAR{\hspace{.7ex
}sec
} \VAR{\hspace{.7ex
}min
}
30 \VAR{\hspace{.7ex
}hour
} \VAR{\hspace{.7ex
}date
}
31 \VAR{\hspace{.7ex
}month
} \VAR{\hspace{.7ex
}year
\hspace{1ex
}}
32 \Op{\VAR{zone
}\DF{curr
}})\\
33 (
\FU*
{GET-UNIVERSAL-TIME
})
}{.
}}
35 \retval{Seconds from
1900-
01-
01,
00:
00}, ignoring leap seconds.
38 \IT{\arrGOO{(
\FU*
{DECODE-UNIVERSAL-TIME
} \VAR{ universal-time
}
39 \Op{\VAR{time-zone
}\DF{current
}})\\
40 (
\FU*
{GET-DECODED-TIME
})
}{.
}}
42 Return
\retval{second
},
\retvalii{minute
},
\retvaliii{hour
},
43 \retvaln{4}{date
},
\retvaln{5}{month
},
\retvaln{6}{year
},
44 \retvaln{7}{day
},
\retvaln{8}{daylight-p
}, and
\retvaln{9}{zone
}.
47 \IT{(
\FU*
{ROOM
} \Op{\Goo{\NIL\XOR\kwd{:default
}\XOR\T}})
}
49 Print information about internal storage management.
52 \IT{\arrGOO{(
\FU*
{SHORT-SITE-NAME
})\\
53 (
\FU*
{LONG-SITE-NAME
})
}{.
}}
55 \retval{String
} representing physical location of computer.
58 \IT{(
\xorGOO{\FU{LISP-IMPLEMENTATION
}\\
60 \FU{MACHINE
}}{\
}}\kwd{-
}%
64 \index{LISP-IMPLEMENTATION-TYPE
}%
65 \index{LISP-IMPLEMENTATION-VERSION
}%
66 \index{SOFTWARE-TYPE
}%
67 \index{SOFTWARE-VERSION
}%
69 \index{MACHINE-VERSION
}%
70 \retval{Name
} or
\retval{version
} of implementation, operating
71 system, or hardware, respectively.
74 \IT{(
\FU*
{MACHINE-INSTANCE
})
}
76 \retval{Computer name
}.
84 %%% TeX-master: "clqr"