1 % Copyright (C) 2008 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.
27 \IT{\arrGOO{(
\FU*
{ENCODE-UNIVERSAL-TIME
} \VAR{ sec
} \VAR{ min
}
28 \VAR{ hour
} \VAR{ date
} \VAR{ month
} \VAR{ year
}
29 \Op{\VAR{zone
}\DF{curr
}})\\
30 (
\FU*
{GET-UNIVERSAL-TIME
})
}{.
}}
32 \retval{Seconds from
1900-
01-
01,
00:
00}.
35 \IT{\arrGOO{(
\FU*
{DECODE-UNIVERSAL-TIME
} \VAR{ universal-time
}
36 \Op{\VAR{time-zone
}\DF{current
}})\\
37 (
\FU*
{GET-DECODED-TIME
})
}{.
}}
39 Return
\retval{second
},
\retvalii{minute
},
\retvaliii{hour
},
40 \retvaln{4}{date
},
\retvaln{5}{month
},
\retvaln{6}{year
},
\retvaln{7}{day
},
41 \retvaln{8}{daylight-p
}, and
\retvaln{9}{zone
}.
44 \IT{(
\FU*
{ROOM
} \Op{\Goo{\NIL\XOR\kwd{:default
}\XOR\T}})
}
46 Print information about internal storage management.
49 \IT{\arrGOO{(
\FU*
{SHORT-SITE-NAME
})\\
50 (
\FU*
{LONG-SITE-NAME
})
}{.
}}
52 \retval{String
} representing physical location of computer.
55 \IT{(
\xorGOO{\FU{LISP-IMPLEMENTATION
}\\
57 \FU{MACHINE
}}{\
}}\kwd{-
}%
61 \index{LISP-IMPLEMENTATION-TYPE
}%
62 \index{LISP-IMPLEMENTATION-VERSION
}%
63 \index{SOFTWARE-TYPE
}%
64 \index{SOFTWARE-VERSION
}%
66 \index{MACHINE-VERSION
}%
67 \retval{Name
} or
\retval{version
} of implementation, operating
68 system, or hardware, respectively.
71 \IT{(
\FU*
{MACHINE-INSTANCE
})
}
73 \retval{Computer name
}.
81 %%% TeX-master: "clqr"