Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0004/printl.com
There are no other files named printl.com in the archive.
(FILECREATED "29-NOV-81 15:05:10" ("compiled on " <LISPUSERS>PRINTL.;21) (2 . 2) brecompiled 
explicitly: PRINTL in "INTERLISP-MAXC " dated "23-NOV-81 22:44:43")
(FILECREATED "25-MAY-81 22:51:02" <LISPUSERS>PRINTL.;20 4848 changes to: PRINTL previous date: 
"30-MAY-79 00:25:56" <LISPUSERS>PRINTL.;19)

PRINTL BINARY
E<-.(-.P-.
Z-,+Zb!XBZ-,+	ZXBZ-,+,<Zd",/",XB	Z2B+Z+b#2B+Z,<,<$,<%%XB .",,<Z,<@&@,~ /",XB(ZpZ8-,+2Z,<Zp3B+"b)XBpZ,<,<*,<+,<, .",,<,<,,<-,<.Zp3B++b)/Zp,<8 .",,<,</Z,</,N,?+=Z/,<Zp3B+6b)XBpZ-,<,<*,<+Zw,<8,<.Zp3B+<b)/Z2b/Z,~Z3B+MZ=,<Zp3B+Db)XBpZ,<,<,<+,<0,<.Z?,<,<.Zp3B+Lb)/ZXBH,~-.1@2,~Z@,<Zp3B+Tb)XBpZ6,<,<*,<+,<3,<.Zp3B+Zb)/Zp,<8,<,<ZwXBpZp-,+_+5 %.",XB_,<pd4Zp-,+ZpZ,XB`3B+j,<5,<,<5,,<,g+Zw~ 8,>,> 	 ,^/3b+q,<6,J+ZpZw~Z83B+,?ZP,<Zp3B+wb)XBpZ",<,<*,<+,<6Za,<,<,,<7,<.Zp3B+b)/ZpZw~Z82B+ z.",XBM+ZXB,/",XBZp,<Ztb!,,>,>  ,^/2"+ T.",+ w.",,<Zw} 8.",,<,NZXB+Zp,<,J[p3B+4[p-,+&Z	,<Zp3B+b)XBp,<7,<.[w,<,<.Zp3B+%b)/+4[pZ,XB`3B+4Z,<Zp3B+,b)XBp,<8,<.,<`,<.,<8,<.Zp3B+3b)/+6[pXBp+]Zw/Z)b!,.",>,> 
,,^/2"+>,<9Z6d.+I,?Z=,<Zp3B+Bb)XBpZ,<,<*,<+,<9,<.Zp3B+Hb)/Z,~Z?b!,,>,>,<p:,.BxZ3B+Q^"+Q^".Bx,^/,>,> 9 ,^/3"+b,?ZJ,<Zp3B+[b)XBp B.",,<,<*,<+Zp3B+`b)/ZXBNZa3B+e,<;ZWd.,<p.ZXBb+,<p,<,<*Zw-,+k+sZXBw p,>,>,<w:,.Bx,^/,XBp[wXBw+iZp/,<Zdb!,,>,>Zf3B+z p."+z p.Bx,^/,>,> T ,^/2"+Zw3B+
 Ij&AS&CLBB
05b (H@MaA&"(ITEM . 1)
(VARIABLE-VALUE-CELL LIMIT . 217)
(VARIABLE-VALUE-CELL LMARG . 290)
(VARIABLE-VALUE-CELL RMARG . 506)
(VARIABLE-VALUE-CELL FILE . 547)
(VARIABLE-VALUE-CELL PRINTLLIMIT . 17)
(VARIABLE-VALUE-CELL CLOSELEVEL . 268)
(VARIABLE-VALUE-CELL FILE . 0)
(VARIABLE-VALUE-CELL RM . 136)
(VARIABLE-VALUE-CELL N . 272)
(VARIABLE-VALUE-CELL LIMIT . 0)
(VARIABLE-VALUE-CELL LMARG . 0)
(VARIABLE-VALUE-CELL RMARG . 0)
(VARIABLE-VALUE-CELL SPACE . 555)
(VARIABLE-VALUE-CELL INDENT . 527)
*PRINTL*
((UNBOXED-NUM . 2) VARIABLE-VALUE-CELL LIMIT . 0)
((UNBOXED-NUM . 3) VARIABLE-VALUE-CELL LMARG . 0)
((UNBOXED-NUM . 4) VARIABLE-VALUE-CELL RMARG . 0)
((UNBOXED-NUM . 5) VARIABLE-VALUE-CELL FILE . 0)
(NIL)
(LINKED-FN-CALL . POSITION)
(NIL)
(LINKED-FN-CALL . LINELENGTH)
(NIL)
(LINKED-FN-CALL . OPENP)
OUTPUT
NEW
(NIL)
(LINKED-FN-CALL . OPENFILE)
(VARIABLE-VALUE-CELL INDENT . 0)
(VARIABLE-VALUE-CELL RM . 0)
(1 VARIABLE-VALUE-CELL CLOSELEVEL . 0)
(0 VARIABLE-VALUE-CELL N . 0)
(NIL)
(LINKED-FN-CALL . CLRHASH)
(NIL)
(LINKED-FN-CALL . OUTPUT)
0
(NIL)
(LINKED-FN-CALL . TAB)
((FIX . 10738204682) . 0)
(NIL)
(LINKED-FN-CALL . PRINTNUM)
":"
(NIL)
(LINKED-FN-CALL . PRIN1)
2
(NIL)
(LINKED-FN-CALL . TERPRI)
":"
*PRINTL1*
((UNBOXED-NUM . 2) VARIABLE-VALUE-CELL INDENT . 0)
NIL
(NIL VARIABLE-VALUE-CELL CLOSELEVEL . 0)
(NIL VARIABLE-VALUE-CELL SPACE . 0)
"("
(NIL)
(LINKED-FN-CALL . PUTHASH)
{
}
{--}
((FIX . 10738204682) . 0)
":"
" . "
" . {"
"}"
")"
")"
(NIL)
(LINKED-FN-CALL . NCHARS)
" "
" "
(URET2URET1SKALIST3GETHSHSKNLSTBHCSKLSTKTMKNIUNBOXhKNIL@SKNNMBINDBoBLKENTENTERF)"x@
peP\X
hS	XK	 HhF0@p<(8P+(H!(@0X	p
GETPLVALUE BINARY
-.Z,<@ ,~Z`-,++
3B+
,<D[`XB`+Z`,~
r(VARIABLE-VALUE-CELL LISPXHISTORY . 3)
(0 . 1)
NIL
(NIL VARIABLE-VALUE-CELL X . 17)
%
GETPLVALUE
RETFROM
(KNIL SKNLST ENTER0) X
(PRETTYCOMPRINT PRINTLCOMS)
(RPAQQ PRINTLCOMS ((FNS GETPLVALUE CLOSELINE PRINTL PRINTL1 PRINTLATOM PRINTLATOMLIST) (BLOCKS (PRINTL
 PRINTL CLOSELINE PRINTL1 PRINTLATOM PRINTLATOMLIST (GLOBALVARS PRINTLLIMIT)) (NIL GETPLVALUE (
GLOBALVARS LISPXHISTORY))) (VARS PRINTLLIMIT) (LISPXMACROS PRNTL) (DECLARE: DONTCOPY EVAL@COMPILE (P (
RESETSAVE DWIMIFYCOMPFLG T)))))
(RPAQQ PRINTLLIMIT 4)
(ADDTOVAR LISPXMACROS (PRNTL (COND ((LISTP LISPXLINE) (COND ((NUMBERP (CAR LISPXLINE)) (APPLY (
FUNCTION PRINTL) (CONS (GETPLVALUE) LISPXLINE))) (T (EVAL (CONS (FUNCTION PRINTL) LISPXLINE))))) (T (
APPLY* (FUNCTION PRINTL) (GETPLVALUE))))))
NIL