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

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

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

(FILECREATED "23-SEP-81 23:17:23" ("compiled on " <LISP>TRANSOR.;7) (2 .
 2) bcompl'd in WORK dated NOBIND)
(FILECREATED " 3-JUN-79 09:42:58" <NEWLISP>TRANSOR.;2 33976 changes to: 
PROCEED TRANSORCOMS previous date: " 7-Jul-76 16:41:24" 
<NEWLISP>TRANSOR.;1)

PRECHBLOCK BINARY
4"/-."-."x# ,<w#,<,<Zw~3B+	,<w},<,}+
Zw},<,c,<,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+EZ-Zp,XBp,<p-+Zw-,+H+ZwZ2B+KZ.+ p0"+NZ*+,<w,<Zw-,+UZpZ2B+S "+U[QD "+bZw,<>w~Zw~,5"YZ-+[,<p,<w~,F/Zp,XBp,<wZw~,4"`[p+`Z/XBw+O/+,<Zw,<[wZ,<,3B+iZwZ+iZw,XBp[w,<Zp-,+m+|,<[p2B+tZpZ3B+zZpZw,XBw+zZp,<[wZ,<,3B+zZpZw,XBw/[pXBp+k/Zp+,<Zw-,+ /+,<,XBp,<,<w,,\3B+Zp+[w,<,<w,3B+
Zw+[wXBw+Zw3B+Zp-,+Z+ZwZp2B+Zw+[pXBp+ Zp+XBp[wXBw+LQ6NH1AP

7"  
 1 P	B%A"H (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 COLLCT URET2 ASZ CONS GUNBOX KT BHC SKNLST URET4 URET6 
KNIL BLKENT ENTER1)
h``c	hL	82z8E> 0("}0c

\p#pph8`XP	hxo

xd

R
 O0# `@`h(

PRECH BINARY
-. ,<,~(ECH . 1)
(OLDECH . 1)
(FILE . 1)
(PRTYFLG . 1)
PRECH
(NIL)
(LINKED-FN-CALL . PRECHBLOCK)
(ENTER4)

TRANSITBLOCK BINARY
yy-.yp;Z,<,<,<,;,<w[Z,<,Q3B+,<,<,<ZwXBw[,XB+!,<w[,<,b3B+#,<,<$Z3B+-ZwZ#2B+-Zw-,++Z%,<,<,\2B+-,<	+6Zw-,+/Z+6Zw-,+3Zw,<,<
,j+6Zw-,+6Z+6Z
XB3B+[Z6XDZ8+Z2B+,<Zw3B+BZXBZpXBZ+P p,>w,> @ ,^/2"+G+AZ,<Z?,<,<

ZGXBH x,>w,> p.Bx,^/,XBC+A/+Zw3B+ZZp-,+UZ+YZwZp2B+XZw+Y[pXBp+R+Z+,>w,>xZp-,Z3B+`[pXBp:x+\,^/,+Zp-,+eZ+iZwZp2B+hZp+i[pXBp+b+Zw-,+v[wXBwZw-,+o[w-,+pZ+vZwZp2B+t[wZ+v[w[XBw+l+Z+?AxH^DLy$r@	@!)"E	""(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)

(OJb
O`

0QPw

@Th(weh^0U
(B?H8H!h
p

TRANSIT BINARY
-.,<,~TRANSIT
(NIL)
(LINKED-FN-CALL . TRANSITBLOCK)
(ENTER0)

WACHADOON BINARY
-.,<,~(FLG . 1)
WACHADOON
(NIL)
(LINKED-FN-CALL . TRANSITBLOCK)
(ENTER1)

TRANXTBLOCK BINARY
UGR-.G-.HHxL,<,<,<,<Z3B+
XBZXBZ+ZXBw~[Z,<,5XBwZ3B++)Zw~Z3B+%Z2BM++%Zw~-,+,<ZMZ,XBw,<,<N3B+ZwZ,XB+%Z-,+$,<ZMZw~,,<,<N3B+$ZXB+%ZOXB#ZZw~XDXBZ
XBZ$+B+.,<O,<P,<PQ+	Z',<[&Z,<,<2B+3ZR+ZXB(+%,>F,>GZp-,Z3B+:[pXBp:x+6,^/,+Zw3B+EZp-,+@Z+EZwZp2B+CZw+E[pXBp+>+Z+@1rA!@?c %
 (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 SKNLST URET1 BHC MKN KT CONS SKLST URET4 KNIL BLKENT ENTER1)pF?=<<0 @7`4
F>8H28" 
x`P(

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
r-.rZBt,<@t ,~,<tZ,<,,Z,XBXB`,<v,<w,<@w`+iZZyXB@y8+gZ-,+,<},<},<&~+ZB~XB2B+,<Z,<,<&~Z,<,<D2B+^"+,.",,<,<ZD,/",FXB,<,<$BXBBXB2B+),<Z$,<,<&~+1Z!,<,<$BXB'BXB2B+1,<Z,,<,<&~ZBBZ%BXB/Z-BZ3B,<Z2DZ1,<Z6D,<Z8D 	,<Z:D,<	Z<DZ=B
Z>B
,<
Z4DZ7,<ZAD,<ZCD 	,<ZDDZFB
ZGB
,<,<,<@w`+SZZyXB@

+RZBB

XBZ,~Z,~2B+T+]ZP2BOB3B+`Z]BZ[BZ,<ZHDZbBZ`,<Zc,<,,~Zw~XB8Z,~2B+kZ~XB[`XB,<tZ`Z[DZj3B+q ,~Z`,~U'iDj
&iERQYUQYY*PWFU

D`(VARIABLE-VALUE-CELL SOURCEFILE . 44)
(VARIABLE-VALUE-CELL FILERDTBL . 3)
(VARIABLE-VALUE-CELL RESETVARSLST . 215)
(VARIABLE-VALUE-CELL TRANSFORMATIONS . 30)
SETREADTABLE
(VARIABLE-VALUE-CELL OLDVALUE . 10)
NIL
NIL
(NIL VARIABLE-VALUE-CELL RESETSTATE . 221)
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
(NIL VARIABLE-VALUE-CELL INPUTFILE . 190)
(NIL VARIABLE-VALUE-CELL OUTPUTFILE . 200)
(NIL VARIABLE-VALUE-CELL LISTFILE . 202)
(NIL VARIABLE-VALUE-CELL LISTING . 194)
(NIL VARIABLE-VALUE-CELL NAMEFIELD . 83)
(NIL VARIABLE-VALUE-CELL EXPRESSION . 181)
(NIL VARIABLE-VALUE-CELL TMP . 106)
"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!
(MKN IUNBOX KT SKNLST CF KNIL CONS CONSNL LIST2 ENTERF)!`i
01(
xMPjpX
@R	8Kh&00x

p

TRANSORFORM BINARY
BXBZ3B+

,<,<,<@`+

ZZXBZBZ,~Z,~F* (VARIABLE-VALUE-CELL FORM . 25)
(NIL VARIABLE-VALUE-CELL LISTFILE . 0)
(NIL VARIABLE-VALUE-CELL LISTING . 21)
TRANSFORM
((DUMMY) . 0)
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
TRANSLIST
(CF KT KNIL ENTERF)

x

TRANSORFNS BINARY
&$-.@,~Z,<Zp-,++Zp,<@ +Z-,+BXBB3B+Z
,<ZD,~Z&!,~[pXBp+/,<!,<,<@"`+ZZ#XBZB$Z,~Z,~

S(HE(VARIABLE-VALUE-CELL FNLIST . 55)
(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
(CF BHC KT CONS KNIL SKLA SKNLST ENTERF)X8(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&XBZ,~3B+Z$XB	+,<&,<',<'&(Z,~%!a_(VARIABLE-VALUE-CELL FLG . 44)
(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
EDITL
TRANSERROR
"Fail return to TRANSOR from EDITOR. Show Jim Goodwin."
((CURRENTFORM CURRENTCOMS) . 0)
TRANSERR
(CF KNIL KT ENTERF)XX

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+,</,<,<@0`+ZZ1XB,<"2,<"2,<2,<$3Z,<,<$3,<"2Z,~Z3B+,,<3,<,<@0`++ZZ1XB,<4"4Z,<Zp-,++(Zp,<@5 +'Z,<,<,<&5,<6,<$3ZZ7@7ZB6,~[pXBp+/,<7"4,<"2+,~Z,~	JK"*aJ
(VARIABLE-VALUE-CELL MESS . 30)
(VARIABLE-VALUE-CELL VARS . 52)
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 . 71)
PRIN2
":  "
PRINT
1000
(BHC KNOB SKNLST KT CF CONSNL KNIL ENTERF)`H0# !0X

0@-hH	0

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)@p 
(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)) (
NLISTPCOMS) (LAMBDACOMS)) (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)))))
(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))
(RPAQ NLISTPCOMS NIL)
(RPAQ LAMBDACOMS NIL)
(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)) (
NLISTPCOMS) (LAMBDACOMS)) (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) (LAMA)))
))
NIL