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 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
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*
{DECODE-UNIVERSAL-TIME
} \VAR{ universal-time
}
28 \Op{\VAR{time-zone
}})\\
29 (
\FU*
{GET-DECODED-TIME
})
}{.
}}
31 Return
\retval{second
},
\retvalii{minute
},
\retvaliii{hour
},
32 \retvaln{4}{date
},
\retvaln{5}{month
},
\retvaln{6}{year
},
\retvaln{7}{day
},
33 \retvaln{8}{daylight-p
}, and
\retvaln{9}{zone
}.
36 \IT{\arrGOO{(
\FU*
{ENCODE-UNIVERSAL-TIME
} \VAR{ sec
} \VAR{ min
}
37 \VAR{ hour
} \VAR{ day
} \VAR{ month
} \VAR{ year
}
39 (
\FU*
{GET-UNIVERSAL-TIME
})
}{.
}}
41 \retval{Seconds from
1900-
01-
01,
00:
00}.
44 \IT{(
\FU*
{ROOM
} \Op{\Goo{\NIL\XOR\kwd{:default
}\XOR\T}})
}
46 Print information about internal storage management.
51 List of implementation-dependent features.
54 \IT{\arrGOO{(
\FU*
{SHORT-SITE-NAME
})\\
55 (
\FU*
{LONG-SITE-NAME
})
}{.
}}
57 \retval{String
} representing physical location of computer.
60 \IT{(
\xorGOO{\FU{LISP-IMPLEMENTATION
}\\
62 \FU{MACHINE
}}{\
}}\kwd{-
}%
66 \index{LISP-IMPLEMENTATION-TYPE
}%
67 \index{LISP-IMPLEMENTATION-VERSION
}%
68 \index{SOFTWARE-TYPE
}%
69 \index{SOFTWARE-VERSION
}%
71 \index{MACHINE-VERSION
}%
72 \retval{Name
} or
\retval{version
} of implementation, operating
73 system, or hardware, respectively.
76 \IT{(
\FU*
{MACHINE-INSTANCE
})
}
78 \retval{Computer name
}.