PDP-10 Archive: decus/20-0004/datetime.com from decuslib20-01

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0004/datetime.com

There are no other files named datetime.com in the archive.

(FILECREATED "16-MAR-82 00:00:56" ("compiled on " <LISPUSERS>DATETIME.;1) (2 . 2) bcompl'd in WORK 
dated "10-MAR-82 01:09:35")
(FILECREATED "30-AUG-81 23:02:17" <LISPUSERS>DATETIME.;9 82800 changes to: ADDMULTIWORDTOKEN 
ADVANCEDATE ADVANCEDATEUNTIL CHECKTODAY COMBINEDATETIMES CREATEHOURDT CREATEOCCURENCEPRED 
DATETIMEERROR DATETIMETOSTRING DEQUALP DLESSP EVALMDTFN EXPANDINPUT FINISHDATETIME GETDATETIME 
GETDAYOFWEEK GETMONTHNUM GETNUMOFDAYSINMONTH ISFIRSTOFMONTH ISJANUARY ISSATURDAY ISSUNDAY 
ISXEROXHOLIDAY LISTDATES MULTIWORDTOKEN ONLYTIMESPECIFIED PARSEDATETIME PARSEDATETIME1 PARSEDATETIME2 
PARSEOFFSETDATETIME PARSEQUALIFIEDDATETIME PARSESIMPLEDATE PARSESIMPLETIME REPEATADVANCE 
RESETDATETIMES RESTRICTMULTIPLEDATETIME SETNOWDATETIME SETUPDAY SPELLPROPERLY TRANSLATETIMEZONE 
UNITNEXTFROMDATEFN UNITOCCURENCEPRED previous date: " 8-Jan-80 10:26:42" <LISPUSERS>DATETIME.;8)

DATETIME BINARY
ew-.w-.w}h6(Ur

 	H
}4:[ei7@LE,,~-.,<ZXBp,<Z`2B+Zp+0Z`,<ZD2B+VZ`Z,XBZ`Zw7[ZZ1H+%2D+"2B+),<wZ`,,DXBwZ`Zw7[ZZ1H+.2D++XBw[`XB`+/,<pZZ,,DXBpZ+,<w,,\XBw+63B+<2B+BZp3B+>Z"|+?Z",<ZXBw,\XBw+63B+D2B+[Zp3B+T,<,<[w~[Z,/",XBw[w~ZXBpZw0B+PZ"XBw p/",XBp,<w,<w,
}XBw[w[[[[[[ZXBpZw~3B+~[w[[[[Z,/",+[w[[[[Z,.",XBw,5"[w[[[[,<,<$Zp2B+[w[[[[[[,<,<$+3[w[[[[[[,<,<$,<w,<,<,6XBw+3w0"+[w[[[[,<,<w$+3Zp2B+([w[[[[,<,<$[w[[[[[[,<,<$+3[w[[[[,<,<$[w[[[[[[,<,<$,<w,<,<,6XBwZw/+3B+72B +H,<Zw3B+@[w~[[[[[Z2B+>^"+?,/",+G[w~[[[[[Z2B+F^"+F,.",XBp p1"+t[w~Z,<[w~[Z,<[w}[[Z,<[w}[[[Z,<[w|[[[[Z,<[w|[[[[[[Z,<[w{[[[[[[[Z,<[w{[[[[[[[[Z[w{[[[[[[[[[,,,Z$,,,,,,Z,,<,<ZXBw~,\XBw~,\XBw~/+6Zp,5"![w~Z,<[w~[Z,<[w}[[Z,<[w}[[[Z,<[w|[[[[Z,<[w|[[[[[[Z,<[w{[[[[[[[Z,<[w{[[[[[[[[Z[w{[[[[[[[[[,,,Z$,,,,,,Z,,<,<ZXBw~,\XBw~,\XBw~/+6[w~Z,<[w~[Z,<[w}[[Z,<[w}[[[Z,<[w|[[[[Z,<,<w}[w{[[[[[[Z,<[w{[[[[[[[Z,<[wz[[[[[[[[Z[wz[[[[[[[[[,,,,,,,,,Z,/+,<,< ,
}XB,<Zw~,<8"#3B+Zp+&ZXB`Z,<Zw},<?,<,6XBZ`2B+%,<$"$+/Z",~+@%(
,~<',<,<,<(&(XB`ZZ`,3B+0Z,~,<,,<,<!&(B)XB,<`,<*,<*&(B),<,,<,<,6F-,<.,<,<`,<,<,6F-Z`XB-+/,<,<Zw2B+XZw~+Zw~-,ZZ2B+Zw-,ZZ2B+,<[w~Z2B+b[w~Z,<[w}[Z2B+f[w~[Z,<[w}[[Z2B+l[w}[[Z,<[w|[[[Z2B+r[w}[[[Z,<[w|[[[[Z2B+z[w|[[[[Z,<[w{[[[[[[Z2B+[w|[[[[[[ZXBw}[w{[[[[[Z2B+

[w|[[[[[Z,<,<w},<,<^",Z,/+Zw-,ZZ2B+Zw~XBpZwXBw~ZpXBwZw~-,ZZ2B+,Zw-,ZZ2B+&,<w~[w~Z,<,U,<,<w~[w~[Z,<,U,<,<,Z,+Zw-,ZZ2B++,<w,<.,<w},	H+,8Zw-,ZZ2B+2ZwXBpZw~XBwZpXBw~Zw~-,ZZ2B+IZw-,ZZ2B+H,<w,<.[w}[Z,<,	HXBw,<w~,:3B+C[w~Z,<,<w,<,Z,XBw+G[w~Z2B/+G,<w,</,<w~,	HXBwZw+,8Zw-,ZZ2B+OZwXBpZw~XBwZpXBw~Zw~-,ZZ2B+aZw-,ZZ2B+a,<w~,:3B+a,<w,<.[w}Z,<,	H,<,<w~,<.[w}[Z,<,	H,<,<,Z,+Zw~-,ZZ2B+pZw-,ZZ2B+p,<w,<0[w}Z,<,	H3B+l[w~Z+,<w,<.[w}Z,<,	H+,8Z+ p0"+z,<,<,<,<,<w~,<,<,<,<^",Z,+Zp0B

+,<,<,<,<,<0,<,<,<,<^",Z,+,<,<,<,<2w~&"(,,<,<,<,<,<^",Z,+Z1+[,<,<w$[/[w[[[[Z+Zw-,ZZ2B+>[wZ2B5+5Z5+92B/+7Z6+92B6+9Z7+9 7,<,<8[w~[Z,<,F4+[w[Z3B+SZ,<[w~[ZD8,<,<$9XBw[w[[Z3B+L,<w,<9[w~[[ZF4XBw[wZ3B+S,<w,<:[w~Z,."6,F4XBw[w[[[[Z3B+~[w[[[[[Z3B+~[w[[[[Z0B+`Z"+c[w[[[[Z,<,<:[w~[[[[[Z,0"+n,<;[w}[[[[[ZD4+r[w~[[[[[Z,<[w}[[[[[[Z3B+|[w}[[[[[[ZB9+}Z;H4XBp+[w[[[[Z3B+[w[[[[Z0B+Z"+
[w[[[[Z,<,<<[w~[[[[[[Z3B+[w~[[[[[[ZB9+Z<F4XBpZw3B+Zp3B+,<w,<=F4+Zw3B+Zw+Zp+,<w~,Z3B+@[w[Z2B+AZ=+[w~[Z,<[w~[Z,\3B+F+8Zw2B+H+-[w~[[Z3B+N[w[[Z2B+OZ=+[w~[[Z,<[w~[[Z,\3B+V+8Zw2B+X+-[w~[[[[[[Z3B+b[w[[[[[[Z2B+cZ=+[w~[[[[[[Z,<[w~[[[[[[Z,\3B+m+8Zw2B>+o+-[w~[[[[Z3B+w[w[[[[Z2B+xZ=+[w~[[[[Z,<[w~[[[[Z,\3B++8Zw2B++-[w~[[[[[Z3B+

[w[[[[[Z2B+,<[w~[[[[[Z,\3B+-+8+Z+,<w~,++[wZ2B+,Z=+	F[w~Z,,>v,>[wZ,",^/2"+3Z+	F[wZ,,>v,>[w~Z,,^/2"+:+&Zw2B+<+&[w~[Z3B+A[w[Z2B+BZ=+	F[w~[Z,<[w~[ZD3B+H+2[w[Z,,>v,>[w~[Z,>,^/2"+P+&Zw2B+R+&[w~[[Z3B+X[w[[Z2B+YZ=+	F[w~[[Z,,>v,>[w[[Z, ,^/2"+b+2[w[[Z,,>v,>[w~[[Z, ,^/2"+k+&Zw2B+m+&[w~[[[[[[Z3B+w[w[[[[[[Z2B+xZ=+	F[w~[[[[[[Z2B+	[w[[[[[[Z2B+	+2[w~[[[[[[Z2B+	
}XB	O2B+	TZ`XB	RZ`3B0+	Y3B@+	Y3B@+	Y2BA+	[[`ZB#,~3BA+	a3BB+	a3BB+	a3BC+	a3BC+	a2BD+	c[`[ZB#,~3B/+	h3BD+	h3BE+	h3BE+	h2BF+	k[`[[ZB#,~3B.+	o3BF+	o3BG+	o2BG+	s[`[[[ZB#,~,<H,<H,

+
|ZXBZw~Z8-,+
$,<,<L$4,<,<,<,<,<,<Zw~2B+
Zw~2BL+
+
#Zw~3B+
,<ZXBw~,\+
,<w}ZDMXBw~,<Zw}3BM+

Zp+
,<w}Z
DMXBw}+
/Zw~-,+
,<,<w}"N1B+
,<w}Z
DMXBw~-,+
Zp+
,<w}DNXBw}ZXBw~+
/Zw~2BL+
+
"XBpZw3B+
 ,<Zw,XBw,\QB+
"Zp,XBwXBw+	~Zw/+
&-,+
&,+
&,<,<,<,<Zw~-,+
+Zw+
BZw~,<@} +
8Z2-,+
1,ZO,,+
3BO,<,@XB3B+
7-,+
6,,~B,~Z,~XBp-,+
AZw3B+
=ZpQD+
>ZpXBw  [2D+
>XBw[w~XBw~+
(/XB,<Z
C2B+
FZp+
yZ,<,XB
-2B+
KZ
DXB
H[
IXB
JZ
J-,+
r,<Z
K-,+
QZ
M3BP+
QZp+
qZ
O2BP+
X[
QXB
SZ
S-,+
XZ
KXB`Z
TXB
U[
VXB
WZ
W,<,<,<,<Z
X-,+
]+
gZ
[,<[
]XB
^,\XBpZw3B+
e,<Zw,XBw,\QB+
gZp,XBwXBw+
[Zw/,BPXB
XZ`3B+
q `,>v,> 
i.Bx,^/,XB
mZXB`+
M/+
v-,ZZ2BO+
v[
oZXB
uZ	w,<Z
vDQXB
v+
D/Z
xXB
zZ
z,~+,(,<w,
@Q+,<Zw~[?[Z,<Zw}[?[[Z,<Zw}[?[[[Z,<Zw|[?[[[[Z,<Zw|[?[[[[[Z,<Zw{[?[[[[[[Z,<Zw{[?[[[[[[[Z,<Zwz[?[[[[[[[[ZZwz[?[[[[[[[[[,,,,,,,,,Z,XB	T,<,Z,<[[[[[[[[[Z[d[[[[[[[[[,,,,,,,,,Z,XBV+

][s[[Z2B+

([t[[[ZXB`Zi,<,<,<S,,<[pZ,<[w[Z,<[w[[Z,<[w~[[[Z,<[w[[[[Z,<[

[[[[[Z,<[

[[[[[[Z,<[w|[[[[[[[Z,<[w|[[[[[[[[Z[w|[[[[[[[[[,,,,,,,,,Z,/XB

][

'[Z2B+

.[

([,<[z[ZD[

+Z2B+

3[

.,<[

,ZDZw~[?Z2B+

8Z

0,<,<,<T,XB

5Z

8XBZ

1,<,<,<T,XB

8,<,<,<U,XB

<,<,<Z

9,<,<,<,3B+

DZ+

EZU,<,<V,XB

>[

F[[[[,<[

@[[[[ZD[

G[[[[[,<[

J[[[[[ZD[

M[[[[[[,<[

Q[[[[[[ZDZw~Z82B+

U[[[[Z2B+

l[

_[[[[,<,<0$[

c[[[[[,<,<$[

g[[[[[[Z2B+

l[[[[Z3B+

q[[[[[[,<[

u[[[[Z,0"+

~Z+

ZD[

y[[[[[Z2B+

[[[[[,<,<0$Z
},<[w[Z,<,<w,
},<,<,Z,+Zw-,ZZ2B+
},<[w~[[Z[w~[[[,,,Z,+Zw+Zp-,ZZ3B++Z+Zp-,ZZ2B+

[p[[[Z0B7Z+Z+,,~-.X,<,<,<Z
}XBwZXBw,<Zw3B+Zw,<,<w~,<,<,2B+Zp+ZwXBw[wXBw+/Z`3B+!2BY+%Zw,<,<w~,<,<,K+2B/+'Zp+2BA+)[wZ+2BG+2Zw3B+1,<wZw,<,<,<,~3B+1[wZ+Zw+<7+,(@Y+Zw~,<?,3b+q+Zi,<,<,<,<,6XBq,\XBwZw3B+{,<Zw,XBw~,\QB+}Zw,XBwXBw~ p.",XBp+lZw~+Z?XBt,<,<,< `0"+Zw},<8Z,<,<,<,3B+	+Z,< `.",XB`Z	,<,<,<,6XB

,\XBpZw3B+,<Zw,XBw,\QB+Zp,XBwXBw+Zw++,<,<Z
^XBwZw2B+Z+Z2B+&ZZw7[ZZ1H+%2D+![+ZXBp[&XB'ZpZw7[ZZ1H+-2D+)[,<,XB
w3B+1Z.+ZwXB'ZZw7[ZZ1H+72D+3[+,<["[ \,~Zp-,ZZ2B+K[pZ2B+J[p[Z2B+J[p[[Z2B+J[p[[[Z2B+I7Z+Z+Zp-,ZZ2B+T[pZ,<,:3B+S[p[ZXBp+:Z+Zp-,ZZ2B77+[p[ZXBp+:,\,~-.\@^,~,(,Z
{,<,	uXB`,<,<,<,<,Z2,XBZ3B+h,(+n,<,<,<@`+nZZaXB,(+ZXB`3B+qZ`,~[e[[[,<ZaDZq,~Zs3B+',<,<ZuZa,3B+{,+ZxZb,3B+,+Z{-,+Z,<,

Zw+Z

-,+,<(,<c,3B+,4+[ZZd,3B+,"+[2B+,4+,cXBp,<Z3B+!ZZe,3B+"Zp+%,(,<,<w,UXBw+/Zp+Z,~,<,<,<,<,<,<Z2B+-Z+Z+2Be+0[-XB/Z/2Bb+2[0XB1Z22Bf+5[2XB4Z42Bf+x[5XB6Z7,<,

,<w~[w~[Z3B+]3B+]-,+],<i,<,,,<,<

,<w~[w~[[Z3B+e3B+e-,+e,<i,<,,,<,<j,<^",Z,XBw},<ZU2B+mZp+p,<w},(,<,iXBw}+j/+wZXBw,uXBw}-,ZZ3B+w,<,<j,

,<w},<C,<w},	H+2Bk+,<w},<E,<w},	H+2Bk+Zw~+<7+,uXBw}-,ZZ2B+w,<w},<.Z2B+Z+!2Bl+[[Z+!2B+[Z+!,<,<$B,<,	H+,<,<,<,<,<,<,<Z|-,+-Z&XBw}['XB(Z)2Bg+-ZXBw~[)XB,Z,Zm,3B+2Z-XBw}[/XB0+8Z1,<,<$-,ZZ2B+8Z2XBw}[6XB7,(XBw~3B+JZw~2B+<+L2B+C[w~Z2B/7ZXBw[w~[ZXBw~+L2B+H[w~[ZXBp[w~ZXBw~+L,<m,<n,
}B,<,	HXBwZw}3B+,<wZw3B+YZw}+Z w}/",,<,<,,<,<w~,6XBw+,<w},<$-,ZZ2B+z,<w},<$,<,<.,<w},<,
}B,<,	HXBwZw}3B+w}/",,<,<,<`p,>v,>w,^/3b+rZw+y,<w{,<$,<,<A,<w|,	HXBw}p.",XBp+m/+Zw~3B+,<w},<g$,<,<.,<w},	H+Zw~XBwZw}3B+,<wZw~3B+Zw3B+Zw}+ w}/",,<,<w|,,<,<w~,6XBwZp3B+,<,<w~,<,<,3B+,<n,<o,

Zx2Bg+

[zXB|+

Zp3B+,<,<,<,<,<,<,<,<,<^",Z,+Z|,<,
[XB	+

,<t,<v,2B+Zw~XBpZw3B+Zw~2B+Zw~3B+<w~0"+Zw~+Z+Zw~XBwZw3B+Zw~3B+w~1b77+!+Z+!w~&"2[,,<,<w,<w~,<,<,<,<,<,<^",Z,/XBw~Z	3Bv+,Z)2Be+-[*XB,Z,-,+3[w~,<Z-,&"2+,D[/XB2Zw~+,<Z32Bc+7[5XB6Z7-,+;,<,<w,,<,<,<,6,<,<,<,6,<,<,Z,+2B+,<w,<z,<{,,<,<w,<,<{,,<,<,Z,+2B+,<w,<|,<|,,<,<},<},XBp,<,<,<,<,6,<,<,<,6,<,<,Z,+ 7+,<w,<~$~+Z,<Zp-,+Z+Zp,<,<p,<,<w,<$-,ZZ2B+H,<w,<$,<[pZ,<[w[Z,<[w[[Z,<[w~[[[Z,<[w~[[[[Z,<[w}[[[[[Z,<[w}[[[[[[Z,<[w|[[[[[[[Z,<[w|[[[[[[[[Z[w|[[[[[[[[[,,,,,,,,,Z,/+b,<w,<$-,ZZ2B+b,<w,<$,<[pZ,<[w[Z,<[w[[Z,<[w~[[[Z,<[w~[[[[Z[w~[[[[[,,,,,Z,/+b 7F-/[pXBp+,<p,<,[,<,+,<p[wZ,<,<w,

,,<[w[Z,<[w~[[Z,<,<[w}[[[Z,<Zw}3B+z3B+z-,+z,<i,<,,,<Z[w}[[[[[,,,,,Z,+,<,<,< 'XBw,<,<,<m&(B)XBw w0"+Z+ w0"

++ZXBp[w&",XBw,<,<,<,[w~[[[Z,<,<w|,<w{,<,<h&(B),<,<w{[w|[[[[[[[Z,<[w|[[[[[[[[Z[w|[[[[[[[[[,,,,,,,,,Z,/F-Z+,<,<,<,<,<,<,<,<$4^,,Z,BF-,~,<,<w,<Z ,^//,XBwZN,<,<,<,,<,<,6XBp[p[[[[[[[[,<,<`$Zp+,,~-.ZtB,<,<,
},<,<Z`2B+,<w,<w",<,<,Z,+[w[[[[[,<,<$Z`2B+,<w,<w,<	,<,6,<,<,Z,+[w[[[[[,<,<$[w[[[[,<,<$[w[[[[[[,<,<$Z`2B+'Zw+2B+0,<w,<,<
,XBp,<,<
,<,6,<,<w,<,Z,+[w[[,<,<$Z`2B+:,<w,<w,<,<,6,<,<,Z,+[w[,<,<$Z`2B+C,<w,<w,<,<,6,<,<,Z,+ 7Z+,F,~-.

Z-,ZZ2B+u,<,<[GZB,<,<,
}XBw[K[ZB,<,<,
}XBp,<w,<,<`,,<,<Z`2B+XZ+c2BZ+c 7,,,<,<,6,<,<wZ`2B+iZ+s2B+kZ+s2B

@ *@@Aey!r(
x  6`

`0!q(@(	#E)!p0 "NCT\/^=<sN}=d

   @@0@j4(C5"!4("A!!"

0gt0 H
P @ @h@DX@Hf
`
aApp7p`@

	0" 
X@

n@`@@J#~Bu`Hi"R*D% )%RHAI,0Q@PpB CHB	`s@^`   0

@ @

@`

0aS	EA!`  "(#E3

A"`

O L !A 0A + 
$p1
y*K=r">''
,P#

1BU$

)CsX@VA*$@C}=UUJn} 0$

%yp3-!FiQ- RkJD3#OqL!Oq83|'>

=@Y O$JB!P6

ax1X	'w7
Q&w
Q#c0,6"@V@Oxp$?r`2&HH(DATETIME#0 . 1)
(VARIABLE-VALUE-CELL MULTIPLEWORDTOKENS . 2701)
(VARIABLE-VALUE-CELL DATETIMESPLST . 5507)
(VARIABLE-VALUE-CELL TODAYSTRING . 1191)
(VARIABLE-VALUE-CELL DATETIMEERROR . 4073)
(VARIABLE-VALUE-CELL DATETIMEERRORFLG . 4044)
(VARIABLE-VALUE-CELL MONTHNAME . 1665)
(VARIABLE-VALUE-CELL DTRDTBL . 2596)
(VARIABLE-VALUE-CELL TEMPTOKEN . 2662)
(VARIABLE-VALUE-CELL NUMOFDAYSINMONTH . 3537)
(VARIABLE-VALUE-CELL XEROXHOLIDAYS . 3624)
(VARIABLE-VALUE-CELL TEMPLST . 3939)
(VARIABLE-VALUE-CELL TOKEN . 4653)
(VARIABLE-VALUE-CELL TOKENLST . 5062)
(VARIABLE-VALUE-CELL MULITPLEDATETIME . 4347)
(VARIABLE-VALUE-CELL CONTEXT . 4411)
(VARIABLE-VALUE-CELL DATETIMEPROPS . 5157)
ADDMULTIWORDTOKEN
ADVANCEDATE
ADVANCEDATEUNTIL
CHECKTODAY
COMBINEDATETIMES
CREATEHOURDT
CREATEOCCURENCEPRED
DATETIMETOSTRING
DEQUALP
DLESSP
EVALMDTFN
FINISHDATETIME
GETDATETIME
GETDAYOFWEEK
GETMONTHNUM
GETNUMOFDAYSINMONTH
ISFIRSTOFMONTH
ISJANUARY
ISSATURDAY
ISSUNDAY
ISXEROXHOLIDAY
LISTDATES
MULTIWORDTOKEN
ONLYTIMESPECIFIED
PARSEDATETIME
REPEATADVANCE
RESETDATETIMES
RESTATE
RESTRICTMULTIPLEDATETIME
SETNOWDATETIME
SETUPDAY
SPELLPROPERLY
TRANSLATETIMEZONE
UNITNEXTFROMDATEFN
UNITOCCURENCEPRED
*ADDMULTIWORDTOKEN*
((UNBOXED-NUM . 2) VARIABLE-VALUE-CELL TOKEN . 0)
MEMBER
NCONC
DATETIME
MULTIPLEDATETIMES
DURATION
QUALIFIEDDATETIME
TODAY
COPY
GETPROP
LESSP
DAY
DAYS
WEEK
WEEKS
MONTH
MONTHS
YEAR
YEARS
HOUR
HOURS
HR
11
RPLACA
PM
AM
-1
1
MINUTE
MINUTES
((* ILLEGAL ADVANCE UNIT IN ADVANCEDATE.) . 0)
ABS
2
((* ILLEGAL DATETIME TYPE IN ADVANCEDATE.) . 0)
(VARIABLE-VALUE-CELL DATUM . 5790)
NIL
EVAL
"WARNING, DATUM NOT CHANGED IN ADVANCEDATEUNTIL"
ERROR
(NIL VARIABLE-VALUE-CELL TODAYMONTH . 1151)
NIL
(NIL VARIABLE-VALUE-CELL TODAYDAYOFMONTH . 1143)
(NIL VARIABLE-VALUE-CELL TODAYYEAR . 1157)
NIL
DATE
9
SUBSTRING
" "
MKATOM
4
6
8
((EQ TODAYDAYOFMONTH (fetch (DATETIME DAYOFMONTH) of DATUM)) . 0)
((EQ TODAYMONTH (fetch (DATETIME MONTH) of DATUM)) . 0)
((EQ TODAYYEAR (fetch (DATETIME YEAR) of DATUM)) . 0)
PUTPROP
TOMORROW
YESTERDAY
NEXTFROMDATEFN
BEFORE
DECREMENTFN
OCCURENCEPRED
0
((NOTIMP) . 0)
ERROR!
""
DATETIMEERROR
""
"between "
" and "
CONCAT
ABOUT
"~"
"<"
AFTER
">"
SHOULDNT
" "
ELT
L-CASE
" "
", "
":"
"0"
""
":00"
""
" AT "
INCOMPARABLE
AMORPM
*EVALMDTFN*
((UNBOXED-NUM . 3) VARIABLE-VALUE-CELL DATUM . 0)
"NOT A MULTIPLEDATETIME"
OCCPRED
PRED
OP
ADVANCEFN
INCREMENTFN
ADVANCE
INCREMENT
ADV
INC
BACKUPFN
DECREMENT
BACKUP
DEC
NEXTDATE
NEXTFN
NEXT
3
((* ILLEGAL EVAL TYPE IN EVALMDTFN.) . 0)
(NIL VARIABLE-VALUE-CELL TOKENLST . 0)
(NIL VARIABLE-VALUE-CELL TEMPLST . 0)
NIL
(NIL VARIABLE-VALUE-CELL TOKEN . 0)
NIL
NIL
"||"
%|
READ
% 
NCHARS
PACK*
NUMERAL
U-CASE
+
PACK
TCONC
(NIL VARIABLE-VALUE-CELL DATUM . 0)
NIL
(NIL VARIABLE-VALUE-CELL TODAY . 3187)
(NIL VARIABLE-VALUE-CELL TEMP . 3250)
((EQ NUM (fetch (DATETIME DAYOFWEEK) of DATUM)) . 0)
((DLESSP TODAY DATUM (QUOTE DAY)) . 0)
((EQ (fetch (DATETIME DAYOFMONTH) of TEMP) (fetch (DATETIME DAYOFMONTH) of DATUM)) . 0)
((EQ (fetch (DATETIME MONTH) of TEMP) (fetch (DATETIME MONTH) of DATUM)) . 0)
((-1 YEAR) . 0)
((EQ (fetch (DATETIME YEAR) of TEMP) (fetch (DATETIME YEAR) of DATUM)) . 0)
MISSPELLED?
WEEKDAYNUM
MONTHNUM
*ISXEROXHOLIDAY*
((UNBOXED-NUM . 1) VARIABLE-VALUE-CELL DATUM . 0)
?
(NIL VARIABLE-VALUE-CELL DATUM . 0)
NIL
10
((* NOT IMPLEMENTED) . 0)
PRINT
HELP
*PARSEDATETIME*
((UNBOXED-NUM . 1) VARIABLE-VALUE-CELL TOKENLST . 0)
((UNBOXED-NUM . 2) VARIABLE-VALUE-CELL CONTEXT . 0)
NIL
(NIL VARIABLE-VALUE-CELL DATETIMEERROR . 0)
((DUMMY) . 0)
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
((HOUR MINUTE DAY MONTH WEEK YEAR) . 0)
((AFTER BEFORE ABOUT BETWEEN) . 0)
IN
AT
((* DONT KNOW WHAT TO DO WITH CURRENT TOKEN.) . 0)
((: OCLOCK AM PM) . 0)
((TH HOUR MINUTE DAY MONTH WEEK YEAR SUNDAY MONDAY TUESDAY WEDNESDAY THURSDAY FRIDAY SATURDAY) . 0)
((TO AND) . 0)
,
THE
EVERY
UNITMULTIPLEDATETIME
TH
15
((* MULTIPLE DATETIME TOKEN EXPECTED HERE) . 0)
((NOTIMP) . 0)
QUOTE
((NOTIMP) . 0)
((* UNKNOWN CYCLIC DATETIME.) . 0)
THIS
LAST
((* REQUEST TO FIND THIS, NEXT, OR LAST DATE OF A NONCYCLIC DATETIME.) . 0)
QULIFIEDDATETIME
((MINUTE HOUR DAY MONTH YEAR WEEK) . 0)
12
"CANT HANDLE OFFSET DATETIMES WITH MULTIPLEDATETIME
AS DEFAULT"
13
"OFFSET DATETIME PARSED WITH RESULT OUTSIDE OF DURATION RANGE."
(VARIABLE-VALUE-CELL TOKEN . 0)
NIL
AND
TO
7
((* ILLEGAL COMBINATION OF QUALIFIERS TO DATE.) . 0)
((* ILLEGAL COMBINATION OF QUALIFIERS TO DATE.) . 0)
((* ILLEGAL COMBINATION OF QUALIFIERS TO DATE.) . 0)
BETWEEN
((* "AND" EXPECTED HERE FOR DURATION.) . 0)
5
((* MONTH OR DAY OF MONTH EXPECTED, BUT TOKEN CANNOT BE COERCED TO EITHER ONE.) . 0)
((- ,) . 0)
((* MONTH OR DAY OF MONTH EXPECTED, BUT TOKEN CANNOT BE COERCED TO EITHER ONE.) . 0)
-
((* NUMBER EXPECTED IN PARSING SIMPLETIME) . 0)
:
((* NUMBER EXPECTED AFTER COLON.) . 0)
OCLOCK
((EST PST MT CST HT) . 0)
((-1 DAY) . 0)
((ISFIRSTOFMONTH DATUM) . 0)
((-1 DAY) . 0)
((ISSUNDAY DATUM) . 0)
((ISSATURDAY DATUM) . 0)
((-1 MONTH) . 0)
((ISJANUARY DATUM) . 0)
((-1 DAY) . 0)
((ISFIRSTOFMONTH DATUM) . 0)
((SETQ DATUM (EVAL EXPR)) . 0)
RPT
NOW
14
CHRISTMAS
((AND (EQ 12 (FETCH (DATETIME MONTH) OF DATUM)) (EQ 25 (fetch (DATETIME DAYOFMONTH) of DATUM))) . 0)
((ADVANCEDATE DATUM YEAR) . 0)
((ADVANCEDATE DATUM (-1 YEAR)) . 0)
((ADVANCEDATEUNTIL (ADVANCEDATEUNTIL DATUM (QUOTE (EQ 25 DATUM:DATETIME.DAYOFMONTH))) (QUOTE (EQ 12 
DATUM:DATETIME.MONTH))) . 0)
"EVERY "
NO-MESSAGE
FIXSPELL
MISSPELLEDFN
GETD
*TRANSLATETIMEZONE*
((UNBOXED-NUM . 1) VARIABLE-VALUE-CELL DATUM . 0)
EST
CST
MT
PST
HT
*UNITNEXTFROMDATEFN*
((UNBOXED-NUM . 1) VARIABLE-VALUE-CELL DATUM . 0)
((59 MINUTE) . 0)
((EQ (fetch (DATETIME DAYOFWEEK) of DATUM) 7) . 0)
((-6 DAY) . 0)
(((1 MONTH) (-1 DAY)) . 0)
(((1 YEAR) (-1 DAY)) . 0)
*UNITOCCURENCEPRED*
((UNBOXED-NUM . 1) VARIABLE-VALUE-CELL DATUM . 0)
MONT
DAYOFMONTH
HOUT
DAYOFWEEK
(ALIST2 ALIST URET7 ALIST3 LIST2 URET6 FMEMB CF LIST4 URET5 SKNNM SKSTP EQUAL URET2 LIST URET4 
STREQUAL LIST3 SKNLST KT GUNBOX SKA URET3 CONSS1 CONS21 IUNBOX MKN SKNM ASZ SKLST URET1 BHC CONSNL 
CONS KNIL BINDB BLKENT ENTER1)dl@WX"8L{MPf`jXwO(
HfX0 Hx`:ptp!Xzlex8 9

@[x[h
\)p
	y%vx-vhXDg(0dxa@LYB('s 
b`'0Pia0$50h	Hpxr^m\IU@&RY5Eph(9epa(
%h`7B@ y=hl=(gw1thscf@3f *dx%tsH>ex)cpEA@|=xk< J95VH4V83V(2V1PPL`KxHpFH`EHPDH@CT@

&DX

%DH

$D8

#>0r> q>p>o606/5p.5`--
ARF8`E8PD8@C80303 3-pn-`m-Pk-0/p.`-P,Cg 0bpWh5P(aI@y5, X)>&0($ j|`

'>@2&

`0z\BT`A8|8x3p-H0@^c6

}8	>8	'	5.mQ:pG'xPfRtR24 l0

opU.R`x)@ 0~8P 0~w

H5hw-'p
U)P
/!pK	@g8`(l iHc`Mx>x6h[
pGII0*K'x*5H@Qz`Lw@dh`=`h
s'0	Ltx$f*d\XbZ8PY(6V8-TxSKPZB0}>l	Ah;M<YzPKy(aP`@
}a`

`8{`^06L@bI) qEhpcx

(/(
r-x
i(8
$#
P	- j

O2R'=(h<R9!.H5@1(v
f,8
6&
0$h
"#p4(0Ox^H0 vnPej(Ni@KiEh @g7eh,dHc8b@
``@m[hUZPIXPBX7PPP@|NhgI8B`2@21X'$!x!P@8mTaVh@(5x&`%P$@ts8r qh	qp0nxtn@lm@kmglP[jOipNi(Fg`0ep,dH c0bpb b

qL8

_H8

BH

5F

+>xJ8h@7X86`.@
q-8
a+8
[+(
N)
E(H
@'8
8&H
)%
(#P
"
 H
x	~`	}P	|x	SP	G	4p	Hw X
PG?0)p&0 X@~xs| ]yhKx=w8v(0uX*u%sXsp(wk8WihHh1e( cHcb8
a`X`H`_x~_`}_Px_w^pv^Xu^Hq]0f\0_ZpTZKX>Vp4U`(THSQhQNppM eL_KXZJxVJ`RIp6F/D(C8B8~?(q=P\;0N.E'X9'3"`y(qp0^GhE=58mpZ
`P	pN	`M	PIhBp<5(.h%hG` N{X 

ADDMULTIWORDTOKEN BINARY
-.,<,~(WORDLST . 1)
(VARIABLE-VALUE-CELL TOKEN . 0)
ADDMULTIWORDTOKEN
(NIL)
(LINKED-FN-CALL . DATETIME)
(ENTERF)

ADVANCEDATE BINARY
-.,<,~(DATETIME . 1)
(DAYS . 1)
(INPAST . 1)
ADVANCEDATE
(NIL)
(LINKED-FN-CALL . DATETIME)
(ENTER3)

ADVANCEDATEUNTIL BINARY
-.,<,~(DATETIME . 1)
(ADVANCEUNITS . 1)
(STOPPRED . 1)
ADVANCEDATEUNTIL
(NIL)
(LINKED-FN-CALL . DATETIME)
(ENTER3)

CHECKTODAY BINARY
-.,<,~CHECKTODAY
(NIL)
(LINKED-FN-CALL . DATETIME)
(ENTER0)

COMBINEDATETIMES BINARY
-.,<,~(DATETIME1 . 1)
(DATETIME2 . 1)
COMBINEDATETIMES
(NIL)
(LINKED-FN-CALL . DATETIME)
(ENTER2)

CREATEHOURDT BINARY
-.,<,~(NUM . 1)
CREATEHOURDT
(NIL)
(LINKED-FN-CALL . DATETIME)
(ENTER1)

CREATEOCCURENCEPRED BINARY
-.,<,~(DT . 1)
CREATEOCCURENCEPRED
(NIL)
(LINKED-FN-CALL . DATETIME)
(ENTER1)

DATETIMETOSTRING BINARY
-.,<,~(DATETIME . 1)
DATETIMETOSTRING
(NIL)
(LINKED-FN-CALL . DATETIME)
(ENTER1)

DEQUALP BINARY
-. ,<,~(DATETIME1 . 1)
(DATETIME2 . 1)
(RESOLUTION . 1)
(TIMEONLY . 1)
DEQUALP
(NIL)
(LINKED-FN-CALL . DATETIME)
(ENTER4)

DLESSP BINARY
-. ,<,~(DATETIME1 . 1)
(DATETIME2 . 1)
(RESOLUTION . 1)
(TIMEONLY . 1)
DLESSP
(NIL)
(LINKED-FN-CALL . DATETIME)
(ENTER4)

EVALMDTFN BINARY
-.,<,~(MDT . 1)
(FN . 1)
(VARIABLE-VALUE-CELL DATUM . 0)
EVALMDTFN
(NIL)
(LINKED-FN-CALL . DATETIME)
(ENTERF)

FINISHDATETIME BINARY
-.,<,~(DATETIME . 1)
(FILLDATEONLY . 1)
FINISHDATETIME
(NIL)
(LINKED-FN-CALL . DATETIME)
(ENTER2)

GETDATETIME BINARY
-.,<,~(DATETIME . 1)
GETDATETIME
(NIL)
(LINKED-FN-CALL . DATETIME)
(ENTER1)

GETDAYOFWEEK BINARY
-.,<,~(DAYOFWEEK . 1)
GETDAYOFWEEK
(NIL)
(LINKED-FN-CALL . DATETIME)
(ENTER1)

GETMONTHNUM BINARY
-.,<,~(MONTH . 1)
GETMONTHNUM
(NIL)
(LINKED-FN-CALL . DATETIME)
(ENTER1)

GETNUMOFDAYSINMONTH BINARY
-.,<,~(MONTH . 1)
(YEAR . 1)
GETNUMOFDAYSINMONTH
(NIL)
(LINKED-FN-CALL . DATETIME)
(ENTER2)

ISFIRSTOFMONTH BINARY
-.,<,~(DATETIME . 1)
ISFIRSTOFMONTH
(NIL)
(LINKED-FN-CALL . DATETIME)
(ENTER1)

ISJANUARY BINARY
-.,<,~(DATETIME . 1)
ISJANUARY
(NIL)
(LINKED-FN-CALL . DATETIME)
(ENTER1)

ISSATURDAY BINARY
-.,<,~(DATETIME . 1)
ISSATURDAY
(NIL)
(LINKED-FN-CALL . DATETIME)
(ENTER1)

ISSUNDAY BINARY
-.,<,~(DATETIME . 1)
ISSUNDAY
(NIL)
(LINKED-FN-CALL . DATETIME)
(ENTER1)

ISXEROXHOLIDAY BINARY
-.,<,~(VARIABLE-VALUE-CELL DATUM . 0)
(ACTIONKEY . 1)
ISXEROXHOLIDAY
(NIL)
(LINKED-FN-CALL . DATETIME)
(ENTERF)

LISTDATES BINARY
-.,<,~(DATETIME1 . 1)
(DATETIME2 . 1)
LISTDATES
(NIL)
(LINKED-FN-CALL . DATETIME)
(ENTER2)

MULTIWORDTOKEN BINARY
-.,<,~(CANDIDATEWORDTREE . 1)
MULTIWORDTOKEN
(NIL)
(LINKED-FN-CALL . DATETIME)
(ENTER1)

ONLYTIMESPECIFIED BINARY
-.,<,~(DT . 1)
ONLYTIMESPECIFIED
(NIL)
(LINKED-FN-CALL . DATETIME)
(ENTER1)

PARSEDATETIME BINARY
-.,<,~(VARIABLE-VALUE-CELL TOKENLST . 0)
(CONTEXT . 1)
PARSEDATETIME
(NIL)
(LINKED-FN-CALL . DATETIME)
(ENTERF)

REPEATADVANCE BINARY
-.,<,~(NUM . 1)
(EXPR . 1)
REPEATADVANCE
(NIL)
(LINKED-FN-CALL . DATETIME)
(ENTER2)

RESETDATETIMES BINARY
-.,<,~RESETDATETIMES
(NIL)
(LINKED-FN-CALL . DATETIME)
(ENTER0)

RESTATE BINARY
-.,<,~(INPUT . 1)
RESTATE
(NIL)
(LINKED-FN-CALL . DATETIME)
(ENTER1)

RESTRICTMULTIPLEDATETIME BINARY
-.,<,~(MDT . 1)
(DT . 1)
RESTRICTMULTIPLEDATETIME
(NIL)
(LINKED-FN-CALL . DATETIME)
(ENTER2)

SETNOWDATETIME BINARY
-.,<,~SETNOWDATETIME
(NIL)
(LINKED-FN-CALL . DATETIME)
(ENTER0)

SETUPDAY BINARY
-.,<,~SETUPDAY
(NIL)
(LINKED-FN-CALL . DATETIME)
(ENTER0)

SPELLPROPERLY BINARY
-.,<,~(XWORD . 1)
SPELLPROPERLY
(NIL)
(LINKED-FN-CALL . DATETIME)
(ENTER1)

TRANSLATETIMEZONE BINARY
-.,<,~(VARIABLE-VALUE-CELL DATUM . 0)
(NEWTIMEZONE . 1)
TRANSLATETIMEZONE
(NIL)
(LINKED-FN-CALL . DATETIME)
(ENTERF)

UNITNEXTFROMDATEFN BINARY
-.,<,~(VARIABLE-VALUE-CELL DATUM . 0)
(UNIT . 1)
UNITNEXTFROMDATEFN
(NIL)
(LINKED-FN-CALL . DATETIME)
(ENTERF)

UNITOCCURENCEPRED BINARY
-.,<,~(VARIABLE-VALUE-CELL DATUM . 0)
(UNIT . 1)
UNITOCCURENCEPRED
(NIL)
(LINKED-FN-CALL . DATETIME)
(ENTERF)
(PRETTYCOMPRINT DATETIMECOMS)
(RPAQQ DATETIMECOMS ((FNS * DATETIMEFNS) (VARS * DATETIMEVARS) (P (SETQ DTRDTBL (COPYREADTABLE T)) (
SETBRK (QUOTE (%| %  @ ~ - ; : / %. , > < 48 49 50 51 52 53 54 55 56 57)) 1 DTRDTBL) (SETQ 
DATETIMEDEBUGFLG NIL) (LOAD? (QUOTE <LISPUSERS>DATETIMERECORDS) LDFLG)) (PROP DATETIME * DATETIMEPROPS
) (PROP UNITMULTIPLEDATETIME YEAR MONTH WEEK DAY HOUR MINUTE) (PROP MONTHNUM JANUARY FEBRUARY MARCH 
APRIL MAY JUNE JULY AUGUST SEPTEMBER OCTOBER NOVEMBER DECEMBER) (PROP WEEKDAYNUM SUNDAY MONDAY TUESDAY
 WEDNESDAY THURSDAY FRIDAY SATURDAY) (ARRAY * DATETIMEARRAY) (RECORDS * DATETIMERECORDS) (BLOCKS * 
DATETIMEBLOCKS)))
(RPAQQ DATETIMEFNS (ADDMULTIWORDTOKEN ADVANCEDATE ADVANCEDATEUNTIL CHECKTODAY COMBINEDATETIMES 
CREATEHOURDT CREATEOCCURENCEPRED DATETIMEERROR DATETIMETOSTRING DEQUALP DLESSP EVALMDTFN EXPANDINPUT 
FINISHDATETIME GETDATETIME GETDAYOFWEEK GETMONTHNUM GETNUMOFDAYSINMONTH ISFIRSTOFMONTH ISJANUARY 
ISSATURDAY ISSUNDAY ISXEROXHOLIDAY LISTDATES MULTIWORDTOKEN NOTIMP ONLYTIMESPECIFIED PARSEDATETIME 
PARSEDATETIME1 PARSEDATETIME2 PARSEOFFSETDATETIME PARSEQUALIFIEDDATETIME PARSESIMPLEDATE 
PARSESIMPLETIME PARSESPECIALDURATION REPEATADVANCE RESETDATETIMES RESTATE RESTRICTMULTIPLEDATETIME 
SETNOWDATETIME SETUPDAY SPELLPROPERLY TRANSLATETIMEZONE UNITNEXTFROMDATEFN UNITOCCURENCEPRED))
(RPAQQ DATETIMEVARS (CURRENTERRORNUMBER DATETIMESPLST MULTIPLEWORDTOKENS TESTLST TODAYSTRING 
XEROXHOLIDAYS (DATETIMEERRORFLG NIL)))
(RPAQQ CURRENTERRORNUMBER 16)
(RPAQQ DATETIMESPLST (TH TIME STANDARD EASTERN PACIFIC MOUNTAIN CENTRAL HAWAIIAN EST PST MT CST HT 
HOLIDAYS XEROX EVERY JANUARY LAST TOMORROW NOON MIDNIGHT THURSDAY NIGHT MORNING EVENING AFTERNOON 
CHRISTMAS OCLOCK AM PM ABOUT BEFORE AFTER AT NEXT THIS BETWEEN AND IN NOW DAY PAYDAY , - : ; EVE WEEK 
MONTH YEAR HOUR MINUTE NEW YEAR YEAR'S TUESDAY SUNDAY TODAY YESTERDAY SATURDAY FEBRUARY MARCH APRIL 
MAY JUNE JULY AUGUST SEPTEMBER OCTOBER NOVEMBER DECEMBER MONDAY WEDNESDAY FRIDAY (JAN . JANUARY) (FEB 
. FEBRUARY) (MAR . MARCH) (APR . APRIL) (JUN . JUNE) (JUL . JULY) (AUG . AUGUST) (SEPT . SEPTEMBER) (
SEP . SEPTEMBER) (OCT . OCTOBER) (NOV . NOVEMBER) (DEC . DECEMBER) (SUN . SUNDAY) (MON . MONDAY) (TUES
 . TUESDAY) (WED . WEDNESDAY) (THURS . THURSDAY) (FRI . FRIDAY) (SAT . SATURDAY) (ZERO . 0) (O . 0) (
ONE . 1) (TWO . 2) (THREE . 3) (FOUR . 4) (FIVE . 5) (SIX . 6) (SEVEN . 7) (EIGHT . 8) (NINE . 9) (TEN
 . 10) (ELEVEN . 11) (TWELVE . 12) (THIRTEEN . 13) (FOURTEEN . 14) (FIFTEEN . 15) (SIXTEEN . 16) (
SEVENTEEN . 17) (EIGHTEEN . 18) (NINETEEN . 19) (TWENTY 20 +) (THIRTY 30 +) (FORTY 40 +) (FIFTY 50 +) 
(SIXTY 60 +) (SEVENTY 70 +) (EIGHTY 80 +) (NINETY 90 +) (FIRST 1 TH) (SECOND 2 TH) (THIRD 3 TH) (
FOURTH 4 TH) (FIFTH 5 TH) (SIXTH 6 TH) (SEVENTH 7 TH) (EIHTH 8 TH) (NINTH 9 TH) (TENTH 10 TH) (
ELEVENTH 11 TH) (TWELFTH 12 TH) (THIRTEENTH 13 TH) (FOURTEENTH 14 TH) (FIFTEENTH 15 TH) (SIXTEENTH 16 
TH) (SEVENTEENTH 17 TH) (EIGHTEENTH 18 TH) (NINETEENTH 19 TH) (TWENTIETH 20 TH) (THIRTIETH 30 TH) (
FORTIETH 40 TH) (FIFTIETH 50 TH) (SIXTIETH 60 TH) (SEVENTIETH 70 TH) (EIGHTIETH 80 TH) (NINETIETH 90 
TH) (ST . TH) (ND . TH) (RD . TH) (A . 1) (AN . 1) (@ . AT) (~ . ABOUT) (< . BEFORE) (> . AFTER) (
HOURS . HOUR) (HR . HOUR) (HRS . HOUR) (MINUTES . MINUTE) (MIN . MINUTE) (DAYS . DAY) (MONTHS . MONTH)
 (WEEKS . WEEK) (WKS . WEEK) (YEARS . YEAR) (YRS . YEAR) (YR . YEAR) (AROUND . ABOUT) (FROM . AFTER) (
O'CLOCK . OCLOCK) (OF . IN) (ON . IN) (/ . -) (%. . :) (BUT . AND) (EACH . EVERY) (HOLIDAY . HOLIDAYS)
))
(RPAQQ MULTIPLEWORDTOKENS ((CHRISTMAS (NIL . CHRISTMAS) (DAY (NIL . CHRISTMAS)) (EVE (NIL . 
CHRISTMASEVE))) (NEW (YEARS (NIL . NEWYEARS) (DAY (NIL . NEWYEARS))) (YEAR'S (NIL . NEWYEARS) (DAY (
NIL . NEWYEARS)))) (XEROX (HOLIDAYS (NIL . XEROXHOLIDAYS)) (HOLIDAY'S (NIL . XEROXHOLIDAYS))) (EASTERN
 (STANDARD (TIME (NIL . EST)))) (PACIFIC (STANDARD (TIME (NIL . PST)))) (MOUNTAIN (TIME (NIL . MT))) (
CENTRAL (STANDARD (TIME (NIL . CST)))) (HAWAIIAN (TIME (NIL . HT)))))
(RPAQQ TESTLST ("TODAY" "TOMORROW" "YESTERDAY" "NOW" "CHRISTMAS" "FRIDAY" "LAST FRIDAY" "NEXT FRIDAY" 
"AROUND 9:00PM" "BEFORE 1" "JUNE 23" "WEDNESDAY, WEEK OF AUGUST 5" "SUNDAY, WEEK OF AUGUST 5" 
"THE FIRST WEDNESDAY OF NEXT MONTH" "THE THIRD TUESDAY AFTER THE FIRST MONDAY IN NOVEMBER" 
"THE FOURTH OF JULY, NEXT YEAR" "WEDNESDAY, FROM 2:30 TO 3:30" "EVERY WEDNESDAY, FROM 2:30 TO 3:30" 
"EVERY WEDNESDAY, BEFORE 2:00" "EVERY THREE MINUTES" "DEC 3 78" "DEC 3, 78" "3 DEC 78" "3 DEC, 78" 
"DEC 3, 78 14:28" "3 DEC 78, 14:28" "3 DEC 78 14:28" "DEC 3 78 14:28" "DEC 3, 1978 AT 14:28" 
"THE FIRST XEROX HOLIDAY IN NOVEMBER" "THE THIRD XEROX HOLIDAY AFTER JULY 1" 
"10:00 EASTERN STANDARD TIME"))
(RPAQQ TODAYSTRING " 8-Jan-80")
(RPAQQ XEROXHOLIDAYS ((DATETIME 78 12 25 NIL NIL NIL NIL NIL) (DATETIME 78 12 26 NIL NIL NIL NIL NIL) 
(DATETIME 79 1 1 NIL NIL NIL NIL NIL) (DATETIME 79 4 13 NIL NIL NIL NIL NIL) (DATETIME 79 5 28 NIL NIL
 NIL NIL NIL) (DATETIME 79 7 4 NIL NIL NIL NIL NIL) (DATETIME 79 8 31 NIL NIL NIL NIL NIL) (DATETIME 
79 9 3 NIL NIL NIL NIL NIL) (DATETIME 79 11 22 NIL NIL NIL NIL NIL) (DATETIME 79 11 23 NIL NIL NIL NIL
 NIL) (DATETIME 79 12 24 NIL NIL NIL NIL NIL) (DATETIME 79 12 25 NIL NIL NIL NIL NIL) (DATETIME 79 12 
31 NIL NIL NIL NIL NIL)))
(RPAQ DATETIMEERRORFLG NIL)
(SETQ DTRDTBL (COPYREADTABLE T))
(SETBRK (QUOTE (%| %  @ ~ - ; : / %. , > < 48 49 50 51 52 53 54 55 56 57)) 1 DTRDTBL)
(SETQ DATETIMEDEBUGFLG NIL)
(LOAD? (QUOTE <LISPUSERS>DATETIMERECORDS) LDFLG)
(RPAQQ DATETIMEPROPS (TODAY TOMORROW YESTERDAY SUNDAY MONDAY TUESDAY WEDNESDAY THURSDAY FRIDAY 
SATURDAY NEWYEARS CHRISTMAS PAYDAY NOON MIDNIGHT XEROXHOLIDAYS))
(PUTPROPS TODAY DATETIME (DATETIME 80 1 8 3 NIL NIL NIL NIL NIL))
(PUTPROPS TOMORROW DATETIME (DATETIME 80 1 9 4 NIL NIL NIL NIL NIL))
(PUTPROPS YESTERDAY DATETIME (DATETIME 80 1 7 2 NIL NIL NIL NIL NIL))
(PUTPROPS SUNDAY DATETIME (MULTIPLEDATETIMES (EQ 1 (fetch (DATETIME DAYOFWEEK) of DATUM)) (ADVANCEDATE
 DATUM 7) (ADVANCEDATE DATUM -7) (ADVANCEDATEUNTIL (ADVANCEDATE DATUM) 1 (QUOTE (EQ 1 (fetch (DATETIME
 DAYOFWEEK) of DATUM)))) "every Sunday"))
(PUTPROPS MONDAY DATETIME (MULTIPLEDATETIMES (EQ 2 (fetch (DATETIME DAYOFWEEK) of DATUM)) (ADVANCEDATE
 DATUM 7) (ADVANCEDATE DATUM -7) (ADVANCEDATEUNTIL (ADVANCEDATE DATUM) 1 (QUOTE (EQ 2 (fetch (DATETIME
 DAYOFWEEK) of DATUM)))) "every Monday"))
(PUTPROPS TUESDAY DATETIME (MULTIPLEDATETIMES (EQ 3 (fetch (DATETIME DAYOFWEEK) of DATUM)) (
ADVANCEDATE DATUM 7) (ADVANCEDATE DATUM -7) (ADVANCEDATEUNTIL (ADVANCEDATE DATUM) 1 (QUOTE (EQ 3 (
fetch (DATETIME DAYOFWEEK) of DATUM)))) "every Tuesday"))
(PUTPROPS WEDNESDAY DATETIME (MULTIPLEDATETIMES (EQ 4 (fetch (DATETIME DAYOFWEEK) of DATUM)) (
ADVANCEDATE DATUM 7) (ADVANCEDATE DATUM -7) (ADVANCEDATEUNTIL (ADVANCEDATE DATUM) 1 (QUOTE (EQ 4 (
fetch (DATETIME DAYOFWEEK) of DATUM)))) "every Wednesday"))
(PUTPROPS THURSDAY DATETIME (MULTIPLEDATETIMES (EQ 5 (fetch (DATETIME DAYOFWEEK) of DATUM)) (
ADVANCEDATE DATUM 7) (ADVANCEDATE DATUM -7) (ADVANCEDATEUNTIL (ADVANCEDATE DATUM) 1 (QUOTE (EQ 5 (
fetch (DATETIME DAYOFWEEK) of DATUM)))) "every Thursday"))
(PUTPROPS FRIDAY DATETIME (MULTIPLEDATETIMES (EQ 6 (fetch (DATETIME DAYOFWEEK) of DATUM)) (ADVANCEDATE
 DATUM 7) (ADVANCEDATE DATUM -7) (ADVANCEDATEUNTIL (ADVANCEDATE DATUM) 1 (QUOTE (EQ 6 (fetch (DATETIME
 DAYOFWEEK) of DATUM)))) "every Friday"))
(PUTPROPS SATURDAY DATETIME (MULTIPLEDATETIMES (EQ 7 (fetch (DATETIME DAYOFWEEK) of DATUM)) (
ADVANCEDATE DATUM 7) (ADVANCEDATE DATUM -7) (ADVANCEDATEUNTIL (ADVANCEDATE DATUM) 1 (QUOTE (EQ 7 
DATUM:DATETIME.DAYOFWEEK))) "every Saturday"))
(PUTPROPS NEWYEARS DATETIME (MULTIPLEDATETIMES (AND (EQ 1 (FETCH (DATETIME MONTH) OF DATUM)) (EQ 1 (
fetch (DATETIME DAYOFMONTH) of DATUM))) (ADVANCEDATE DATUM YEAR) (ADVANCEDATE DATUM (-1 YEAR)) (
ADVANCEDATEUNTIL (ADVANCEDATEUNTIL (ADVANCEDATE DATUM) (QUOTE DAY) (QUOTE (EQ 1 
DATUM:DATETIME.DAYOFMONTH))) (QUOTE MONTH) (QUOTE (EQ 1 DATUM:DATETIME.MONTH))) "every Newyears"))
(PUTPROPS CHRISTMAS DATETIME (MULTIPLEDATETIMES (AND (EQ 12 (FETCH (DATETIME MONTH) OF DATUM)) (EQ 25 
(fetch (DATETIME DAYOFMONTH) of DATUM))) (ADVANCEDATE DATUM YEAR) (ADVANCEDATE DATUM (-1 YEAR)) (
ADVANCEDATEUNTIL (ADVANCEDATEUNTIL (ADVANCEDATE DATUM) (QUOTE DAY) (QUOTE (EQ 25 (fetch (DATETIME 
DAYOFMONTH) of DATUM)))) (QUOTE MONTH) (QUOTE (EQ 12 (fetch (DATETIME MONTH) of DATUM)))) 
"every Christmas"))
(PUTPROPS PAYDAY DATETIME (MULTIPLEDATETIMES NIL NIL NIL NIL "every payday"))
(PUTPROPS NOON DATETIME (DATETIME NIL NIL NIL NIL 0 NIL PM))
(PUTPROPS MIDNIGHT DATETIME (DATETIME NIL NIL NIL NIL 0 NIL AM))
(PUTPROPS XEROXHOLIDAYS DATETIME (MULTIPLEDATETIMES (ISXEROXHOLIDAY DATUM (QUOTE ?)) (ISXEROXHOLIDAY 
DATUM (QUOTE ADVANCEFN)) (ISXEROXHOLIDAY DATUM (QUOTE DECREMENTFN)) (ISXEROXHOLIDAY DATUM (QUOTE 
NEXTFN)) "EVERY XEROX HOLIDAY"))
(PUTPROPS YEAR UNITMULTIPLEDATETIME (MULTIPLEDATETIMES (UNITOCCURENCEPRED DATUM (QUOTE YEAR)) (
ADVANCEDATE DATUM (QUOTE YEAR)) (ADVANCE DATUM (QUOTE (-1 YEAR))) (UNITNEXTFROMDATEFN DATUM (QUOTE 
YEAR)) "EVERY YEAR"))
(PUTPROPS MONTH UNITMULTIPLEDATETIME (MULTIPLEDATETIMES (UNITOCCURENCEPRED DATUM (QUOTE MONTH)) (
ADVANCEDATE DATUM (QUOTE MONTH)) (ADVANCE DATUM (QUOTE (-1 MONTH))) (UNITNEXTFROMDATEFN DATUM (QUOTE 
MONTH)) "EVERY MONTH"))
(PUTPROPS WEEK UNITMULTIPLEDATETIME (MULTIPLEDATETIMES (UNITOCCURENCEPRED DATUM (QUOTE WEEK)) (
ADVANCEDATE DATUM (QUOTE WEEK)) (ADVANCE DATUM (QUOTE (-1 WEEK))) (UNITNEXTFROMDATEFN DATUM (QUOTE 
WEEK)) "EVERY WEEK"))
(PUTPROPS DAY UNITMULTIPLEDATETIME (MULTIPLEDATETIMES (UNITOCCURENCEPRED DATUM (QUOTE DAY)) (
ADVANCEDATE DATUM (QUOTE DAY)) (ADVANCE DATUM (QUOTE (-1 DAY))) (UNITNEXTFROMDATEFN DATUM (QUOTE DAY))
 "EVERY DAY"))
(PUTPROPS HOUR UNITMULTIPLEDATETIME (MULTIPLEDATETIMES (UNITOCCURENCEPRED DATUM (QUOTE HOUR)) (
ADVANCEDATE DATUM (QUOTE HOUR)) (ADVANCE DATUM (QUOTE (-1 HOUR))) (UNITNEXTFROMDATEFN DATUM (QUOTE 
HOUR)) "EVERY HOUR"))
(PUTPROPS MINUTE UNITMULTIPLEDATETIME (MULTIPLEDATETIMES (UNITOCCURENCEPRED DATUM (QUOTE MINUTE)) (
ADVANCEDATE DATUM (QUOTE MINUTE)) (ADVANCE DATUM (QUOTE (-1 MINUTE))) (UNITNEXTFROMDATEFN DATUM (QUOTE
 MINUTE)) "EVERY MINUTE"))
(PUTPROPS JANUARY MONTHNUM 1)
(PUTPROPS FEBRUARY MONTHNUM 2)
(PUTPROPS MARCH MONTHNUM 3)
(PUTPROPS APRIL MONTHNUM 4)
(PUTPROPS MAY MONTHNUM 5)
(PUTPROPS JUNE MONTHNUM 6)
(PUTPROPS JULY MONTHNUM 7)
(PUTPROPS AUGUST MONTHNUM 8)
(PUTPROPS SEPTEMBER MONTHNUM 9)
(PUTPROPS OCTOBER MONTHNUM 10)
(PUTPROPS NOVEMBER MONTHNUM 11)
(PUTPROPS DECEMBER MONTHNUM 12)
(PUTPROPS SUNDAY WEEKDAYNUM 1)
(PUTPROPS MONDAY WEEKDAYNUM 2)
(PUTPROPS TUESDAY WEEKDAYNUM 3)
(PUTPROPS WEDNESDAY WEEKDAYNUM 4)
(PUTPROPS THURSDAY WEEKDAYNUM 5)
(PUTPROPS FRIDAY WEEKDAYNUM 6)
(PUTPROPS SATURDAY WEEKDAYNUM 7)
(RPAQQ DATETIMEARRAY (MONTHNAME NUMOFDAYSINMONTH WEEKDAYNAME))
(SETQ MONTHNAME (READARRAY 12 0))
(JANUARY FEBRUARY MARCH APRIL MAY JUNE JULY AUGUST SEPTEMBER OCTOBER NOVEMBER DECEMBER NIL)
(SETQ NUMOFDAYSINMONTH (READARRAY 12 0))
(31 28 31 30 31 30 31 31 30 31 30 31 T 31 31 31 31 31 31 31 31 31 31 31 31)
(SETQ WEEKDAYNAME (READARRAY 7 0))
(SUNDAY MONDAY TUESDAY WEDNESDAY THURSDAY FRIDAY SATURDAY NIL)
(RPAQQ DATETIMERECORDS (DATETIME DATETIMEERROR DURATION MULTIPLEDATETIMES NUMERAL QUALIFIEDDATETIME))
(TYPERECORD DATETIME (YEAR MONTH DAYOFMONTH DAYOFWEEK HOUR MINUTE AMORPM PRINTSTRING TIMEZONE))
(TYPERECORD DATETIMEERROR (ERRORNUMBER MESSAGE ORIGINALTOKENLST CURRENTTOKENLST) CURRENTTOKENLST _ 
TOKENLST)
(TYPERECORD DURATION (STARTDATETIME ENDDATETIME PRINTSTRING))
(TYPERECORD MULTIPLEDATETIMES (OCCURENCEPRED ADVANCEFN DECREMENTFN NEXTFROMDATEFN PRINTSTRING))
(TYPERECORD NUMERAL (VALUE))
(TYPERECORD QUALIFIEDDATETIME (QUALIFIER DATETIME PRINTSTRING))
(RPAQQ DATETIMEBLOCKS ((DATETIME ADDMULTIWORDTOKEN ADVANCEDATE ADVANCEDATEUNTIL CHECKTODAY 
COMBINEDATETIMES CREATEHOURDT CREATEOCCURENCEPRED DATETIMEERROR DATETIMETOSTRING DEQUALP DLESSP 
EVALMDTFN EXPANDINPUT FINISHDATETIME GETDATETIME GETDAYOFWEEK GETMONTHNUM GETNUMOFDAYSINMONTH 
ISFIRSTOFMONTH ISJANUARY ISSATURDAY ISSUNDAY ISXEROXHOLIDAY LISTDATES MULTIWORDTOKEN NOTIMP 
ONLYTIMESPECIFIED PARSEDATETIME PARSEDATETIME1 PARSEDATETIME2 PARSEOFFSETDATETIME 
PARSEQUALIFIEDDATETIME PARSESIMPLEDATE PARSESIMPLETIME PARSESPECIALDURATION REPEATADVANCE 
RESETDATETIMES RESTATE RESTRICTMULTIPLEDATETIME SETNOWDATETIME SETUPDAY SPELLPROPERLY 
TRANSLATETIMEZONE UNITNEXTFROMDATEFN UNITOCCURENCEPRED (ENTRIES ADDMULTIWORDTOKEN ADVANCEDATE 
ADVANCEDATEUNTIL CHECKTODAY COMBINEDATETIMES CREATEHOURDT CREATEOCCURENCEPRED DATETIMETOSTRING DEQUALP
 DLESSP EVALMDTFN FINISHDATETIME GETDATETIME GETDAYOFWEEK GETMONTHNUM GETNUMOFDAYSINMONTH 
ISFIRSTOFMONTH ISJANUARY ISSATURDAY ISSUNDAY ISXEROXHOLIDAY LISTDATES MULTIWORDTOKEN ONLYTIMESPECIFIED
 PARSEDATETIME REPEATADVANCE RESETDATETIMES RESTATE RESTRICTMULTIPLEDATETIME SETNOWDATETIME SETUPDAY 
SPELLPROPERLY TRANSLATETIMEZONE UNITNEXTFROMDATEFN UNITOCCURENCEPRED) (SPECVARS DATUM) (GLOBALVARS 
CURRENTERRORNUMBER DATETIMESPLST MULTIPLEWORDTOKENS TODAYSTRING DATETIMEERRORFLG XEROXHOLIDAYS) (
LOCALFREEVARS TOKENLST DATETIMEERROR TOKEN) (NOLINKFNS . T))))
NIL