1 % Copyright (C) 2008, 2010, 2011, 2012, 2014, 2018 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; with no Invariant Sections, no Front-Cover Texts and
6 % no Back-Cover Texts. For details see file COPYING.
9 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10 \section{External Environment
}
11 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14 \IT{\arrGOO{(
\FU*
{GET-INTERNAL-REAL-TIME
})\\
15 (
\FU*
{GET-INTERNAL-RUN-TIME
})
}{.
}}
17 \retval{Current time
}, or
\retval{computing time
},
18 respectively, in clock ticks.
21 \IT{\CNS*
{INTERNAL-TIME-UNITS-PER-SECOND
}}
23 Number of clock ticks per second.
27 (
\FU*
{ENCODE-UNIVERSAL-TIME
}
28 \VAR{ sec
} \VAR{min
}
29 \VAR{hour
} \VAR{date
}
30 \VAR{month
} \VAR{year
}
31 \Op{\VAR{zone
}\DF{curr
}})\\
32 (
\FU*
{GET-UNIVERSAL-TIME
})
}{.
}}
34 \retval{Seconds from
1900-
01-
01,
00:
00}, ignoring leap seconds.
37 \IT{\arrGOO{(
\FU*
{DECODE-UNIVERSAL-TIME
} \VAR{ universal-time
}
38 \Op{\VAR{time-zone
}\DF{current
}})\\
39 (
\FU*
{GET-DECODED-TIME
})
}{.
}}
41 Return
\retval{second
},
\retvalii{minute
},
\retvaliii{hour
},
42 \retvaln{4}{date
},
\retvaln{5}{month
},
\retvaln{6}{year
},
43 \retvaln{7}{day
},
\retvaln{8}{daylight-p
}, and
\retvaln{9}{zone
}.
46 \IT{\arrGOO{(
\FU*
{SHORT-SITE-NAME
})\\
47 (
\FU*
{LONG-SITE-NAME
})
}{.
}}
49 \retval{String
} representing physical location of computer.
52 \IT{(
\xorGOO{\FU{LISP-IMPLEMENTATION
}\\
54 \FU{MACHINE
}}{\
}}\kwd{-
}%
58 \index{LISP-IMPLEMENTATION-TYPE
}%
59 \index{LISP-IMPLEMENTATION-VERSION
}%
60 \index{SOFTWARE-TYPE
}%
61 \index{SOFTWARE-VERSION
}%
63 \index{MACHINE-VERSION
}%
64 \retval{Name
} or
\retval{version
} of implementation, operating
65 system, or hardware, respectively.
68 \IT{(
\FU*
{MACHINE-INSTANCE
})
}
70 \retval{Computer name
}.
78 %%% TeX-master: "clqr"