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

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

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

(FILECREATED "28-Jan-82 10:06:24" ("compiled on " <CSD.NOVAK>GLISP.LSP.2) (2 . 2
) recompiled explicitly: GLPUSHFN in WORK dated NOBIND)
(FILECREATED "28-Jan-82 10:04:18" <CSD.NOVAK>GLISP.LSP.2 129241 previous date: 
"26-JAN-82 12:06:49" <CSD.NOVAK>GLISP.LSP.1)
GL-A-AN? BINARY
-.ZZ,,~(VARIABLE-VALUE-CELL X . 3)
((A AN a an An) . 0)
(FMEMB ENTERF)8
GLADDRESULTTYPE BINARY
-.Z2B+ZXB,~-,+Z2B+Z,<[D3B+Z,~ZZ,<Z,D,~Z

Z,3B+Z,~Z,<Z,<Z,<,XB,~
 (VARIABLE-VALUE-CELL SDES . 40)
(VARIABLE-VALUE-CELL RESULTTYPE . 43)
OR
MEMBER
NCONC
(LIST3 EQUAL CONSNL KT SKLST KNIL ENTERF)@X 0
0
GLADDSTR BINARY

-. Z,<Z,<Z,<Z,<,Z,D
,~@(VARIABLE-VALUE-CELL ATM . 5)
(VARIABLE-VALUE-CELL NAME . 7)
(VARIABLE-VALUE-CELL STR . 9)
(VARIABLE-VALUE-CELL CONTEXT . 12)
RPLACA
(CONS LIST3 ENTERF)
GLADJ BINARY
L>J-.>@A(
,~Z2BC+
Z,<,<D,<D&EXB3B+	+$Z,~[Z,<Z,<ZFEXB3B++$[
ZBEXBZ2B++	,<FZBF,,<Z

,<ZFGXB3B+"Z,<[Z,<,<&GXBZ,<ZDHZ,<ZDHZ,~[XB"+[[-Z[ZFEXB!3B+:XB2Z2B+97ZXB7+$Z0,<Z6,<,<ZHI,~g2:@B4D  (VARIABLE-VALUE-CELL SOURCE . 117)
(VARIABLE-VALUE-CELL PROPERTY . 44)
(VARIABLE-VALUE-CELL ADJWD . 99)
(VARIABLE-VALUE-CELL NOTFLG . 115)
(VARIABLE-VALUE-CELL CONTEXT . 122)
(NIL VARIABLE-VALUE-CELL ADJL . 119)
(NIL VARIABLE-VALUE-CELL TMP . 106)
(NIL VARIABLE-VALUE-CELL TRANS . 70)
(NIL VARIABLE-VALUE-CELL TMP . 0)
(NIL VARIABLE-VALUE-CELL FETCHCODE . 61)
ISASELF
ISA
self
GLSTRPROP
GLTRANSPARENTTYPES
*GL*
GLXTRTYPE
GLADJ
GLSTRFN
GLSTRVAL
((NOT Not not) . 0)
MEMB
GLCOMPMSG
(KT SKA SKLST ALIST2 KNIL ENTERF)P``X:6*P0 
GLAMBDATRAN BINARY

-.

@,~ZBZ,<,<,<ZDXBFZB,<Z,<ZFZ	,~I( (VARIABLE-VALUE-CELL GLEXPR . 12)
(VARIABLE-VALUE-CELL FAULTFN . 16)
(VARIABLE-VALUE-CELL CLISPARRAY . 21)
(NIL VARIABLE-VALUE-CELL NEWEXPR . 23)
SAVEDEF
GLCOMPILED
GLCOMP
PUTPROP
GETD
PUTHASH
(ENTERF)
GLANDFN BINARY
,)+-.)Z2B+Z,~Z2B+Z,~Z-,+ZZ2B*+Z-,+Z
Z2B*+Z,<Z[D*,<[Z,<Z,D*,<[Z,,~Z-,+$ZZ2B*+$ZZ[,Z*,,<[Z,,~,<*Z",<Z,,<[%Z,,~&&	B @(VARIABLE-VALUE-CELL LHS . 73)
(VARIABLE-VALUE-CELL RHS . 78)
AND
APPEND
(ALIST3 CONS21 CONS CONSNL ALIST2 SKLST KNIL ENTERF)p $0@X
GLATMSTR? BINARY
.)--.)@*,~[3B+[Z-,+@, +%Z-,+$[ ZB+,~Z,~2B+'Z+[pXBp+Z,~"B)tBI (VARIABLE-VALUE-CELL STR . 46)
(NIL VARIABLE-VALUE-CELL TMP . 51)
BINDING
ASSOC
GLOKSTR?
PROPLIST
(VARIABLE-VALUE-CELL X . 68)
(SKA BHC URET1 KT SKNLST SKLST KNIL ENTERF)"'Xhp&P`XH
GLBUILDALIST BINARY
 -.@ ,~Z2B+Z3B+B,~Z,~Z,<[XB	,\XB,<Z,<ZFXB3B+Z,<Z
3B+3B+-,+,<,<,,<Z
@(VARIABLE-VALUE-CELL ALIST . 19)
(VARIABLE-VALUE-CELL PREVLST . 25)
(VARIABLE-VALUE-CELL PAIRLIST . 23)
(NIL VARIABLE-VALUE-CELL STR . 0)
(NIL VARIABLE-VALUE-CELL LIS . 49)
(NIL VARIABLE-VALUE-CELL TMP1 . 32)
(NIL VARIABLE-VALUE-CELL TMP2 . 43)
GLBUILDLIST
GLBUILDSTR
QUOTE
GLBUILDCONS
NCONC
(CONSNL LIST2 SKNNM KT KNIL ENTERF)X8xp`
GLBUILDCONS BINARY
+$*-.$Z2B+Z,,<ZD&,~-,+

Z2B&+

Z[,,<ZD&,~Z
3B+ZB'3B+Z	B'3B+,<'Z

3B+!ZB(3B+!ZB(3B+!,<),<'ZB(,<ZB(,,,,~,<)Z,<Z,<,,~	0"U$
W$(VARIABLE-VALUE-CELL X . 67)
(VARIABLE-VALUE-CELL Y . 69)
(VARIABLE-VALUE-CELL OPTFLG . 44)
GLBUILDLIST
LIST
GLCONST?
QUOTE
GLCONSTVAL
GLCONSTSTR?
COPY
CONS
(LIST3 ALIST2 CONSS1 CONS SKLST CONSNL KNIL ENTERF)H `
X
GLBUILDLIST BINARY
MFJ-.FZ,<Zp-,+Z+
Zp,<,<w$G2B+	Z+
[pXBp+/3B+*Z3B+,<GZ,<,<Zw-,+ZpZ2B+ "+[QD "+ZwBHZp,XBp[wXBw+/,,~,<H,<GZ,<,<Zw-,+$ZpZ2B+" "+$[QD "+(ZwBHZp,XBp[wXBw+/,,,~Z,<Zp-,+.Z+3Zp,<,<w$I2B+2Z+3[pXBp++/3B+D,<I,<GZ*,<,<Zw-,+>ZpZ2B+< "+=[QD "+BZwBHZp,XBp[wXBw+7/,,,~ZJZ6,,~Q)(P#P 
(@(VARIABLE-VALUE-CELL LST . 137)
(VARIABLE-VALUE-CELL OPTFLG . 24)
GLCONST?
QUOTE
GLCONSTVAL
APPEND
GLCONSTSTR?
COPY
LIST
(CONSALIST2`COLLCT9BHCKNILKTSKNLST ENTERF)FD8* @pCH)0;(8P2!0
GLBUILDNOT BINARY
 -.@,~ZB3B+ZB2B+7Z,~Z-,+

,<,<,,~Z2B+[

Z,~Z,~ZZ7[ZZ1H+2D+XB3B+[[,,~,<Z,<,,~UA$(VARIABLE-VALUE-CELL CODE . 53)
(NIL VARIABLE-VALUE-CELL TMP . 48)
GLCONST?
GLCONSTVAL
NOT
(((LISTP . NLISTP) (EQ . NEQ) (NEQ . EQ) (IGREATERP . ILEQ) (ILEQ . IGREATERP) (
ILESSP . IGEQ) (IGEQ . ILESSP) (GREATERP . LEQ) (LEQ . GREATERP) (LESSP . GEQ) (
GEQ . LESSP)) . 0)
(CONS SKNA LIST2 SKNLST KT KNIL ENTERF) H


hP
GLBUILDSTR BINARY
50-.@0

,~Z2B+Z,~-,+,<ZDXB3B+
[,~Z,<ZD3B++Z
BXB	3B+,<,<ZZ,F ,~-,+,< ,< ,<,D!+Z2B!+#[Z,<Z,<ZF ,<[[Z,<Z,<ZF ,<,<&",~2B"+7[,<,<Zw-,+,ZpZ2B+* "+,[QD "+5Zw,<@# +2Z,<Z,<Z F ,~Zp,XBp[wXBw+&/B#,~2B$+:[$,<Z1D$,~2B%+Q,<%"&XB,<&Z8DXB3B+H[>Z,<Z0,<Z9F XBZ<,<,<',<',<,,D(,<(Z=D[XB3B+M,<ZBD)ZD,<,<)"&,D(ZM,~2B*+^[HZ,<ZLD2B+][RZBXB@3B+],<ZA,<[UZZS,F ,~Z,~2B*++3B++g3B++g3B,+g3B,+g3B-+g3B-+g3B.+g2B.+[ZZ,<[g[,<,<,<,<Zw~-,+nZw+Zw~,<@# +zZ/,<ZY,<Z[F XBW3B+yZq,<,</Zt,<,,~Z,~XBp-,+Zw3B+~ZpQD+ZpXBw  [2D+XBw[w~XBw~+l/,Z/,,~Zi-,+Z,<ZrDXBw3B+
Z,~[Z-,+[Z,<,<ZsF ,~[Z,<Z	,<ZF ,~"$$M@@A
AX^RQ&
$?~P$@@DB(VARIABLE-VALUE-CELL STR . 300)
(VARIABLE-VALUE-CELL PAIRLIST . 303)
(VARIABLE-VALUE-CELL PREVLST . 305)
(NIL VARIABLE-VALUE-CELL ATOMNAME . 0)
(NIL VARIABLE-VALUE-CELL PROPLIS . 148)
(NIL VARIABLE-VALUE-CELL TEMP . 279)
(NIL VARIABLE-VALUE-CELL PROGG . 160)
(NIL VARIABLE-VALUE-CELL TMPCODE . 135)
(((ATOM) (INTEGER . 0) (REAL . 0.0) (NUMBER . 0) (BOOLEAN) (NIL) (ANYTHING)) 
VARIABLE-VALUE-CELL ATMSTR . 289)
ASSOC
MEMB
GLGETSTR
GLBUILDSTR
"Illegal structure type encountered:"
GLERROR
CONS
GLBUILDCONS
LIST
(VARIABLE-VALUE-CELL X . 235)
GLBUILDLIST
ALIST
GLBUILDALIST
ATOM
((PROG (ATOMNAME) (SETQ ATOMNAME (GENSYM))) . 0)
COPY
BINDING
SET
ATOMNAME
NCONC
PROPLIST
GLPUTPROPS
((RETURN ATOMNAME) . 0)
TRANSPARENT
LISTOF
RECORD
TYPERECORD
ASSOCRECORD
PROPRECORD
ARRAYRECORD
HASHLINK
DATATYPE
ATOMRECORD
_
create
(CONS21 CONSS1 SKLST CONSNL LIST3 BHC COLLCT KT LIST2 SKNLST CONS SKA KNIL 
ENTERF)hX8
HyxP64#mx\8phP8PzXl
XK)& X	X
GLCARCDR? BINARY
-.ZZ,,~(VARIABLE-VALUE-CELL X . 3)
((CAR CDR CAAR CADR CDAR CDDR CAAAR CAADR CADAR CDAAR CADDR CDADR CDDAR CDDDR) .
 0)
(FMEMB ENTERF)8
GLCOMP BINARY
VCS-.C@Eh,~Z2B+,<KZ,<,BLZ,XBZ"XBZ,XB[Z,<,<,<Z
HLXB[[XBFMZ-,+%ZZ,<,<M$N3B+%Z[ZBN3B+Z[[2B+RZ[ZXBZ,<[XB,\+%,<K,<OZ,DOZ!,<[#XB$,\ MZ$-,+3Z&Z,<,<P$N3B+3Z'[,<,<,<Z

	(VARIABLE-VALUE-CELL GLAMBDAFN . 116)
(VARIABLE-VALUE-CELL GLEXPR . 109)
(VARIABLE-VALUE-CELL GLQUIETFLG . 6)
(NIL VARIABLE-VALUE-CELL NEWARGS . 125)
(NIL VARIABLE-VALUE-CELL NEWEXPR . 126)
(NIL VARIABLE-VALUE-CELL GLNATOM . 18)
(NIL VARIABLE-VALUE-CELL GLTOPCTX . 112)
(NIL VARIABLE-VALUE-CELL PROGFLG . 0)
(NIL VARIABLE-VALUE-CELL PROGLST . 0)
(NIL VARIABLE-VALUE-CELL RESULTTYPE . 119)
(NIL VARIABLE-VALUE-CELL GLGLOBALVARS . 93)
(NIL VARIABLE-VALUE-CELL RESULT . 130)
(NIL VARIABLE-VALUE-CELL GLSEPATOM . 0)
(0 VARIABLE-VALUE-CELL GLSEPPTR . 0)
(NIL VARIABLE-VALUE-CELL VALBUSY . 108)
(NIL VARIABLE-VALUE-CELL EXPRSTACK . 16)
GLCOMP
PRINT
GLDECL
GLSKIPCOMMENTS
((RESULT Result result) . 0)
MEMB
GLOKSTR?
"Bad RESULT declaration:"
GLERROR
((GLOBAL Global global) . 0)
GLGLOBALS
PUTPROP
GLPROGN
GLRESULTTYPE
LAMBDA
GLUNWRAP
(CONS21CONSALIST2SKLSTKTASZ`CONSNLLIST2KNIL ENTERF)A@0xC`
H
GLCOMPCOMS BINARY
4*2-.*@+,~Z2B+Z,~Z-,+(ZZ2B,+(Z[Z2B,+Z	[[ZB-+Z[XB,<Zp-,++(Zp,<@- +&ZB.Z2B.+&ZB/Z3B+&@/,~ZXBZXB 0 0 0ZB0ZB.B1 0Z ,<,<1$2B1ZXB,~,~[pXBp+/[XB(+!a@JZ09@D(VARIABLE-VALUE-CELL COMSLIST . 82)
(VARIABLE-VALUE-CELL PRINTFLG . 49)
(VARIABLE-VALUE-CELL SYSPRETTYFLG . 74)
(NIL VARIABLE-VALUE-CELL FNS . 31)
FNS
*
EVAL
(VARIABLE-VALUE-CELL X . 68)
GLGETD
GLAMBDA
GLCOMPILE
(NIL VARIABLE-VALUE-CELL SAVE . 73)
TERPRI
PRINT
SHOWPRINT
GLCOMPILED
GETPROP
(BHC KT SKNLST SKLST KNIL ENTERF)X p H
GLCOMPILE BINARY
-.ZBBZ,~(VARIABLE-VALUE-CELL FAULTFN . 6)
GLGETD
GLAMBDATRAN
(ENTERF)
GLCOMPMSG BINARY
p}-.p@r,~[[,<,<t$uXB[ZXB-,+>[[,<,<u$u3B+Z,<ZZ,,<[

,<Z,<Z+#ZpZ2B+! "+#[QD "+'ZwZZp,XBp[wXBw+/,,,<Z,<[Z,<Z,<,<Zw-,+4ZpZ2B+2 "+3[QD "+8Zw[ZZp,XBp[wXBw+-/,Dw2B+=[[,<,<t$u,,~-,+B,<x,<xZ;,Dy,~Z,XBZ*-,+K,<yZD,,<,<z[FZ,<ZCHz+^ZH-,+XZKZ2By+XZL[Z-,+XZN[[2B+XZQ,<,<z[SZ,<ZIHz+^,<zZU,Z,XBY,<z,<[XZ,<ZVHzZ),<Z]D{XB,<Z`[3B+eZ{Za,+fZdZD|ZZ3B+l,<|,<,<}Ze,,+lZj,<[lZ2B+oZ,,~P`QEQG&$"$h(VARIABLE-VALUE-CELL OBJECT . 184)
(VARIABLE-VALUE-CELL MSGLST . 129)
(VARIABLE-VALUE-CELL ARGLIST . 88)
(VARIABLE-VALUE-CELL CONTEXT . 191)
(NIL VARIABLE-VALUE-CELL GLPROGLST . 206)
(NIL VARIABLE-VALUE-CELL RESULTTYPE . 222)
(NIL VARIABLE-VALUE-CELL METHOD . 189)
(NIL VARIABLE-VALUE-CELL RESULT . 218)
RESULT
LISTGET
OPEN
ARGTYPES
SPECVARS
GLCOMPOPEN
GLRESULTTYPE
GLCOMPMSG
"The form of Response is illegal for message"
GLERROR
PROG1
self
GLADDSTR
GLPROGN
PROGN
RPLACA
PROG
RETURN
(ALIST3SKLSTCONSNL ALIST2>BHCCOLLCTSKNLSTCONSS1CONS:KNIL)SKAENTERF)

X[p

8\
8C01. X

QX
GLCOMPOPEN BINARY
-.0@	(
,~ZXBZ,XBZBXB[Z,<,<,<ZH

Z	B

XBZ
,<,<$+PZZ-,+#Z3B+#ZZ,<ZD!Z[Z2B+!Z,<Z

H+MZ3B+=ZZ,<Z#D222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222-,+Z	,<,<$3B+[Z-,+[ZZ2B+[Z[Z,~ ,~`MA(VARIABLE-VALUE-CELL X . 37)
QUOTE
((COPY APPEND) . 0)
MEMB
ERROR
(SKLST SKNM KNIL ENTERF)hP`0
GLDECL BINARY
m|-. m@oH,~Z2B+ZBt,~Z,<[XB,\XB-,+
+MZXBZXBZBt uXB uXBZ2Bu+#Z2B+Z3B+iZ3B+iZBv3B+i v,<Z,<[XB,\Dw+Z3B+iZBv3B+i u2B+i v,<ZDw+Z,<Z,DwXB#Z"2B+(+B2Bu+7 uXB3B+0Bv3B+0 u2B+0Z*XB

+BZ.2B+iZBv3B+iZ1,<[3XB4,\XB/+B2Bx+i uXB$3B+; uXB&+#Z5-,+BZ;,<[=XB>,\Bt uXB8 uXB:+#Z&,<Zp-,+E+LZp,<@x +JZ,<Z6Dw,~[pXBp+C/+Z

By3B+UZ3B+UZMBv3B+U v,<ZPDw+Z3B+iZSBy2B+iZV-,+i[X3B+i[ZXB,<Z,<,<&yXBZ\3B+a+iZ[,<,<[_Z,<Z]HzZa,<Zc,Z,XBg+,<z,<{Z>,<,D{Z,~(&I,+3|mP<i(2ULT@ @(VARIABLE-VALUE-CELL LST . 213)
(VARIABLE-VALUE-CELL NOVAROK . 158)
(VARIABLE-VALUE-CELL VALOK . 170)
(VARIABLE-VALUE-CELL GLTOPCTX . 201)
(NIL VARIABLE-VALUE-CELL RESULT . 209)
(NIL VARIABLE-VALUE-CELL FIRST . 129)
(NIL VARIABLE-VALUE-CELL SECOND . 131)
(NIL VARIABLE-VALUE-CELL THIRD . 96)
(NIL VARIABLE-VALUE-CELL TOP . 203)
(NIL VARIABLE-VALUE-CELL TMP . 205)
(NIL VARIABLE-VALUE-CELL EXPR . 191)
(NIL VARIABLE-VALUE-CELL VARS . 133)
(NIL VARIABLE-VALUE-CELL STR . 146)
DREVERSE
GLSEPINIT
GLSEPNXT
:
GLOKSTR?
GLMKVAR
GLDECLDS
NCONC
,
(VARIABLE-VALUE-CELL X . 144)
GL-A-AN?
GLDOEXPR
GLADDSTR
GLDECL
"Bad argument structure"
GLERROR
(LIST2CONSALIST2KTBHCSKNLST SKA CONSNL SKNA KNIL ENTERF)
m

8aX[V
(P	p:81h-8(XX(

8
GLDECLDS BINARY

-.ZZ,XBZ,<,<Z,<ZH
Z,~(VARIABLE-VALUE-CELL ATM . 7)
(VARIABLE-VALUE-CELL STR . 10)
(VARIABLE-VALUE-CELL RESULT . 6)
(VARIABLE-VALUE-CELL GLTOPCTX . 12)
GLADDSTR
(KNIL CONS ENTERF)X8
GLDEFPROP BINARY
+!)-.!@#,~Z,<Zp-,++Zp,<@# +Z-,+
2B+,<$"$ZB$,<%"$ZB$,<%"$ZB$,<&"$ &,<'"$ &,~ZZ,XB,~[pXBp+/Z,<,<'$(,<Z,<ZB(,D)Z,~

R';?@B@(VARIABLE-VALUE-CELL OBJECT . 54)
(VARIABLE-VALUE-CELL PROP . 59)
(VARIABLE-VALUE-CELL LST . 6)
(NIL VARIABLE-VALUE-CELL LSTP . 61)
(VARIABLE-VALUE-CELL X . 45)
"GLDEFPROP: For object "
PRIN1
" the "
" property "
" has bad form."
TERPRI
"This property was ignored."
GLSTRUCTURE
GETPROP
DREVERSE
NCONC
(ALIST2BHC CONS KNIL SKA SKLST SKNLST ENTERF)8

GLDEFSTR BINARY
?1=-.1@1,~Z,<[XB,\XB,<,<2Z,<[XB,\,F2Z2B+
3B3+3B3+2B4+Z,<,<3[,<,<5[ZF4+/3B6+3B7+3B7+3B8+2B8+#Z,<,<6[ZF4+/3B9+&3B9+&2B:+)Z,<,<9[!ZF4+/,<:";Z&B;,<;";Z'B;,<<"; <[,[XB/+
|r?~'ywD(VARIABLE-VALUE-CELL LST . 96)
(NIL VARIABLE-VALUE-CELL STRNAME . 85)
GLSTRUCTURE
PUTPROP
ADJ
Adj
adj
GLDEFPROP
PROP
Prop
prop
ISA
Isa
IsA
isA
isa
MSG
Msg
msg
"For structure "
PRIN1
" the unknown property name "
" is used.  Ignored."
TERPRI
(KNIL CONSNL ENTERF)P



GLDEFSTRQ BINARY
	-.Z,<Zp-,+Z+ZpB[pXBp+D@(VARIABLE-VALUE-CELL ARGS . 3)
GLDEFSTR
(URET1 KNIL SKNLST ENTERF)XP@
GLDEFUNITPKG BINARY
-.@,~ZXBZ2B+	Z,<Z,DXBZ,~ZZZ2B+Z	,<Z
D[

XB+ (VARIABLE-VALUE-CELL UNITREC . 26)
(VARIABLE-VALUE-CELL GLUNITPKGS . 16)
(NIL VARIABLE-VALUE-CELL LST . 29)
NCONC
RPLACA
(CONSNL KNIL ENTERF)	X
GLDELDEF BINARY
-.Z,<,<$,~(VARIABLE-VALUE-CELL NAME . 3)
(VARIABLE-VALUE-CELL TYPE . 0)
GLSTRUCTURE
REMPROP
(ENTERF)
GLDOA BINARY
-.@,~[ZXBB3B+	Z,<[[D,~ZBXB3B+,<[
[ZDXB3B+[,<Z,< ",,~,<,<Z	,<,<,DZ,~1 (VARIABLE-VALUE-CELL EXPR . 33)
(NIL VARIABLE-VALUE-CELL TYPE . 40)
(NIL VARIABLE-VALUE-CELL UNITREC . 24)
(NIL VARIABLE-VALUE-CELL TMP . 31)
GLGETSTR
GLMAKESTR
GLUNIT?
A
ASSOC
GLDOA
"The type"
"is not defined."
GLERROR
(LIST3 EVCC KNIL ENTERF)x`
GLDOCOND BINARY
-.[,<,<Zw-,+	ZpZ2B+ "+	[QD "+Zw,<@ +Z,<ZDZ,~Zp,XBp[wXBw+/Z,,<,<,,~"DQ (VARIABLE-VALUE-CELL CONDEXPR . 3)
(VARIABLE-VALUE-CELL CONTEXT . 26)
(VARIABLE-VALUE-CELL X . 24)
GLPROGN
COND
(LIST2 CONS21 BHC COLLCT SKNLST KNIL ENTERF)h8
GLDOEXPR BINARY
?Z,XBZ-,+	,<Z,D+Z2B+Z-,+Z
,<[

XB,<,<,XB+Z
Z	2B++
Z2B+Z,<,<,XB+Z,<,<$3B+ZXB+8ZB XBZ3B+/Z,<,<$2B+,Z!B2B+,Z$,<,<$2B+,Z3B+.B3B+. Z&XB)+8 +
[,-,+8[/Z-,+3+8[0ZB XB Z5B3B+8+
Z-3B+?3B+?3B+?3B+?3B+?2B+AZ3,<,<,+	3B+D3B+D2B+GZ?,<ZD+	3B+J3B+J2B+LZD,<,<,+	3B +O3B +O2B!+QZJB!+	3B"+T3B"+T2B#+UZOB#+	3B$+X3B$+X2B%+ZZTB%+	3B&+]3B&+]2B'+^ZXB'+	3B(+a3B(+a2B)+cZ]B)+	3B*+f3B*+f2B++hZa,<ZED++	3B,+m3B,+m3B-+m3B-+m2B.+oZfB.+	3B/+s3B/+s3B0+s2B0+tZmB1+	3B1+v2B2+xZsB2+	2B3+zZvB3+	2B4+~Zy,<ZgD4+	3B5+3B5+2B6+Z{,<Z|D6+	3B7+3B7+2B8+ZB8+	ZB9XB+ 9XB	[XBZ
,~YMA,&)W3Hf-x?Gy?_w}~_qw?=q~vX(VARIABLE-VALUE-CELL START . 37)
(VARIABLE-VALUE-CELL CONTEXT . 260)
(VARIABLE-VALUE-CELL VALBUSY . 0)
(VARIABLE-VALUE-CELL EXPR . 272)
(VARIABLE-VALUE-CELL EXPRSTACK . 279)
(NIL VARIABLE-VALUE-CELL FIRST . 113)
(NIL VARIABLE-VALUE-CELL TMP . 108)
(NIL VARIABLE-VALUE-CELL RESULT . 280)
GLDOEXPR
"Expression is not a list."
GLERROR
STRING
*
((QUOTE Quote quote) . 0)
MEMB
GLSEPINIT
GLSEPNXT
((APPLY* BLKAPPLY* PACK* PP*) . 0)
GETD
MACRO
GETPROP
~
GLOPERATOR?
GLSEPCLR
QUOTE
Quote
quote
GO
Go
go
PROG
Prog
prog
GLDOPROG
FUNCTION
Function
function
LISP
SETQ
Setq
setq
GLDOSETQ
COND
Cond
cond
GLDOCOND
RETURN
Return
return
GLDORETURN
FOR
For
for
GLDOFOR
THE
The
the
GLDOTHE
IF
If
if
GLDOIF
A
a
AN
An
an
GLDOA
_
SEND
Send
send
GLDOSEND
PROGN
PROG2
GLDOPROGN
PROG1
GLDOPROG1
SELECTQ
GLDOSELECTQ
WHILE
While
while
GLDOWHILE
REPEAT
Repeat
repeat
GLDOREPEAT
GLUSERFN
GLPARSEXPR
(SKNLA SKLST SKLA LIST2 SKSTP KNIL CONSNL SKNLST CONS ENTERF)20L@8@)`$@@

GLDOFOR BINARY
1,-.@X,~ZXBZ,<[XB,\Z,<,<$3B+
XB,\+Z

-,+[$3B+Z,<[XB,\XBZ,<[XB,\Z
BXB2B++[ZBXBZ3B+"ZBBXBZ3B+"+ZZ,XBZ2B+' XB$,<Z,<[ Z,<Z$HZ,<,< $3B+7Z+,<[.XB/,\Z&,<[(Z,,<Z*,<,<,<( XB+BZ/,<,<!$3B+BZ7,<[:XB;,\Z0,<[1Z,,<Z3,<,<,<( XB6Z;3B+KZB,<,<!$3B+KZB,<,<Z?,<,<&"D"XBGZD,<,<#$3B+TZK,<[NXBO,\,<ZH,<,<&"XB+]ZP,<,<#$3B+ZZT,<[WXBX,\ZY,<ZQD$ZXBZS2B+n,<$Z,<,<%,<%Z<,,<ZK3B+g,<&ZbZ\,,+k[e2B+iZg+kZ&Zh,,,,,<,<,,~Z'Z,,<Z'Za,,<Z(Z],,<Z(Zd,,XBZu3B+~ Z),Zv,XBz,<,<),<&*+Zs-,+

&@)P3Xd  (VARIABLE-VALUE-CELL EXPR . 180)
(VARIABLE-VALUE-CELL CONTEXT . 70)
(NIL VARIABLE-VALUE-CELL DOMAIN . 275)
(NIL VARIABLE-VALUE-CELL DOMAINNAME . 79)
(NIL VARIABLE-VALUE-CELL DTYPE . 123)
(NIL VARIABLE-VALUE-CELL ORIGEXPR . 295)
(NIL VARIABLE-VALUE-CELL LOOPVAR . 266)
(NIL VARIABLE-VALUE-CELL NEWCONTEXT . 182)
(NIL VARIABLE-VALUE-CELL LOOPCONTENTS . 212)
(NIL VARIABLE-VALUE-CELL SINGFLAG . 48)
(NIL VARIABLE-VALUE-CELL LOOPCOND . 238)
(NIL VARIABLE-VALUE-CELL COLLECTCODE . 290)
(NIL VARIABLE-VALUE-CELL VARSLST . 283)
((EACH Each each) . 0)
MEMB
((IN In in) . 0)
GLDOMAIN
GLXTRTYPE
LISTOF
GLGETSTR
GLMKVAR
GLADDSTR
((WITH With with) . 0)
GLPREDICATE
((WHICH Which which WHO Who who THAT That that) . 0)
((when When WHEN) . 0)
GLDOEXPR
GLANDFN
((collect Collect COLLECT) . 0)
((DO Do do) . 0)
GLPROGN
MAPC
FUNCTION
LAMBDA
COND
PROGN
<SET>
<LOOPVAR>
<CODE>
<CONDITION>
<ACCUM>
((PROG (<ACCUM>) (MAPC <SET> (FUNCTION (LAMBDA (<LOOPVAR>) (COND (<CONDITION> (
DOCOLLECT <CODE> <ACCUM>)))))) (RETURN (ENDCOLLECT <ACCUM>))) . 0)
SUBLIS
MAPCAR
((MAPCAR <SET> (FUNCTION (LAMBDA (<LOOPVAR>) <CODE>))) . 0)
GLUSERFN
(SKLSTCONS21ALIST4(LIST2ALIST3 CONSNL ALIST2 CONS SKA KT KNIL ENTERF)zwn
	8x

@^
xR	hIpD 6X.`#(
GLDOIF BINARY
D8B-.8@90

,~ZXBZ,<[XB,\Z2B+

Z<Z,,<Z,<,,~ZZ,XB,<,<,<,<(=XBZ,<,<=$>3B+Z,<[XB,\Z,XB[ZXB
Z,<Z,D>XBZ2B++Z,<,<?$>3B+$Z,<[!XB",\+Z#,<,<?$>3B+-Z$,<['XB(,\Z,XBZ@XB+,<Z
(VARIABLE-VALUE-CELL CONTEXT . 91)
(NIL VARIABLE-VALUE-CELL PRED . 48)
(NIL VARIABLE-VALUE-CELL ACTIONS . 98)
(NIL VARIABLE-VALUE-CELL CONDLIST . 56)
(NIL VARIABLE-VALUE-CELL TYPE . 105)
(NIL VARIABLE-VALUE-CELL TMP . 103)
(NIL VARIABLE-VALUE-CELL OLDCONTEXT . 25)
COND
GLPREDICATE
((THEN Then then) . 0)
MEMB
NCONC
((ELSEIF ElseIf Elseif elseIf elseif) . 0)
((ELSE Else else) . 0)
BOOLEAN
GLDOEXPR
GLDOIF
"IF statement contains bad code."
GLERROR
(CONSNL KT LIST2 CONS KNIL ENTERF)x38x+@`
8.x!`P
GLDOLAMBDA BINARY
-.@,~[ZXBZZ,XBZ3B+Z,<,<Z,<ZH[XB[	XB

+ZXB[[,<Z
DXB[ZZ,Z,,<[Z,,~ !(VARIABLE-VALUE-CELL EXPR . 36)
(VARIABLE-VALUE-CELL ARGTYPES . 26)
(VARIABLE-VALUE-CELL CONTEXT . 33)
(NIL VARIABLE-VALUE-CELL ARGS . 24)
(NIL VARIABLE-VALUE-CELL NEWEXPR . 43)
(NIL VARIABLE-VALUE-CELL VALBUSY . 29)
GLADDSTR
GLPROGN
LAMBDA
(ALIST2 CONS21 KT CONS KNIL ENTERF)xXpH

GLDOMAIN BINARY
-.@,~Z-,+ZB XBZ2B+Z,<[XB	,\ZXBZ3B+Z
B+Z,~ ,<Z,<,<&,~,<Z,<,<&,~, E(VARIABLE-VALUE-CELL SINGFLAG . 23)
(VARIABLE-VALUE-CELL EXPR . 19)
(VARIABLE-VALUE-CELL DOMAINNAME . 22)
(VARIABLE-VALUE-CELL CONTEXT . 42)
(NIL VARIABLE-VALUE-CELL NAME . 29)
GLSEPINIT
GLSEPNXT
GLPLURAL
GLIDNAME
GLSEPCLR
GLDOEXPR
(KT KNIL SKA ENTERF)p(PH
GLDOMSG BINARY
<0:-.0@20

,~[ZB5XB,<,<5ZF6XB3B+

Z,<,<Z,<ZH6,~ZB7XB3B+,<5[
,< ",,~[ZB8XB2B+Z,~Z2B++,<8ZB5,,<Z,<ZF9XB3B+-Z,<[Z,<,<&9XBZ#,<Z(D:Z(,<Z%D:Z*,~[,XB-3B++%1 $@B0(VARIABLE-VALUE-CELL OBJECT . 87)
(VARIABLE-VALUE-CELL SELECTOR . 66)
(VARIABLE-VALUE-CELL ARGS . 68)
(VARIABLE-VALUE-CELL CONTEXT . 22)
(NIL VARIABLE-VALUE-CELL UNITREC . 31)
(NIL VARIABLE-VALUE-CELL TYPE . 25)
(NIL VARIABLE-VALUE-CELL TMP . 92)
(NIL VARIABLE-VALUE-CELL METHOD . 14)
(NIL VARIABLE-VALUE-CELL TRANS . 73)
(NIL VARIABLE-VALUE-CELL FETCHCODE . 83)
GLXTRTYPE
MSG
GLSTRPROP
GLCOMPMSG
GLUNIT?
ASSOC
GLTRANSPARENTTYPES
*GL*
GLDOMSG
GLSTRFN
GLSTRVAL
(ALIST2 EVCC KNIL ENTERF)!/$`8p
GLDOPROG BINARY
6-5-.-@.0

,~Z,<[XB,\ZZ,XBZ,<[XB,\,<,<,<ZH1XBZZ,XB2B3+ZZ,XB+Z,<,<Z,<,<(3XB3B+Z"Z,XB$+Z

,<Z%B4,Z4,XB,<Z,<,,~((VARIABLE-VALUE-CELL EXPR . 37)
(VARIABLE-VALUE-CELL CONTEXT . 65)
(NIL VARIABLE-VALUE-CELL PROGLST . 77)
(NIL VARIABLE-VALUE-CELL NEWEXPR . 79)
(NIL VARIABLE-VALUE-CELL RESULT . 84)
(NIL VARIABLE-VALUE-CELL NEXTEXPR . 62)
(NIL VARIABLE-VALUE-CELL TMP . 72)
(NIL VARIABLE-VALUE-CELL RESULTTYPE . 86)
GLDECL
GLDOPROG
"PROG contains bad stuff:"
GLERROR
*
GLPUSHEXPR
DREVERSE
PROG
(CONS21 CONSS1 LIST2 SKNLST SKA KT CONS KNIL ENTERF)*)-(P

&hp$(`h
GLDOPROGN BINARY

	-.	@
,~[,<ZDXBZZ,,<[Z,,~(VARIABLE-VALUE-CELL EXPR . 11)
(VARIABLE-VALUE-CELL CONTEXT . 8)
(NIL VARIABLE-VALUE-CELL RES . 15)
GLPROGN
(ALIST2 CONS ENTERF)x
GLDOPROG1 BINARY
"!-.@ ,~[XBZ2B+
ZBZ,,<Z,<,,~,<Z,<Z2B+XBZXB+,< Z ,D!Z,<[XB,\+H:(VARIABLE-VALUE-CELL EXPR . 52)
(VARIABLE-VALUE-CELL CONTEXT . 21)
(NIL VARIABLE-VALUE-CELL RESULT . 35)
(NIL VARIABLE-VALUE-CELL TMP . 39)
(NIL VARIABLE-VALUE-CELL TYPE . 41)
(NIL VARIABLE-VALUE-CELL TYPEFLG . 43)
DREVERSE
PROG1
GLDOEXPR
GLDOPROG1
"PROG1 contains bad subexpression."
GLERROR
(CONSNLCONSKT LIST2 CONS21 KNIL ENTERF)` 8h
GLDOREPEAT BINARY
=1;-.1@2,~Z,<[XB,\Z,<,<3$43B+Z,<[XB	,\+Z
3B+,<Z,<,<&4XB3B+Z,<Z,D5XB+Z3B+,<5Z6,D6,~Z3B+:,<Z,,,,D5,Z,Z:,,<,<,,~P$t IjBP(VARIABLE-VALUE-CELL EXPR . 61)
(VARIABLE-VALUE-CELL CONTEXT . 53)
(NIL VARIABLE-VALUE-CELL ACTIONS . 75)
(NIL VARIABLE-VALUE-CELL TMP . 78)
(NIL VARIABLE-VALUE-CELL LABEL . 82)
((UNTIL Until until) . 0)
MEMB
GLDOEXPR
NCONC
GLDOREPEAT
"REPEAT contains bad subexpression."
GLERROR
GLPREDICATE
"REPEAT contains no UNTIL or bad UNTIL clause"
BOOLEAN
GLMKLABEL
COND
GLBUILDNOT
GO
PROG
(CONS21 CONSS1 ALIST2 LIST2 CONSNL KT KNIL ENTERF)/hX@+10$, 8x.0 hH P
GLDORETURN BINARY
-.@,~Z,<[XB,\Z2B+	,<"Z,~,<Z,<,<&XB[ZB,<Z

,,<[Z,,~0#(VARIABLE-VALUE-CELL EXPR . 11)
(VARIABLE-VALUE-CELL CONTEXT . 19)
(NIL VARIABLE-VALUE-CELL TMP . 31)
GLADDRESULTTYPE
(((RETURN) NIL) . 0)
GLDOEXPR
RETURN
(ALIST2 KT KNIL ENTERF)

GLDOSELECTQ BINARY
"!-.@,~[Z,,<,<Z,<,<(Z,XB[[XB	Z
2B+ZZ,,<,<,,~Z

,<[
3B+ZZ,<Z[,<ZD Z,+,<Z,<,<& Z,D!XB[XB+
@H$ (VARIABLE-VALUE-CELL EXPR . 57)
(VARIABLE-VALUE-CELL CONTEXT . 48)
(NIL VARIABLE-VALUE-CELL RESULT . 55)
GLPUSHEXPR
SELECTQ
GLPROGN
GLDOEXPR
NCONC
(CONSS1 LIST2 CONS KT KNIL CONSNL ENTERF)xp

`8	P
GLDOSEND BINARY
@6>-.6[,<@7  
,~Z,<[XB,\,,<,<Z,<,<(:XBZ,<[
XB,\XB3B+-,+,<:,<,<;,D;,~Z

2B+,Z
,<ZF<XB3B+Z,~Z,<Z,<Z,<,<Zw-,+#ZpZ2B+! "+#[QD "+'ZwZZp,XBp[wXBw+/,,Z<,,<[Z,,~,<Z,<,<&=XB3B+3Z,<,D=XB0+,<:Z>,D;Z,~ZQH](VARIABLE-VALUE-CELL EXPRR . 3)
(VARIABLE-VALUE-CELL CONTEXT . 90)
(VARIABLE-VALUE-CELL EXPR . 37)
(NIL VARIABLE-VALUE-CELL OBJECT . 85)
(NIL VARIABLE-VALUE-CELL SELECTOR . 53)
(NIL VARIABLE-VALUE-CELL ARGS . 101)
(NIL VARIABLE-VALUE-CELL TMP . 94)
GLPUSHEXPR
GLDOSEND
"is an illegal message Selector."
GLERROR
GLDOMSG
_
GLDOEXPR
NCONC
"A message argument is bad."
(ALIST2 CONS21 CONSS1 BHC COLLCT SKNLST LIST2 SKNLA KT KNIL CONSNL ENTERF)H()(&/ h0X h5(
GLDOSETQ BINARY

-.

@,~Z,<[XB,\Z,<[XB,\XB,<,<Z,<,<&D,~0(VARIABLE-VALUE-CELL EXPR . 14)
(VARIABLE-VALUE-CELL CONTEXT . 19)
(NIL VARIABLE-VALUE-CELL VAR . 16)
GLDOEXPR
GLDOVARSETQ
(KT KNIL ENTERF)8 
GLDOTHE BINARY

-.	@	,~ 
XBZ3B+,<
,<,<,DZ,~ (VARIABLE-VALUE-CELL EXPR . 8)
(NIL VARIABLE-VALUE-CELL RESULT . 16)
GLTHE
GLDOTHE
"Stuff left over at end of The expression."
GLERROR
(LIST2 KNIL ENTERF)X
GLDOVARSETQ BINARY
-.@,~Z,<ZDXB3B+

[[Z2B+[[,<[ZD+[
Z3B+Z,<,<[

Z,<ZH,<Z,<Z,,<[Z,,~@`(VARIABLE-VALUE-CELL VAR . 38)
(VARIABLE-VALUE-CELL RHS . 43)
(VARIABLE-VALUE-CELL CONTEXT . 35)
(NIL VARIABLE-VALUE-CELL CTXENT . 18)
GLFINDVARINCTX
RPLACA
GLADDSTR
SETQ
(ALIST2 ALIST3 KNIL ENTERF)h	h
GLDOWHILE BINARY
5+3-.+@,,~ZZ,XBZ,<[XB,\,<Z,<,<,<(-Z,XBZ,<,<.$.3B+Z

,<[XB,\Z3B+,<Z,<,<&/XB3B+Z,<Z,D/XB+Z3B+!,<0,<0,<,D1Z,<[XB,\+ 1XB,<2,<,<,<2Z,<,<3,<,,D/,,,<,<,,~ !SHH@(VARIABLE-VALUE-CELL EXPR . 64)
(VARIABLE-VALUE-CELL CONTEXT . 39)
(NIL VARIABLE-VALUE-CELL ACTIONS . 73)
(NIL VARIABLE-VALUE-CELL TMP . 48)
(NIL VARIABLE-VALUE-CELL LABEL . 68)
GLPREDICATE
((DO Do do) . 0)
MEMB
GLDOEXPR
NCONC
GLDOWHILE
"Bad stuff in While statement:"
GLERROR
GLMKLABEL
PROG
COND
GO
(ALIST4 ALIST2 LIST2 CONSNL KT CONS KNIL ENTERF)0'h@X
*@p0 @
GLED BINARY
-.,<"Z,~(VARIABLE-VALUE-CELL FN . 5)
(((GETPROPLIST FN)) . 0)
EDITV
(ENTERF)
GLEQUALFN BINARY
-.Z2B+,<Z,+Z2B+,<Z,+[Z3B+

[Z2B+3B+[
Z2B+Z+Z,<Z3` (VARIABLE-VALUE-CELL LHS . 39)
(VARIABLE-VALUE-CELL RHS . 41)
NULL
INTEGER
EQP
ATOM
EQ
EQUAL
BOOLEAN
(LIST2 ALIST3 ALIST2 KNIL ENTERF)x`0
GLERR BINARY
-.,<"ZB ,~@(VARIABLE-VALUE-CELL ERREXP . 5)
"Execution of GLISP error expression: "
PRIN1
PRINT
ERROR
(ENTERF)
GLERROR BINARY
E2C-.2,<5"5ZB5,<6"5ZB6Z,<Zp-,++Zp,<@7+BXB`,<<,<=,<@=`+"ZZ?XBZB?,<@"5[ZB?Zw~XB8Z,~2B+$Z@XB[`XB,<:Z`Z[DAZ$3B+* A,~Z`,~Z3B+- @,<B,<BZ,,,<,<,,~h2\/,UAL(VARIABLE-VALUE-CELL FN . 5)
(VARIABLE-VALUE-CELL MSGLST . 11)
(VARIABLE-VALUE-CELL FAULTFN . 9)
(VARIABLE-VALUE-CELL RESETVARSLST . 74)
(VARIABLE-VALUE-CELL EXPRSTACK . 93)
(VARIABLE-VALUE-CELL GLBREAKONERROR . 87)
"GLISP error detected by "
PRIN1
" in function "
PRINT
(VARIABLE-VALUE-CELL X . 22)
1
SPACES
TERPRI
"in expression: "
((2 . 20) . 0)
PRINTLEVEL
(VARIABLE-VALUE-CELL OLDVALUE . 41)
NIL
NIL
(NIL VARIABLE-VALUE-CELL RESETSTATE . 80)
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
SHOWPRINT
"within expr. "
ERROR
APPLY
ERROR!
GLERR
QUOTE
(ALIST2 KT CF KNIL CONS CONSNL LIST2 BHC SKNLST ENTERF)0"1P)82h
GLEXPANDPROGN BINARY
-.Z,<Zp-,+Z+,<@ +Z-,+ZZZ,3B+Z[[3B+ZB,<[DZ,<Z[[DZ,<Z[ZD,~[pXBp+E!$"(VARIABLE-VALUE-CELL LST . 3)
(VARIABLE-VALUE-CELL X . 41)
((PROGN PROG2) . 0)
LAST
RPLACD
RPLACA
(FMEMB SKLST URET1 KNIL SKNLST ENTERF)8
GLFINDVARINCTX BINARY


-.Z3B+Z,<ZD	2B+[XB+Z,~@(VARIABLE-VALUE-CELL VAR . 6)
(VARIABLE-VALUE-CELL CONTEXT . 13)
ASSOC
(KNIL ENTERF)`
GLGETASSOC BINARY

-.@	,~Z,<ZD
XB3B+[,~Z,~(VARIABLE-VALUE-CELL KEY . 6)
(VARIABLE-VALUE-CELL ALST . 8)
(NIL VARIABLE-VALUE-CELL TMP . 13)
ASSOC
(KNIL ENTERF)
GLGETD BINARY
-.ZB

3B+
Z,<,<

+
ZB,<"~@(VARIABLE-VALUE-CELL FN . 20)
CCODEP
EXPR
UNSAVEDEF
PRIN1
1
SPACES
"unsaved."
TERPRI
GETD
(KNIL ENTERF)8
GLGETDEF BINARY
	-.,<Z,<,<,<$,,,~`(VARIABLE-VALUE-CELL NAME . 4)
(VARIABLE-VALUE-CELL TYPE . 0)
GLDEFSTRQ
GLSTRUCTURE
GETPROP
(ALIST2 CONSS1 ENTERF)`X
GLGETFIELD BINARY
J?H-.?@A(
,~Z2B++(-,+,<ZDCXB3B+Z,<Z,<[[Z,<,<(DXB3B+Z,~,<Z	,<ZFDXB3B+XB+,<D,<EZ,<,<E,DF,~-,+(Z,<Z
,<[Z,<,<(DXB3B+!+,<D,<FZ,<,<G[Z,<,<GZ#^,,DF,~Z2B+*Z,~Z(,<[*XB+,\XBZ-2B+/+(Z-,<[/XB0,\XBZ"[2Z2B+8Z3,<[5[Z,,~Z6,<Z2,<[8[Z,<,<(DXB2B++-4H%ey`L(VARIABLE-VALUE-CELL SOURCE . 75)
(VARIABLE-VALUE-CELL FIELD . 115)
(VARIABLE-VALUE-CELL CONTEXT . 88)
(NIL VARIABLE-VALUE-CELL TMP . 123)
(NIL VARIABLE-VALUE-CELL CODE . 0)
(NIL VARIABLE-VALUE-CELL CTXENTRY . 117)
(NIL VARIABLE-VALUE-CELL CTXLIST . 98)
(NIL VARIABLE-VALUE-CELL STRLIST . 0)
GLFINDVARINCTX
GLVALUE
GLGETFIELD
"The name"
"cannot be found."
GLERROR
"The property"
"cannot be found for type"
"in"
(ALIST2 ALIST SKLST LIST3 SKA KNIL ENTERF)x(`p=p* p`	H
GLGETFROMUNIT BINARY

-.

@,~,<[[ZDXB3B+[,<Z,<Z,< ",,~Z,~	(VARIABLE-VALUE-CELL UNITREC . 7)
(VARIABLE-VALUE-CELL IND . 16)
(VARIABLE-VALUE-CELL DES . 18)
(NIL VARIABLE-VALUE-CELL TMP . 14)
GET
ASSOC
(EVCC KNIL ENTERF)8H
GLGETPAIRS BINARY
"!-.@,~Z2B+Z,~Z,<[XB,\XB-,+

,<,<,<,D+2B++Z,<,<$ 3B+Z,<[XB,\,<Z,<,<& XBZ,<ZZ,,D!XB+ _@((VARIABLE-VALUE-CELL EXPR . 37)
(VARIABLE-VALUE-CELL CONTEXT . 40)
(NIL VARIABLE-VALUE-CELL PROP . 47)
(NIL VARIABLE-VALUE-CELL VAL . 48)
(NIL VARIABLE-VALUE-CELL PAIRLIST . 52)
GLGETPAIRS
"is not a legal property name."
GLERROR
,
((= _) . 0)
MEMB
GLDOEXPR
NCONC
(CONSNL CONS KT LIST2 SKNA KNIL ENTERF) `@HH
GLGETSTR BINARY
-.@

,~ZB
-,+
,<,<3B+
Z,~Z,~Jd(VARIABLE-VALUE-CELL DES . 6)
(NIL VARIABLE-VALUE-CELL TYPE . 8)
(NIL VARIABLE-VALUE-CELL TMP . 19)
GLXTRTYPE
GLSTRUCTURE
GETPROP
(SKA KNIL ENTERF)h8	X
GLIDNAME BINARY
0'.-.'@),~Z-,+'2B+,<,<),,~-,+2B+,<,<),,~,<ZD*XB3B+Z,<2B*+Z+,,~,<Z,<Z

F+2B+'Z,<ZD+2B+'Z3B+Z,<,<,,~Z,~-,+!,<,<,,,~+$,<,<,,,~,<-,<,<-,D.,~,~*ME
T(VARIABLE-VALUE-CELL NAME . 53)
(VARIABLE-VALUE-CELL DEFAULTFLG . 50)
(VARIABLE-VALUE-CELL CONTEXT . 46)
(NIL VARIABLE-VALUE-CELL TMP . 26)
BOOLEAN
GLVARTYPE
*NIL*
GLGETFIELD
GLIDTYPE
INTEGER
REAL
GLIDNAME
"is an illegal name."
GLERROR
(FLOATT SKI ALIST2 KT SKLA LIST2 KNIL SKA ENTERF) p(h$8H8hXH
GLIDTYPE BINARY
$ #-. @!,~ZXBZ2B+Z,~Z,<[XB,\XBZ	2B++Z	XB[XB

ZZ3B+[[[Z-,+	[[ZZB#3B+	Z[[Z[Z2B+	Z,<[[Z,,~`!@(VARIABLE-VALUE-CELL NAME . 50)
(VARIABLE-VALUE-CELL CONTEXT . 6)
(NIL VARIABLE-VALUE-CELL CTXLEVELS . 16)
(NIL VARIABLE-VALUE-CELL CTXLEVEL . 26)
(NIL VARIABLE-VALUE-CELL CTXENTRY . 60)
GL-A-AN?
(ALIST2 SKLST KNIL ENTERF)Xh
GLINIT BINARY

-.8
 ,<"XBZXBZXBZXBZXBZ"XBZXBZ,~(VARIABLE-VALUE-CELL GLSEPBITTBL . 6)
(VARIABLE-VALUE-CELL GLUNITPKGS . 8)
(VARIABLE-VALUE-CELL GLSEPMINUS . 10)
(VARIABLE-VALUE-CELL GLQUIETFLG . 12)
(VARIABLE-VALUE-CELL GLSEPATOM . 14)
(VARIABLE-VALUE-CELL GLSEPPTR . 16)
(VARIABLE-VALUE-CELL GLBREAKONERROR . 18)
GLINITLAMBDATRAN
((: _ + - ' = ~ < > 42 / , ^) . 0)
MAKEBITTABLE
(ASZ KNIL ENTER0)(	xX
GLINITLAMBDATRAN BINARY

-.

Z+,<"Z,<Z,DZ,<Z,DXBZ,~y%(VARIABLE-VALUE-CELL LAMBDASPLST . 11)
(VARIABLE-VALUE-CELL LAMBDATRANFNS . 21)
5000
LAMBDATRAN.DBYTE
LOAD
LAMBDATRAN.COM
GLAMBDA
NCONC
((GLAMBDA GLAMBDATRAN EXPR NIL) . 0)
(KNIL CONSNL SMALLT ENTER0)@(
GLLISPADJ BINARY

-.

,~ZB1H+2D+XB3B+[,~Z,~`R(VARIABLE-VALUE-CELL ADJ . 6)
(NIL VARIABLE-VALUE-CELL TMP . 20)
U-CASE
(((ATOMIC . ATOM) (NULL . NULL) (NIL . NULL) (INTEGER . FIXP) (REAL . FLOATP) (
SMALL . SMALLP) (ZERO . ZEROP) (NUMERIC . NUMBERP) (NEGATIVE . MINUSP) (MINUS . 
MINUSP)) . 0)
(KNIL ENTERF)

 
GLLISPISA BINARY

-.

,~ZB1H+2D+XB3B+[,~Z,~`R(VARIABLE-VALUE-CELL ISAWORD . 6)
(NIL VARIABLE-VALUE-CELL TMP . 20)
U-CASE
(((ATOM . ATOM) (LIST . LISTP) (NUMBER . NUMBERP) (INTEGER . FIXP) (LITATOM . 
LITATOM)) . 0)
(KNIL ENTERF)@

GLMAKESTR BINARY
3)2-.)@*,~Z,<,<,$,3B+Z,<[XB,\ZB-XB2B+,<-,<.Z,<,<.,D/Z	2B/+"Z,<,<Zw-,+ZpZ2B+ "+[QD "+ Zw,<@) +,<Z,<,<&0,~Zp,XBp[wXBw+/Z0,,~ZB1XBZ,<,<,<&1,<Z

,<,,~4rX"DP@Q(VARIABLE-VALUE-CELL TYPE . 78)
(VARIABLE-VALUE-CELL EXPR . 69)
(VARIABLE-VALUE-CELL CONTEXT . 54)
(NIL VARIABLE-VALUE-CELL NEWSTR . 0)
(NIL VARIABLE-VALUE-CELL PAIRLIST . 71)
(NIL VARIABLE-VALUE-CELL STRDES . 72)
((WITH With with) . 0)
MEMB
GLGETSTR
GLMAKESTR
"The type name"
"is not defined."
GLERROR
LISTOF
GLDOEXPR
LIST
GLGETPAIRS
GLBUILDSTR
(LIST2 CONS21 BHC COLLCT KT SKNLST LIST3 KNIL ENTERF))"!&8H0
GLMKLABEL BINARY
-. .",XB,<,<,B,~H(VARIABLE-VALUE-CELL GLNATOM . 6)
GLLABEL
PACK
(LIST2 MKN ENTER0)X8
GLMKVAR BINARY
-. .",XB,<,<,B,~H(VARIABLE-VALUE-CELL GLNATOM . 6)
GLVAR
PACK
(LIST2 MKN ENTER0)
GLNCONCFN BINARY
bQ_-.Q@S(
,~ZXB[ZBUXB2BV+ZZ$,3B+

,<VZ,<,XB+MZ-,+[

Z2BV+,<WZ
,<Z,XB+M,<WZ,<Z,XB+M3BX+2BX+,<WZ,<Z,XB+M2BY+!,<YZ,<Z,XB+M2B+.,<ZZ,<Z,XB Z"-,+M[#Z3B+MZ%,<,<,<Z[&Z,,<ZH[+MZ2BZ+3,<ZZ(,<Z*,XB$+MZ,<Z1,<,<[&\XB3B+8Z6,~Z3,<,<\Z4,F]XB73B+=+7Z8,<,<]Z:,F]XB;3B+CZ@XB2+MZ.B^XB3B+LZ=,<ZD,<,,<Z?D^XBB3B+L+7Z,~ZF,<ZB,<ZC,<,D_,~	Ap,"p!IIH	@(VARIABLE-VALUE-CELL LHS . 154)
(VARIABLE-VALUE-CELL RHS . 146)
(VARIABLE-VALUE-CELL CONTEXT . 89)
(NIL VARIABLE-VALUE-CELL LHSCODE . 96)
(NIL VARIABLE-VALUE-CELL LHSDES . 158)
(NIL VARIABLE-VALUE-CELL NCCODE . 156)
(NIL VARIABLE-VALUE-CELL TMP . 148)
(NIL VARIABLE-VALUE-CELL STR . 142)
GLXTRTYPE
INTEGER
ADD1
IPLUS
PLUS
NUMBER
REAL
BOOLEAN
OR
NCONC1
LISTOF
GLADDSTR
NCONC
GLUNITOP
_+
GLDOMSG
+
GLGETSTR
GLNCONCFN
GLPUTFN
(CONSNL ALIST2 SKA ALIST3 SKNI LIST2 KNIL EQP ASZ ENTERF);,&2P @0`
I@	PK`BP7(( 		
GLNEQUALFN BINARY
-.[Z3B+[Z2B+
,<Z,<Z,,<,<,,~,<[Z3B+[Z2B+Z+Z,<Z
,<Z

,,,<,<,,~	x(VARIABLE-VALUE-CELL LHS . 33)
(VARIABLE-VALUE-CELL RHS . 35)
ATOM
NEQ
BOOLEAN
NOT
INTEGER
EQP
EQUAL
(ALIST2 LIST2 ALIST3 ENTERF)8P

GLOKSTR? BINARY
t-.t@t,~Z2B+Z,~-,+Z,~-,+sZ-,+sZ3Bu+3Bv+3Bv+3Bw+2Bw+[
[3B+Z,~[ZBx2B+s[ZBx,~2By+$[3B+#[[3B+#[[[2B+#[ZBy3B+#[[ZBy,~Z,~2Bz+0[ 3B+/[%,<Zp-,+*Z+Zp,<,<w$y2B+.Z+[pXBp+'Z,~3Bz+83B{+83B{+83B|+83B|+83B}+83B}+82B~+P[&3B+>[8Z-,+>Z:,<[<XB=,\[=3B+O[>,<Zp-,+CZ+Zp,<,<w/@~ +KZ-,+J[GZBy,~Z,~2B+MZ+[pXBp+AZ,~2B+W[@3B+V[Q[2B+V[RZBy,~Z,~2B+j[T3B+i[X,<Zp-,+]Z+Zp,<,<w/@~ +eZH-,+d[aZBy,~Z,~2B+gZ+[pXBp+[Z,~2B+lZZB,~[k3B+r[l[2B+r[nZBy,~Z,~Z,~"q
,DDd('|D
H!

&H(VARIABLE-VALUE-CELL STR . 224)
(NIL VARIABLE-VALUE-CELL TEMP . 0)
((ATOM NUMBER BOOLEAN INTEGER REAL STRING NIL ANYTHING) VARIABLE-VALUE-CELL 
DATATYPES . 0)
A
AN
a
an
An
GLGETSTR
GLUNIT?
CONS
GLOKSTR?
LIST
RECORD
TYPERECORD
ASSOCRECORD
PROPRECORD
ARRAYRECORD
HASHLINK
DATATYPE
ATOMRECORD
(VARIABLE-VALUE-CELL X . 197)
LISTOF
ALIST
ATOM
GLATMSTR?
(BHC URET1 SKNLST SKLST KT SKA KNIL ENTERF)

Fh`N@.(HBXC b	< t0p

xf

XZ
xT
(P	XL	8@ 0`-h$8PH
GLOPERAND BINARY
-.<XB3B+ ,~Z2B+Z,~Z-,+
-,+Z,\B XB ,~Z,<[XB,\,<,<Z,<,<(,~DA (VARIABLE-VALUE-CELL FIRST . 36)
(VARIABLE-VALUE-CELL EXPR . 42)
(VARIABLE-VALUE-CELL CONTEXT . 46)
GLSEPNXT
GLPARSNFLD
STRING
GLSEPINIT
GLPUSHEXPR
(KTSKALIST2SKSTPKNIL ENTER0)
GLOPERATOR? BINARY
-.ZZ,,~(VARIABLE-VALUE-CELL ATM . 3)
((_ __ __+ __- _+_ _+ +_ _- -_ = ~= AND And and OR Or or + - * / > < >= <= ^) . 
0)
(FMEMB ENTERF)
GLORFN BINARY
,,<[ZB,<[ZB,\,3B+[Z+

Z,,~" (VARIABLE-VALUE-CELL LHS . 20)
(VARIABLE-VALUE-CELL RHS . 13)
OR
GLXTRTYPE
(ALIST2 KNIL EQUAL ALIST3 ENTERF)

 H
GLPARSEXPR BINARY
SCQ-. C@E(
,~ HZ,XBZ2B+(Z3B+?Z-,+
+?ZBH IXBBI3B+Z
,<[+-Z,<,<J$J3B+'Z,<[XB,\,<Z,<,<,<KZpZ7@7Z2BK+,<p,<ZFLBL3B+ Z+!Z/3B+#Z+$ZHMZ,XB$ZXB+ M+?BI3B+*+-,<NZ&,<,<N,DOZ3B+=Z-BOXB,,>C,>Z+BOXB, ,^/3"+=Z0Z3,3B+<Z2,<,<P$J2B+= P+-Z9Z/,XB=+Z>3B+B P+?Z%,~&jPEAwR B7p(VARIABLE-VALUE-CELL EXPR . 30)
(VARIABLE-VALUE-CELL CONTEXT . 45)
(VARIABLE-VALUE-CELL BOUNDPDUMMY . 58)
(VARIABLE-VALUE-CELL ADDISATYPE . 69)
(NIL VARIABLE-VALUE-CELL OPNDS . 132)
(NIL VARIABLE-VALUE-CELL OPERS . 127)
(NIL VARIABLE-VALUE-CELL FIRST . 122)
(NIL VARIABLE-VALUE-CELL LHSP . 109)
(NIL VARIABLE-VALUE-CELL RHSP . 110)
GLOPERAND
GLSEPINIT
GLSEPNXT
GLOPERATOR?
((IS Is is HAS Has has) . 0)
MEMB
ADDISATYPE
NOBIND
STKSCAN
RELSTK
GLPREDICATE
GLSEPCLR
GLPARSEXPR
"appears illegally or cannot be interpreted."
GLERROR
GLPREC
((_ ^) . 0)
GLREDUCE
(EQPIUNBOXLIST2BHCKNOB KT SKNA KNIL CONS ENTER0)H1-6 0	A@9p*p$(!x8
GLPARSFLD BINARY
=2;-.2@4,~Z2B+%Z2B5+ 6XB3B+ 6XBZ3B+3B+-,+,<6,<,,<,<7,,~Z3B+ZXBZ,<[XB,\3B+3B+-,+,<6,<,,<,<,,~Z,~,<,<7$83B+" 8XB	ZXBZ,~Z 3B9+%XB 6XB"Z$2B9+- 6XB3B+Z#,<,<ZF9XB( 6XB%+%Z+2B:+0,<,<:,,~,<,<$;,~.1,!V6N!+!(VARIABLE-VALUE-CELL PREV . 90)
(VARIABLE-VALUE-CELL FIRST . 88)
(VARIABLE-VALUE-CELL EXPR . 40)
(VARIABLE-VALUE-CELL CONTEXT . 84)
(NIL VARIABLE-VALUE-CELL FIELD . 78)
(NIL VARIABLE-VALUE-CELL TMP . 66)
'
GLSEPNXT
QUOTE
ATOM
((THE The the) . 0)
MEMB
GLTHE
:
GLGETFIELD
*NIL*
BOOLEAN
GLIDNAME
(LIST2 SKNNM KT KNIL ENTERF) h

2p/!p0((H
GLPARSNFLD BINARY
'%-.@!,~Z2B!+ "XB3B+,<""XB+Z3B+Z-,+Z
,<[XB

,\B#,<""XB+Z[XB,\,<,<Z,<,<(#XB+Z$,~ZB$,<,<%,,~,<"",~rR T2D(VARIABLE-VALUE-CELL FIRST . 10)
(VARIABLE-VALUE-CELL EXPR . 42)
(VARIABLE-VALUE-CELL CONTEXT . 46)
(NIL VARIABLE-VALUE-CELL TMP . 54)
~
GLSEPNXT
GLPARSFLD
GLSEPINIT
GLPUSHEXPR
((~ NIL) . 0)
GLBUILDNOT
BOOLEAN
(LIST2 KT SKLST SKA KNIL ENTER0)`  h
GLPLURAL BINARY
3&2-.&@',~Z,<,<($)XB3B+Z,~Z,<,<)$*XBB*XBZ	,<,<+$+3B+Z,<,<,$*,<,<,$+2B+Z,<,<-,<,&-,<Z
3B+Z.+Z.D/,~Z,<,</$+3B+!Z,<Z3B+ Z0+ Z0D/,~Z,<Z3B+%Z1+%Z1D/,~2
(NIL VARIABLE-VALUE-CELL TMP . 13)
(NIL VARIABLE-VALUE-CELL LASTCH . 51)
(NIL VARIABLE-VALUE-CELL UCASE . 69)
PLURAL
GETPROP
-1
NTHCHAR
U-CASEP
((Y y) . 0)
MEMB
-2
((A a E e O o) . 0)
1
SUBATOM
IES
ies
PACK*
((S s X x) . 0)
ES
es
S
s
(KNIL ENTERF)$pp`
GLPOPFN BINARY
;/9-./@00

,~ZXB[ZB3XB-,+Z2B4+Z,<,<4Z,<,,<Z,<,D5XBZ,<,<5Z,,<[

Z,D5XB+*Z2B6+Z,<,<6$5XBZ,<ZD5XB+*Z,<,<7Z,F7XB3B+!Z,~ZB8XB3B+)Z,<Z,<Z",<,D8XB 3B+)+ Z,~,<9Z,<Z,,<[+Z,,~	2LI	(VARIABLE-VALUE-CELL LHS . 71)
(VARIABLE-VALUE-CELL RHS . 73)
(NIL VARIABLE-VALUE-CELL RHSCODE . 20)
(NIL VARIABLE-VALUE-CELL RHSDES . 66)
(NIL VARIABLE-VALUE-CELL POPCODE . 88)
(NIL VARIABLE-VALUE-CELL GETCODE . 91)
(NIL VARIABLE-VALUE-CELL TMP . 79)
(NIL VARIABLE-VALUE-CELL STR . 75)
GLXTRTYPE
LISTOF
CDR
GLPUTFN
CAR
BOOLEAN
((NIL NIL) . 0)
-_
GLDOMSG
GLGETSTR
GLPOPFN
PROG1
(ALIST3 KNIL CONSNL ALIST2 LIST2 SKLST ENTERF)X()8 /8'`


GLPREC BINARY
-.@,~ZZ7[ZZ1H+2D+XB3B+
[,~Z2B+(VARIABLE-VALUE-CELL OP . 21)
(NIL VARIABLE-VALUE-CELL TMP . 19)
(((_ . 1) (__ . 1) (_+ . 2) (__+ . 2) (+_ . 2) (_+_ . 2) (_- . 2) (__- . 2) (-_ 
. 2) (= . 5) (~= . 5) (AND . 4) (And . 4) (and . 4) (OR . 3) (Or . 3) (or . 3) (
/ . 7) (+ . 6) (- . 6) (> . 5) (< . 5) (>= . 5) (<= . 5) (^ . 8)) . 0)
*
(ASZ	KNILENTERF)`
GLPREDICATE BINARY

u-. u@x0

,~Z2B+,<Z,<,<&{XB+pZ2B+
,<,<}$}3B+Z,<~$}3B+ZXBZ,<[XB,\,<Z,<,<&{XB+pZ,<,<~$}3B+pZ,<[XB ,\Z!,<,<$}3B+(ZXBZ",<[&XB',\Z'B3B+[Z(,<[*XB+,\Z,,<[-XB.,\XBZ,<,<,<&XB2B+pZ0,<Z/,<,<&XB23B+LZ3B+pZ4-,+?Z:,<,<Z5,<ZH+pZ;-,+pZ?Z,<,<$}3B+pZA[Z-,+pZD[Z,<,<Z=,<Z>H+pZIBXB3B+R,<ZG,,<,<,XB7+p,<{,<ZL,<,<ZO,<,<[UZ^,,D|,<,<,XBQ+pZ.XBZV,<,<,<&XBZ3B+cZ[,<[`XBa,\+pZ\BXBM3B+mZb,<[fXBg,\Zd,<Z\,,<,<,XB+p,<ZJ,<,<&{XBlZ%3B+tZoB,<,<,,~Zq,~!'

h 
HdH

FBR	dB2!
@(VARIABLE-VALUE-CELL SOURCE . 211)
(VARIABLE-VALUE-CELL CONTEXT . 219)
(VARIABLE-VALUE-CELL VERBFLG . 6)
(VARIABLE-VALUE-CELL ADDISATYPE . 113)
(VARIABLE-VALUE-CELL EXPR . 207)
(NIL VARIABLE-VALUE-CELL NEWPRED . 233)
(NIL VARIABLE-VALUE-CELL SETNAME . 167)
(NIL VARIABLE-VALUE-CELL PROPERTY . 199)
(NIL VARIABLE-VALUE-CELL TMP . 209)
(NIL VARIABLE-VALUE-CELL NOTFLG . 224)
(NIL VARIABLE-VALUE-CELL UNITREC . 0)
GLDOEXPR
GLPREDICATE
"The object to be tested was not found.  EXPR ="
GLERROR
((HAS Has has) . 0)
MEMB
((NO No no) . 0)
((IS Is is) . 0)
((NOT Not not) . 0)
GL-A-AN?
ISA
GLADJ
ISASELF
GLADDSTR
((SETQ PROG1) . 0)
GLLISPISA
BOOLEAN
"IS A property"
"could not be found for"
"whose type is"
ADJ
GLLISPADJ
GLBUILDNOT
(ALIST ALIST2 SKLST SKA LIST2 KT KNIL ENTERF)Yk
p;t

o &8pn

``	hJH= 8@*P 	X
GLPRETTYPRINTSTRS BINARY
B5@-.5@6,~ 7 7,<8"8,<9"9Z2B+ 7,<:"8 7 7Z,~Z,<[XB

,\XB,<,<:$;XB3B+,<"7,<"7,<;,<$8ZB<Z(>[,<Zp-,+"+2,<@> +0,<"7,<"7,<<,<,<&=Z,<,<$8,<?,<,<&=[(Z@=,<,<,<(>,~[p[XBp+ /,<?,<$8+|~25
Y"V(VARIABLE-VALUE-CELL LST . 25)
(VARIABLE-VALUE-CELL LAMBDAFONT . 41)
(VARIABLE-VALUE-CELL DEFAULTFONT . 47)
(NIL VARIABLE-VALUE-CELL TMP . 63)
(NIL VARIABLE-VALUE-CELL OBJ . 43)
TERPRI
%[
PRIN1
GLDEFSTRQ
PRINT
%]
GLSTRUCTURE
GETPROP
"("
CHANGEFONT
3
TAB
POSITION
PRINTDEF
(VARIABLE-VALUE-CELL REST . 89)
10
"  )"
(BHC SKNLST KNIL ENTERF)8 H0x,@*(h%xH(x0x
GLPROGN BINARY
-.@(
,~Z2B+ZB,<Z,<,,~,<Z,<ZFXB3B+Z
Z,XB

ZXB+,<,<Z,<,DZ,~( (VARIABLE-VALUE-CELL EXPR . 34)
(VARIABLE-VALUE-CELL CONTEXT . 17)
(VARIABLE-VALUE-CELL VALBUSY . 19)
(NIL VARIABLE-VALUE-CELL RESULT . 27)
(NIL VARIABLE-VALUE-CELL TMP . 28)
(NIL VARIABLE-VALUE-CELL TYPE . 30)
(NIL VARIABLE-VALUE-CELL GLSEPATOM . 0)
(0 VARIABLE-VALUE-CELL GLSEPPTR . 0)
DREVERSE
GLDOEXPR
GLPROGN
"Illegal item appears in implicit PROGN.  EXPR ="
GLERROR
(CONS LIST2 KNIL ENTERF)`0@	H
GLPURE BINARY
-.ZZ,,~(VARIABLE-VALUE-CELL X . 3)
((CAR CDR CAAR CADR CDAR CDDR ADD1 CADDR CADDDR) . 0)
(FMEMB ENTERF)8
GLPUSHEXPR BINARY


-. @,~Z,<Z,<ZF	,~(VARIABLE-VALUE-CELL EXPR . 0)
(VARIABLE-VALUE-CELL START . 6)
(VARIABLE-VALUE-CELL CONTEXT . 8)
(VARIABLE-VALUE-CELL VALBUSY . 10)
(NIL VARIABLE-VALUE-CELL GLSEPATOM . 0)
(0 VARIABLE-VALUE-CELL GLSEPPTR . 0)
GLDOEXPR
(ENTERF)

GLPUSHFN BINARY
cR`-.R@T(
,~ZXB[ZBVXB2BW+ZZ$,3B+

,<WZ,<,XB+NZ-,+[

Z2BW+,<XZ
,<Z,XB+N,<XZ,<Z,XB+N3BY+2BY+,<XZ,<Z,XB+N2BZ+!,<ZZ,<Z,XB+N2B+.,<[Z,<Z,<,XB Z#-,+N["Z3B+NZ%,<,<,<[['Z,,<ZH\+NZ2B[+4,<[Z+,<Z),<,XB%+NZ,<Z0,<,<\&]XB3B+9Z7,~Z4,<,<]Z5,F^XB83B+>+8Z9,<,<^Z;,F^XB<3B+DZAXB3+NZ.B_XB3B+MZ>,<ZE,<,,<Z@D_XBC3B+M+8Z,~ZG,<ZC,<ZD,<,D`,~	Ap,8d2$R0(VARIABLE-VALUE-CELL LHS . 156)
(VARIABLE-VALUE-CELL RHS . 148)
(VARIABLE-VALUE-CELL CONTEXT . 90)
(NIL VARIABLE-VALUE-CELL LHSCODE . 99)
(NIL VARIABLE-VALUE-CELL LHSDES . 160)
(NIL VARIABLE-VALUE-CELL NCCODE . 158)
(NIL VARIABLE-VALUE-CELL TMP . 150)
(NIL VARIABLE-VALUE-CELL STR . 144)
GLXTRTYPE
INTEGER
ADD1
IPLUS
PLUS
NUMBER
REAL
BOOLEAN
OR
CONS
LISTOF
GLADDSTR
PUSH
GLUNITOP
+_
GLDOMSG
+
GLGETSTR
GLPUSHFN
GLPUTFN
(CONSNL ALIST2 SKA LIST3 ALIST3 SKNI LIST2 KNIL EQP ASZ ENTERF)<-'3XhR

N	HG0>+"
GLPUTFN BINARY
iWf-.W@X ,~ZXB-,+Z,<,<ZZ,FZ2B+VZ,<ZD[,~Z	XB2B[+,<[,<\[Z,<Z
,,XB+R2B\+,<\,<][Z,<Z,,XB+RZ

Z]7[ZZ1H+2D+XB3B+&Z,<,<\[,<[Z,,<Z,,XB+RZ2B^+-,<^[!Z,<[([Z,<Z#,XB%+R2B_+4,<_[)Z,<Z+,<[/[Z,XB,+R2B`+9,<`[1Z,<Z0,XB3+R2Ba+B,<a[6Z,<,<b[;[[Z,<,<bZ7^,,XB8+RZ,<Z@,<,<c&cXB 3B+HZE,~ZB,<,<ZZC,FZXBG3B+M+G,<d,<dZH,<,<eZI,<,De,~ZA,<[NZ2B+V[OZ,,~(G@|A$@@@q2<D(VARIABLE-VALUE-CELL LHS . 166)
(VARIABLE-VALUE-CELL RHS . 170)
(NIL VARIABLE-VALUE-CELL LHSD . 122)
(NIL VARIABLE-VALUE-CELL LNAME . 76)
(NIL VARIABLE-VALUE-CELL TMP . 150)
(NIL VARIABLE-VALUE-CELL RESULT . 164)
_
GLDOMSG
GLDOVARSETQ
CAR
RPLACA
CDR
RPLACD
(((CADR . CDR) (CADDR . CDDR) (CADDDR . CDDDR)) . 0)
GETPROP
PUTPROP
GLGETASSOC
PUTASSOC
EVAL
SET
fetch
replace
of
with
PUT
GLUNITOP
GLPUTFN
"Illegal assignment.  LHS ="
"RHS ="
GLERROR
(LIST4 ALIST ALIST4 ALIST2 ALIST3 KNIL CONSNL SKA ENTERF)
 @-WX#9P
PLpX	KP
GLPUTUPFN BINARY
;/9-./@2,~Z,<,<3$3XB2B+
,<4Z,<,,<,<4$5Z-,+,<5ZpZ7@7Z2B6+,<p,<ZF6B73B+Z+Z/3B+Z
,<ZD3XB3B+[,<[Z,<[Z,,<ZF7,~Z-,+,ZZ2B8+,Z![Z-,+,[,<Z#[Z,<[&Z,,<ZF7,~,<4,<8Z(,<,D9,~301(D@&X@(VARIABLE-VALUE-CELL OP . 14)
(VARIABLE-VALUE-CELL LHS . 90)
(VARIABLE-VALUE-CELL RHS . 85)
(VARIABLE-VALUE-CELL BOUNDPDUMMY . 33)
(VARIABLE-VALUE-CELL GLPROGLST . 46)
(NIL VARIABLE-VALUE-CELL TMP . 53)
(NIL VARIABLE-VALUE-CELL TMPOP . 75)
(((__ . _) (__+ . _+) (__- . _-) (_+_ . +_)) . 0)
ASSOC
GLPUTUPFN
" Illegal operator."
ERROR
GLPROGLST
NOBIND
STKSCAN
RELSTK
GLREDUCEOP
PROG1
"A self-assignment __ operator is used improperly.  LHS ="
GLERROR
(SKLST ALIST2 BHC KT KNOB SKA LIST2 KNIL ENTERF)!*`X@hX/P
GLPUTPROPS BINARY
-.@,~Z2B+Z,~Z,<[XB,\XB,<Z,<ZFXB3B+Z,<,<,<Z3B+3B+-,+,<,<,,<Z,<,,D+ IJ@0(VARIABLE-VALUE-CELL PROPLIS . 14)
(VARIABLE-VALUE-CELL PREVLST . 20)
(VARIABLE-VALUE-CELL PAIRLIST . 18)
(VARIABLE-VALUE-CELL PROGG . 25)
(NIL VARIABLE-VALUE-CELL TMP . 29)
(NIL VARIABLE-VALUE-CELL TMPCODE . 40)
GLBUILDSTR
PUTPROP
ATOMNAME
QUOTE
NCONC
(CONSNL LIST4 LIST2 SKNNM KT KNIL ENTERF)h`@

X
GLREDUCE BINARY
,%*-.%@&,~Z,<[XB,\XBZ,<[XB,\XB,<,<($(3B+Z,<Z,<[

XB,<ZF)Z,XB+$ZZ),3B+Z,<Z,<[XB,\,<ZF*Z,XB+$Z,<Z,<[XB,\Z,<Z,,<,<,Z,XB#Z,~ R"(VARIABLE-VALUE-CELL OPNDS . 72)
(VARIABLE-VALUE-CELL OPERS . 15)
(NIL VARIABLE-VALUE-CELL RHS . 65)
(NIL VARIABLE-VALUE-CELL TMP . 0)
(NIL VARIABLE-VALUE-CELL OPER . 56)
((_ _+ +_ _- -_ = ~= AND And and OR Or or __+ __ _+_ __-) . 0)
MEMB
GLREDUCEOP
((+ - * / > < >= <= ^) . 0)
GLREDUCEARITH
(LIST2 ALIST3 FMEMB CONS KNIL ENTER0)8 HH X#P
GLREDUCEARITH BINARY
HAF-.A@B ,~[Z2BD+

2D+XB2B+[Z,<ZDE3B+*[Z,<ZDE3B+*ZZ7[ZZ1H+2D+XB

3B+*Z-,+$[,<Z,<Z,< ",,<[Z,,~[,<Z",<Z ,,<[%Z,,~Z(,<Z,<Z&,FEXB$3B+0Z-,~Z+Z7[ZZ1H+52D+1XB/3B+;[5,<Z*,<Z,,,<,<F,,~Z0,<Z7,<Z8,,<[=Z,,~3R
I@
@ (VARIABLE-VALUE-CELL OP . 119)
(VARIABLE-VALUE-CELL LHS . 121)
(VARIABLE-VALUE-CELL RHS . 126)
(NIL VARIABLE-VALUE-CELL TMP . 109)
(((+ . PLUS) (- . DIFFERENCE) (* . TIMES) (/ . QUOTIENT) (> . GREATERP) (< . 
LESSP) (>= . GEQ) (<= . LEQ) (^ . EXPT)) VARIABLE-VALUE-CELL OPLIST . 97)
(((+ . IPLUS) (- . IDIFFERENCE) (* . ITIMES) (/ . IQUOTIENT) (> . IGREATERP) (< 
. ILESSP) (>= . IGEQ) (<= . ILEQ)) VARIABLE-VALUE-CELL IOPLIST . 15)
((INTEGER REAL NUMBER) VARIABLE-VALUE-CELL NUMBERTYPES . 37)
INTEGER
MEMB
GLDOMSG
NUMBER
(LIST2 CONSNL ALIST3 ALIST2 EVCC SKNM KNIL ENTERF)8Xp:*H(`6P/0HX


GLREDUCEOP BINARY
 -.@,~ZZ7[ZZ1H+2D+XB3B+[,<Z,<Z,< ",,~Z,<,<$3B+Z,<Z
,<ZF,~,<Z,<Z,<Z,<,BZ,~A$
(VARIABLE-VALUE-CELL OP . 42)
(VARIABLE-VALUE-CELL LHS . 44)
(VARIABLE-VALUE-CELL RHS . 46)
(NIL VARIABLE-VALUE-CELL TMP . 19)
(((_ . GLPUTFN) (_+ . GLNCONCFN) (+_ . GLPUSHFN) (_- . GLREMOVEFN) (-_ . GLPOPFN
) (= . GLEQUALFN) (~= . GLNEQUALFN) (AND . GLANDFN) (And . GLANDFN) (and . 
GLANDFN) (OR . GLORFN) (Or . GLORFN) (or . GLORFN)) . 0)
((__ __+ __- _+_) . 0)
MEMB
GLPUTUPFN
GLREDUCEOP
ERROR
(LIST4 EVCC KNIL ENTERF)	
GLREMOVEFN BINARY
N?L-.?@@(
,~ZXB[ZBCXB2BC+ZZ$,3B+

,<DZ,<,XB+;,<DZ
,<Z,XB+;3BE+2BE+,<DZGZ,,XB+;3B+Z2BG+!,<HZ,<Z,<,XB+;Z,<Z,<,<H&HXB3B+'Z$,~Z!,<,<IZ",FIXB&3B+,+&Z',<,<JZ(,FIXB*3B+2Z/XB +;ZBJXB3B+:Z,,<Z3,<,,<Z-DKXB03B+:+&Z,~Z4,<,<Z2,<,DK,~

Ar
pH$dI$`(VARIABLE-VALUE-CELL LHS . 119)
(VARIABLE-VALUE-CELL RHS . 111)
(NIL VARIABLE-VALUE-CELL LHSCODE . 62)
(NIL VARIABLE-VALUE-CELL LHSDES . 122)
(NIL VARIABLE-VALUE-CELL NCCODE . 98)
(NIL VARIABLE-VALUE-CELL TMP . 113)
(NIL VARIABLE-VALUE-CELL STR . 107)
GLXTRTYPE
INTEGER
SUB1
DIFFERENCE
NUMBER
REAL
BOOLEAN
AND
NOT
LISTOF
REMOVE
GLUNITOP
_-
GLDOMSG
-
GLGETSTR
GLREMOVEFN
GLPUTFN
(CONSNL LIST3 ALIST2 ALIST3 LIST2 KNIL EQP ASZ ENTERF)/  (xp7@8:H08&@		
GLRESULTTYPE BINARY
*")-."@#,~Z,<,<$$%XB3B+Z,~ZB%XB-,+Z3B&+

Z,~[
[XB

Z+Z-,++ZZ3B&+ZZ,<,<'$'3B+Z,<[XB,\+ZZ,<,<($'3B+Z[ZXBB(3B+Z,~2`1P#! (VARIABLE-VALUE-CELL ATM . 15)
(VARIABLE-VALUE-CELL ARGTYPES . 0)
(NIL VARIABLE-VALUE-CELL TYPE . 13)
(NIL VARIABLE-VALUE-CELL FNDEF . 59)
(NIL VARIABLE-VALUE-CELL STR . 66)
GLRESULTTYPE
GETPROP
GLGETD
GLAMBDA
*
((GLOBAL Global global) . 0)
MEMB
((RESULT Result result) . 0)
GLOKSTR?
(SKNLST SKLST KNIL ENTERF) pH
GLSEPCLR BINARY
-.Z"XB,~(VARIABLE-VALUE-CELL GLSEPPTR . 4)
(ASZ ENTER0)(
GLSEPINIT BINARY
-.ZXBZ"XBZ,~(VARIABLE-VALUE-CELL ATM . 3)
(VARIABLE-VALUE-CELL GLSEPATOM . 4)
(VARIABLE-VALUE-CELL GLSEPPTR . 6)
(KNIL ASZ ENTERF)
GLSEPNXT BINARY
`U]-. U@W,~Z0B+Z,~Z2B+	Z"XBZX,~-,+

XBZ"XBZ
,~Z,<,<ZFXXBZ2B+ZZ$,3B+Z+ ,>T,>ZBY, ,^/3b+Z+Z,<ZDY,<Z"XB,\,~Z,<Z,<  .",FYXB,<,<Z$Z3B+) !.",XB&+Z,<Z(,< *.",FYXB#,<,<[$Z3B+2 +.",XB0+Z2B+CZ),<Z,<,<Z

H[2B\+CZ4,< 5.",,<,<Z6H[3B\+CZ<,<Z8,< 9.",FXXB@+ B,>T,> 1 ,^/3b+NZ?,<ZD,< C/",FY,<ZIXBH,\,~ZG,<ZL,<,<&Y,< O.",XBQ,\,~!"(@4	PH`(VARIABLE-VALUE-CELL GLSEPPTR . 166)
(VARIABLE-VALUE-CELL GLSEPATOM . 156)
(VARIABLE-VALUE-CELL GLSEPBITTBL . 124)
(VARIABLE-VALUE-CELL GLSEPMINUS . 101)
(NIL VARIABLE-VALUE-CELL END . 152)
(NIL VARIABLE-VALUE-CELL TMP . 90)
*NIL*
STRPOSL
NCHARS
GLSUBATOM
((__+ __- _+_) . 0)
MEMB
((__ _+ +_ _- -_ ~= >= <=) . 0)
NTHCHAR
-
_
(MKN BHC IUNBOX EQP SKNM KNIL ASZ ENTER0)S	8B82P(8p
<p4&0Xh8H
GLSKIPCOMMENTS BINARY


-.
Z-,+	Z-,+	ZZ2B+	Z,<[XB,\+Z,~&(VARIABLE-VALUE-CELL GLEXPR . 16)
*
(KNIL SKLST ENTER0)
0
GLSTRFN BINARY

l-.l@nH,~ZZ,3B+Z,~ZZ,XBZ3B+Z2B+

+Z-,+BrXB3B+Z
,<,<ZFs,~Z

BsXB3B+,<Z,<ZFt,~Z,~ZXBZZ3B+ZZ2B+ ,<[Z,,~2Bt+*Z,<[Z,<,<u&u2B+lZ!,<["[Z,<,<v&u,~2Bv+,++2Bw+<Z&,<['DwXB3B+:,<xZ-3B+63B+6-,+6,<x,<,,<,<y,,<[/Z,,~ZXB3B+++A2By+JZ1,<[.DwXB83B+A,<z,<yZ=3B+G3B+G-,+G,<x,<,,,<[?Z,,~Bz3B+Z[>Z-,+Z[KZBr3B+TZB,<[MZ,<ZFs,~[QZBsXB3B++,<ZP,<[TZFt,~Z2B{+
[X-,+f[\ZZ2By+fZW,<[]Z,<ZRFsXBH3B+fZc,~[a-,+p[fZZ2B{+pZ`,<[gZ[Z,<,<|&uXBe3B+p+e[k3B+}[p[-,+}[r[ZZ2By+}Zj,<[t[Z,<ZbFsXBn3B+}+e[x3B+[}[-,+[~[ZZ2B{+Zw,<[[Z[Z,<,<|&uXB{3B++e,<,<}$}3B+[Z-,+[B,\ZB2B+E+ZC-,+AZEZ-,+AZG[3B+AZ0,<ZI,<Z2FsXB33B+A,<Z:3B+Z,<xZLZ3B+W3B+W-,+W,<x,<,,<,<y,2B+kZ3B+d,<Z3B+`,<ZRZ,2B+aZ^Z,<,<,<y,2B+k,<z,<yZ`Z3B+k3B+k-,+k,<x,<,,D,~30h

d!@&D"&n0A#/B"$1,IHN(VARIABLE-VALUE-CELL IND . 406)
(VARIABLE-VALUE-CELL DES . 459)
(VARIABLE-VALUE-CELL DESLIST . 410)
(NIL VARIABLE-VALUE-CELL DESIND . 304)
(NIL VARIABLE-VALUE-CELL TMP . 412)
(NIL VARIABLE-VALUE-CELL N . 384)
(NIL VARIABLE-VALUE-CELL NEW . 0)
(NIL VARIABLE-VALUE-CELL STR . 28)
(NIL VARIABLE-VALUE-CELL ALISTFLAG . 416)
(NIL VARIABLE-VALUE-CELL UNITREC . 171)
(NIL VARIABLE-VALUE-CELL RECNAME . 440)
(NIL VARIABLE-VALUE-CELL RECFLAG . 436)
GLGETSTR
GLSTRFN
GLUNIT?
GLGETFROMUNIT
CONS
((CAR *GL*) . 0)
GLSTRVALB
((CDR *GL*) . 0)
LIST
ALIST
ASSOC
GLGETASSOC
QUOTE
*GL*
PROPLIST
GETPROP
GL-A-AN?
ATOM
BINDING
((EVAL *GL*) . 0)
((EVAL *GL*) . 0)
((RECORD TYPERECORD ASSOCRECORD PROPRECORD ARRAYRECORD HASHLINK DATATYPE 
ATOMRECORD) . 0)
MEMB
((INTERVAL ONEOF LISTOF RECORD BINDING MEMB) . 0)
TRANSPARENT
GLVALUE
(((CAR *GL*) (CADR *GL*) (CADDR *GL*) (CADDDR *GL*)) . 0)
NTH
COPY
CAR
GLSTRVAL
fetch
of
(LIST4 MKN ASZ SKNA SKLST ALIST3 LIST3 LIST2 SKNNM KT ALIST2 SKA CONS KNIL FMEMB
 ENTERF)@@p#t

x]l	=8Xx6i`EHU@D03``J  IpMXxd]8Z@QxKP5&xP
h| p

PW
K8A@2&pP8
h
GLSTRPROP BINARY
%$-.@(
,~ZB!XB3B+,<,<!$"XB3B+[,<ZD"XB3B+Z,<D#XB3B+Z

,< ",XB3B++Z,~K!(VARIABLE-VALUE-CELL STR . 6)
(VARIABLE-VALUE-CELL GLPROP . 46)
(VARIABLE-VALUE-CELL PROP . 48)
(NIL VARIABLE-VALUE-CELL STRB . 44)
(NIL VARIABLE-VALUE-CELL UNITREC . 39)
(NIL VARIABLE-VALUE-CELL GLPROPS . 17)
(NIL VARIABLE-VALUE-CELL PROPL . 21)
(NIL VARIABLE-VALUE-CELL TMP . 52)
GLXTRTYPE
GLSTRUCTURE
GETPROP
LISTGET
ASSOC
GLUNIT?
(EVCC KNIL ENTERF)8@X
GLSTRVAL BINARY


Z3B+Z,<Z,<,<ZF

+	Z,<ZD

Z,~D(VARIABLE-VALUE-CELL OLDFN . 19)
(VARIABLE-VALUE-CELL NEW . 17)
*GL*
SUBST
RPLACA
(KNIL ENTERF)0
GLSTRVALB BINARY
-.@F
,<ZBD,~Z,~L(VARIABLE-VALUE-CELL IND . 6)
(VARIABLE-VALUE-CELL DES . 8)
(VARIABLE-VALUE-CELL NEW . 16)
(VARIABLE-VALUE-CELL DESLIST . 10)
(NIL VARIABLE-VALUE-CELL TMP . 12)
GLSTRFN
COPY
GLSTRVAL
(KNIL ENTERF)0
GLSUBATOM BINARY
		-.Z,<Z,<ZF2B+Z,~,(VARIABLE-VALUE-CELL X . 3)
(VARIABLE-VALUE-CELL Y . 5)
(VARIABLE-VALUE-CELL Z . 7)
SUBATOM
*NIL*
(KNIL ENTERF)
GLTHE BINARY
s-.s@t@,~Z2B++$Z,<,<x$y3B+Z,<[XB	,\Z	3B+
-,+,<y,<zZ

,Dz,~Z,<[XB,\Z,XB+Z-,+Z,<[XB,\Z,XB+,<Z,<,<&{XB+$Z,<,<{$y3B+$Z,<[!XB",\+Z2B+.Z#,<,<|$y3B+-Z,<Z,<,<,<(|,~Z),~[$2B+3Z&3B+3Z/,<,<}$y+4ZXB3B+8Z.,<Z5B}D~Z-2B+?Z6,<[9XB:,\XB,<,<$~XB8+D,<Z;,<[?XB@,\,<Z*FXB>2B+I,<y,<Z<,<,<,Dz,~Z42B+K+$[CZBXBZL3B+WZMBBXBNZ3B+W,<y,<ZF,<,<ZP,<,<^",DzZZB,XB XB,<ZS,<[TZ,<ZYHZZ,<[\Z,,<Z],<Z1,<[bXBc,\,<,<$y,<,<(|XBZZK,,<ZZ^,,<ZZh,,,<,<,<&,<[_Z,XBi+$3 H )PIP$q(9F&gI "! @(VARIABLE-VALUE-CELL EXPR . 200)
(VARIABLE-VALUE-CELL CONTEXT . 176)
(NIL VARIABLE-VALUE-CELL SOURCE . 229)
(NIL VARIABLE-VALUE-CELL SPECS . 130)
(NIL VARIABLE-VALUE-CELL NAME . 182)
(NIL VARIABLE-VALUE-CELL QUALFLG . 146)
(NIL VARIABLE-VALUE-CELL DTYPE . 226)
(NIL VARIABLE-VALUE-CELL NEWCONTEXT . 195)
(NIL VARIABLE-VALUE-CELL LOOPVAR . 214)
(NIL VARIABLE-VALUE-CELL LOOPCOND . 218)
((THE The the) . 0)
MEMB
GLTHE
"The item following THE is not an atom:"
GLERROR
GLDOEXPR
((OF Of of) . 0)
((IS Is is HAS Has has) . 0)
GLPREDICATE
((with With WITH who Who WHO which Which WHICH that That THAT) . 0)
GLPLURAL
RPLACA
GLIDNAME
GLGETFIELD
"The definite reference to"
"could not be found."
GLXTRTYPE
LISTOF
GLGETSTR
"The group name"
"has type"
"which is not a legal group type."
GLMKVAR
GLADDSTR
((who Who WHO which Which WHICH that That THAT) . 0)
<set>
<instance>
<predicate>
((CAR (SOME <set> (FUNCTION (LAMBDA (<instance>) <predicate>)))) . 0)
SUBLIS
(ALIST3LISTLIST3KTSKAXCONS`ALIST2 SKNA KNIL ENTER0)oWHp@n


GLTRANSPARENTTYPES BINARY


-.@,~Z-,+BXBB	ZB	,~5(VARIABLE-VALUE-CELL STR . 10)
(NIL VARIABLE-VALUE-CELL TTLIST . 12)
GLGETSTR
GLTRANSPB
DREVERSE
(SKA ENTERF)H
GLTRANSPB BINARY
-.Z-,+Z,~Z2B+ZZ,XB,~Z,<,<$2B+[,<Zp-,+Z+ZpB[pXBp+

/,~BR(VARIABLE-VALUE-CELL STR . 22)
(VARIABLE-VALUE-CELL TTLIST . 14)
TRANSPARENT
((LISTOF ALIST PROPLIST) . 0)
MEMB
GLTRANSPB
(BHCKNILCONS KT SKNLST ENTERF) h
GLUNITOP BINARY
-.@,~ZXBZ2B+Z,~ZZ,<Z[ZD2B+

[XB+ZXBZ,<[Z,<Z,< ",,~H(VARIABLE-VALUE-CELL LHS . 38)
(VARIABLE-VALUE-CELL RHS . 40)
(VARIABLE-VALUE-CELL OP . 27)
(VARIABLE-VALUE-CELL GLUNITPKGS . 6)
(NIL VARIABLE-VALUE-CELL TMP . 36)
(NIL VARIABLE-VALUE-CELL LST . 25)
(NIL VARIABLE-VALUE-CELL UNITREC . 29)
MEMB
ASSOC
(EVCC KNIL ENTERF)0X
GLUNIT? BINARY
XBZ2B+Z,~ZZ,<Z,< ",3B+

Z,~[XB

+B(VARIABLE-VALUE-CELL STR . 16)
(VARIABLE-VALUE-CELL GLUNITPKGS . 6)
(NIL VARIABLE-VALUE-CELL UPS . 25)
(EVCC KNIL ENTERF)(0X
GLUNWRAP BINARY
K6E-.6Z-,+,~Z-,+,<7ZD7,~Z3B8+
3B8+
2B9+Z,~3B9+
[2B+[,<Zp-,++ ,<@: +Z,<Z,<Z3B+[2B+7Z+ZD7D;,~[pXBp+/ZB;Z!,~2B<+?["[2B+([$ZXB&+[',<Zp-,+++7,<@: +6Z,<Z-,<Z3B+4Z.[(Z2B7Z+4ZD7D;,~[pXBp+)/Z/3B+;[1[B;+>Z9,<,<:$;Z;B;Z=,~2B<+Q[>,<[@Z,<Z8D7D;[A[,<Zp-,+H+O,<@: +NZ0,<ZJ,<,<$7D;,~[pXBp+F/ZD,~3B=+S2B=+][P,<[SZ,<,<$7D;[T[,<[W[Z,<,<$7D;ZX,~2B>+p[\[,<Zp-,+a+m,<@: +lZK,<Zc,<ZC3B+j[d2B+i7Z+jZD7D;,~[pXBp+/[^[B;Zn,~2B>+tZo,<ZeD?,~2B?+wZq,<ZrD@,~2B@+{Zu,<ZvDA,~Zy2B+[x3B+[|[2B+Z~BA3B+[Z,<,<,\XB{,\XB+[3B+)[[2B+)[,<[
Z,<,<$7D;[Z-,+(ZBB3B+([ZZBB3B+(ZBB,,>5,>[ZZBB,.Bx,^/0"+(Z,<Z,<,<C,<C&D,<[ZZ,<,<D$DDED;[ ,<[$Z[ZD;+Z%,~[(,<Zp-,+,+4,<@: +2Zg,<Z.,<,<$7D;,~[pXBp+*/Z),~?
@(U8<((VARIABLE-VALUE-CELL X . 361)
(VARIABLE-VALUE-CELL BUSY . 265)
GLUNWRAP
ERROR
QUOTE
GO
*
PROG2
PROGN
(VARIABLE-VALUE-CELL Y . 351)
RPLACA
GLEXPANDPROGN
PROG1
FUNCTION
MAP
MAPC
LAMBDA
PROG
GLUNWRAPPROG
COND
GLUNWRAPCOND
SELECTQ
GLUNWRAPSELECTQ
GLPURE
GLCARCDR?
NCHARS
1
-2
SUBSTRING
2
PACK*
(IUNBOX!SKLSTBHCiKT KNIL SKNA SKNLST ENTERF)pP
hM@ 
9`|&`8xP@ax*@
GLUNWRAPCOND BINARY
#"-.[,<Zp-,++Zp,<@Z+Z,<Z,<,<$D[,<Zp-,+
B!,~[pXBp+/Z,~eP$XH@(VARIABLE-VALUE-CELL X . 59)
(VARIABLE-VALUE-CELL BUSY . 35)
(VARIABLE-VALUE-CELL Y . 52)
GLUNWRAP
RPLACA
(VARIABLE-VALUE-CELL Z . 38)
GLEXPANDPROGN
(BHC KNIL KT SKNLST ENTERF)``0X

GLUNWRAPPROG BINARY
706-.0@1,~Z2B+ZB1XB3B+Z-,+ZZ2B2+Z[Z-,+Z,<,<2$3,<,<$3+Z
,<Z[ZD4[!Zp,<@4 + Z-,+[,<[Z,<,<$5D4,~[pXBp+/[[,<Zp-,+%+-,<@4 ++Z,<Z',<,<$5D4,~[pXBp+#/["[B5Z-,~)f$5@(VARIABLE-VALUE-CELL X . 94)
(VARIABLE-VALUE-CELL BUSY . 6)
(NIL VARIABLE-VALUE-CELL LAST . 36)
LAST
RETURN
2
NLEFT
RPLACD
RPLACA
(VARIABLE-VALUE-CELL Y . 81)
GLUNWRAP
GLEXPANDPROGN
(BHCKTSKNLSTSKASKLSTKNIL ENTERF).(pP
GLUNWRAPSELECTQ BINARY
*%)-.%[,<[Z,<,<$&D'[[,<Zp-,+	+$,<@' +"[3B+Z[,<Zp-,++,<@( +Z,<Z,<Z3B+[2B+7Z+ZD&D',~[pXBp+/Z

[B(,~Z,<Z,<ZD&D',~[pXBp+/Z,~Hb(VARIABLE-VALUE-CELL X . 73)
(VARIABLE-VALUE-CELL BUSY . 65)
GLUNWRAP
RPLACA
(VARIABLE-VALUE-CELL Y . 63)
(VARIABLE-VALUE-CELL Z . 43)
GLEXPANDPROGN
(BHC KNIL SKNLST KT ENTERF)PX


GLUSERFN BINARY
-.@,~ZXBZXBZ2B+ZB,~Z,<Z[[[[ZD3B+,<Z	[[ZDXB3B+[,<Z,<Z,< ",,~[XB+@(VARIABLE-VALUE-CELL EXPR . 38)
(VARIABLE-VALUE-CELL GLUNITPKGS . 8)
(VARIABLE-VALUE-CELL CONTEXT . 40)
(NIL VARIABLE-VALUE-CELL FNNAME . 16)
(NIL VARIABLE-VALUE-CELL TMP . 36)
(NIL VARIABLE-VALUE-CELL UPS . 46)
GLUSERFNB
MEMB
UNITFN
ASSOC
(EVCCKNIL ENTERF)h 
GLUSERFNB BINARY
'%-.@  ,~Z,<[XB,\XBZ2B+ZB"XBZB"XB	ZZ,,<Z
,<Z
D#,,~,<Z,<,<&#2B+,<$,<$Z,<,D%,<ZXB,\XB3B+ZZ,XB[ZZ
(VARIABLE-VALUE-CELL CONTEXT . 32)
(NIL VARIABLE-VALUE-CELL ARGS . 54)
(NIL VARIABLE-VALUE-CELL ARGTYPES . 59)
(NIL VARIABLE-VALUE-CELL FNNAME . 25)
(NIL VARIABLE-VALUE-CELL TMP . 55)
DREVERSE
GLRESULTTYPE
GLDOEXPR
GLUSERFNB
"Function call contains illegal item.  EXPR ="
GLERROR
(LIST2 KT ALIST2 CONS KNIL ENTERF)` x`Hxx
GLVALUE BINARY
-. @,~Z,<Z,<ZFXB3B+	,<ZD,~Z,<,<ZFXB3B+Z,<Z	,<,,<Z

,<,<ZHXBZ,~Z,~HR (VARIABLE-VALUE-CELL SOURCE . 27)
(VARIABLE-VALUE-CELL PROP . 22)
(VARIABLE-VALUE-CELL TYPE . 29)
(VARIABLE-VALUE-CELL DESLIST . 10)
(VARIABLE-VALUE-CELL CONTEXT . 36)
(NIL VARIABLE-VALUE-CELL TMP . 39)
(NIL VARIABLE-VALUE-CELL PROPL . 33)
(NIL VARIABLE-VALUE-CELL RESTYPE . 0)
GLSTRFN
GLSTRVAL
PROP
GLSTRPROP
GLCOMPMSG
(LIST2KNIL ENTERF)(
GLVARTYPE BINARY
@

,~Z,<ZD

XB3B+
[[Z2B+
ZZ,~

(VARIABLE-VALUE-CELL VAR . 6)
(VARIABLE-VALUE-CELL CONTEXT . 8)
(NIL VARIABLE-VALUE-CELL TMP . 13)
GLFINDVARINCTX
*NIL*
(KNIL ENTERF)0	h
GLXTRTYPE BINARY
-.Z-,+,~-,+Z,<,<,DZ,~*d (He(VARIABLE-VALUE-CELL TYPE . 45)
(VARIABLE-VALUE-CELL GLTYPENAMES . 28)
GL-A-AN?
TRANSPARENT
MEMB
GLXTRTYPE
"is an illegal type specification."
GLERROR
(LIST2 KNIL SKLST SKA ENTERF) 	hH(0
(PRETTYCOMPRINT GLISPCOMS)
(RPAQQ GLISPCOMS ((FNS GL-A-AN? GLADDRESULTTYPE GLADDSTR GLADJ GLAMBDATRAN 
GLANDFN GLATMSTR? GLBUILDALIST GLBUILDCONS GLBUILDLIST GLBUILDNOT GLBUILDSTR 
GLCARCDR? GLCOMP GLCOMPCOMS GLCOMPILE GLCOMPMSG GLCOMPOPEN GLCONST? GLCONSTSTR? 
GLCONSTVAL GLDECL GLDECLDS GLDEFPROP GLDEFSTR GLDEFSTRQ GLDEFUNITPKG GLDELDEF 
GLDOA GLDOCOND GLDOEXPR GLDOFOR GLDOIF GLDOLAMBDA GLDOMAIN GLDOMSG GLDOPROG 
GLDOPROGN GLDOPROG1 GLDOREPEAT GLDORETURN GLDOSELECTQ GLDOSEND GLDOSETQ GLDOTHE 
GLDOVARSETQ GLDOWHILE GLED GLEQUALFN GLERR GLERROR GLEXPANDPROGN GLFINDVARINCTX 
GLGETASSOC GLGETD GLGETDEF GLGETFIELD GLGETFROMUNIT GLGETPAIRS GLGETSTR GLIDNAME
 GLIDTYPE GLINIT GLINITLAMBDATRAN GLLISPADJ GLLISPISA GLMAKESTR GLMKLABEL 
GLMKVAR GLNCONCFN GLNEQUALFN GLOKSTR? GLOPERAND GLOPERATOR? GLORFN GLPARSEXPR 
GLPARSFLD GLPARSNFLD GLPLURAL GLPOPFN GLPREC GLPREDICATE GLPRETTYPRINTSTRS 
GLPROGN GLPURE GLPUSHEXPR GLPUSHFN GLPUTFN GLPUTUPFN GLPUTPROPS GLREDUCE 
GLREDUCEARITH GLREDUCEOP GLREMOVEFN GLRESULTTYPE GLSEPCLR GLSEPINIT GLSEPNXT 
GLSKIPCOMMENTS GLSTRFN GLSTRPROP GLSTRVAL GLSTRVALB GLSUBATOM GLTHE 
GLTRANSPARENTTYPES GLTRANSPB GLUNITOP GLUNIT? GLUNWRAP GLUNWRAPCOND GLUNWRAPPROG
 GLUNWRAPSELECTQ GLUSERFN GLUSERFNB GLVALUE GLVARTYPE GLXTRTYPE) (P (GLINIT)) (
GLOBALVARS GLQUIETFLG GLSEPBITTBL GLUNITPKGS GLSEPMINUS GLTYPENAMES 
GLBREAKONERROR) (SPECVARS CONTEXT START EXPR VALBUSY FAULTFN GLSEPATOM GLSEPPTR 
GLTOPCTX RESULTTYPE RESULT GLNATOM FIRST OPNDS OPERS GLEXPR DESLIST EXPRSTACK) (
VARS GLTYPENAMES) (FILEPKGCOMS GLISPOBJECTS) (DECLARE: DONTEVAL@LOAD 
DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA GLDEFSTRQ) (NLAML) (LAMA)))
))
(GLINIT)
(RPAQQ GLTYPENAMES (CONS LIST RECORD TYPERECORD ASSOCRECORD PROPRECORD 
ARRAYRECORD HASHLINK DATATYPE ATOMRECORD LISTOF ALIST ATOM))
(FILEPKGCOM (QUOTE GLISPOBJECTS) (QUOTE MACRO) (QUOTE (GLISPOBJECTS (E (
GLPRETTYPRINTSTRS (QUOTE GLISPOBJECTS))))))
(FILEPKGTYPE (QUOTE GLISPOBJECTS) (QUOTE DESCRIPTION) (QUOTE 
"GLISP Object Definitions") (QUOTE GETDEF) (QUOTE GLGETDEF) (QUOTE DELDEF) (
QUOTE GLDELDEF))
NIL