PDP-10 Archive: decus/20-0004/transo.com from decus_20tap1

Trailing-Edge - PDP-10 Archives - decus_20tap1_198111 - decus/20-0004/transo.com

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

(FILECREATED " 8-Jul-76 23:22:38" ("compiled on " <NEWLISP>TRANSOR.;1
<LEWIS>TSET.;1) (2 . 2))
(FILECREATED " 7-Jul-76 16:41:24" <LEWIS>TRANSOR.;1 34278 changes
to: TRANSORCOMS previous date: "19-FEB-76 00:55:58" <LISP>TRANSOR.;16)
(FILECREATED " 8-Jul-76 23:22:21" <LEWIS>TSET.;1 19333 changes to:
TXDUMP previous date: " 7-Jul-76 16:06:10" <NEWLISP>TSET.;1)
PRECHBLOCK BINARY
7%2-.%-.%x& ,<w&,<,<Zw~3B+	,<w},<,+
Zw},<,f,<,XBpZw3B+,<p'+,<p(),<w&Z+,<,<*,<[w~2B+Zw~,<,<+,Fb++Zw~,<Zp-,+Z+&Zp,<,<w/:w~Zp[w}Z2B7Z/3B+$Zp+&[pXBp+/XBwZw,5")+>Zw~Z-,+,Zw~Z+/Zw~Z,<,<,,FZp,XBpZw0B+2+>0B+:Zw~[Z-,+8Zw~[Z+8Z-Zp,XBp+>,<-,<,<-.b/Zp,XBp[w~,<,Zp,XBp[w3B+EZ0Zp,XBp,<p0+Zw-,+H+ZwZ2B+KZ1+ p0"+NZ-+,<w,<,<,<Zw~-,+RZw+eZw~,<>w}Zw},5"VZ0+X,<p,<w},F/XBpZw3B+^,<Zw,XBw,\QB+`Zp,XBwXBw,<w~Zw},4"c[p+cZ/XBw~+P/+,<Zw,<[wZ,<,3B+lZwZ+lZw,XBp[w,<Zp-,+p+,<[p2B+wZpZ3B+}ZpZw,XBw+}Zp,<[wZ,<,3B+}ZpZw,XBw/[pXBp+n/Zp+,<Zw-,+ 2+	,<, XBp,<,<w, ,\3B+	Zp+[w,<,<w,3B+

7H@@(@bA  :)E(PRECHBLOCK#0 . 1)
(VARIABLE-VALUE-CELL COMMENTFLG . 146)
PRECH
(NIL)
(LINKED-FN-CALL . OUTPUT)
(NIL)
(LINKED-FN-CALL . PRINTDEF)
(NIL)
(LINKED-FN-CALL . PRINT)
(NIL)
(LINKED-FN-CALL . TERPRI)
-2
4
(NIL)
(LINKED-FN-CALL . MKSTRING)
3
&
...
(NIL)
(LINKED-FN-CALL . CONCAT)
(NIL)
(LINKED-FN-CALL . MKATOM)
--
(NIL)
(LINKED-FN-CALL . DREVERSE)
"**COMMENT**"
HELP
(URET3 CONSNL URET2 ASZ CONS GUNBOX KT BHC SKNLST URET4 URET6 KNIL
BLKENT ENTER1)X	mx\#

hN	@I3 PvPAh:

U(~

`d'0" (p
H`+8p!0(@0t(j

pd(P
O0# `@`h(
PRECH BINARY
-. ,<,~(ECH . 1)
(OLDECH . 1)
(FILE . 1)
(PRTYFLG . 1)
PRECH
(NIL)
(LINKED-FN-CALL . PRECHBLOCK)
(ENTER4)
TRANSITBLOCK BINARY
z-.z-.zp;Z,<,<,<,;,<w[Z,<,Q3B+,<,<,<ZwXBw[,XB<,c3B+#,<,<$Z3B+-ZwZ#2B+-Zw-,++Z%,<,<,\2B+-,<	
+6Zw-,+/Z+6Zw-,+3Zw,<,<,k+6Zw-,+6Z+6ZXB3B+[Z6XDZ8+Z2B+

,<Zw3B+BZXBZpXBZ+PBp,>x,>@Z,^/2"+G+AZ,<Z?,<,<XZw+Y[pXBp+R+Z+,>x,>yZp-,+^7Z3B+a[pXBp:x+\,^/,+Zp-,+fZ+jZwZp2B+iZp+j[pXBp+c+Zw-,+w[wXBwZw-,+p[w-,+qZ+wZwZp2B+u[wZ+w[w[XBw+m+Z+?AxH^DLy$r@	@!)@Q$B(H@(TRANSITBLOCK#0 . 1)
(VARIABLE-VALUE-CELL L . 148)
(VARIABLE-VALUE-CELL CURRENTFORM . 31)
(VARIABLE-VALUE-CELL CONTINUEL . 33)
(VARIABLE-VALUE-CELL WHERETOGONEXT . 35)
(VARIABLE-VALUE-CELL OLDLENGTH . 40)
(VARIABLE-VALUE-CELL TRANSITL . 42)
(VARIABLE-VALUE-CELL LASTAIL . 50)
(VARIABLE-VALUE-CELL TRANSITAIL . 62)
(VARIABLE-VALUE-CELL STOPPEDUP . 80)
(VARIABLE-VALUE-CELL NLISTPCOMS . 93)
(VARIABLE-VALUE-CELL LAMBDACOMS . 106)
(VARIABLE-VALUE-CELL CURRENTCOMS . 113)
(VARIABLE-VALUE-CELL TRANSITCONSES . 115)
(VARIABLE-VALUE-CELL TESTRAN . 118)
(VARIABLE-VALUE-CELL WACHADID . 149)
(VARIABLE-VALUE-CELL WHENTODOIT . 158)
TRANSIT
WACHADOON
TRANSERROR
"The function TRANSIT reached a TAILP position; show Jim Goodwin."
((CURRENTFORM CURRENTCOMS) . 0)
(NIL)
(LINKED-FN-CALL . TRANSERR)
((ORR 2 NX !NX ((E (TRANSEXIT)))) . 0)
"The editor lost LASTAIL, and with it its sense of direction."
"Show Jim Goodwin."
HELP
((UP) . 0)
(NIL)
(LINKED-FN-CALL . ##)
PROCEED
(NIL)
(LINKED-FN-CALL . RETFROM)
XFORM
(((COMSQ (REMARK ILLCAR) DOTHESE)) . 0)
(NIL)
(LINKED-FN-CALL . CLOCK)
(NIL)
(LINKED-FN-CALL . PRECH)
(MKN KT BHC URET1 URET2 SKLST SKLA SKNLST CONS KNIL BLKENT ENTER1)

8O^

0Q	pFd
=yk8Z08oP

P]
@.pq

`_p[
PR @p<$p(h(
TRANSIT BINARY
-.,<,~TRANSIT
(NIL)
(LINKED-FN-CALL . TRANSITBLOCK)
(ENTER0)
WACHADOON BINARY
-.,<,~(FLG . 1)
WACHADOON
(NIL)
(LINKED-FN-CALL . TRANSITBLOCK)
(ENTER1)
TRANXTBLOCK BINARY
VHS-.H-.HIxM,<,<,<,<Z3B+
XBZXBZ+ZXBw~[Z,<,5XBwZ3B++)Zw~Z3B+%Z2BN++%Zw~-,+,<ZNZ,XBw,<,<O3B+ZwZ,XB+%Z-,+$,<ZNZw~,,<,<O3B+$ZXB+%ZPXB#ZZw~XDXBZ
XBZ$+B+.,<P,<Q,<QR+	Z',<[&Z,<,=2B+3ZS+ZXB(+%,>G,>HZp-,+87Z3B+;[pXBp:x+6,^/,+Zw3B+FZp-,+AZ+FZwZp2B+DZw+F[pXBp+?+Z+@1rA!@?c	"H(TRANXTBLOCK#0 . 1)
(VARIABLE-VALUE-CELL CONTINUEL . 12)
(VARIABLE-VALUE-CELL L . 95)
(VARIABLE-VALUE-CELL CONTINUETAIL . 16)
(VARIABLE-VALUE-CELL LASTAIL . 79)
(VARIABLE-VALUE-CELL TRANSITAIL . 93)
(VARIABLE-VALUE-CELL TRANSITL . 74)
(VARIABLE-VALUE-CELL OLDLENGTH . 82)
(VARIABLE-VALUE-CELL CURRENTFORM . 57)
(VARIABLE-VALUE-CELL WHERETOGONEXT . 104)
TRANXT
NLAMIT
==
(NIL)
(LINKED-FN-CALL . EDITFINDP)
NLAM
OUTOFBOUNDS
"Your transformations cheated and changed something out of bounds."
((CURRENTFORM CURRENTCOMS) . 0)
(NIL)
(LINKED-FN-CALL . TRANSERR)
((ORR !NX ((E (TRANSEXIT)))) . 0)
(URET2 URET1 BHC SKNLST MKN KT CONS SKLST URET4 KNIL BLKENT ENTER1)	G>=@xX+8 @P@)(xAp94(#( hX
TRANXT BINARY
-.,<,~TRANXT
(NIL)
(LINKED-FN-CALL . TRANXTBLOCK)
(ENTER0)
PRESCAN BINARY
>5<-.5ZB7B7,<Z,<,<$8B8B9,<@9@,~Z1B+
,<Z,<[2B+Z"F;,~[pXBp+/Z,Z"@,>4,>Z@,>4,>Z,Z@,>4,>Z7!. 4D&7a+(  x+"
`d+1+" ,>,XB

Z,<,<Z,<Z,< ",,^Z~4D"YE~+#/Z,B<Z-B<,~B@QB!D`
((VARIABLE-VALUE-CELL FILE . 7)
(VARIABLE-VALUE-CELL CHARLST . 26)
(VARIABLE-VALUE-CELL PRESCANFN . 85)
(VARIABLE-VALUE-CELL PRESCARRAY . 64)
INFILE
INPUT
NAMEFIELD
OUTFILE
OUTPUT
(VARIABLE-VALUE-CELL INF . 100)
(VARIABLE-VALUE-CELL OUTF . 102)
(127 VARIABLE-VALUE-CELL I . 84)
SETA
(VARIABLE-VALUE-CELL PR . 41)
CLOSEF
(EVCC MKN OFSET FILEN FCHAR IFSET BHC KNIL SKNLST ASZ KT ENTERF)x(px2 `xp

TRANSOR BINARY
p-.p@r ,~,<tZBtXB,,Z,XBXB,<u,<u,<@v`+fZZwXB@x8+eZ-,+,<{,<|,<&|+ZB}XB2B+,<}Z,<,<&|Z,<,<~D~2B+^"+,.",,<,<ZD~,/",FXB,<,<$BXBBXB2B+(,<Z#,<,<&|+0Z ,<,<$BXB&BXB2B+0,<Z+,<,<&|ZBBZ$BXB.Z,BZ2B,<Z1DZ0,<Z5D,<Z7D ,<Z9D,<Z;DZ<BZ=B,<	Z3DZ6,<Z@D,<	ZBD ,<ZCDZEBZFB,<
,<,<@v`+QZZwXB@
+QZABXBZ,~+2B+S+[ZO2B+U+[-,+X,<,<

,<

&HBZ>D+HZNB3B+^Z[BZZBZ,<ZGDZ`BZ^,<Za,<,,~+XB[XBZf2B+jZ|XB,<tZfZ[DZg3B+oZl,~ Z,~ U&((Ng&KFfVFee*A]>5(P4I(VARIABLE-VALUE-CELL SOURCEFILE . 42)
(VARIABLE-VALUE-CELL FILERDTBL . 7)
(VARIABLE-VALUE-CELL RESETVARSLST . 206)
(VARIABLE-VALUE-CELL TRANSFORMATIONS . 28)
(NIL VARIABLE-VALUE-CELL MACROX . 213)
(NIL VARIABLE-VALUE-CELL MACROY . 220)
(NIL VARIABLE-VALUE-CELL OLDVALUE . 9)
(NIL VARIABLE-VALUE-CELL RESETSTATE . 211)
SETREADTABLE
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
(NIL VARIABLE-VALUE-CELL INPUTFILE . 187)
(NIL VARIABLE-VALUE-CELL OUTPUTFILE . 197)
(NIL VARIABLE-VALUE-CELL LISTFILE . 199)
(NIL VARIABLE-VALUE-CELL LISTING . 191)
(NIL VARIABLE-VALUE-CELL NAMEFIELD . 81)
(NIL VARIABLE-VALUE-CELL EXPRESSION . 178)
(NIL VARIABLE-VALUE-CELL TMP . 104)
"No transformations loaded."
""
ERROR
INFILEP
"Cannot find file:"
>
STRPOS
%.
SUBSTRING
".TRAN"
CONCAT
MKATOM
OUTFILEP
"Cannot open file:"
".LSTRAN"
"Cannot open file."
INFILE
INPUT
OUTFILE
OUTPUT
"(PRIN1(QUOTE %"
Transoring of"
PRIN1
PRINT
" done on "
DATE
" %")T)"
TERPRI
"      Listing from TRANSORing of file "
"      done on "
((DUMMY) . 0)
(NIL VARIABLE-VALUE-CELL HELPCLOCK . 0)
READ
STOP
"NLISTP expression on file - expression discarded:"
((EXPRESSION) . 0)
TRANSERR
TRANSFORM
TRANSOUT
OPENP
CLOSEF
ENDFILE
TRANSLIST
APPLY
ERROR!
(LIST2 MKN IUNBOX KT SKNLST CF KNIL CONS CONSNL ALIST2 ENTERF)e Px0
`L@n
pR
J	 -XH
f
 
TRANSORFORM BINARY
XBZ3B+

,<,<,<@`+

ZZXBZB+Z,~F* (VARIABLE-VALUE-CELL FORM . 24)
(NIL VARIABLE-VALUE-CELL LISTFILE . 0)
(NIL VARIABLE-VALUE-CELL LISTING . 21)
TRANSFORM
((DUMMY) . 0)
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
TRANSLIST
(CONSNL CF KT KNIL ENTERF)H x
TRANSORFNS BINARY
%$-.@,~Z,<Zp-,++Zp,<@ +Z-,+BXBB3B+Z
,<ZD,~Z& ,~[pXBp+/,<!,<,<@!`+ZZ#XBZB#+Z,~

S(HE(VARIABLE-VALUE-CELL FNLIST . 54)
(NIL VARIABLE-VALUE-CELL LISTING . 51)
(NIL VARIABLE-VALUE-CELL LISTFILE . 0)
(NIL VARIABLE-VALUE-CELL DEF . 25)
(VARIABLE-VALUE-CELL FN . 30)
VIRGINFN
EXPRP
TRANSFORM
((NOT FOUND) . 0)
PRINT
((DUMMY) . 0)
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
TRANSLIST
(CONSNL CF BHC KT CONS KNIL SKLA SKNLST ENTERF)(H X
TRANSFORM BINARY
! -.@,~Z3B+[[Z,<Z,<Z,<,<,,XB+Z,<,<,<,,XB
,<",<"ZB,<Zp-,++ZpB[pXBp+/Z3B+[Z,~Z,~ @"(VARIABLE-VALUE-CELL SOURCEXPR . 22)
(VARIABLE-VALUE-CELL FNAME . 46)
(NIL VARIABLE-VALUE-CELL L . 52)
(NIL VARIABLE-VALUE-CELL PASS1 . 33)
(NIL VARIABLE-VALUE-CELL HELPCLOCK . 0)
WACHADOON
TRANSFORM
PROCEED
DREVERSE
PPASS1
(BHC SKNLST KT ALIST2 ALIST3 LIST2 KNIL ENTERF)

PROCEED BINARY
)(-.Z,<@ 8,~,<,<,<@`+ZZ XBZ,<Z2B!+

Z!+2B"+Z"+2B#+Z#+2B$+Z$+ %D%XB+3B+Z$XB	+,<&,<&,<'&'Z,~%!c>(VARIABLE-VALUE-CELL FLG . 43)
(VARIABLE-VALUE-CELL L . 38)
(VARIABLE-VALUE-CELL L . 0)
(NIL VARIABLE-VALUE-CELL STOPPEDUP . 0)
(NIL VARIABLE-VALUE-CELL WHERETOGONEXT . 0)
(NIL VARIABLE-VALUE-CELL CONTINUEL . 0)
(NIL VARIABLE-VALUE-CELL CONTINUETAIL . 0)
(NIL VARIABLE-VALUE-CELL TRANSITL . 0)
(NIL VARIABLE-VALUE-CELL TRANSITAIL . 0)
(NIL VARIABLE-VALUE-CELL OLDLENGTH . 0)
((DUMMY) . 0)
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
DOTHIS
(((IF (TAILP (CAR L) (CADR L)) ((REMARK TAILP/DOTHIS) 1) NIL) MARK
(ORR (NX UP (E (PROG (LISPXHIST) (SETQ STOPPEDUP (##))) T)) (!NX
UP (E (PROG (LISPXHIST) (SETQ STOPPEDUP (##))) T)) NIL) __ (LPQ
(COMS (TRANSIT) (TRANXT)))) . 0)
DOTHESE
((MARK (ORR ((IF (NOT (TAILP (CAR L) (CADR L)))) NX UP (E (PROG
(LISPXHIST) (SETQ STOPPEDUP (##))) T)) (!NX UP (E (PROG (LISPXHIST)
(SETQ STOPPEDUP (##))) T)) NIL) __ 1 (LPQ (COMS (TRANSIT) (TRANXT))))
. 0)
TRANSFORM
(((LPQ (COMS (TRANSIT) (TRANXT)))) . 0)
OKCOMS
(((LPQ (COMS (TRANXT) (TRANSIT)))) . 0)
HELP
EDITL0
TRANSERROR
"Fail return to TRANSOR from EDITOR. Show Jim Goodwin."
((CURRENTFORM CURRENTCOMS) . 0)
TRANSERR
(CONSNL CF KNIL KT ENTERF)P
TRANSEXIT BINARY


-.Z3B+,<,<,<&,<	"	,~|(VARIABLE-VALUE-CELL STOPPEDUP . 3)
TRANSERROR
"The function TRANSEXIT missed the exit. Show Jim Goodwin."
((CURRENTFORM CURRENTCOMS) . 0)
TRANSERR
PROCEED
RETFROM
(KNIL ENTER0)0
KEEPLIST BINARY
#"-. @!,~Z-,+Z",XB+
,<Z,.",,\XBZ,<ZZ,,Z,XB
7[ZZ1H+2D+XB2B+Z,<Z,<Z,,D!+,<Z,D!Z,~"

 (VARIABLE-VALUE-CELL REMNAME . 48)
(VARIABLE-VALUE-CELL LISTING . 56)
(VARIABLE-VALUE-CELL L . 23)
(VARIABLE-VALUE-CELL PASS1 . 28)
(VARIABLE-VALUE-CELL TESTRAN . 29)
(NIL VARIABLE-VALUE-CELL TMP . 43)
NCONC
(ALIST2KNILCONSS1CONSMKNIUNBOXCONSNL ASZ SKNLST ENTERF)pXh
TRANSERR BINARY
9,7-.,Z3B+Z.,<Z,D.Z3B+,</,<,<@/`+ZZ1XB,<"1,<"1,<2,<$2Z,<,<$2,<"1+Z3B++,<3,<,<@/`++ZZ1XB,<3"4Z,<Zp-,++(Zp,<@4 +&Z,<,<,<&5,<5,<$2ZZ7@7ZB6,~[pXBp+/,<6"4,<"1+,~Z,~	JK"

UCZ(VARIABLE-VALUE-CELL REM . 8)
(VARIABLE-VALUE-CELL MESS . 30)
(VARIABLE-VALUE-CELL VARS . 51)
KEEPLIST
APPLY
((DUMMY) . 0)
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
TERPRI
"
TRANSOR made a translation error: "
PRIN1
((DUMMY) . 0)
3
PRINTLEVEL
(VARIABLE-VALUE-CELL X . 70)
PRIN2
":  "
PRINT
1000
(BHCKNOBSKNLSTKTCFCONSNLKNIL	ENTERF)X@(#! p
TRANSOUT BINARY
$#-.@,~Z2B+Z,~BXBZ3B+
ZB! +,<"!d[,<Zp-,++Zp,<@! + ,<""!ZB"[ZB ,<#"! ,~[pXBp+
(VARIABLE-VALUE-CELL FILE . 6)
(NIL VARIABLE-VALUE-CELL OLDO . 54)
NIL:
OUTPUT
DEFINEQ
TERPRI
PRINTDEF
"(DEFINEQ"
PRIN1
(VARIABLE-VALUE-CELL X . 40)
%(
PRINT
%)
(BHC SKNLST KNIL ENTERF) hX
PPASS1 BINARY
-.Z,<ZD,<ZD[Z,<ZD,<ZD[[,<,<Z,<,<(ZB,~Ph(VARIABLE-VALUE-CELL P1 . 18)
(VARIABLE-VALUE-CELL LISTFILE . 26)
PRIN1
". "
" at "
PRECH
TERPRI
(KT KNIL ENTERF)P8
TRANSLIST BINARY
-.@,~Z3B+Z,~Z2B++BXBZ2B+,<"+,<"[,<,<$,<Zp-,++ZpB[pXBp+/ ZB+#cxF@(VARIABLE-VALUE-CELL LISTING . 25)
(VARIABLE-VALUE-CELL LISTFILE . 11)
(VARIABLE-VALUE-CELL TESTRAN . 6)
(NIL VARIABLE-VALUE-CELL OLDO . 41)
NIL:
OUTPUT
"
		No REMARKS -- empty listing.
"
PRIN1
"

                     Index of Remarks





"
SORT
TRANSLIST1
TERPRI
(BHC SKNLST KT KNIL ENTERF)
X
TRANSLIST1 BINARY
	ZB	,<
"	[,<,<,<,<
,<*ZB

,~0(VARIABLE-VALUE-CELL L1 . 14)
PRIN1
" at "
".
"
", "
MAPRINT
PREMTEXT
TERPRI
(KNIL ENTERF)`
PREMTEXT BINARY
-.@,~Z,<ZDXB2B+
Z,<ZDXB3B+

[ZXB
+XB,<"[

Z2B+Z,<[[,<,<,<&D[B Z,~
(VARIABLE-VALUE-CELL USERNOTES . 8)
(VARIABLE-VALUE-CELL TRANSOREMARKS . 15)
(NIL VARIABLE-VALUE-CELL TXT . 41)
ASSOC
((* The text of this remark was not defined in the TRANSFORMATIONS
file.) . 0)
5
SPACES
%%
COMMENT3
RPLACD
MAPRINT
TERPRI
(KT KNIL ENTERF)8
h
TRANSORSET BINARY
"!-.@,~ZZ7@7Z2B+	,<",<",<",<,<,<@`+ZZXB@+ZXB,<,<ZF,<,<$ ,<,<$ ++,<"!+	~*RKL(VARIABLE-VALUE-CELL LISPXUSERFN . 32)
(VARIABLE-VALUE-CELL LISPXHISTORY . 35)
(NIL VARIABLE-VALUE-CELL CURRENTFN . 0)
TRANSFORMATIONS
NOBIND
RPAQ
USERNOTES
UDRS
((DUMMY) . 0)
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
(NIL VARIABLE-VALUE-CELL LISPXHIST . 0)
+
PROMPTCHAR
LISPXREAD
LISPX
CLEARBUF
(CONSNLCFKNILKTKNOBENTER0)
TRANSORINPUTP BINARY
-.Z2B+Z2B+Z,~Z2B++"+-,+ZZ,2B+Z3B+Z	Z,2B+ZZ
(VARIABLE-VALUE-CELL B . 24)
(VARIABLE-VALUE-CELL EDITCOMSA . 20)
(VARIABLE-VALUE-CELL EDITCOMSL . 43)
PP
(SKLSTFMEMBSKLASMALLT KNIL ENTERF)x8
LISPXUSERFN BINARY
0$/-.0$@(,~Z3B(+ZXBZ,~Z,<ZD)2B+
+ZB),<ZB),XBZ
-,+Z+ZZ,3B+Z,<ZD+Z,<,<,,<,<,$,,<ZD-F-Z-,+"ZXD,<.".+`H!	3(VARIABLE-VALUE-CELL A . 35)
(VARIABLE-VALUE-CELL B . 23)
(VARIABLE-VALUE-CELL LISPXID . 6)
(VARIABLE-VALUE-CELL LISPXUSERFN . 10)
(VARIABLE-VALUE-CELL EDITCOMSA . 31)
(VARIABLE-VALUE-CELL EDITCOMSL . 36)
(VARIABLE-VALUE-CELL CURRENTFN . 67)
(VARIABLE-VALUE-CELL LISPXHIST . 64)
(NIL VARIABLE-VALUE-CELL INLINE . 61)
+
TRANSORINPUTP
COPY
"You must specify a function with the 'fn' command"
"before transformations can be stored"
ERROR
RUMARK
XFORM
GETP
/NCONC
/PUT
LISPX
RETFROM
(SKLSTKTCONSNLFMEMBSKLA CONSS1 KNIL ENTERF)X8
RUMARK BINARY


Z-,+	,<,<,<&3B+	Z,,<,<

,~Z,~T0(VARIABLE-VALUE-CELL XFORM . 12)
(VARIABLE-VALUE-CELL FN . 0)
((REMARK --) . 0)
EDITFINDP
(((LPQ F (REMARK --) (E (RUMARK1) T))) . 0)
EDITE
(CONSNL KNIL KT SKLST ENTERF)x 
RUMARK1 BINARY
)!(-. !Z,<@# ,~[-,+
,<$,<$%Z,<,<,<&%+ [[2B+[
ZXB-,++ [

XB[-,+[ZXB-,+Z,<ZB&XB,<,Z,D'Z,~
(VARIABLE-VALUE-CELL FN . 42)
(VARIABLE-VALUE-CELL COMMENTFLG . 51)
(VARIABLE-VALUE-CELL USERNOTES . 61)
(VARIABLE-VALUE-CELL CALL . 40)
(NIL VARIABLE-VALUE-CELL RNAME . 56)
(NIL VARIABLE-VALUE-CELL TEXT . 58)
"
Warning - badly formed remark: "
PRIN1
PRINT
GENREMNAM
/RPLACD
USERNOTES
/SETATOMVAL
(LIST2 CONS CONSNL SKLST SKLA KNIL KT SKNLST ENTER0) 8x@h

	X
TRANSUNDER BINARY
-.ZZ7@7Z3B+,<" ,~Z2B+Z,<Zp-,++Zp,<@ +Z-,+,<,<,<&,~[pXBp+	/Z,<Z,< ",,~>e(VARIABLE-VALUE-CELL TSETFN . 40)
(VARIABLE-VALUE-CELL FLG . 14)
(VARIABLE-VALUE-CELL LISPXLINE . 42)
LISPXID
+
((REDO -1) . 0)
LISPXUNREAD
TRANSORSET
(VARIABLE-VALUE-CELL X . 28)
"Arg not litatom:"
ERROR
(EVCC BHC KT SKNLA SKNLST KNIL KNOB ENTERF)xHx0@
TXFN BINARY
-.Z2B+Z,~,<Zp-,++Z,~(D@(VARIABLE-VALUE-CELL LIN . 27)
(VARIABLE-VALUE-CELL CURRENTFN . 6)
(VARIABLE-VALUE-CELL X . 18)
TXFN1
LAST
(BHC KT SKNLST KNIL ENTERF)`0`0
TXFN1 BINARY
 -.Z3B+,<,<$2B+,<Z,<ZDDZ3B+Z3B+,<,<$3B+,<,<$Z
3B+ZZ,2B+,<ZZ,D,<,<$Z,~l2-Rx(VARIABLE-VALUE-CELL FN . 40)
(VARIABLE-VALUE-CELL OLDMESS . 17)
(VARIABLE-VALUE-CELL CURRENTFN . 12)
(VARIABLE-VALUE-CELL TRANSFORMATIONS . 41)
XFORM
GETP
TRANSFORMATIONS
/DREMOVE
/SETATOMVAL
"You're adding to old xforms."
PRIN1
CURRENTFN
FN
SAVESETQ
(CONS FMEMB KT KNIL ENTERF)`0x8
X

TXDUMP BINARY
<-:-.(-Z,<@0 ,~ 1ZB1Z,<,<$1Z3B+
XB+Z2Z3B+
XB	+,<2,<$3,<,<$3XB

B4XB2B+,<4Z,<,<&5,<5ZD6ZB6XB,<7ZD72B+,<8Z7,,<Z-,Z,D6Z2B2+",<8,<$6Z3B+),<8ZD92B+),<8Z8Z$,D6Z",<Z,<,<8&9Z*,~(K%1U.tW`(VARIABLE-VALUE-CELL LIN . 3)
(VARIABLE-VALUE-CELL TRANSFORMATIONS . 9)
(VARIABLE-VALUE-CELL USERNOTES . 11)
(VARIABLE-VALUE-CELL DUMPFILE . 24)
(VARIABLE-VALUE-CELL XFORMSVARS . 79)
(VARIABLE-VALUE-CELL XFORMSFNS . 82)
(VARIABLE-VALUE-CELL FILE . 88)
(NIL VARIABLE-VALUE-CELL F . 48)
TXFN1
SORT
NOBIND
"
File to dump on: "
PRIN1
RATOM
OUTFILEP
"Cannot open file:"
ERROR
DUMPFILE
/SETATOMVAL
NAMEFIELD
TRANSAVE
ASSOC
XFORMSVARS
XFORMSFNS
MEMB
PRETTYDEF
(CONS CONSS1 SKLST CONSNL KNIL KT ENTERF))&@"p0	p
TXERASE BINARY
-.Z-,+ZB,~BZBZ,<,<,<,<Zw~-,+Zw+Zw~BXBpZw3B+,<Zw,XBw,\QB+Zp,XBwXBw[w~XBw~+T(VARIABLE-VALUE-CELL LIN . 12)
(VARIABLE-VALUE-CELL CURRENTFN . 6)
TXERASE1
LAST
TXFN1
(CONSNL URET4 KNIL SKNLST ENTERF)0 
TXERASE1 BINARY
-.ZZ,3B+,<Z,<ZDDZ,<,<$3B+
,~Z

Z,,~c1(VARIABLE-VALUE-CELL FN . 26)
(VARIABLE-VALUE-CELL TRANSFORMATIONS . 11)
TRANSFORMATIONS
/DREMOVE
/SETATOMVAL
XFORM
GETP
/REMPROP
((-- NOTHING FOUND.) . 0)
(CONS KNIL FMEMB ENTERF)p 
TXTEST BINARY
-.,<",<@ ,~Z-,+,<ZD+Z2B+,<,<,<&,<"2B+,<,<,<&ZBB,<ZB,\,~g;V@(VARIABLE-VALUE-CELL LIN . 13)
(VARIABLE-VALUE-CELL TESTFORM . 31)
OUTPUT
(VARIABLE-VALUE-CELL OLDO . 35)
(T VARIABLE-VALUE-CELL TESTRAN . 0)
TESTFORM
/SETATOMVAL
"Correct format is:"
"+TEST (SAMPLE S-EXPRESSION TO BE TRANSOR'ED)"
ERROR
TRANSORFORM
GETD
"You must load <LISP>TRANSOR.COM before using the TEST command."
""
COPY
(KNIL SKLST KT ENTERF)X	8
TXSHOW BINARY
'&-.,<"",<Z2B+Z+[,<@@,~Z2B+Z,XB,<Zp-,+/ZB Z
B%Z,~)*B7DP(VARIABLE-VALUE-CELL LIN . 58)
(VARIABLE-VALUE-CELL CURRENTFN . 19)
OUTPUT
(VARIABLE-VALUE-CELL OLDO . 56)
(VARIABLE-VALUE-CELL FLG . 34)
(VARIABLE-VALUE-CELL FN . 42)
TXFN1
PRINT
XFORM
GETP
((No transformations) . 0)
PRINTDEF
TERPRI
LAST
(BHCSKNLSTCONSNLKNILKTENTERF)
TXEDIT BINARY
 -.Z2B+Z,XB,<Zp-,++Zp,<@ +ZBZ	,<,<,<,<$2B+Z
,<,<,<&,<,<ZFF,<ZD,~[pXBp+/ZBZ,~J2(VARIABLE-VALUE-CELL LIN . 47)
(VARIABLE-VALUE-CELL CURRENTFN . 6)
(VARIABLE-VALUE-CELL FN . 40)
TXFN1
XFORM
GETP
"not editable."
ERROR
EDITE
PUT
RUMARK
LAST
(BHC KT SKNLST CONSNL KNIL ENTERF)hH(0
TXEXIT BINARY
-.ZZ,,<",~@USERINPUTP
TRANSORSET
RETFROM
(SET KNIL ENTER0)80
TXNOTE BINARY
6-5-.-Z,<@. ,~Z3B+-,+	,</,<,<&0+ZZ7[ZZ1H+2D+
[ZXB3B+[Z2B0+[[+[B1Z	,~[XB-,+Z-,+$[2B+$ZXB+$ 12B+,<2,<$2,<,<$3XB-,+$@3,XB!Z#Z3B+(Z$Z$,XB&,<4Z,<Z',<,Z	,D4+JIZ& (VARIABLE-VALUE-CELL LIN . 44)
(VARIABLE-VALUE-CELL USERNOTES . 86)
(VARIABLE-VALUE-CELL COMMENTFLG . 76)
(VARIABLE-VALUE-CELL NAME . 81)
(NIL VARIABLE-VALUE-CELL TEXT . 83)
"Arg not litatom:"
ERROR
%%
EDITE
LISPXREADP
"Text: "
PRIN1
READ
READLINE
USERNOTES
/SETATOMVAL
(LIST2 CONS CONSS1 SKNLST SKLST KT SKNLA KNIL ENTERF)8H($" x0`
GENREMNAM BINARY
-.Z,<,<,B,<@ ,~ZZ7[ZZ1H+2D+2B+

+PP (VARIABLE-VALUE-CELL FN . 26)
(VARIABLE-VALUE-CELL USERNOTES . 13)
:
PACK
(VARIABLE-VALUE-CELL NAM . 36)
(0 VARIABLE-VALUE-CELL N . 31)
(LIST3 MKN KNIL LIST2 ENTERF)

0@
TXDELNOTE BINARY
#"-.Z,<,<,<,<Zw~-,+Zw+Zw~,<@ +ZZ7[ZZ1H+2D+
XB2B+Z	Z ,,~,< ,<Z	D!D!Z,~XBpZw3B+,<Zw,XBw,\QB+Zp,XBwXBw[w~XBw~+((VARIABLE-VALUE-CELL LIN . 3)
(VARIABLE-VALUE-CELL USERNOTES . 37)
(VARIABLE-VALUE-CELL R1 . 40)
(NIL VARIABLE-VALUE-CELL TMP . 28)
((NOT FOUND) . 0)
USERNOTES
/DREMOVE
/SETATOMVAL
(CONSNL CONS URET4 SKNLST KNIL ENTERF)pXp`@
(PRETTYCOMPRINT TRANSORCOMS)
(RPAQQ TRANSORCOMS ((FNS * TRANSORFNS) TRANSORMACROS TRANSOREMARKS
TRANSORGLOBALS (VARS (MAXLOOP 1530) (TESTRAN) (USERMACROS (APPEND
TRANSORMACROS USERMACROS)) (GLOBALVARS (APPEND TRANSORGLOBALS 
GLOBALVARS)) (EDITCOMSA (UNION (QUOTE (NLAM NLAMIT DOTHESE DOTHIS
XFORMER CONTINUE)) EDITCOMSA)) (EDITCOMSL (UNION (QUOTE (REMARK))
EDITCOMSL)) (TRANSITCONSES (QUOTE (ORR NIL XFORMER))) (PRESCARRAY
(ARRAY 127 127))) (DECLARE: DOEVAL@LOAD DOEVAL@COMPILE DONTCOPY
(PROP BLKLIBRARYDEF TAILP)) (PROP FILEGROUP TRANSOR) (BLOCKS * 
TRANSORBLOCKS) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY 
COMPILERVARS (ADDVARS (NLAMA) (NLAML PROCEED TRANSERR KEEPLIST)))))
(RPAQQ TRANSORFNS (TRANSOR TRANSORFORM TRANSORFNS TRANSFORM PROCEED
TRANSIT TRANXT TRANSEXIT KEEPLIST TRANSERR TRANSOUT PPASS1 TRANSLIST
TRANSLIST1 PREMTEXT WACHADOON PRECH PRECH1 PRECH2 RETAIL LNC PRESCAN))
(RPAQQ TRANSORMACROS ((REMARK (TXT) (E (KEEPLIST TXT) T)) (NLAM
NIL (E (SETQQ WHERETOGONEXT NLAMIT) T)) (NLAMIT NIL (ORR NX !NX
((E (TRANSEXIT))))) (DOTHESE NIL (E (PROCEED DOTHESE) T) NLAM) (DOTHIS
NIL (E (PROCEED DOTHIS) T) NLAM) (XFORMER NIL (E (TRANSERR 
TRANSFORMATIONERROR "FAULTY TRANSFORMATION" (CURRENTFORM CURRENTCOMS))
T))))
(RPAQQ TRANSOREMARKS ((TRANSFORMATIONERROR (* The TRANSFORMATIONS
specified for this form failed to work properly. The TTY message
'FAULTY TRANSFORMATION' was printed, any commands remaining in the
transformation after the erroneous one were skipped, and translation
continued as if the transformation had been normally completed.
The user should treat the translated form with caution and amend
his transformation to avoid future problems.)) (TRANSERROR (* TRANSOR
got confused at this point. The TTY message 'SHOW JIM GOODWIN' was
printed and translation continued with the next form, but the user
should treat the compromised area of code with caution.)) (BLAMBDA1
(* Non-atomic CAR of form, but not an open lambda. Either a 
parenthesis error or computed CAR of form. Computed CAR of form
is no longer legal in BBN-LISP; APPLY* is used instead. If computed
CAR of form was intended, the translation to APPLY* will run ok.
See manual for discussion of APPLY*.)) (BLAMBDA2 (* Open LAMBDA
with wrong number of args. What can it mean?)) (BLAMBDA3 (* 
Lambda-expression without forms. What can it mean?)) (ILLCAR (*
Illegal data-type encountered as CAR of form Expression treated
as list of forms.)) (TAILP/DOTHIS (* When the transormacro DOTHIS
is executed at a TAILP position, TRANSOR does a 1 command first,
assuming that the current position is a list of forms and CAR of
it is the form intended. The user should make sure that this is
what was intended by the TRANSFORMATIONS which called DOTHIS, i.e.
the TRANSFORMATIONS for the form containing this one.))))
(RPAQQ TRANSORGLOBALS (USERNOTES USERNOTES TESTFORM TESTFORM 
TRANSFORMATIONS TRANSFORMATIONS XFORMSFNS XFORMSVARS XFORMSVARS
DUMPFILE TRANSFORMATIONS TRANSFORMATIONS TRANSFORMATIONS 
TRANSFORMATIONS))
(RPAQ MAXLOOP 1530)
(RPAQ TESTRAN NIL)
(RPAQ USERMACROS (APPEND TRANSORMACROS USERMACROS))
(RPAQ GLOBALVARS (APPEND TRANSORGLOBALS GLOBALVARS))
(RPAQ EDITCOMSA (UNION (QUOTE (NLAM NLAMIT DOTHESE DOTHIS XFORMER
CONTINUE)) EDITCOMSA))
(RPAQ EDITCOMSL (UNION (QUOTE (REMARK)) EDITCOMSL))
(RPAQQ TRANSITCONSES (ORR NIL XFORMER))
(RPAQ PRESCARRAY (ARRAY 127 127))
(PUTPROPS TRANSOR FILEGROUP (TRANSOR TSET))
(RPAQQ TRANSORBLOCKS ((PRECHBLOCK PRECH PRECH1 PRECH2 RETAIL LNC
(ENTRIES PRECH) (BLKLIBRARY TAILP MEMB LAST LENGTH ASSOC GETP))
(TRANSITBLOCK TRANSIT WACHADOON (ENTRIES TRANSIT WACHADOON) (
GLOBALVARS WACHADID WHENTODOIT TRANSITCONSES LAMBDACOMS NLISTPCOMS)
(BLKLIBRARY TAILP MEMB LAST LENGTH ASSOC GETP)) (TRANXTBLOCK TRANXT
(ENTRIES TRANXT) (BLKLIBRARY TAILP MEMB LAST LENGTH ASSOC GETP))
(NIL PRESCAN (GLOBALVARS PRESCARRAY))))
(PRETTYCOMPRINT TRANSORCOMS)
(RPAQQ TRANSORCOMS ((FNS * TRANSORFNS) TRANSORMACROS TRANSOREMARKS
TRANSORGLOBALS (VARS (MAXLOOP 1530) (TESTRAN) (USERMACROS (APPEND
TRANSORMACROS USERMACROS)) (GLOBALVARS (APPEND TRANSORGLOBALS 
GLOBALVARS)) (EDITCOMSA (UNION (QUOTE (NLAM NLAMIT DOTHESE DOTHIS
XFORMER CONTINUE)) EDITCOMSA)) (EDITCOMSL (UNION (QUOTE (REMARK))
EDITCOMSL)) (TRANSITCONSES (QUOTE (ORR NIL XFORMER))) (PRESCARRAY
(ARRAY 127 127))) (DECLARE: DOEVAL@LOAD DOEVAL@COMPILE DONTCOPY
(PROP BLKLIBRARYDEF TAILP)) (PROP FILEGROUP TRANSOR) (BLOCKS * 
TRANSORBLOCKS) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY 
COMPILERVARS (ADDVARS (NLAMA) (NLAML TRANSERR KEEPLIST PROCEED)))))
(PRETTYCOMPRINT TSETCOMS)
(RPAQQ TSETCOMS ((FNS * TSETFNS) TSETMACROS (VARS (LISPXMACROS (APPEND
TSETMACROS LISPXMACROS)) (TESTFORM) (LISPXCOMS (NCONC LISPXCOMS
(MAPCAR TSETMACROS (FUNCTION CAR)))) (MERGE) (PRETTYDEFMACROS (CONS
(QUOTE (TRANSAVE NIL DUMPFILE USERNOTES NLISTPCOMS LAMBDACOMS (PROP
XFORM * TRANSFORMATIONS) (P (COND ((EQ (EVALV (QUOTE MERGE)) T)
(RPAQ TRANSFORMATIONS (UNION TRANSFORMATIONS (LISTP (GETP (QUOTE
TRANSFORMATIONS) (QUOTE VALUE))))) (MAPC (GETP (QUOTE USERNOTES)
(QUOTE VALUE)) (FUNCTION (LAMBDA (NOTE) (OR (ASSOC (CAR NOTE) 
USERNOTES) (SETQ USERNOTES (CONS NOTE USERNOTES))))))) (T (MAPC
(GETP (QUOTE TRANSFORMATIONS) (QUOTE VALUE)) (FUNCTION (LAMBDA (X)
(AND (NOT (MEMB X TRANSFORMATONS)) (/REMPROP X (QUOTE XFORM)))))))))))
PRETTYDEFMACROS)) (LCASELST (APPEND (QUOTE (DO TRANSFORMATIONS))
LCASELST))) (PROP UCASE BBN LISP SRI MIT QA3 PLANNER UCI INTERLISP)
(PROP FILEGROUP TSET) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY
COMPILERVARS (ADDVARS (NLAMA) (NLAML TRANSUNDER)))))
(RPAQQ TSETFNS (TRANSORSET TRANSORINPUTP LISPXUSERFN RUMARK RUMARK1
TRANSUNDER TXFN TXFN1 TXDUMP TXERASE TXERASE1 TXTEST TXSHOW TXEDIT
TXEXIT TXNOTE GENREMNAM TXDELNOTE))
(RPAQQ TSETMACROS ((SHOW (TRANSUNDER TXSHOW)) (EXIT (TRANSUNDER
TXEXIT)) (NOTE (TRANSUNDER TXNOTE T)) (TEST (TRANSUNDER TXTEST T))
(ERASE (TRANSUNDER TXERASE)) (EDIT (TRANSUNDER TXEDIT)) (DUMP (
TRANSUNDER TXDUMP)) (FN (TRANSUNDER TXFN)) (DELNOTE (TRANSUNDER
TXDELNOTE))))
(RPAQ LISPXMACROS (APPEND TSETMACROS LISPXMACROS))
(RPAQ TESTFORM NIL)
(RPAQ LISPXCOMS (NCONC LISPXCOMS (MAPCAR TSETMACROS (FUNCTION CAR))))
(RPAQ MERGE NIL)
(RPAQ PRETTYDEFMACROS (CONS (QUOTE (TRANSAVE NIL DUMPFILE USERNOTES
NLISTPCOMS LAMBDACOMS (PROP XFORM * TRANSFORMATIONS) (P (COND ((EQ
(EVALV (QUOTE MERGE)) T) (RPAQ TRANSFORMATIONS (UNION TRANSFORMATIONS
(LISTP (GETP (QUOTE TRANSFORMATIONS) (QUOTE VALUE))))) (MAPC (GETP
(QUOTE USERNOTES) (QUOTE VALUE)) (FUNCTION (LAMBDA (NOTE) (OR (ASSOC
(CAR NOTE) USERNOTES) (SETQ USERNOTES (CONS NOTE USERNOTES)))))))
(T (MAPC (GETP (QUOTE TRANSFORMATIONS) (QUOTE VALUE)) (FUNCTION
(LAMBDA (X) (AND (NOT (MEMB X TRANSFORMATONS)) (/REMPROP X (QUOTE
XFORM))))))))))) PRETTYDEFMACROS))
(RPAQ LCASELST (APPEND (QUOTE (DO TRANSFORMATIONS)) LCASELST))
(PUTPROPS BBN UCASE T)
(PUTPROPS LISP UCASE T)
(PUTPROPS SRI UCASE T)
(PUTPROPS MIT UCASE T)
(PUTPROPS QA3 UCASE T)
(PUTPROPS PLANNER UCASE T)
(PUTPROPS UCI UCASE T)
(PUTPROPS INTERLISP UCASE T)
(PUTPROPS TSET FILEGROUP (TRANSOR TSET))
NIL