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

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

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

(FILECREATED "24-SEP-81 21:33:53" ("compiled on " <LISPUSERS>CIRCLPRINT.;3) (2 
. 3) bcompl'd in WORK dated NOBIND)
(FILECREATED "30-MAY-79 00:25:14" <LISPUSERS>CIRCLPRINT.;3 20335 changes to: 
CIRCLPRINTCOMS previous date: " 5-JUL-78 19:49:27" <LISPUSERS>CIRCLPRINT.;2)

CIRCLBLOCK BINARY
h.W-..-.@/H39@H@6+Zw,<8,Z3B+g3B8+3,<,<9$92B:+3,<w~,<:$92B;+3,<w~,<;,<<&<B=XBw-,+3,<ZD=XBp3B+(,<w}[wD>+i,<wZ
D=XBp3B+.[pZ,<,<w}$>+iZ(,<,<w~Zw|,,<,<,D>XB.+iZw~3B?+i3B?+i,<,<9$92B?+i,<w~,<:$92B?+i,<w~,<;,<<&<B=XBw-,+i,<Z#D=3B+C,<w~,<@$8+i[w}-,+e,<w}[w}ZD>,<w}[w}[D@Z?,<Zw~Zw},D>XBI,<wZ2D=XBp3B+c,<ZMDAXBP[pZ,<Zp-,+U+YZp,<,<p,<w|$>/[pXBp+S/[p[Z,<Zp-,+^+bZp,<,<p,<w|$@/[pXBp+\/,<w},Zw}+,<w~,<A$8+i-,+i,<,Zw~3B+-,+3B8+,<,<9$92B:+,<w~,<:$92B;+,<w~,<;,<<&<B=XBw-,+,<ZLD=XBp3B+z,<w}[wD@+d,<wZQD=XBp3B+[p[Z,<,<w}$>+dZ{,<,<w,<Zw|,,D>XB+d,<w~,<9$92B?+dZw~3B?+d3B?+d,<,<:$92B?+d,<w~,<;,<<&<B=-,+d,<w~,<B$8+d-,+d,<,+d,,~-.BZ,<@C +8Z,<,<E,<E,<@F`+1ZZGXB,<H,<H"H,,Z,XB"@I+/Zw,<8Z,<,9ZwZ83B++,<8,@+,,<8,Zw,<8,HZ,~Zw~XB8Z,~3B+3Z+3Z8XB`DIZ`3B+7 J,~Z`,~Z`,~,:,~-.JZ&2B+>Z"XB;,<`,R,~@K+GZXB LXBZw~,<8,<M,' MZ,~+Zp-,+QZpZZ2B+Q,<pZw[ZDNZp,<,H[p,<,HZ+,<Zw-,+^ZwXBp-,+cZpZJ2B+_[p[2B+^,<p =.",XB[,DNZ+,<wZW,<,<w,D>,<p,R+f,<wZ_,<,<,D>[w,<,R+Zp3B+Zp[,3b-+vZp[,,>.,> O, ,^//,BOZpZBPZp,<,<:$P[p,<,h+ MZB,<,h M M,<w,<w,#+ C,>.,> O, ,^//,,~Z,<@C +#Z#,<,<Q,<E,<@F`+ZZGXB@Q+ L,/",XB},<L ."(,BL,,Z,XBZw~,<8,<M,# MZy,<,h MZ,~Zw~XB8Z,~3B+Z+Z8XB`DIZ`3B+" J,~Z`,~+,<,<,<,<,<,<,<,<,<,<,}XBp,0"+-,<wz,<wz,x+%Zwz-,+2Zwz-,+2ZwzZZd3B+4,<R"8+%Zwz[[XBw{3B+MZw{XBw|3B+MZw|Z7[ZZ1H+>2D+:3B+M p,>.,>^",>.,>,<w|,",.Bx,^/ ,^/2"+I,<wz,<wz,x+&,<:"P,<w|"P,<;"P+%Zw{3B+Y p,>.,>^",>.,>,<w|,"XBw,.Bx,^/ ,^/2"+Y,<wz,<wz,x+%Zw{3B+_Z9,<Zw{@O,,DNXB[Zw{2BM+a,<S"PZw{3B+gZw0B+fZw{3BM+g,<w"OZwz[ZXBw|-,+kBS+}ZwzZw|2B+{,},,>.,>^",>.,> w.Bx,^/ ,^/2"+x MZ^,<,h M M,<:"PZw{BP,<;"P+},<w|,<M,#[wz2B+,<T"P+%[wz-,+,<T"P,<9"O[wzBS,<T"P+%[wzZ[[XBw~3B+"Zw~Zu7[ZZ1H+2D+3B+",},,>.,>^",>.,>Zw~,<,",.Bx,^/ ,^/2"+ MZ
,<,h M M,<U"P,<9"O,<:"PZw~BP,<;"P,<T"P+%,<9"O[wz,<,<U,#Z/,~,<,<,<,<,<,<,<,<,<,},0"+. MZw{-,+ Zw{ZZ13B+3,<V"8+ Zw{[[XBw|3B+IZw|XBw|3B+I,<,"XBp3B+IZw|Z,3B+I,},,>.,>^",>.,> p.Bx,^/ ,^/2"+F M,<:"P,<w|"P,<;"P+ Zw|3B+T,},,>.,>^",>.,> p.Bx,^/ ,^/2"+S MZXBw}Zw}3B+XZ;,<,<w{$NXBVZw{2BM+[,<S"PZw}3B+`,<?"PZw|BP,<?"P,<9"OZw{[ZXBw}-,+sZw{Zw}2B+q,},,>.,>^",>.,> p.Bx,^/ ,^/2"+n M,<:"PZw|BP,<;"P+t,<w},<M,'+tBS[w{XBw~-,+[w{Z[[XBw~3B+}Zw~ZX,3B+}ZXBw+~ZXBwZXBw+ZXBwZw~3B+,<9"OZw3B+Zw3B+Zw~XBw|,},,>.,>^",>.,>,<w|,",.Bx,^/ ,^/2"+ M,<V"P,<9"O,<:"PZw~BP,<;"P,<T"P+ ,<w~,<U,'+ Zw~2B+,<T"P+ ,<V"P,<9"O,<w~"S,<T"PZ/,~ p0"+$Z"+ p0"2+'Z"+ p0"t+)Z"+ p0"'+,Z"+,<W"8+~R<o=rIIW=wI." DH

B%^{dII/=w.Z%W-LHJ# DD`H

(	'%
5+@9@-0LHxUy$@dZ >v<}pR?oy@C$wMOx${oH!dJH~~s}`B&(CIRCLBLOCK#0 . 1)
(VARIABLE-VALUE-CELL LABELIST . 236)
(VARIABLE-VALUE-CELL REFLIST . 266)
(VARIABLE-VALUE-CELL LISPXHIST . 519)
(VARIABLE-VALUE-CELL RESETVARSLST . 552)
(VARIABLE-VALUE-CELL CIRCLMARKER . 865)
(VARIABLE-VALUE-CELL RLKNT . 441)
(VARIABLE-VALUE-CELL PLACELIST . 1012)
(VARIABLE-VALUE-CELL LL . 544)
CIRCLPRINT
CIRCLMARK
RLPRIN1
RLPRIN2
RLRESTORE
CIRCLMAKER
CIRCLMAKER1
(NIL VARIABLE-VALUE-CELL LABELIST . 0)
(NIL VARIABLE-VALUE-CELL REFLIST . 0)
"LABEL NOT FOUND FOR REFERENCE"
ERROR
{}
1
NTHCHAR
{
-1
}
2
-2
SUBSTRING
MKATOM
ASSOC
/RPLACA
/NCONC1
*
**
"IS AMBIGUOUS, MULTIPLY USED LABEL"
/RPLACD
/DREMOVE
"IS MISPLACED LABEL"
"IS MISPLACED LABEL"
*CIRCLPRINT*
((UNBOXED-NUM . 3) VARIABLE-VALUE-CELL RLKNT . 0)
(VARIABLE-VALUE-CELL LISPXHIST . 0)
NIL
NIL
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
RADIX
10
(NIL VARIABLE-VALUE-CELL #UNDOSAVES . 0)
RESETRESTORE
ERROR!
*CIRCLMARK*
((UNBOXED-NUM . 2) VARIABLE-VALUE-CELL RLKNT . 0)
(NIL VARIABLE-VALUE-CELL PLACELIST . 0)
(NIL VARIABLE-VALUE-CELL LL . 0)
LINELENGTH
CAR
TERPRI
RPLACA
NCONC
POSITION
SPACES
PRIN1
RPLACD
((DUMMY) . 0)
(NIL VARIABLE-VALUE-CELL PLACELIST . 0)
(NIL VARIABLE-VALUE-CELL LL . 0)
"UNCIRCLMARKED LIST STRUCTURE"
%(
PRIN2
%)
" ."
" ."
CDR
"UNCIRCLMARKED LIST STRUCTURE"
%.
"REENTRANT NODE HAS BEEN NUMBERD OVER 10000"
(FMEMB CONSS1 IUNBOX LIST2 URET2 MKN ASZ KT ALIST2 CF BINDB ALIST3 URET6 BHC 
SKNLST9CONS5LIST3CONSNLDSKISKASKLSTURET1fKNILBLKENTENTER1)?8=^)Dp$,H>?PT#@1(!0;P

XD Ahm=8R:E88'3.Hs*pU(pE  r

8a(X- ]
H"H$	@(+h`#H1X?0@(?h|?\:`K7X;765@+50*5 )5(5&1x1~,0[)h?'`9&p)%($x'$h&$X%$H!#`# 	 (S(G(=`3 / 8}j	xA +`8(8(

CIRCLPRINT BINARY
-.,<,~(L . 1)
(PRINTFLG . 1)
(VARIABLE-VALUE-CELL RLKNT . 0)
CIRCLPRINT
(NIL)
(LINKED-FN-CALL . CIRCLBLOCK)
(ENTERF)

CIRCLMARK BINARY
-.,<,~(L . 1)
(VARIABLE-VALUE-CELL RLKNT . 0)
CIRCLMARK
(NIL)
(LINKED-FN-CALL . CIRCLBLOCK)
(ENTERF)

RLPRIN1 BINARY
-.,<,~(L . 1)
RLPRIN1
(NIL)
(LINKED-FN-CALL . CIRCLBLOCK)
(ENTER1)

RLPRIN2 BINARY
-.,<,~(L . 1)
RLPRIN2
(NIL)
(LINKED-FN-CALL . CIRCLBLOCK)
(ENTER1)

RLRESTORE BINARY
-.,<,~(L . 1)
RLRESTORE
(NIL)
(LINKED-FN-CALL . CIRCLBLOCK)
(ENTER1)

CIRCLMAKER BINARY
-.,<,~(L . 1)
CIRCLMAKER
(NIL)
(LINKED-FN-CALL . CIRCLBLOCK)
(ENTER1)

CIRCLMAKER1 BINARY
-.,<,~(L . 1)
CIRCLMAKER1
(NIL)
(LINKED-FN-CALL . CIRCLBLOCK)
(ENTER1)
(PRETTYCOMPRINT CIRCLPRINTCOMS)
(RPAQQ CIRCLPRINTCOMS ((FNS CIRCLMAKER CIRCLMAKER1 CIRCLPRINT CIRCLMARK RLPRIN1
 RLRESTORE CSEARCH PLACEPRINT C2PRINT ROOMLEFT RLPRIN2 CPRINT CLPRINT CIRCLNC) 
(VARS CIRCLMARKER) (BLOCKS (CIRCLBLOCK CIRCLMAKER CIRCLMAKER1 CIRCLPRINT 
CIRCLMARK RLPRIN1 RLRESTORE CSEARCH PLACEPRINT C2PRINT ROOMLEFT RLPRIN2 CPRINT 
CLPRINT CIRCLNC (ENTRIES CIRCLPRINT CIRCLMARK RLPRIN1 RLPRIN2 RLRESTORE 
CIRCLMAKER CIRCLMAKER1) (SPECVARS RLKNT LABELIST REFLIST) (LOCALFREEVARS 
PLACELIST LL) (NOLINKFNS . T) (GLOBALVARS #UNDOSAVES RESETVARSLST)))))
(RPAQQ CIRCLMARKER "BEENHERE")
NIL