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

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

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

(FILECREATED "18-NOV-81 22:31:41" ("compiled on " <LISPUSERS>PERFORMTRAN.;8) (2 . 2) brecompiled 
explicitly: PERFORMTRAN in "INTERLISP-MAXC " dated "18-NOV-81 22:01:03")
(FILECREATED " 4-SEP-81 21:44:36" <LISPUSERS>PERFORMTRAN.;8 5085 changes to: PERFORMTRANCOMS 
PERFORMTRAN PT.RECREDECLARE1 previous date: "30-AUG-81 22:20:11" <LISPUSERS>PERFORMTRAN.;7)
PERFORMOPSTRAN BINARY
$ #-. [`Z-,77+[`XB`Z,Z!,,<,<!,<",,<,<!,<![`,<,<Zw-,+ZpZ2B+ "+[QD "+Zw,<Zp,<[w3B+3B+-,+,<",<,,/Zp,XBp[wXBw+

/,,D#,~!A
 +(DECL . 1)
ACCESSFNS
PERFORMOPS
DATUM
QUOTE
NCONC
(ALIST3 COLLCT BHC ALIST2 SKNNM SKNLST LIST2 CONS21 CONSNL KT KNIL SKLA ENTER1)xHp 0`(
Hhx

PERFORMTRAN BINARY
sZp-. ZZ`3B+Z]Z`,XB`Z`2B+Z,<[`Z,<@^@
,~Z`-,+,<,<aZp2B++" p.",XBp,<`,<,<a,<`FbXBw3B+ w/",+ZFbXBwZw3B+,<Zw,XBw~,\QB+!Zw,XBwXBw~+Zw~/XB`BcXB`ZXB`,<c,<`$d,<d,<,<@e`+-ZZfXBZw~,<8"g+ZXB`2B+8,<`ZDg[XB`3B+8Z3B+8,<hZ,<,<h&i,<,<$iZ32B+BZ`-,+B,<jZ5,<,<j&i,<,<$iZw,<8,<$k kZwZ82B+I[8[,<Zw~,<8,<,<,<Z<LlZ`,<Zw~[8[,<[`BlFmXB`ZwZ83B+U,<m,<`,<nZ`-,+TZn,,,~Z3B+X,<8,<]$oZw,<8,<`$o,~&"$&dLd1 4`X(FORM . 1)
(MASTERSCOPEFLAG . 1)
(VARIABLE-VALUE-CELL DWIMESSGAG . 113)
(VARIABLE-VALUE-CELL PERFORMOPS . 96)
(VARIABLE-VALUE-CELL FAULTFN . 144)
(VARIABLE-VALUE-CELL LCASEFLG . 170)
perform
(VARIABLE-VALUE-CELL DWIMESSGAG . 0)
(0 . 1)
NIL
NIL
NIL
APPEND
0
"."
STRPOS
SUBATOM
LAST
PERFORMOPS
ATTACH
((DUMMY) . 0)
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
RECORDACCESS
ASSOC
"{in "
"}  Using global perform definition
"
CONCAT
LISPXPRIN1
" {in "
"}  Undefined PERFORM operator in form
	"
LISPXPRINT
ERROR!
DWIMIFY0?
MKPROGN
SUBPAIR
fetch
of
ppe
RPLACA
CLISPTRAN
(ALIST4 SKNLST KT CF BHC CONSNL MKN SKLST CONS KNIL ENTER2)US8?08
H.0@P
hP	HxD 40/(@pp`0
PT.RECREDECLARE1 BINARY

-.Z`3B
+2B
+,<`,<ZF,~,<`,<`$,~D (TRAN . 1)
(ORIG . 1)
(VARIABLE-VALUE-CELL CLISPARRAY . 10)
perform
PERFORM
/PUTHASH
PT.OLDRECREDECLARE1
(KNIL ENTER2)X
(PRETTYCOMPRINT PERFORMTRANCOMS)
(RPAQQ PERFORMTRANCOMS ((LOCALVARS . T) (FNS PERFORMOPSTRAN PERFORMTRAN PT.RECREDECLARE1) (P (MOVD? (
QUOTE RECREDECLARE1) (QUOTE PT.OLDRECREDECLARE1)) (MOVD (QUOTE PT.RECREDECLARE1) (QUOTE RECREDECLARE1)
)) (PROP CLISPWORD PERFORM perform) (ADDVARS (CLISPRECORDTYPES PERFORMOPS) (PERFORMOPS)) (P (MOVD (
QUOTE RECORD) (QUOTE PERFORMOPS)) (SETTEMPLATE (QUOTE PERFORM) (QUOTE (MACRO ARGS (PERFORMTRAN ARGS T)
))) (SETTEMPLATE (QUOTE perform) (GETTEMPLATE (QUOTE PERFORM))) (SETSYNONYM (QUOTE PERFORM) (QUOTE 
FETCH) T) (SETSYNONYM (QUOTE PERFORMS) (QUOTE FETCHES) T) (SETSYNONYM (QUOTE PERFORMING) (QUOTE 
FETCHING) T) (SETSYNONYM (QUOTE PERFORMED) (QUOTE FETCHED) T)) (PROP USERRECORDTYPE PERFORMOPS)))
(MOVD? (QUOTE RECREDECLARE1) (QUOTE PT.OLDRECREDECLARE1))
(MOVD (QUOTE PT.RECREDECLARE1) (QUOTE RECREDECLARE1))
(PUTPROPS PERFORM CLISPWORD (PERFORMTRAN . perform))
(PUTPROPS perform CLISPWORD (PERFORMTRAN . perform))
(ADDTOVAR CLISPRECORDTYPES PERFORMOPS)
(ADDTOVAR PERFORMOPS)
(MOVD (QUOTE RECORD) (QUOTE PERFORMOPS))
(SETTEMPLATE (QUOTE PERFORM) (QUOTE (MACRO ARGS (PERFORMTRAN ARGS T))))
(SETTEMPLATE (QUOTE perform) (GETTEMPLATE (QUOTE PERFORM)))
(SETSYNONYM (QUOTE PERFORM) (QUOTE FETCH) T)
(SETSYNONYM (QUOTE PERFORMS) (QUOTE FETCHES) T)
(SETSYNONYM (QUOTE PERFORMING) (QUOTE FETCHING) T)
(SETSYNONYM (QUOTE PERFORMED) (QUOTE FETCHED) T)
(PUTPROPS PERFORMOPS USERRECORDTYPE PERFORMOPSTRAN)
NIL