abs					(N)						23
acons					()						15
all-but-last				(SEQ)						19
and					(TV1 ... TVn)					24
append					(SEQ1 ... SEQn)				19
arg					(N PAIR)					16
atom					(E)						15
atom-notated				(STRING)					15
atom-notation				(ATOM)						15
begin					(E1 ... En)					30

bind					(PATTERN ARGS ENV)				37
binding					(PATTERN ENV)					37
body					(CLOSURE)					39
boolean					(E)						25  
carraige-return			atom						43
catch					(TAG BODY)					31
ccons					(ENVIRONMENT PATTERN BODY COMMENT)		38
char-in					(STREAM)					44
char-out				(STREAM CH)					44
char-peek				(STREAM)					44

char-stuff				(STREAM CH)					45
character				(E)						25 42
character-ordered			(S1 S2)						43
charat					(E)						25 42
close-all-streams			()						47
close-stream				(STREAM)					46
closure					(E)						25
closure-environment			(CLOSURE)					38
comment					(CLOSURE)					39
cond					([P1 C11 ... C1n] ... [Pk Ck1 ... Ckm])	30

cons					(E SEQ)						17
contour-variables			(ENV)						37
copy-vector				(SEQ)						21
cps-error-protect			<<<???>>>					50 
cr					atom						43
current-environment			()						37
curried-dispatch			(INDEX [P1 C1] ... [Pn Cn])			34
de-reflect				(CLOSURE)					40
define					(LABEL FUN)					27
delay					(C)						32

destination				(EXP ENV)					48
dispatch				(INDEX [M1 C1] ... [Mn Cn])			33
do					([[VAR1 INIT1 NEXT1] ... [VARn INITn NEXTn]]
					 [[EXIT-TEST1 RETURN1] ... [EXIT-TESTk RETURNk]]
					 BODY)						34
down					(S)						48
econs					()						36
ef					(PREMISE C1 C2)				30
empty-stream				(STREAM)					46
environment				(E)						25 36

environment-designator		(E)						25 36
error					(E1 E2)						49 
even					(N)						23
every					(PREDICATE SEQ)				20
expander				(CLOSURE)					40
exteranal				(E)						25
externalize				(S)						45
extract-simple-closure		(CLOSURE)					40
fifth					(SEQ)						18
first					(SEQ)						16

for					(VAR START END E1 ... En)			31
force					(C)						33
fourth					(SEQ)						18
function				(E)	 					25
global					atom						36
handle					(E)						25
id					(E)						26
if					(PREMISE C1 C2)				30
ignore					(E1 ... En)					31
index					(ELEMENT SEQ)					20

internalize				(STRING)					45
it					atom						50
iterate					(FUN SEQ)					31
lambda					(PATTERN BODY1 ... BODYn)			27
last					(SEQ)						18
last-contour
length					(SEQ)						17
let					([[A1 E1] ... [An En]] BODY1 ... BODYn)	28
letrec					([[A1 E1] ... [An En]] BODY1 ... BODYn)	28

letseq					([[A1 E1] ... [An En]] BODY1 ... BODYn)	28
list					E1 ... En					18
load					(FILENAME)					50
logout					()						50
macro-ccons				(CLOSURE)					40
macro-closure				(CLOSURE)					39
macroify				(FUN)						40
map					(FUN S1 ... Sn)				30
max					(N1 ... Nn)					23
member					(E SEQ)						19

min					(N1 ... Nn)					23
mlambda					(PATTERN BODY1 ... BODYn)			28
negative				(N)						23
new-environment			()						36
non-negative				(N)						23
normal					(S)						25
normalize				(STRUCTURE ENV ESC CONT)			48
not					(TV)						24
nth					(N SEQ)						17
nth-char				(N STRING)					42

null					(SEQ)						18
number					(E)						22
numeral					(E)						22
odd					(N)						23
open-stream				(STRING)					46
or					(TV1 ... TVn)					24
pair					(S)						15
pargs					(PAIR)						16
pattern					(CLOSURE)					39
pcons					(S1 S2)						15

positive				(N)						23
pproc					(PAIR)						15
previous-contour			(ENV)						38
primary-stream				atom						43
primitive-closure			(CLOSURE)					39
print					(STREAM E1 ... En)				45
print-structure			(STREAM S)					45
ps					atom						43
rail					(E)						16
rcons					(S1 ... Sn)					20

read					(STREAM)					46
read-structure				(STREAM)					45	
read-normalize-print			(LEVEL ENV STREAM)				49
rebind					(VAR BINDING ENV)				36
reduce					(PROC ARGS ENV ESC CONT)			49
reflectify				(FUN)						40
reflective-ccons			(CLOSURE)					40
reflective-closure			(CLOSURE)					39
remainder				(N1 N2)						22
reset					()						50

rest					(SEQ)						16
reverse					(SEQ)						19
rlambda					(PATTERN BODY1 ... BODY n)			27
runtime					()						50	
second					(SEQ)						18
select					(INDEX [M1 C1] ... [Mn Cn])			33
set					(VAR BINDING)					28
set-comment				(CLOSURE STRING)				39
sequence				(E)						16
simple-closure				(CLOSURE)					39

standard-excape			<<<7args>>>					49
stream					(E)						25
streamer				(E)						25
string					(E)						25 42
string-append				(ST1 ... STn)					42
string-cons				(CH ST)						42
string-in				(STREAM DELIMITER-CH)				44
string-length				(STRING)					42
string-ordered				(S1 S2)						43
string-out				(STREAM STRING)				44

sting-search				(S1 S2)						43
stringer				(E)						25 42
structure				(E)						25
substring				(N1 N2 ST)					43
tail					(N SEQ)						17
third					(SEQ)						18
trap					(E1 E2)						49	
truth-value				(E)						25
type					(E)						25
up					(S)						48	

vector					(E)						25
vector-constructor			(TEMPLATE)					20
version-id				atom						50
zero					(N)						23

1+					(N)						22
1-					(N)						22
1st					(SEQ)						18
2nd					(SEQ)						18
3rd					(SEQ)						18
4th					(SEQ)						18
5th					(SEQ)						18

+					(N1 N2)						22
- 					(N1 N2)						22
* 					(N1 N2)						22
/					(N1 N2)						22
=					(E1 E2)						24
<					(N1 N2)						22
<= 					(N1 N2)						22
> 					(N1 N2)						22
>= 					(N1 N2)						22
<>					(N1 N2)						22
**					(N1 N2)						23

^					(S)						48
\					(S)						48


(1270)\f3