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

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

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

(FILECREATED "24-DEC-81 16:41:55" ("compiled on " <LISPUSERS>SMARTARG.;23) (2 . 2) brecompiled 
changes: SMARTARGLIST in "INTERLISP-MAXC " dated " 1-DEC-81 19:19:31")
(FILECREATED "24-DEC-81 00:39:26" <LISPUSERS>SMARTARG.;23 7072 changes to: SMARTARGLIST previous date:
 " 9-APR-81 22:04:45" <LISPUSERS>SMARTARG.;22)

SMARTARGLIST BINARY
l|-.(l,<,<Z`-,+Bp+Zq[`,XBw3B+[wZXBwZ3B+

Zw+Z`3B+[wZ+[w[+,<`"qXBpZ,<,<,<Zw-,+++ZXBp,<`DrXBw~3B+)Zw~3Br+2Bs+[w~Z+kZw~2B+ Z+kZw~-,+)Zw~Bs[3B+(Zw~,<,<tZw}Bs[,Dt+kZw~+k[wXBw+Zw~1B+-0B+0,<`"u3B+j+31B+20B+3Z`3B+j,<`ZDuXBw~3B+L,<`"v,,>l,>,<w~"v, ,^/3b+K,<w,<`"v,,>l,>,<`"v, ,^//4bJ,>l,>,<w}Zw,<[wXBw,\,Dw>`x5E//Zw~+kZ3B+S,<`[ZDxXBw~3B+S3B+R+kZ+kZw~1B+V0B+\,<`"v0B+YZx+k0B+[Zy+k0B+j+1B+^0B+a,<`"u3B+jZy+k2B+iZ3B+j,<`,<z,<,<z({XBw~3B+j[w~Z+k {,<`"p/+h BD^%i5TATA@(HK%.m+RY(FN . 1)
(EXPLAINFLG . 1)
(TAIL . 1)
(VARIABLE-VALUE-CELL COMPILERMACROPROPS . 36)
(VARIABLE-VALUE-CELL SMARTARGARRAY . 104)
(VARIABLE-VALUE-CELL MSHASHFILENAME . 152)
(VARIABLE-VALUE-CELL MSARGTABLE . 156)
(VARIABLE-VALUE-CELL FILELST . 197)
ARGLIST
ARGNAMES
ARGTYPE
GETPROP
LAMBDA
NLAMBDA
LAST
...
APPEND
SUBRP
SGETHASH
NARGS
LENGTH
((X Y Z P D Q) . 0)
NCONC
GETTABLE
((X Y) . 0)
((X) . 0)
((X1 X2 ... Xn) . 0)
FNS
1
GETDEF
SHOULDNT
(KT CONSNL BHC IUNBOX ASZ ALIST2 SKLST SKNLST FMEMB URET2 SKNLA KNIL ENTER3)RIl	8K8<Bx;h]@ZV
P2-HXp

X@

(`
8Q	X68/@ pHX(
(PRETTYCOMPRINT SMARTARGCOMS)
(RPAQQ SMARTARGCOMS ((FNS SMARTARGLIST) (FILEVARS SMARTARGLIST) (FILES (SYSLOAD FROM VALUEOF 
LISPUSERSDIRECTORIES) SWAPHASH) (P (OR (BOUNDP (QUOTE SMARTARGARRAY)) (PROG ((ARR (SHARRAY 512))) (
MAPC SMARTARGLIST (FUNCTION (LAMBDA (X) (MAPC (CDR X) (FUNCTION (LAMBDA (F) (SPUTHASH F (CAR X) ARR)))
)))) (RPAQ SMARTARGARRAY ARR)))) (LOCALVARS . T)))
(RPAQQ SMARTARGLIST (((A) OPENR ARRAYBEG) ((A N) ELT ELTD CLOSER) ((ADDRESS N) RELBLK) ((ATM) 
GETTOPVAL GETATOMVAL) ((ATM VAL) SETTOPVAL SETATOMVAL) ((ATOM POS) FRAMESCAN) ((BLIPTYP IPOS) BLIPSCAN
) ((BLIPTYP IPOS FLG) BLIPVAL) ((BLIPTYP IPOS N VAL) SETBLIPVAL) ((CARN CDRN) PRINTLEVEL) ((DATUM) 
NTYP TYPENAME) ((FILE FLG) CLEARBUF READP) ((FILE ADR) SETFILEPTR) ((FILE RDTBL FLG) READ) ((FILE 
RDTBL) PEEKC) ((FILE ACCESS) OPENP OPNJFN) ((FILE N) POSITION) ((FILE) GETEOFPTR OUTFILEP GETFILEPTR 
INFILEP IOFILE INPUT SYSIN LASTC TERPRI INFILE OUTPUT READC OUTFILE) ((FILE OPENFBITS GTJFNBITS) OPENF
) ((FILE RDTBL) RATOM RSTRING) ((FLG TTBL) RAISE ECHOMODE) ((FLG) SETREADMACROFLG READMACROS ESCAPE 
CLEARSTK LINBUF SYSBUF) ((FLG RDTBL) CONTROL) ((FN) SUBRP CCODEP MAPATOMS ARGTYPE EXPRP SCODEP) ((FN 
ARGS APOS CPOS AFLG CFLG) ENVAPPLY) ((FN ARGS -) APPLY BLKAPPLY) ((FN DEF) PUTD) ((FORM APOS CPOS AFLG
 CFLG) ENVEVAL) ((FORM FLG -) ERRORSET) ((FORMATBITS) DATE) ((FRAMENAME N IPOS OPOS) STKPOS) ((FROMPTR
 TOPTR VAL) RESUME) ((HARRAY) CLRHASH) ((IPOS EPOS FLAGS FILE PRINTFN) BACKTRACE) ((ITEM VAL HARRAY) 
PUTHASH) ((ITEM HARRAY) GETHASH) ((LST FLG RDTBL) SETSEPR SETBRK) ((MESSAGE# STRING) GCMESS) ((MODE 
RDTBL) CONTROL) ((N AC1 AC2 AC3 RESULTAC) JSYS) ((N POS VALUE) SETSTKARG) ((N POS) STKNTHNAME) ((N P V
) ARRAY SWPARRAY) ((N M) IEQP LLSH LSH) ((N POS NAME) SETSTKARGNAME) ((N FILE) SPACES) ((N POS) STKARG
 STKARGNAME) ((N) SETSBSIZE GCTRP CONSCOUNT CLOCK GETBLK RADIX CHARACTER LINELENGTH ERRORSTRING 
FCHARACTER HARRAY) ((N IPOS OPOS) STKNTH) ((NUM MESS) SETERRORN) ((OLDAR NEWAR) REHASH) ((POS VAL FLG)
 RETTO RETFROM) ((POS) STKNAME RELSTK STKNARGS) ((POS NAME) SETSTKNAME) ((POS1 POS2) COPYSTK) ((RDTBL 
FROM) RESETREADTABLE) ((RDTBL FLG) SETREADTABLE) ((RDTBL) GETBRK READTABLEP COPYREADTABLE GETSEPR 
GETREADTABLE) ((STRING) HERALD) ((TTBL FROM) RESETTERMTABLE) ((TTBL) COPYTERMTABLE SETTERMTABLE 
GETTERMTABLE TERMTABLEP) ((TYPE N) BOXCOUNT) ((VAR M) ARG) ((VAR M X) SETARG) ((VAR IPOS OPOS) STKSCAN
) ((VAR X) SETN) ((X N Y) RPLSTRING) ((X N FLG RDTBL) NTHCHAR) ((X A) EVALA) ((X FILE RDTBL) PRIN4 
PRIN2 PRINT) ((X FLG RDTBL) NCHARS CHCON UNPACK) ((X POS) EVALV) ((X FILE) PRIN3 PRIN1) ((X N M OLDPTR
) SUBSTRING) ((X -) EVAL) ((X) GO DECLARE PACK*) ((VARLST E1 E2 ... En) PROG RESETVARS) ((FN ARG1 ARG2
 ... ARGn) APPLY* BLKAPPLY*) ((C1 C2 ... Cn) COND)))
(FILESLOAD (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) SWAPHASH)
(OR (BOUNDP (QUOTE SMARTARGARRAY)) (PROG ((ARR (SHARRAY 512))) (MAPC SMARTARGLIST (FUNCTION (LAMBDA (X
) (MAPC (CDR X) (FUNCTION (LAMBDA (F) (SPUTHASH F (CAR X) ARR))))))) (RPAQ SMARTARGARRAY ARR)))
NIL