55
TOKTYPE
BSTK!*
THROWING!*
INITFORM!*
!*RAISE
INPUT
OUTPUT
!*ECHO
!.! 
QUOTE
PAIR
ASSOC
!*!*!*!*! 
!*!*!*! 
TOK!*
!*!*!*!*! ERROR! 
EMSG!*
ENUM!*
!*!*!*!*
MAX2
MIN2
PLUS2
TIMES2
SET
BNDUNDERFLOW
LAMBDA
NOT! DEFINED
THROWTAG!*
TYPE
EXPR
LOSE
FLAGGED
NOT
REDEFINED
FUNCTION
DEFINED
BE
CANT
FEXPR
NEXPR
MACRO
SETQ
LIST
P!.P
!$PROG!$
LABEL
P!.G
PROGG0131
GLOBAL
NEXPRS
PROCS
QUIT
LOOP
TOP
EXITING
0
6
( NIL )
( EXPR FEXPR NEXPR MACRO )
( PASCAL LISP V2 !- 15 FEB 1982 )
( COPYRIGHT (C) 1981 U UTAH )
( ALL RIGHTS RESERVED )
( LIST )
0
201
DSKIN
RDEVPR
READCH
LITER
DIGIT
UPBV
PUTV
MKVECT
GETV
UNFLUID
GLOBALP
GLOBAL
REMOB
INTERN
FLUIDP
VECTORP
STRINGP
FLOATP
PRIN2TL
FLUID
PUTC
MAPLIST
MAPCON
MAPCAR
NCONC
MAPCAN
MAPC
OR
COND
AND
WHILE
PROG
MAP
PROGG0131
GO
RETURN
PROG2
PROGN
APPLY1
EVLIS
DM
DN
DF
DE
PUTL
REMD
PUTD
GETD
TTHROW
TCATCH
RLIST
EOFP
REV
REVX
PRIN2
CDDDR
CDDAR
CDADR
CDAAR
CADDR
CADAR
CAADR
CAAAR
CDDDDR
CDDDAR
CDDADR
CDDAAR
CDADDR
CDADAR
CDAADR
CDAAAR
CADDDR
CADDAR
CADADR
CADAAR
CAADDR
CAADAR
CAAADR
CAAAAR
CDDR
CDAR
CADR
CAAR
!*FIRST!-PROCEDURE
ADD1
XAPPLY
CAR
CATCH
CDR
CODEP
COMPRESS
CONS
CLOSE
DIFFERENCE
DIVIDE
EVAL
EXPLODE
FASTSTAT
GENSYM
GREATERP
LESSP
MINUS
NCONS
OPEN
PLUS2
PRINT
QUOTIENT
RDTOK
RDS
READ
RECLAIM
REMAINDER
RPLACA
RPLACD
TERPRI
TIMES2
THROW
UNBINDTO
WRTOK
WRS
XCONS
PAIRP
EQ
NOT
IDP
NULL
CONSTANTP
EQN
LIST2
LIST3
LIST4
LIST5
REVERSE
APPEND
MEMBER
ERROR
PAIR
APPLY
SASSOC
ASSOC
SUBLIS
SUBST
MEMQ
ATSOC
PUT
DEFLIST
EQUAL
DELETE
DELQ
DELATQ
GET
REMPROP
LENGTH
ERRPRT
MSGPRT
FLAGP
FLAG1
FLAG
REMFLAG1
REMFLAG
EQCAR
PLIST
VALUE
FUNCELL
SETPLIST
SETVALUE
SETFUNCELL
ORDERP
TOKEN
ERRORSET
NUMBERP
FIXP
MINUSP
ABS
SUB1
ZEROP
ONEP
EXPT
FIX
FLOAT
EXPAND
MAX
MIN
PLUS
TIMES
MAX2
MIN2
FUNCTION
ATOM
SET
PRINC
PRIN1
PRIN2T
LBIND1
PBIND1
UNBIND1
UNBINDN
LBINDN
P!.N
EVLAM
PBINDN
0
% Initialization LISP for module: PAS1
% Initialization LISP for module: PAS2
(PUTL '(FUNCTION) 'TYPE 'FEXPR)

(PUTL '(MAX MIN PLUS TIMES) 'TYPE 'MACRO)

(PUTC 'NOTNULL 'SMACRO '(LAMBDA (X) X))

(FLUID '(BSTK!*))

% Initialization LISP for module: PAS3
(PUTL '(DE DF DN DM PROGN RETURN GO PROG WHILE AND COND OR) 'TYPE 'FEXPR)

% user LISP init for PASLSP

(PRINT  "User Init Start")
(DN LIST (AA) AA)
(SETQ INITFORM!* '(RDEVPR))
(DF ON (X) (SET (CAR X) T))
(DF OFF (X) (SET (CAR X) NIL))
(ON !*RAISE)
(OFF !*ECHO)
(PRINT  "User Init End")
