107 files changed, 8765 insertions, 1389 deletions

diff --git a/src/interp/Makefile.in b/src/interp/Makefile.in
index c908ae52..ab300b8b 100644
--- a/src/interp/Makefile.in
+++ b/src/interp/Makefile.in
@@ -30,11 +30,11 @@ depsys_lisp_sources = $(depsys_lisp_noncompiled_sources) \
 
 depsys_boot_sources = postpar.boot parse.boot clam.boot slam.boot \
 	g-boot.boot g-error.boot c-util.boot g-util.boot
-DEP=	$(srcdir)/spaderror.lisp	debug.lisp	\
-	$(srcdir)/spad.lisp	\
-	$(srcdir)/setq.lisp	property.lisp	\
+DEP=	spaderror.lisp	debug.lisp	\
+	spad.lisp	\
+	setq.lisp	property.lisp	\
 	unlisp.lisp     foam_l.lisp      \
-	$(srcdir)/axext_l.lisp
+	axext_l.lisp
 
 depsys_lisp_macro_sources = vmlisp.lisp ggreater.lisp hash.lisp \
 	union.lisp nlib.lisp macros.lisp	\
@@ -349,7 +349,7 @@ ${DEPSYS}:	vmlisp.$(FASLEXT) \
 	        bookvol5.$(FASLEXT)\
 		util.$(FASLEXT) \
 	        postpar.$(FASLEXT) \
-		parse.$(FASLEXT) \
+		 parse.clisp \
 	        parsing.$(FASLEXT) \
 		metalex.$(FASLEXT) \
 	        bootlex.$(FASLEXT) \
@@ -378,9 +378,10 @@ ${DEPSYS}:	vmlisp.$(FASLEXT) \
 	@ echo '(|importModule| "util")' >> makedep.lisp
 	@ echo '(in-package "BOOT")' >> makedep.lisp
 	@ echo '(build-depsys (quote ($(patsubst %, "%", ${DEP}))) "${AXIOM}")' >> makedep.lisp
+	@ echo '(unless (probe-file "parse.$(FASLEXT)") (|compileLispFile| "parse.clisp" "parse.$(FASLEXT)"))' >> makedep.lisp
 	@ echo '(in-package "AxiomCore")' >> makedep.lisp
 	@ echo '(|importModule| "newaux")' >> makedep.lisp
-	@ echo '(|importModule| "parse")' >> makedep.lisp
+	@ echo '(load "parse")' >> makedep.lisp
 	@ echo '(|importModule| "metalex")' >> makedep.lisp
 	@ echo '(|importModule| "parsing")' >> makedep.lisp
 	@ echo '(|importModule| "fnewmeta")' >> makedep.lisp
@@ -405,7 +406,8 @@ ${DEPSYS}:	vmlisp.$(FASLEXT) \
 	../lisp/base-lisp$(EXEEXT) -- --make --output=$@ \
 		--load-directory=. makedep.lisp
 	@rm $(addsuffix .$(FASLEXT), \
-		clam slam g-error g-boot c-util g-util)
+		parse clam slam g-error \
+		g-boot c-util g-util)
 	@ echo 4 ${DEPSYS} created
 
 
@@ -580,86 +582,86 @@ boot-pkg.$(FASLEXT): boot-pkg.lisp
 
 as.clisp: as.boot
 	@ echo 417 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "as.boot"))' | ${DEPSYS}
 
 ax.clisp: ax.boot
 	@ echo 463 making $@ $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS} 
+	@ echo '(progn (old-boot::boot "ax.boot"))' | ${DEPSYS} 
 
 bc-matrix.clisp: bc-matrix.boot
 	@ echo 424 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "bc-matrix.boot"))' | ${DEPSYS}
 
 bc-misc.clisp: bc-misc.boot
 	@ echo 428 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "bc-misc.boot"))' | ${DEPSYS}
 
 bc-solve.clisp: bc-solve.boot
 	@ echo 432 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "bc-solve.boot"))' | ${DEPSYS}
 
 bc-util.clisp: bc-util.boot
 	@ echo 436 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "bc-util.boot"))' | ${DEPSYS}
 
 br-con.clisp: br-con.boot
 	@ echo 467 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS} 
+	@ echo '(progn (old-boot::boot "br-con.boot"))' | ${DEPSYS} 
 
 br-data.clisp: br-data.boot
 	@ echo 483 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS} 
+	@ echo '(progn (old-boot::boot "br-data.boot"))' | ${DEPSYS} 
 
 br-op1.clisp: br-op1.boot
 	@ echo 475 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "br-op1.boot"))' | ${DEPSYS}
 
 br-op2.clisp: br-op2.boot
 	@ echo 479 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS} 
+	@ echo '(progn (old-boot::boot "br-op2.boot"))' | ${DEPSYS} 
 
 br-prof.clisp: br-prof.boot
 	@ echo 499 making $@ from $<
 	@ ($(axiom_build_document) --tangle --output=br-prof.boot $< ;\
-	  echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}; \
+	  echo '(progn (old-boot::boot "br-prof.boot"))' | ${DEPSYS}; \
 	  rm br-prof.boot )
 
 
 br-saturn.clisp: br-saturn.boot
 	@ echo 491 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "br-saturn.boot"))' | ${DEPSYS}
 
 br-search.clisp: br-search.boot
 	@ echo 471 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS} 
+	@ echo '(progn (old-boot::boot "br-search.boot"))' | ${DEPSYS} 
 
 br-util.clisp: br-util.boot
 	@ echo 487 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "br-util.boot"))' | ${DEPSYS}
 
 category.clisp: category.boot
 	@ echo 212 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS} 
+	@ echo '(progn (old-boot::boot "category.boot"))' | ${DEPSYS} 
 
 cattable.clisp: cattable.boot
 	@ echo 215 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "cattable.boot"))' | ${DEPSYS}
 
 c-doc.clisp: c-doc.boot
 	@ echo 219 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS} 
+	@ echo '(progn (old-boot::boot "c-doc.boot"))' | ${DEPSYS} 
 
 clammed.clisp: clammed.boot
 	@ echo 226 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS} 
+	@ echo '(progn (old-boot::boot "clammed.boot"))' | ${DEPSYS} 
 
 compat.clisp: compat.boot
 	@ echo 229 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS} 
+	@ echo '(progn (old-boot::boot "compat.boot"))' | ${DEPSYS} 
 
 compiler.clisp: compiler.boot
 	@ echo 233 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "compiler.boot"))' | ${DEPSYS}
 
 c-util.${LISP}: $(srcdir)/c-util.boot.pamphlet
 	@ echo 146 making c-util.${LISP} from $(srcdir)/c-util.boot.pamphlet
@@ -668,85 +670,85 @@ c-util.${LISP}: $(srcdir)/c-util.boot.pamphlet
 
 c-util.clisp: c-util.boot
 	@ echo 148 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "c-util.boot"))' | ${DEPSYS}
 
 
 database.clisp: database.boot
 	@ echo 243 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "database.boot"))' | ${DEPSYS}
 
 define.clisp: define.boot
 	@ echo 247 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "define.boot"))' | ${DEPSYS}
 
 format.clisp: format.boot
 	@ echo 250 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "format.boot"))' | ${DEPSYS}
 
 fortcall.clisp: fortcall.boot
 	@ echo 55 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "fortcall.boot"))' | ${DEPSYS}
 
 
 functor.clisp: functor.boot
 	@ echo 254 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "functor.boot"))' | ${DEPSYS}
 
 g-cndata.clisp: g-cndata.boot
 	@ echo 261 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "g-cndata.boot"))' | ${DEPSYS}
 
 g-opt.clisp: g-opt.boot
 	@ echo 267 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "g-opt.boot"))' | ${DEPSYS}
 
 g-timer.clisp: g-timer.boot
 	@ echo 270 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "g-timer.boot"))' | ${DEPSYS}
 
 htcheck.clisp: htcheck.boot
 	@ echo 455 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "htcheck.boot"))' | ${DEPSYS}
 
 ht-root.clisp: ht-root.boot
 	@ echo 451 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "ht-root.boot"))' | ${DEPSYS}
 
 htsetvar.clisp: htsetvar.boot
 	@ echo 444 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "htsetvar.boot"))' | ${DEPSYS}
 
 ht-util.clisp: ht-util.boot
 	@ echo 440 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "ht-util.boot"))' | ${DEPSYS}
 
 hypertex.clisp: hypertex.boot
 	@ echo 277 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "hypertex.boot"))' | ${DEPSYS}
 
 i-analy.clisp: i-analy.boot
 	@ echo 280 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "i-analy.boot"))' | ${DEPSYS}
 
 i-code.clisp: i-code.boot
 	@ echo 283 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "i-code.boot"))' | ${DEPSYS}
 
 i-coerce.clisp: i-coerce.boot
 	@ echo 286 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "i-coerce.boot"))' | ${DEPSYS}
 
 i-coerfn.clisp: i-coerfn.boot
 	@ echo 289 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "i-coerfn.boot"))' | ${DEPSYS}
 
 i-eval.clisp: i-eval.boot
 	@ echo 292 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "i-eval.boot"))' | ${DEPSYS}
 
 i-funsel.clisp: i-funsel.boot
 	@ echo 295 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "i-funsel.boot"))' | ${DEPSYS}
 
 bookvol5.lisp: $(srcdir)/bookvol5.pamphlet
 	@ echo 298 making $@ from $<
@@ -754,173 +756,173 @@ bookvol5.lisp: $(srcdir)/bookvol5.pamphlet
 
 i-intern.clisp: i-intern.boot
 	@ echo 301 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "i-intern.boot"))' | ${DEPSYS}
 
 i-map.clisp: i-map.boot
 	@ echo 304 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS} 
+	@ echo '(progn (old-boot::boot "i-map.boot"))' | ${DEPSYS} 
 
 info.clisp: info.boot
 	@ echo 329 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "info.boot"))' | ${DEPSYS}
 
 i-resolv.clisp: i-resolv.boot
 	@ echo 310 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "i-resolv.boot"))' | ${DEPSYS}
 
 i-spec1.clisp: i-spec1.boot
 	@ echo 313 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "i-spec1.boot"))' | ${DEPSYS}
 
 i-spec2.clisp: i-spec2.boot
 	@ echo 316 making $@ from i-spec2.boot
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS} 
+	@ echo '(progn (old-boot::boot "i-spec2.boot"))' | ${DEPSYS} 
 
 i-syscmd.clisp: i-syscmd.boot
 	@ echo 319 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "i-syscmd.boot"))' | ${DEPSYS}
 
 iterator.clisp: iterator.boot
 	@ echo 333 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "iterator.boot"))' | ${DEPSYS}
 
 i-toplev.clisp: i-toplev.boot
 	@ echo 322 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "i-toplev.boot"))' | ${DEPSYS}
 
 i-util.clisp: i-util.boot
 	@ echo 325 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "i-util.boot"))' | ${DEPSYS}
 
 lisplib.clisp: lisplib.boot
 	@ echo 336 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "lisplib.boot"))' | ${DEPSYS}
 
 match.clisp: match.boot
 	@ echo 339 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "match.boot"))' | ${DEPSYS}
 
 modemap.clisp: modemap.boot
 	@ echo 343 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "modemap.boot"))' | ${DEPSYS}
 
 msgdb.clisp: msgdb.boot
 	@ echo 346 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "msgdb.boot"))' | ${DEPSYS}
 
 nag-c02.clisp: nag-c02.boot
 	@ echo 152 making $@ from $<
-	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "nag-c02.boot"))' | ${DEPSYS}
 
 
 nag-c05.clisp: nag-c05.boot
 	@ echo 156 making $@ from $<
-	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "nag-c05.boot"))' | ${DEPSYS}
 
 
 nag-c06.clisp: nag-c06.boot
 	@ echo 160 making $@ from $<
-	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "nag-c06.boot"))' | ${DEPSYS}
 
 
 nag-d01.clisp: nag-d01.boot
 	@ echo 164 making $@ from $<
-	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "nag-d01.boot"))' | ${DEPSYS}
 
 
 nag-d02.clisp: nag-d02.boot
 	@ echo 168 making $@ from $<
-	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "nag-d02.boot"))' | ${DEPSYS}
 
 
 nag-d03.clisp: nag-d03.boot
 	@ echo 172 making $@ from $<
-	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "nag-d03.boot"))' | ${DEPSYS}
 
 
 nag-e01.clisp: nag-e01.boot
 	@ echo 176 making $@ from $<
-	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "nag-e01.boot"))' | ${DEPSYS}
 
 
 nag-e02.clisp: nag-e02.boot
 	@ echo 184 making $@ from $<
-	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "nag-e02.boot"))' | ${DEPSYS}
 
 
 nag-e04.clisp: nag-e04.boot
 	@ echo 188 making $@ from $<
-	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "nag-e04.boot"))' | ${DEPSYS}
 
 
 nag-f01.clisp: nag-f01.boot
 	@ echo 192 making $@ from $<
-	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "nag-f01.boot"))' | ${DEPSYS}
 
 
 nag-f02.clisp: nag-f02.boot
 	@ echo 196 making $@ from $<
-	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "nag-f02.boot"))' | ${DEPSYS}
 
 
 nag-f04.clisp: nag-f04.boot
 	@ echo 200 making $@ from $<
-	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "nag-f04.boot"))' | ${DEPSYS}
 
 
 nag-f07.clisp: nag-f07.boot
 	@ echo 204 making $@ from $<
-	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "nag-f07.boot"))' | ${DEPSYS}
 
 
 nag-s.clisp: nag-s.boot
 	@ echo 208 making $@ from $<
-	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "nag-s.boot"))' | ${DEPSYS}
 
 
 newfort.clisp: newfort.boot
 	@ echo 349 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "newfort.boot"))' | ${DEPSYS}
 
 nruncomp.clisp: nruncomp.boot
 	@ echo 353 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "nruncomp.boot"))' | ${DEPSYS}
 
 nrunfast.clisp: nrunfast.boot
 	@ echo 356 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "nrunfast.boot"))' | ${DEPSYS}
 
 nrungo.clisp: nrungo.boot
 	@ echo 359 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "nrungo.boot"))' | ${DEPSYS}
 
 nruntime.clisp: nruntime.boot
 	@ echo 362 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "nruntime.boot"))' | ${DEPSYS}
 
 nrunopt.clisp: nrunopt.boot
 	@ echo 365 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "nrunopt.boot"))' | ${DEPSYS}
 
 profile.clisp: profile.boot
 	@ echo 237 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "profile.boot"))' | ${DEPSYS}
 
 record.clisp: record.boot
 	@ echo 447 making $@ $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "record.boot"))' | ${DEPSYS}
 
 rulesets.clisp: rulesets.boot
 	@ echo 388 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "rulesets.boot"))' | ${DEPSYS}
 
 server.clisp: server.boot
 	@ echo 391 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "server.boot"))' | ${DEPSYS}
 
 setvart.clisp: setvart.boot
 	@ echo 398 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "setvart.boot"))' | ${DEPSYS}
 
 ../algebra/warm.data: $(srcdir)/Makefile.pamphlet
 	@ echo 2 building warm.data
diff --git a/src/interp/Makefile.pamphlet b/src/interp/Makefile.pamphlet
index 2bd94433..d540e5b1 100644
--- a/src/interp/Makefile.pamphlet
+++ b/src/interp/Makefile.pamphlet
@@ -268,11 +268,11 @@ We do, however, care about the macros as these will be
 expanded in later compiles. All macros are assumed to be
 in this list of files.
 <<environment>>=
-DEP=	$(srcdir)/spaderror.lisp	debug.lisp	\
-	$(srcdir)/spad.lisp	\
-	$(srcdir)/setq.lisp	property.lisp	\
+DEP=	spaderror.lisp	debug.lisp	\
+	spad.lisp	\
+	setq.lisp	property.lisp	\
 	unlisp.lisp     foam_l.lisp      \
-	$(srcdir)/axext_l.lisp
+	axext_l.lisp
 
 depsys_lisp_macro_sources = vmlisp.lisp ggreater.lisp hash.lisp \
 	union.lisp nlib.lisp macros.lisp	\
@@ -1139,7 +1139,7 @@ $(axiom_build_texdir)/diagrams.tex: $(axiom_src_docdir)/diagrams.tex
 <<fortcall.clisp>>=
 fortcall.clisp: fortcall.boot
 	@ echo 55 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "fortcall.boot"))' | ${DEPSYS}
 
 @
 
@@ -1164,7 +1164,7 @@ c-util.${LISP}: $(srcdir)/c-util.boot.pamphlet
 <<c-util.clisp>>=
 c-util.clisp: c-util.boot
 	@ echo 148 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "c-util.boot"))' | ${DEPSYS}
 
 @
 
@@ -1173,7 +1173,7 @@ c-util.clisp: c-util.boot
 <<nag-c02.clisp>>=
 nag-c02.clisp: nag-c02.boot
 	@ echo 152 making $@ from $<
-	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "nag-c02.boot"))' | ${DEPSYS}
 
 @
 
@@ -1182,7 +1182,7 @@ nag-c02.clisp: nag-c02.boot
 <<nag-c05.clisp>>=
 nag-c05.clisp: nag-c05.boot
 	@ echo 156 making $@ from $<
-	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "nag-c05.boot"))' | ${DEPSYS}
 
 @
 
@@ -1191,7 +1191,7 @@ nag-c05.clisp: nag-c05.boot
 <<nag-c06.clisp>>=
 nag-c06.clisp: nag-c06.boot
 	@ echo 160 making $@ from $<
-	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "nag-c06.boot"))' | ${DEPSYS}
 
 @
 
@@ -1200,7 +1200,7 @@ nag-c06.clisp: nag-c06.boot
 <<nag-d01.clisp>>=
 nag-d01.clisp: nag-d01.boot
 	@ echo 164 making $@ from $<
-	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "nag-d01.boot"))' | ${DEPSYS}
 
 @
 
@@ -1209,7 +1209,7 @@ nag-d01.clisp: nag-d01.boot
 <<nag-d02.clisp>>=
 nag-d02.clisp: nag-d02.boot
 	@ echo 168 making $@ from $<
-	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "nag-d02.boot"))' | ${DEPSYS}
 
 @
 
@@ -1218,7 +1218,7 @@ nag-d02.clisp: nag-d02.boot
 <<nag-d03.clisp>>=
 nag-d03.clisp: nag-d03.boot
 	@ echo 172 making $@ from $<
-	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "nag-d03.boot"))' | ${DEPSYS}
 
 @
 
@@ -1227,7 +1227,7 @@ nag-d03.clisp: nag-d03.boot
 <<nag-e01.clisp>>=
 nag-e01.clisp: nag-e01.boot
 	@ echo 176 making $@ from $<
-	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "nag-e01.boot"))' | ${DEPSYS}
 
 @
 
@@ -1236,7 +1236,7 @@ nag-e01.clisp: nag-e01.boot
 <<nag-e02.clisp>>=
 nag-e02.clisp: nag-e02.boot
 	@ echo 184 making $@ from $<
-	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "nag-e02.boot"))' | ${DEPSYS}
 
 @
 
@@ -1245,7 +1245,7 @@ nag-e02.clisp: nag-e02.boot
 <<nag-e04.clisp>>=
 nag-e04.clisp: nag-e04.boot
 	@ echo 188 making $@ from $<
-	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "nag-e04.boot"))' | ${DEPSYS}
 
 @
 
@@ -1254,7 +1254,7 @@ nag-e04.clisp: nag-e04.boot
 <<nag-f01.clisp>>=
 nag-f01.clisp: nag-f01.boot
 	@ echo 192 making $@ from $<
-	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "nag-f01.boot"))' | ${DEPSYS}
 
 @
 
@@ -1263,7 +1263,7 @@ nag-f01.clisp: nag-f01.boot
 <<nag-f02.clisp>>=
 nag-f02.clisp: nag-f02.boot
 	@ echo 196 making $@ from $<
-	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "nag-f02.boot"))' | ${DEPSYS}
 
 @
 
@@ -1272,7 +1272,7 @@ nag-f02.clisp: nag-f02.boot
 <<nag-f04.clisp>>=
 nag-f04.clisp: nag-f04.boot
 	@ echo 200 making $@ from $<
-	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "nag-f04.boot"))' | ${DEPSYS}
 
 @
 
@@ -1281,7 +1281,7 @@ nag-f04.clisp: nag-f04.boot
 <<nag-f07.clisp>>=
 nag-f07.clisp: nag-f07.boot
 	@ echo 204 making $@ from $<
-	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "nag-f07.boot"))' | ${DEPSYS}
 
 @
 
@@ -1290,7 +1290,7 @@ nag-f07.clisp: nag-f07.boot
 <<nag-s.clisp>>=
 nag-s.clisp: nag-s.boot
 	@ echo 208 making $@ from $<
-	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (boot::reroot "${AXIOM}") (old-boot::boot "nag-s.boot"))' | ${DEPSYS}
 
 @
 
@@ -1299,7 +1299,7 @@ nag-s.clisp: nag-s.boot
 <<category.clisp>>=
 category.clisp: category.boot
 	@ echo 212 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS} 
+	@ echo '(progn (old-boot::boot "category.boot"))' | ${DEPSYS} 
 @
 
 \subsection{cattable.boot \cite{59}}
@@ -1307,7 +1307,7 @@ category.clisp: category.boot
 <<cattable.clisp>>=
 cattable.clisp: cattable.boot
 	@ echo 215 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "cattable.boot"))' | ${DEPSYS}
 @
 
 \subsection{c-doc.boot \cite{60}}
@@ -1315,7 +1315,7 @@ cattable.clisp: cattable.boot
 <<c-doc.clisp>>=
 c-doc.clisp: c-doc.boot
 	@ echo 219 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS} 
+	@ echo '(progn (old-boot::boot "c-doc.boot"))' | ${DEPSYS} 
 @
 
 
@@ -1324,7 +1324,7 @@ c-doc.clisp: c-doc.boot
 <<clammed.clisp>>=
 clammed.clisp: clammed.boot
 	@ echo 226 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS} 
+	@ echo '(progn (old-boot::boot "clammed.boot"))' | ${DEPSYS} 
 @
 
 \subsection{compat.boot \cite{63}}
@@ -1332,7 +1332,7 @@ clammed.clisp: clammed.boot
 <<compat.clisp>>=
 compat.clisp: compat.boot
 	@ echo 229 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS} 
+	@ echo '(progn (old-boot::boot "compat.boot"))' | ${DEPSYS} 
 @
 
 \subsection{compiler.boot \cite{64}}
@@ -1340,7 +1340,7 @@ compat.clisp: compat.boot
 <<compiler.clisp>>=
 compiler.clisp: compiler.boot
 	@ echo 233 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "compiler.boot"))' | ${DEPSYS}
 @
 
 \subsection{profile.boot \cite{65}}
@@ -1348,7 +1348,7 @@ compiler.clisp: compiler.boot
 <<profile.clisp>>=
 profile.clisp: profile.boot
 	@ echo 237 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "profile.boot"))' | ${DEPSYS}
 @
 
 \subsection{database.boot \cite{67}}
@@ -1356,7 +1356,7 @@ profile.clisp: profile.boot
 <<database.clisp>>=
 database.clisp: database.boot
 	@ echo 243 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "database.boot"))' | ${DEPSYS}
 @
 
 \subsection{define.boot}
@@ -1364,7 +1364,7 @@ database.clisp: database.boot
 <<define.clisp>>=
 define.clisp: define.boot
 	@ echo 247 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "define.boot"))' | ${DEPSYS}
 @
 
 \subsection{format.boot}
@@ -1372,7 +1372,7 @@ define.clisp: define.boot
 <<format.clisp>>=
 format.clisp: format.boot
 	@ echo 250 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "format.boot"))' | ${DEPSYS}
 @
 
 \subsection{functor.boot}
@@ -1380,7 +1380,7 @@ format.clisp: format.boot
 <<functor.clisp>>=
 functor.clisp: functor.boot
 	@ echo 254 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "functor.boot"))' | ${DEPSYS}
 @
 
 \subsection{g-cndata.boot}
@@ -1388,7 +1388,7 @@ functor.clisp: functor.boot
 <<g-cndata.clisp>>=
 g-cndata.clisp: g-cndata.boot
 	@ echo 261 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "g-cndata.boot"))' | ${DEPSYS}
 @
 
 \subsection{g-opt.boot}
@@ -1396,7 +1396,7 @@ g-cndata.clisp: g-cndata.boot
 <<g-opt.clisp>>=
 g-opt.clisp: g-opt.boot
 	@ echo 267 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "g-opt.boot"))' | ${DEPSYS}
 @
 
 \subsection{g-timer.boot}
@@ -1404,7 +1404,7 @@ g-opt.clisp: g-opt.boot
 <<g-timer.clisp>>=
 g-timer.clisp: g-timer.boot
 	@ echo 270 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "g-timer.boot"))' | ${DEPSYS}
 @
 
 
@@ -1413,7 +1413,7 @@ g-timer.clisp: g-timer.boot
 <<hypertex.clisp>>=
 hypertex.clisp: hypertex.boot
 	@ echo 277 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "hypertex.boot"))' | ${DEPSYS}
 @
 
 \subsection{i-analy.boot}
@@ -1421,7 +1421,7 @@ hypertex.clisp: hypertex.boot
 <<i-analy.clisp>>=
 i-analy.clisp: i-analy.boot
 	@ echo 280 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "i-analy.boot"))' | ${DEPSYS}
 @
 
 \subsection{i-code.boot}
@@ -1429,7 +1429,7 @@ i-analy.clisp: i-analy.boot
 <<i-code.clisp>>=
 i-code.clisp: i-code.boot
 	@ echo 283 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "i-code.boot"))' | ${DEPSYS}
 @
 
 \subsection{i-coerce.boot}
@@ -1437,7 +1437,7 @@ i-code.clisp: i-code.boot
 <<i-coerce.clisp>>=
 i-coerce.clisp: i-coerce.boot
 	@ echo 286 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "i-coerce.boot"))' | ${DEPSYS}
 @
 
 \subsection{i-coerfn.boot}
@@ -1445,7 +1445,7 @@ i-coerce.clisp: i-coerce.boot
 <<i-coerfn.clisp>>=
 i-coerfn.clisp: i-coerfn.boot
 	@ echo 289 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "i-coerfn.boot"))' | ${DEPSYS}
 @
 
 \subsection{i-eval.boot}
@@ -1453,7 +1453,7 @@ i-coerfn.clisp: i-coerfn.boot
 <<i-eval.clisp>>=
 i-eval.clisp: i-eval.boot
 	@ echo 292 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "i-eval.boot"))' | ${DEPSYS}
 @
 
 \subsection{i-funsel.boot}
@@ -1461,7 +1461,7 @@ i-eval.clisp: i-eval.boot
 <<i-funsel.clisp>>=
 i-funsel.clisp: i-funsel.boot
 	@ echo 295 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "i-funsel.boot"))' | ${DEPSYS}
 @
 
 \subsection{bookvol5.lsp}
@@ -1478,7 +1478,7 @@ bookvol5.lisp: $(srcdir)/bookvol5.pamphlet
 <<i-intern.clisp>>=
 i-intern.clisp: i-intern.boot
 	@ echo 301 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "i-intern.boot"))' | ${DEPSYS}
 @
 
 \subsection{i-map.boot}
@@ -1486,7 +1486,7 @@ i-intern.clisp: i-intern.boot
 <<i-map.clisp>>=
 i-map.clisp: i-map.boot
 	@ echo 304 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS} 
+	@ echo '(progn (old-boot::boot "i-map.boot"))' | ${DEPSYS} 
 @
 
 \subsection{i-resolv.boot}
@@ -1494,7 +1494,7 @@ i-map.clisp: i-map.boot
 <<i-resolv.clisp>>=
 i-resolv.clisp: i-resolv.boot
 	@ echo 310 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "i-resolv.boot"))' | ${DEPSYS}
 @
 
 \subsection{i-spec1.boot}
@@ -1502,7 +1502,7 @@ i-resolv.clisp: i-resolv.boot
 <<i-spec1.clisp>>=
 i-spec1.clisp: i-spec1.boot
 	@ echo 313 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "i-spec1.boot"))' | ${DEPSYS}
 @
 
 \subsection{i-spec2.boot}
@@ -1510,7 +1510,7 @@ i-spec1.clisp: i-spec1.boot
 <<i-spec2.clisp>>=
 i-spec2.clisp: i-spec2.boot
 	@ echo 316 making $@ from i-spec2.boot
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS} 
+	@ echo '(progn (old-boot::boot "i-spec2.boot"))' | ${DEPSYS} 
 @
 
 \subsection{i-syscmd.boot}
@@ -1518,7 +1518,7 @@ i-spec2.clisp: i-spec2.boot
 <<i-syscmd.clisp>>=
 i-syscmd.clisp: i-syscmd.boot
 	@ echo 319 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "i-syscmd.boot"))' | ${DEPSYS}
 @
 
 \subsection{i-toplev.boot}
@@ -1526,7 +1526,7 @@ i-syscmd.clisp: i-syscmd.boot
 <<i-toplev.clisp>>=
 i-toplev.clisp: i-toplev.boot
 	@ echo 322 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "i-toplev.boot"))' | ${DEPSYS}
 @
 
 \subsection{i-util.boot}
@@ -1534,7 +1534,7 @@ i-toplev.clisp: i-toplev.boot
 <<i-util.clisp>>=
 i-util.clisp: i-util.boot
 	@ echo 325 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "i-util.boot"))' | ${DEPSYS}
 @
 
 \subsection{info.boot}
@@ -1542,7 +1542,7 @@ i-util.clisp: i-util.boot
 <<info.clisp>>=
 info.clisp: info.boot
 	@ echo 329 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "info.boot"))' | ${DEPSYS}
 @
 
 \subsection{iterator.boot}
@@ -1550,7 +1550,7 @@ info.clisp: info.boot
 <<iterator.clisp>>=
 iterator.clisp: iterator.boot
 	@ echo 333 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "iterator.boot"))' | ${DEPSYS}
 @
 
 \subsection{lisplib.boot}
@@ -1558,7 +1558,7 @@ iterator.clisp: iterator.boot
 <<lisplib.clisp>>=
 lisplib.clisp: lisplib.boot
 	@ echo 336 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "lisplib.boot"))' | ${DEPSYS}
 @
 
 \subsection{match.boot}
@@ -1566,7 +1566,7 @@ lisplib.clisp: lisplib.boot
 <<match.clisp>>=
 match.clisp: match.boot
 	@ echo 339 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "match.boot"))' | ${DEPSYS}
 @
 
 \subsection{modemap.boot}
@@ -1574,7 +1574,7 @@ match.clisp: match.boot
 <<modemap.clisp>>=
 modemap.clisp: modemap.boot
 	@ echo 343 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "modemap.boot"))' | ${DEPSYS}
 @
 
 \subsection{msgdb.boot}
@@ -1582,7 +1582,7 @@ modemap.clisp: modemap.boot
 <<msgdb.clisp>>=
 msgdb.clisp: msgdb.boot
 	@ echo 346 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "msgdb.boot"))' | ${DEPSYS}
 @
 
 \subsection{newfort.boot}
@@ -1590,7 +1590,7 @@ msgdb.clisp: msgdb.boot
 <<newfort.clisp>>=
 newfort.clisp: newfort.boot
 	@ echo 349 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "newfort.boot"))' | ${DEPSYS}
 @
 
 \subsection{nruncomp.boot}
@@ -1598,7 +1598,7 @@ newfort.clisp: newfort.boot
 <<nruncomp.clisp>>=
 nruncomp.clisp: nruncomp.boot
 	@ echo 353 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "nruncomp.boot"))' | ${DEPSYS}
 @
 
 \subsection{nrunfast.boot}
@@ -1606,7 +1606,7 @@ nruncomp.clisp: nruncomp.boot
 <<nrunfast.clisp>>=
 nrunfast.clisp: nrunfast.boot
 	@ echo 356 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "nrunfast.boot"))' | ${DEPSYS}
 @
 
 \subsection{nrungo.boot}
@@ -1614,7 +1614,7 @@ nrunfast.clisp: nrunfast.boot
 <<nrungo.clisp>>=
 nrungo.clisp: nrungo.boot
 	@ echo 359 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "nrungo.boot"))' | ${DEPSYS}
 @
 
 \subsection{nruntime.boot}
@@ -1622,7 +1622,7 @@ nrungo.clisp: nrungo.boot
 <<nruntime.clisp>>=
 nruntime.clisp: nruntime.boot
 	@ echo 362 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "nruntime.boot"))' | ${DEPSYS}
 @
 
 \subsection{nrunopt.boot}
@@ -1630,7 +1630,7 @@ nruntime.clisp: nruntime.boot
 <<nrunopt.clisp>>=
 nrunopt.clisp: nrunopt.boot
 	@ echo 365 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "nrunopt.boot"))' | ${DEPSYS}
 @
 
 
@@ -1649,7 +1649,7 @@ to a new platform.
 <<pathname.clisp>>=
 pathname.clisp: pathname.boot
 	@ echo 380 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "pathname.boot"))' | ${DEPSYS}
 @
 
 \subsection{postpar.boot}
@@ -1667,7 +1667,7 @@ to a new platform.
 <<rulesets.clisp>>=
 rulesets.clisp: rulesets.boot
 	@ echo 388 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "rulesets.boot"))' | ${DEPSYS}
 @
 
 \subsection{server.boot}
@@ -1675,7 +1675,7 @@ rulesets.clisp: rulesets.boot
 <<server.clisp>>=
 server.clisp: server.boot
 	@ echo 391 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "server.boot"))' | ${DEPSYS}
 @
 
 
@@ -1684,7 +1684,7 @@ server.clisp: server.boot
 <<setvart.clisp>>=
 setvart.clisp: setvart.boot
 	@ echo 398 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "setvart.boot"))' | ${DEPSYS}
 @
 
 \subsection{as.boot}
@@ -1692,7 +1692,7 @@ setvart.clisp: setvart.boot
 <<as.clisp>>=
 as.clisp: as.boot
 	@ echo 417 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "as.boot"))' | ${DEPSYS}
 @
 
 \subsection{bc-matrix.boot}
@@ -1700,7 +1700,7 @@ as.clisp: as.boot
 <<bc-matrix.clisp>>=
 bc-matrix.clisp: bc-matrix.boot
 	@ echo 424 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "bc-matrix.boot"))' | ${DEPSYS}
 @
 
 \subsection{bc-misc.boot}
@@ -1708,7 +1708,7 @@ bc-matrix.clisp: bc-matrix.boot
 <<bc-misc.clisp>>=
 bc-misc.clisp: bc-misc.boot
 	@ echo 428 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "bc-misc.boot"))' | ${DEPSYS}
 @
 
 \subsection{bc-solve.boot}
@@ -1716,7 +1716,7 @@ bc-misc.clisp: bc-misc.boot
 <<bc-solve.clisp>>=
 bc-solve.clisp: bc-solve.boot
 	@ echo 432 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "bc-solve.boot"))' | ${DEPSYS}
 @
 
 \subsection{bc-util.boot}
@@ -1724,7 +1724,7 @@ bc-solve.clisp: bc-solve.boot
 <<bc-util.clisp>>=
 bc-util.clisp: bc-util.boot
 	@ echo 436 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "bc-util.boot"))' | ${DEPSYS}
 @
 
 \subsection{ht-util.boot}
@@ -1732,7 +1732,7 @@ bc-util.clisp: bc-util.boot
 <<ht-util.clisp>>=
 ht-util.clisp: ht-util.boot
 	@ echo 440 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "ht-util.boot"))' | ${DEPSYS}
 @
 
 \subsection{htsetvar.boot}
@@ -1740,7 +1740,7 @@ ht-util.clisp: ht-util.boot
 <<htsetvar.clisp>>=
 htsetvar.clisp: htsetvar.boot
 	@ echo 444 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "htsetvar.boot"))' | ${DEPSYS}
 @
 
 \subsection{record.boot}
@@ -1748,7 +1748,7 @@ htsetvar.clisp: htsetvar.boot
 <<record.clisp>>=
 record.clisp: record.boot
 	@ echo 447 making $@ $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "record.boot"))' | ${DEPSYS}
 @
 
 \subsection{ht-root.boot}
@@ -1756,7 +1756,7 @@ record.clisp: record.boot
 <<ht-root.clisp>>=
 ht-root.clisp: ht-root.boot
 	@ echo 451 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "ht-root.boot"))' | ${DEPSYS}
 @
 
 \subsection{htcheck.boot}
@@ -1764,7 +1764,7 @@ ht-root.clisp: ht-root.boot
 <<htcheck.clisp>>=
 htcheck.clisp: htcheck.boot
 	@ echo 455 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "htcheck.boot"))' | ${DEPSYS}
 @
 
 \subsection{ax.boot}
@@ -1772,7 +1772,7 @@ htcheck.clisp: htcheck.boot
 <<ax.clisp>>=
 ax.clisp: ax.boot
 	@ echo 463 making $@ $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS} 
+	@ echo '(progn (old-boot::boot "ax.boot"))' | ${DEPSYS} 
 @
 
 \subsection{br-con.boot}
@@ -1780,7 +1780,7 @@ ax.clisp: ax.boot
 <<br-con.clisp>>=
 br-con.clisp: br-con.boot
 	@ echo 467 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS} 
+	@ echo '(progn (old-boot::boot "br-con.boot"))' | ${DEPSYS} 
 @
 
 \subsection{br-search.boot}
@@ -1788,7 +1788,7 @@ br-con.clisp: br-con.boot
 <<br-search.clisp>>=
 br-search.clisp: br-search.boot
 	@ echo 471 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS} 
+	@ echo '(progn (old-boot::boot "br-search.boot"))' | ${DEPSYS} 
 @
 
 \subsection{br-op1.boot}
@@ -1796,7 +1796,7 @@ br-search.clisp: br-search.boot
 <<br-op1.clisp>>=
 br-op1.clisp: br-op1.boot
 	@ echo 475 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "br-op1.boot"))' | ${DEPSYS}
 @
 
 \subsection{br-op2.boot}
@@ -1804,7 +1804,7 @@ br-op1.clisp: br-op1.boot
 <<br-op2.clisp>>=
 br-op2.clisp: br-op2.boot
 	@ echo 479 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS} 
+	@ echo '(progn (old-boot::boot "br-op2.boot"))' | ${DEPSYS} 
 @
 
 \subsection{br-data.boot}
@@ -1812,7 +1812,7 @@ br-op2.clisp: br-op2.boot
 <<br-data.clisp>>=
 br-data.clisp: br-data.boot
 	@ echo 483 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS} 
+	@ echo '(progn (old-boot::boot "br-data.boot"))' | ${DEPSYS} 
 @
 
 \subsection{br-util.boot}
@@ -1820,7 +1820,7 @@ br-data.clisp: br-data.boot
 <<br-util.clisp>>=
 br-util.clisp: br-util.boot
 	@ echo 487 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "br-util.boot"))' | ${DEPSYS}
 @
 
 \subsection{br-saturn.boot}
@@ -1828,7 +1828,7 @@ br-util.clisp: br-util.boot
 <<br-saturn.clisp>>=
 br-saturn.clisp: br-saturn.boot
 	@ echo 491 making $@ from $<
-	@ echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}
+	@ echo '(progn (old-boot::boot "br-saturn.boot"))' | ${DEPSYS}
 @
 
 \subsection{br-prof.boot}
@@ -1837,7 +1837,7 @@ br-saturn.clisp: br-saturn.boot
 br-prof.clisp: br-prof.boot
 	@ echo 499 making $@ from $<
 	@ ($(axiom_build_document) --tangle --output=br-prof.boot $< ;\
-	  echo '(progn (old-boot::boot "$<" "$@"))' | ${DEPSYS}; \
+	  echo '(progn (old-boot::boot "br-prof.boot"))' | ${DEPSYS}; \
 	  rm br-prof.boot )
 
 @
diff --git a/src/interp/axext_l.lisp b/src/interp/axext_l.lisp.pamphlet
index 7663eff6..3d03127c 100644
--- a/src/interp/axext_l.lisp
+++ b/src/interp/axext_l.lisp.pamphlet
@@ -1,3 +1,23 @@
+%% Oh Emacs, this is a -*- Lisp -*- file despite apperance.
+\documentclass{article}
+\usepackage{axiom}
+
+\title{\File{src/interp/axext\_l.lisp} Pamphlet}
+\author{Timothy Daly}
+
+\begin{document}
+\maketitle
+
+\begin{abstract}
+\end{abstract}
+
+
+\tableofcontents
+\eject
+
+\section{License}
+
+<<license>>=
 ;; Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 ;; All rights reserved.
 ;;
@@ -29,6 +49,9 @@
 ;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 ;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 ;; File containing primitives needed by exextend in order to interop with axiom
 ;; This file could do with some declares
@@ -39,7 +62,7 @@
 
 (defun H-integer (l e)
   (|AXL-LiteralToInteger| l))
-        
+	
 (defun  H-string (l e)
   (|AXL-LiteralToString| l))
 
@@ -47,9 +70,9 @@
   (|AXL-error| l))
 
 (eval-when (load eval)
-           (defconstant |G-axclique_string_305639517| (cons #'H-String nil))
-           (defconstant |G-axclique_integer_685864888| (cons #'H-integer nil))
-           (defconstant |G-axclique_error_011667951| (cons #'H-error nil)))
+	   (defconstant |G-axclique_string_305639517| (cons #'H-String nil))
+	   (defconstant |G-axclique_integer_685864888| (cons #'H-integer nil))
+	   (defconstant |G-axclique_error_011667951| (cons #'H-error nil)))
 
 ;; Literals should be null-terminated strings
 
@@ -63,7 +86,7 @@
 
 (defmacro |AXL-LiteralToDoubleFloat| (l)
   `(read-from-string ,l nil (|DFlo0|)
-                     :preserve-whitespace t))
+		     :preserve-whitespace t))
 
 (defmacro |AXL-LiteralToString| (l)
   `(subseq ,l 0 (- (length ,l) 1)))
@@ -82,15 +105,15 @@
 
 (defmacro |AXL-plusInteger| (a b)
   `(the |BInt| (+ (the |BInt| ,a)
-                  (the |BInt| ,b))))
+		  (the |BInt| ,b))))
 
 (defmacro |AXL-minusInteger| (a b)
   `(the |BInt| (- (the |BInt| ,a)
-                  (the |BInt| ,b))))
+		  (the |BInt| ,b))))
 
 (defmacro |AXL-timesInteger| (a b)
   `(the |BInt| (* (the |BInt| ,a)
-                  (the |BInt| ,b))))
+		  (the |BInt| ,b))))
 
 (defmacro |AXL-eqInteger| (a b)
   `(= (the |BInt| ,a)
@@ -114,15 +137,15 @@
 
 (defmacro |AXL-plusSingleInteger| (a b)
   `(the |SInt| (+ (the |SInt| ,a)
-                  (the |SInt| ,b))))
+		  (the |SInt| ,b))))
 
 (defmacro |AXL-minusSingleInteger| (a b)
   `(the |SInt| (- (the |SInt| ,a)
-                  (the |SInt| ,b))))
+		  (the |SInt| ,b))))
 
 (defmacro |AXL-timesSingleInteger| (a b)
   `(the |SInt| (* (the |SInt| ,a)
-                  (the |SInt| ,b))))
+		  (the |SInt| ,b))))
 
 (defmacro |AXL-eqSingleInteger| (a b)
   `(= (the |SInt| ,a)
@@ -199,3 +222,9 @@
 (defun |AXL-spitSInt| (x)
   (print x))
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/bc-matrix.boot b/src/interp/bc-matrix.boot.pamphlet
index bdfcbb9f..008722a6 100644
--- a/src/interp/bc-matrix.boot
+++ b/src/interp/bc-matrix.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp bc-matrix.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 -- Basic Command matrix entry
 
@@ -151,3 +167,9 @@ bcMatrixGen htPage ==
     STRCONC('"matrix(",matstring,'")")
   systemError nil
   
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/bc-misc.boot b/src/interp/bc-misc.boot.pamphlet
index 9a39697c..8e879add 100644
--- a/src/interp/bc-misc.boot
+++ b/src/interp/bc-misc.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp bc-misc.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 --Hypertex commands other than solve and matrix
 
@@ -922,3 +938,9 @@ bcComplexLimitGen htPage ==
   bcFinish('"complexLimit",fun,varPart)
 
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/bc-solve.boot b/src/interp/bc-solve.boot.pamphlet
index e3f6f99b..56314441 100644
--- a/src/interp/bc-solve.boot
+++ b/src/interp/bc-solve.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp bc-solve.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
   -- HyperTeX basic Solve Command
 $systemType := nil
@@ -143,8 +159,8 @@ bcInputEquations(htPage,solutionMethod) ==
       lnam := INTERN STRCONC('"l",STRINGIMAGE i)
       rnam := INTERN STRCONC('"r",STRINGIMAGE i)
       var:= 
-        linearp => bcMakeLinearEquations(i,n)
-        bcMakeEquations(i,n)
+	linearp => bcMakeLinearEquations(i,n)
+	bcMakeEquations(i,n)
       [['text,:prefix],['bcStrings,[30,var,lnam,'P]],'(text . " = "),['bcStrings,[5,"0",rnam,'P]]]
   equationPart := [
      '(domainConditions 
@@ -186,18 +202,18 @@ bcMakeEquations(i,number)==
    STRCONC(
      STRCONC(
       APPLY('CONCAT,[STRCONC(bcCreateVariableString(j),"+") for j in 1..number]),"1"),
-        STRCONC("-2*",STRCONC(bcCreateVariableString(i),"^2")))
+	STRCONC("-2*",STRCONC(bcCreateVariableString(i),"^2")))
 
 
 bcMakeLinearEquations(i,number)==
    number = 1 => bcCreateVariableString(1)
    number = 2 => 
-        i=1 => STRCONC(bcCreateVariableString(1),STRCONC("+",bcCreateVariableString(2)))
-        STRCONC(bcCreateVariableString(1),STRCONC("-",bcCreateVariableString(2)))
+	i=1 => STRCONC(bcCreateVariableString(1),STRCONC("+",bcCreateVariableString(2)))
+	STRCONC(bcCreateVariableString(1),STRCONC("-",bcCreateVariableString(2)))
    STRCONC(
      STRCONC(
       APPLY('CONCAT,[STRCONC(bcCreateVariableString(j),"+") for j in 1..number]),"1"),
-        STRCONC("-2*",bcCreateVariableString(i)))
+	STRCONC("-2*",bcCreateVariableString(i)))
       
 
 bcInputEquationsEnd htPage ==
@@ -360,3 +376,9 @@ bcGenEquations alist ==
 
 
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/bc-util.boot b/src/interp/bc-util.boot.pamphlet
index 211f7cf0..56287145 100644
--- a/src/interp/bc-util.boot
+++ b/src/interp/bc-util.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp bc-util.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 bcFinish(name,arg,:args) == bcGen bcMkFunction(name,arg,args)
 
@@ -123,3 +139,9 @@ stringList2String x ==
 
 htMkName(s,n) == STRCONC(s,STRINGIMAGE n)
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/br-con.boot b/src/interp/br-con.boot.pamphlet
index 6add1a9a..7c7dec66 100644
--- a/src/interp/br-con.boot
+++ b/src/interp/br-con.boot.pamphlet
@@ -1,3 +1,20 @@
+\documentclass{article}
+\usepackage{axiom}
+
+\title{\File{src/interp/br-con.boot} Pamphlet}
+\author{The Axiom Team}
+
+\begin{document}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+
+\section{License}
+
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +46,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 --====================> WAS b-con.boot <================================
 
@@ -1319,7 +1339,7 @@ PUT('Union,'documentation,SUBST(MESSAGE,'MESSAGE,'(
     "\spad{u = v} tests if two objects of the union are equal, that is, \spad{u} and \spad{v} are objects of same branch which are equal."))
   (case (((Boolean) $ "A")
     "\spad{u case a} tests if \spad{u} is of branch \spad{a} of the union.")
-                (((Boolean) $ "B")
+	        (((Boolean) $ "B")
     "\spad{u case b} tests if \spad{u} is of branch \spad{b} of the union."))
   (coerce ((A $)
     "\spad{coerce(u)} returns \spad{x} of type \spad{A} if \spad{x} is of branch \spad{a} of the union. Error: if \spad{u} is of branch \spad{b} of the union.")
@@ -1379,3 +1399,9 @@ digits2Names s ==
       c
     CONCAT(str, segment)
   str
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/br-data.boot b/src/interp/br-data.boot.pamphlet
index 98d35349..a5490ee7 100644
--- a/src/interp/br-data.boot
+++ b/src/interp/br-data.boot.pamphlet
@@ -1,3 +1,20 @@
+\documentclass{article}
+\usepackage{axiom}
+
+\title{\File{src/interp/br-data.boot} Pamphlet}
+\author{The Axiom Team}
+
+\begin{document}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+
+\section{License}
+
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +46,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 lefts u ==
    [x for x in HKEYS  _*HASCATEGORY_-HASH_* | CDR x = u]
@@ -781,3 +801,9 @@ purgeLocalLibdb() ==   --used for debugging purposes only
   obey '"rm libdb.text"
 
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/br-op1.boot b/src/interp/br-op1.boot.pamphlet
index 4eedf3c9..aea5b89b 100644
--- a/src/interp/br-op1.boot
+++ b/src/interp/br-op1.boot.pamphlet
@@ -1,3 +1,20 @@
+\documentclass{article}
+\usepackage{axiom}
+
+\title{\File{src/interp/br-op1.boot} Pamphlet}
+\author{The Axiom Team}
+
+\begin{document}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+
+\section{License}
+
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +46,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 --====================> WAS b-op1.boot <================================
 
@@ -1133,3 +1153,9 @@ evalDomainOpPred(dom,pred) == process(dom,pred) where
     systemError '"unknown atomic predicate form"
 
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/br-op2.boot b/src/interp/br-op2.boot.pamphlet
index b63519d8..3fca3f73 100644
--- a/src/interp/br-op2.boot
+++ b/src/interp/br-op2.boot.pamphlet
@@ -1,3 +1,20 @@
+\documentclass{article}
+\usepackage{axiom}
+
+\title{\File{src/interp/br-op2.boot} Pamphlet}
+\author{The Axiom Team}
+
+\begin{document}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+
+\section{License}
+
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,28 +46,31 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 --====================> WAS br-op2.boot <================================
 
 --=======================================================================
---                   Operation Description
+--		     Operation Description
 --=======================================================================
 
 displayDomainOp(htPage,which,origin,op,sig,predicate,
-                doc,index,chooseFn,unexposed?,$generalSearch?) ==
+		doc,index,chooseFn,unexposed?,$generalSearch?) ==
 -----------------------> OBSELETE
   $saturn =>
     displayDomainOp1(htPage,which,origin,op,sig,predicate,
-                doc,index,chooseFn,unexposed?,$generalSearch?)
-  $chooseDownCaseOfType : local := true   --see dbGetContrivedForm
+		doc,index,chooseFn,unexposed?,$generalSearch?)
+  $chooseDownCaseOfType : local := true	  --see dbGetContrivedForm
   $whereList  : local := nil
   $NumberList : local := '(i j k l m n i1 j1 k1 l1 m1 n1 i2 j2 k2 l2 m2 n2 i3 j3 k3 l3 m3 n3 i4 j4 k4 l4 m4 n4 )
   $ElementList: local := '(x y z u v w x1 y1 z1 u1 v1 w1 x2 y2 z2 u2 v2 w2 x3 y3 z3 u3 v3 w3 x4 y4 z4 u4 v4 w4 )
   $FunctionList:local := '(f g h d e F G H)
-  $DomainList:  local := '(D R S E T A B C M N P Q U V W)
+  $DomainList:	local := '(D R S E T A B C M N P Q U V W)
   exactlyOneOpSig     := null index
   conform   := htpProperty(htPage,'domname) or htpProperty(htPage,'conform)
-                 or origin
+		 or origin
   if $generalSearch? then $DomainList := rest $DomainList
   opform :=
     which = '"attribute" =>
@@ -85,7 +105,7 @@ displayDomainOp(htPage,which,origin,op,sig,predicate,
   constring := form2HtString conform
   conname   := first conform
   $conkind   : local := htpProperty(htPage,'kind) -- a string e.g. "category"
-                          or STRINGIMAGE GETDATABASE(conname,'CONSTRUCTORKIND)
+			  or STRINGIMAGE GETDATABASE(conname,'CONSTRUCTORKIND)
   $conlength : local := #constring
   $conform   : local := conform
   $conargs   : local := rest conform
@@ -111,11 +131,11 @@ displayDomainOp(htPage,which,origin,op,sig,predicate,
       htSayStandard '"\tab{2}"
       htSay '"{\em Arguments:}"
       for a in args for t in rest $sig repeat
-        htSayIndentRel(15,true)
-        htSay('"{\em ",form2HtString(a),'"}, ")
-        htSayValue t
-        htSayIndentRel(-15,true)
-        htSay('"\newline ")
+	htSayIndentRel(15,true)
+	htSay('"{\em ",form2HtString(a),'"}, ")
+	htSayValue t
+	htSayIndentRel(-15,true)
+	htSay('"\newline ")
     if first $sig then
       $displayReturnValue := true
       htSay('"\newline\tab{2}{\em Returns:}")
@@ -146,8 +166,8 @@ displayDomainOp(htPage,which,origin,op,sig,predicate,
       htSayStandard '"{\em \$} is "
       htSaySaturn '"{\em \%} is "
       htSay
-        $conkind = '"category" => '"of category "
-        '"the domain "
+	$conkind = '"category" => '"of category "
+	'"the domain "
       bcConform(conform,true,true)
       htSayIndentRel(-15,true)
     for [d,key,:t] in $whereList | d ^= "$" repeat
@@ -198,11 +218,11 @@ htSayConstructor(key,u) ==
       htSay '"categories "
       bcConform(first middle,true)
       for x in rest middle repeat
-        htSay '", "
-        bcConform(x,true)
+	htSay '", "
+	bcConform(x,true)
       r is ['CATEGORY,.,:r] =>
-        htSay '" and "
-        htSayExplicitExports(r)
+	htSay '" and "
+	htSayExplicitExports(r)
       htSay '" and "
       bcConform(r,true)
     htSay '"category "
@@ -247,7 +267,7 @@ htSayValue t ==
   t is [op,:.] and MEMQ(op,'(Join CATEGORY)) or constructor? opOf t =>
     htSayConstructor(nil,t)
   htSay('"an element of domain ")
-  htSayArgument t                            --continue for operations
+  htSayArgument t			     --continue for operations
 
 htSayArgument t == --called only for operations not for constructors
   null $signature => htSay ['"{\em ",t,'"}"]
@@ -298,7 +318,7 @@ dbMakeContrivedForm(op,sig,:options) ==
   $NumberList : local := '(i j k l m n i1 j1 k1 l1 m1 n1 i2 j2 k2 l2 m2 n2 i3 j3 k3 l3 m3 n3 i4 j4 k4 l4 m4 n4 )
   $ElementList: local := '(x y z u v w x1 y1 z1 u1 v1 w1 x2 y2 z2 u2 v2 w2 x3 y3 z3 u3 v3 w3 x4 y4 z4 u4 v4 w4 )
   $FunctionList:local := '(f g h d e F G H)
-  $DomainList:  local := '(R S D E T A B C M N P Q U V W)
+  $DomainList:	local := '(R S D E T A B C M N P Q U V W)
   dbGetContrivedForm(op,sig)
 
 dbGetContrivedForm(op,sig) ==
@@ -323,10 +343,10 @@ dbChooseOperandName(typ) ==
       x
     x :=
       $chooseDownCaseOfType =>
-        y := DOWNCASE typ
-        x :=
-          member(y,$ElementList) => y
-          first $ElementList
+	y := DOWNCASE typ
+	x :=
+	  member(y,$ElementList) => y
+	  first $ElementList
       first $ElementList
     $ElementList := delete(x,$ElementList)
     x
@@ -366,12 +386,12 @@ getSubstSignature sig ==
       null rest candidates => newsig
       count := NUMOFNODES newsig
       for x in rest candidates repeat
-        trial := fullSubstitute(D,x,sig)
-        trialCount := NUMOFNODES trial
-        trialCount < count =>
-          newsig := trial
-          count  := trialCount
-          winner := x
+	trial := fullSubstitute(D,x,sig)
+	trialCount := NUMOFNODES trial
+	trialCount < count =>
+	  newsig := trial
+	  count	 := trialCount
+	  winner := x
       newsig
     addWhereList(D,'is,winner)
     newsig
@@ -389,7 +409,7 @@ getSubstInsert(x,candidates) ==
 
 
 --=======================================================================
---                      Who Uses
+--			Who Uses
 --=======================================================================
 whoUsesOperation(htPage,which,key) ==  --see dbPresentOps
   key = 'filter => koaPageFilterByName(htPage,'whoUsesOperation)
@@ -445,7 +465,7 @@ whoUses(opSigList,conform) ==
   hash := MAKE_-HASH_-TABLE()
   for name in allConstructors() | MEMQ(name,domList) repeat
     $infovec : local := dbInfovec name
-    null $infovec => 'skip           --category
+    null $infovec => 'skip	     --category
     template := $infovec . 0
     found := false
     opacc := nil
@@ -460,7 +480,7 @@ whoUses(opSigList,conform) ==
       template . whereNumber isnt [= $conname,:.] => 'skip
       signumList := dcSig(numvec,index + 1,numOfArgs)
       opsig := or/[pair for (pair := [op1,:sig]) in opSigList | op1 = op and whoUsesMatch?(signumList,sig,nil)]
-        => opacc := [opsig,:opacc]
+	=> opacc := [opsig,:opacc]
     if opacc then acc := [[name,:opacc],:acc]
   acc
 
@@ -479,7 +499,7 @@ whoUsesMatch1?(signumList,sig,al) ==
   true
 
 --=======================================================================
---                   Get Attribute/Operation Alist
+--		     Get Attribute/Operation Alist
 --=======================================================================
 
 koAttrs(conform,domname) ==
@@ -512,15 +532,15 @@ koOps(conform,domname,:options) == main where
 --    if relatives? then
 --      relatives := relativesOf(conform,domname)
 --      if domname then relatives :=
---      SUBLISLIS([domname,:rest domname],['_$,:rest conform],relatives)
+--	SUBLISLIS([domname,:rest domname],['_$,:rest conform],relatives)
 --      --kill all relatives that have a sharp variable remaining in them
 --      for x in relatives repeat
---      or/[y for y in CDAR x | isSharpVar y] => 'skip
---      acc := [x,:acc]
+--	or/[y for y in CDAR x | isSharpVar y] => 'skip
+--	acc := [x,:acc]
 --      relatives := NREVERSE acc
 --      for (pair := [pakform,:.]) in relatives repeat
---      $packageItem := sublisFormal(rest conform,pair)
---      ours := merge(fn(pakform,nil),ours)
+--	$packageItem := sublisFormal(rest conform,pair)
+--	ours := merge(fn(pakform,nil),ours)
     listSort(function GLESSEQP,trim ours)
   trim u == [pair for pair in u | IFCDR pair]
   fn(conform,domname) ==
@@ -530,7 +550,7 @@ koOps(conform,domname,:options) == main where
     ----------> new <------------------
     u := koCatOps(conform,domname) => u
 --    'category = GETDATABASE(conname,'CONSTRUCTORKIND) =>
---        koCatOps(conform,domname)
+--	  koCatOps(conform,domname)
     asharpConstructorName? opOf conform => nil
     ----------> new <------------------
     $infovec: local := dbInfovec conname--------> removed 94/10/24
@@ -542,15 +562,15 @@ koOps(conform,domname,:options) == main where
       op1 := zeroOneConvert op
       acc :=
        [[op1,:[[sig,npred,:exposureTail] for [sig,slot,pred,key,:.] in sublisFormal(subargs,u) |
-         (key ^= 'Subsumed) and (npred := simpHasPred pred)]],:acc]
+	 (key ^= 'Subsumed) and (npred := simpHasPred pred)]],:acc]
     acc
   merge(alist,alist1) == --alist1 takes precedence
     for [op,:al] in alist1 repeat
       u := LASSOC(op,alist) =>
-        for [sig,:item] in al | not LASSOC(sig,u) repeat
-          u := insertAlist(sig,item,u)
-        alist := insertAlist(op,u,DELASC(op,alist)) --add the merge of two alists
-      alist := insertAlist(op,al,alist)  --add the whole inner alist
+	for [sig,:item] in al | not LASSOC(sig,u) repeat
+	  u := insertAlist(sig,item,u)
+	alist := insertAlist(op,u,DELASC(op,alist)) --add the merge of two alists
+      alist := insertAlist(op,al,alist)	 --add the whole inner alist
     alist
 
 zeroOneConvert x ==
@@ -608,12 +628,12 @@ koCatAttrsAdd(catform,pred) ==
         then HPUT($if,name,[[argl,simpHasPred npred],:exists])
 
 --=======================================================================
---            Filter by Category
+--	      Filter by Category
 --=======================================================================
 
 koaPageFilterByCategory(htPage,calledFrom) ==
   opAlist := htpProperty(htPage,'opAlist)
-  which   := htpProperty(htPage,'which)
+  which	  := htpProperty(htPage,'which)
   page := htInitPageNoScroll(htCopyProplist htPage,
              dbHeading(opAlist,which,htpProperty(htPage,'heading)))
   htSay('"Select a category ancestor below or ")
@@ -645,7 +665,7 @@ koaPageFilterByCategory1(htPage,i) ==
   ancestor := htpProperty(htPage,'ancestors) . i
   ancestorList := [ancestor,:ASSOCLEFT ancestorsOf(ancestor,nil)]
   newOpAlist := nil
-  which    := htpProperty(htPage,'which)
+  which	   := htpProperty(htPage,'which)
   opAlist  := htpProperty(htPage,'opAlist)
   domname  := htpProperty(htPage,'domname)
   conform  := htpProperty(htPage,'conform)
@@ -654,15 +674,15 @@ koaPageFilterByCategory1(htPage,i) ==
   for [op,:alist] in opAlist repeat
     nalist := [[origin,:item] for item in alist | split]
       where split ==
-        [sig,pred,:aux] := item
-        u := dbGetDocTable(op,sig,docTable,which,aux)
-        origin := IFCAR u
-        doc    := IFCDR u
-        true
+	[sig,pred,:aux] := item
+	u := dbGetDocTable(op,sig,docTable,which,aux)
+	origin := IFCAR u
+	doc    := IFCDR u
+	true
     for [origin,:item] in nalist | origin repeat
       member(origin,ancestorList) =>
-        newEntry   := [item,:LASSOC(op,newOpAlist)]
-        newOpAlist := insertAlist(op,newEntry,newOpAlist)
+	newEntry   := [item,:LASSOC(op,newOpAlist)]
+	newOpAlist := insertAlist(op,newEntry,newOpAlist)
   falist := nil
   for [op,:alist] in newOpAlist repeat
     falist := [[op,:NREVERSE alist],:falist]
@@ -670,7 +690,7 @@ koaPageFilterByCategory1(htPage,i) ==
   dbShowOperationsFromConform(htPage,which,falist)
 
 --=======================================================================
---           New code for search operation alist for exact matches
+--	     New code for search operation alist for exact matches
 --=======================================================================
 
 opPageFast opAlist == --called by oSearch
@@ -762,3 +782,9 @@ pairlis(u,v) ==
 
 
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/br-prof.boot b/src/interp/br-prof.boot.pamphlet
index 3db37c6e..cf1d0e58 100644
--- a/src/interp/br-prof.boot
+++ b/src/interp/br-prof.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp br-prof.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,10 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+
+<<*>>=
+<<license>>
 
 --====================> WAS b-prof.boot <================================
 
@@ -263,3 +280,9 @@ getInfoAlist conname ==
 
 
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/br-saturn.boot b/src/interp/br-saturn.boot.pamphlet
index afab398d..46b53f9d 100644
--- a/src/interp/br-saturn.boot
+++ b/src/interp/br-saturn.boot.pamphlet
@@ -1,3 +1,20 @@
+\documentclass{article}
+\usepackage{axiom}
+
+\title{\File{src/interp/br-saturn.boot} Pamphlet}
+\author{The Axiom Team}
+
+\begin{document}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+
+\section{License}
+
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +46,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 --====================> WAS b-saturn.boot <================================
 -- New file as of 6/95
@@ -1202,16 +1222,16 @@ htShowPageStarSaturn() ==
 
 --------------> NEW DEFINITION (see br-op2.boot.pamphlet)
 displayDomainOp(htPage,which,origin,op,sig,predicate,
-                doc,index,chooseFn,unexposed?,$generalSearch?) ==
-  $chooseDownCaseOfType : local := true   --see dbGetContrivedForm
+		doc,index,chooseFn,unexposed?,$generalSearch?) ==
+  $chooseDownCaseOfType : local := true	  --see dbGetContrivedForm
   $whereList  : local := nil
   $NumberList : local := '(i j k l m n i1 j1 k1 l1 m1 n1 i2 j2 k2 l2 m2 n2 i3 j3 k3 l3 m3 n3 i4 j4 k4 l4 m4 n4 )
   $ElementList: local := '(x y z u v w x1 y1 z1 u1 v1 w1 x2 y2 z2 u2 v2 w2 x3 y3 z3 u3 v3 w3 x4 y4 z4 u4 v4 w4 )
   $FunctionList:local := '(f g h d e F G H)
-  $DomainList:  local := '(D R S E T A B C M N P Q U V W)
+  $DomainList:	local := '(D R S E T A B C M N P Q U V W)
   exactlyOneOpSig     := null index
   conform   := htpProperty(htPage,'domname) or htpProperty(htPage,'conform)
-                 or origin
+		 or origin
   if $generalSearch? then $DomainList := rest $DomainList
   opform :=
     which = '"attribute" =>
@@ -1249,7 +1269,7 @@ displayDomainOp(htPage,which,origin,op,sig,predicate,
   constring := form2HtString conform
   conname   := first conform
   $conkind   : local := htpProperty(htPage,'kind) -- a string e.g. "category"
-                          or STRINGIMAGE GETDATABASE(conname,'CONSTRUCTORKIND)
+			  or STRINGIMAGE GETDATABASE(conname,'CONSTRUCTORKIND)
   $conlength : local := #constring
   $conform   : local := conform
   $conargs   : local := rest conform
@@ -1294,7 +1314,7 @@ displayDomainOp(htPage,which,origin,op,sig,predicate,
             coSig := KDR coSig
             htSayValue t
             htSayIndentRel(-15,true)
-            htSayStandard('"\newline ")
+	    htSayStandard('"\newline ")
       htSaySaturn '"\\"
     if first $sig then
       $displayReturnValue := true
@@ -1344,8 +1364,8 @@ displayDomainOp(htPage,which,origin,op,sig,predicate,
       htSayStandard '"{\em \$} is "
       htSaySaturn '"{\em \%} is "
       htSay
-        $conkind = '"category" => '"of category "
-        '"the domain "
+	$conkind = '"category" => '"of category "
+	'"the domain "
       bcConform(conform,true,true)
       firstTime := false
       htSayIndentRel(-15,true)
@@ -1888,3 +1908,9 @@ purgeLocalLibdb() ==   --called by the user through a clear command?
 --  TERSYSCOMMAND()
 
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/br-search.boot b/src/interp/br-search.boot.pamphlet
index 0fb651b6..f886a96a 100644
--- a/src/interp/br-search.boot
+++ b/src/interp/br-search.boot.pamphlet
@@ -1,3 +1,20 @@
+\documentclass{article}
+\usepackage{axiom}
+
+\title{\File{src/interp/br-search.boot} Pamphlet}
+\author{The Axiom Team}
+
+\begin{document}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+
+\section{License}
+
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +46,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 --====================> WAS b-search.boot <================================
 
@@ -489,7 +509,7 @@ genSearchSay(pair,summarize,kind,who,fn) ==
     htSay('"{\em 1 ",kind,'"} ")
   else
     htSay('"{\em ",count,'" ",pluralize kind,'"} ")
-  short => 'done        
+  short => 'done	
   if uniqueCount ^= 1 then
     htSayStandard '"\indent{4}"
     htSay '"\newline "
@@ -1012,3 +1032,9 @@ dbUnpatchLines lines ==  --concatenate long lines together, skip blank lines
 
 
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/br-util.boot b/src/interp/br-util.boot.pamphlet
index f1f286b3..d157054d 100644
--- a/src/interp/br-util.boot
+++ b/src/interp/br-util.boot.pamphlet
@@ -1,3 +1,20 @@
+\documentclass{article}
+\usepackage{axiom}
+
+\title{\File{src/interp/br-util.boot} Pamphlet}
+\author{The Axiom Team}
+
+\begin{document}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+
+\section{License}
+
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,11 +46,14 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 --====================> WAS b-util.boot <================================
 
 --=======================================================================
---                     AXIOM Browser
+--		       AXIOM Browser
 -- Initial entry is from man0.ht page to one of these functions:
 --   kSearch (cSearch, dSearch, or pSearch), for constructors
 --   oSearch, for operations
@@ -47,27 +67,27 @@ browserAutoloadOnceTrigger() == nil
 
 ----------------------> Global Variables <-----------------------
 $includeUnexposed? := true   --default setting
-$tick := char '_`            --field separator for database files
+$tick := char '_`	     --field separator for database files
 $charUnderscore := ('__)     --needed because of parser bug
 $wild1 := '"[^`]*"           --phrase used to convert keys to grep strings
 $browseCountThreshold := 10  --the maximum number of names that will display
-                             --on a general search
+			     --on a general search
 $opDescriptionThreshold := 4 --if <= 4 operations with unique name, give desc
                              --otherwise, give signatures
 $browseMixedCase := true     --distinquish case in the browser?
-$docTable := nil             --cache for documentation table
-$conArgstrings := nil        --bound by conPage so that kPage
-                             --will display arguments if given
-$conformsAreDomains  := false     --are all arguments of a constructor given?
+$docTable := nil	     --cache for documentation table
+$conArgstrings := nil	     --bound by conPage so that kPage
+			     --will display arguments if given
+$conformsAreDomains  := false	  --are all arguments of a constructor given?
 $returnNowhereFromGoGet := false  --special branch out for goget for browser
-$dbDataFunctionAlist := nil       --set by dbGatherData
-$domain   := nil             --bound in koOps
-$infovec  := nil             --bound in koOps
-$predvec  := nil             --bound in koOps
+$dbDataFunctionAlist := nil	  --set by dbGatherData
+$domain	  := nil	     --bound in koOps
+$infovec  := nil	     --bound in koOps
+$predvec  := nil	     --bound in koOps
 $exposedOnlyIfTrue := nil    --see repeatSearch, dbShowOps, dbShowCon
-$bcMultipleNames := nil      --see bcNameConTable
+$bcMultipleNames := nil	     --see bcNameConTable
 $bcConformBincount := nil    --see bcConform1
-$docTableHash := MAKE_-HASHTABLE 'EQUAL  --see dbExpandOpAlistIfNecessary
+$docTableHash := MAKE_-HASHTABLE 'EQUAL	 --see dbExpandOpAlistIfNecessary
 $groupChoice := nil  --see dbShowOperationsFromConform
 
 ------------------> Initial Settings <---------------------
@@ -77,14 +97,14 @@ $dbKindAlist :=
     [char 'd,:'"domain"],[char 'p,:'"package"],
       [char 'c,:'"category"],[char 'x,:'"default_ package"]]
 $OpViewTable := '(
-  (names           "Name"      "Names"           dbShowOpNames)
+  (names	   "Name"      "Names"           dbShowOpNames)
   (documentation   "Name"      "Names"           dbShowOpDocumentation)
-  (domains         "Domain"    "Domains"         dbShowOpDomains)
-  (signatures      "Signature" "Signatures"      dbShowOpSignatures)
-  (parameters      "Form"      "Forms"           dbShowOpParameters)
-  (origins         "Origin"    "Origins"         dbShowOpOrigins)
-  (implementation  nil         "Implementation Domains" dbShowOpImplementations)
-  (conditions      "Condition" "Conditions"      dbShowOpConditions))
+  (domains	   "Domain"    "Domains"         dbShowOpDomains)
+  (signatures	   "Signature" "Signatures"      dbShowOpSignatures)
+  (parameters	   "Form"      "Forms"           dbShowOpParameters)
+  (origins	   "Origin"    "Origins"         dbShowOpOrigins)
+  (implementation  nil	       "Implementation Domains" dbShowOpImplementations)
+  (conditions	   "Condition" "Conditions"      dbShowOpConditions))
 
 bcBlankLine() == bcHt '"\vspace{1}\newline "
 
@@ -104,7 +124,7 @@ capitalize s ==
     SETELT(res,0,UPCASE res.0)
     res
 
-escapeSpecialIds u ==   --very expensive function
+escapeSpecialIds u ==	--very expensive function
   x := LASSOC(u,$htCharAlist) => [x]
   #u = 1 =>
     member(u, $htSpecialChars) => [CONCAT('"_\", u)]
@@ -134,37 +154,37 @@ htPred2English(x,:options) ==
   fn(x,100) where
     fn(x,prec) ==
       x is [op,:l] =>
-        LASSOC(op,$precList) is [iprec,:rename] =>
-          if iprec > prec then htSay '"("
-          fn(first l,iprec)
-          for y in rest l repeat
-            htSay('" ",rename or op,'" ")
-            fn(y,iprec)
-          if iprec > prec then htSay '")"
-        if prec < 5 then htSay '"("
-        gn(x,op,l,prec)
-        if prec < 5 then htSay '")"
+	LASSOC(op,$precList) is [iprec,:rename] =>
+	  if iprec > prec then htSay '"("
+	  fn(first l,iprec)
+	  for y in rest l repeat
+	    htSay('" ",rename or op,'" ")
+	    fn(y,iprec)
+	  if iprec > prec then htSay '")"
+	if prec < 5 then htSay '"("
+	gn(x,op,l,prec)
+	if prec < 5 then htSay '")"
       x = 'etc => htSay '"..."
       IDENTP x and not MEMQ(x,$emList) => htSay escapeSpecialIds PNAME x
       htSay form2HtString(x,$emList)
     gn(x,op,l,prec) ==
       MEMQ(op,'(NOT not)) =>
-        htSay('"not ")
-        fn(first l,0)
+	htSay('"not ")
+	fn(first l,0)
       op = 'HasCategory =>
-        bcConform(first l,$emList)
-        htSay('" has ")
-        bcConform(CADADR l,$emList)
+	bcConform(first l,$emList)
+	htSay('" has ")
+	bcConform(CADADR l,$emList)
       op = 'HasAttribute =>
-        bcConform(first l,$emList)
-        htSay('" has ")
-        fnAttr CADADR l
+	bcConform(first l,$emList)
+	htSay('" has ")
+	fnAttr CADADR l
       MEMQ(op,'(has ofCategory)) =>
-        bcConform(first l,$emList)
-        htSay('" has ")
-        [a,b] := l
-        b is ['ATTRIBUTE,c] and not constructor? c => fnAttr c
-        bcConform(b, $emList)
+	bcConform(first l,$emList)
+	htSay('" has ")
+	[a,b] := l
+	b is ['ATTRIBUTE,c] and not constructor? c => fnAttr c
+	bcConform(b, $emList)
       bcConform(x,$emList)
     fnAttr c ==
       s := form2HtString c
@@ -197,11 +217,11 @@ form2HtString(x,:options) ==
   fn(x) where
     fn x ==
       atom x =>
-        MEMQ(x,$FormalMapVariableList) => STRCONC('"\",STRINGIMAGE x)
-        u := escapeSpecialChars STRINGIMAGE x
-        MEMQ(x,$emList) => STRCONC('"{\em ",u,'"}")
-        STRINGP x => STRCONC('"_"",u,'"_"")
-        u
+	MEMQ(x,$FormalMapVariableList) => STRCONC('"\",STRINGIMAGE x)
+	u := escapeSpecialChars STRINGIMAGE x
+	MEMQ(x,$emList) => STRCONC('"{\em ",u,'"}")
+	STRINGP x => STRCONC('"_"",u,'"_"")
+	u
       first x = 'QUOTE => STRCONC('"'",sexpr2HtString first rest x)
       first x = ":" => STRCONC(fn first rest x,'": ",fn first rest rest x)
       first x = 'Mapping =>
@@ -266,7 +286,7 @@ dbConstructorKind x ==
   'domain
 
 getConstructorForm name ==
-  name = 'Union   => '(Union  (_: a A) (_: b B))
+  name = 'Union	  => '(Union  (_: a A) (_: b B))
   name = 'UntaggedUnion => '(Union A B)
   name = 'Record  => '(Record (_: a A) (_: b B))
   name = 'Mapping => '(Mapping T S)
@@ -470,8 +490,8 @@ bcConTable u ==
 bcAbbTable u ==
   htBeginTable()
   firstTime := true
-  for x in REMDUP u repeat        --allow x to be NIL meaning "no abbreviation"
-  -- for x in u repeat    --allow x to be NIL meaning "no abbreviation"
+  for x in REMDUP u repeat	  --allow x to be NIL meaning "no abbreviation"
+  -- for x in u repeat	  --allow x to be NIL meaning "no abbreviation"
     if firstTime then firstTime := false
     else htSaySaturn '"&"
     if x is [con,abb,:.] then
@@ -519,7 +539,7 @@ splitConTable cons ==
   uncond := cond := nil
   for (pair := [con,:pred]) in cons repeat
     null pred => 'skip
-    pred = 'T or pred is ['hasArgs,:.]  => uncond := [pair,:uncond]
+    pred = 'T or pred is ['hasArgs,:.]	=> uncond := [pair,:uncond]
     cond := [pair,:cond]
   [NREVERSE uncond,:NREVERSE cond]
 
@@ -609,7 +629,7 @@ dbGetInputString htPage ==
 
 
 --=======================================================================
---                   Error Pages
+--		     Error Pages
 --=======================================================================
 bcErrorPage u ==
   u is ['error,:r] =>
@@ -622,7 +642,7 @@ bcErrorPage u ==
 errorPage(htPage,[heading,kind,:info]) ==
   kind = 'invalidType => kInvalidTypePage first info
   if heading = 'error then htInitPage('"Error",nil) else
-                           htInitPage(heading,nil)
+			   htInitPage(heading,nil)
   bcBlankLine()
   for x in info repeat htSay x
   htShowPage()
@@ -664,7 +684,7 @@ dbNotAvailablePage(:options) ==
   htShowPage()
 
 --=======================================================================
---       Utility Functions for Manipulating Browse Datalines
+--	 Utility Functions for Manipulating Browse Datalines
 --=======================================================================
 dbpHasDefaultCategory? s ==  #s > 1 and s.1 = char 'x  --s is part 3 of line
 
@@ -710,3 +730,9 @@ mySort u == listSort(function GLESSEQP,u)
 
 
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/buildom.boot b/src/interp/buildom.boot.pamphlet
index 31fd1336..cbbc7a43 100644
--- a/src/interp/buildom.boot
+++ b/src/interp/buildom.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp buildom.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 -- This file contains the constructors for the domains that cannot
 -- be written in ScratchpadII yet.  They are not cached because they
@@ -58,36 +74,36 @@ Record0 args ==
     -- JHD added an extra slot to cache EQUAL methods
     dom.0 := ["Record", :[["_:", CAR a, devaluate CDR a] for a in args]]
     dom.1 :=
-           [function lookupInTable,dom,
-               [["_=",[[["Boolean"],"_$","_$"],:12]],
-                 ["coerce",[[$Expression,"_$"],:14]]]]
+	   [function lookupInTable,dom,
+	       [["_=",[[["Boolean"],"_$","_$"],:12]],
+		 ["coerce",[[$Expression,"_$"],:14]]]]
     dom.2 := NIL
     dom.3 := ["RecordCategory",:QCDR dom.0]
     dom.4 :=
-          [[ '(SetCategory) ],[ '(SetCategory) ]]
+	  [[ '(SetCategory) ],[ '(SetCategory) ]]
     dom.5 := [CDR a for a in args]
     dom.6 := [function RecordEqual, :dom]
     dom.7 := [function RecordPrint, :dom]
     dom.8 := [function Undef, :dom]
   -- following is cache for equality functions
     dom.9 := if (n:= LENGTH args) <= 2
-              then [NIL,:NIL]
-              else GETREFV n
+	      then [NIL,:NIL]
+	      else GETREFV n
     dom
 
 RecordEqual(x,y,dom) ==
   PAIRP x =>
     b:=
        SPADCALL(CAR x, CAR y, CAR(dom.9) or
-                           CAR RPLACA(dom.9,findEqualFun(dom.5.0)))
+			   CAR RPLACA(dom.9,findEqualFun(dom.5.0)))
     NULL rest(dom.5) => b
     b and
        SPADCALL(CDR x, CDR y, CDR (dom.9) or
-                           CDR RPLACD(dom.9,findEqualFun(dom.5.1)))
+			   CDR RPLACD(dom.9,findEqualFun(dom.5.1)))
   VECP x =>
     equalfuns := dom.9
     and/[SPADCALL(x.i,y.i,equalfuns.i or (equalfuns.i:=findEqualFun(fdom)))
-         for i in 0.. for fdom in dom.5]
+	 for i in 0.. for fdom in dom.5]
   error '"Bug: Silly record representation"
 
 RecordPrint(x,dom) == coerceRe2E(x,dom.3)
@@ -120,16 +136,16 @@ coerceRe2E(x,source) ==
 Union(:args) ==
     dom := GETREFV 9
     dom.0 := ["Union", :[(if a is ["_:",tag,domval] then ["_:",tag,devaluate domval]
-                          else devaluate a) for a in args]]
+			  else devaluate a) for a in args]]
     dom.1 :=
-            [function lookupInTable,dom,
-               [["_=",[[["Boolean"],"_$","_$"],:12]],
-                 ["coerce",[[$Expression,"_$"],:14]]]]
+	    [function lookupInTable,dom,
+	       [["_=",[[["Boolean"],"_$","_$"],:12]],
+		 ["coerce",[[$Expression,"_$"],:14]]]]
     dom.2 := NIL
     dom.3 :=
       '(SetCategory)
     dom.4 :=
-          [[ '(SetCategory) ],[ '(SetCategory) ]]
+	  [[ '(SetCategory) ],[ '(SetCategory) ]]
     dom.5 := args
     dom.6 := [function UnionEqual, :dom]
     dom.7 := [function UnionPrint, :dom]
@@ -174,14 +190,14 @@ Mapping(:args) ==
     dom := GETREFV 9
     dom.0 := ["Mapping", :[devaluate a for a in args]]
     dom.1 :=
-            [function lookupInTable,dom,
-               [["_=",[[["Boolean"],"_$","_$"],:12]],
-                 ["coerce",[[$Expression,"_$"],:14]]]]
+	    [function lookupInTable,dom,
+	       [["_=",[[["Boolean"],"_$","_$"],:12]],
+		 ["coerce",[[$Expression,"_$"],:14]]]]
     dom.2 := NIL
     dom.3 :=
       '(SetCategory)
     dom.4 :=
-          [[ '(SetCategory) ],[ '(SetCategory) ]]
+	  [[ '(SetCategory) ],[ '(SetCategory) ]]
     dom.5 := args
     dom.6 := [function MappingEqual, :dom]
     dom.7 := [function MappingPrint, :dom]
@@ -205,14 +221,14 @@ Enumeration(:"args") ==
     -- JHD added an extra slot to cache EQUAL methods
     dom.0 := ["Enumeration", :args]
     dom.1 :=
-           [function lookupInTable,dom,
-               [["_=",[[["Boolean"],"_$","_$"],:12]],
-                 ["coerce",[[$Expression,"_$"],:14], [["_$", $Symbol], :16]]
+	   [function lookupInTable,dom,
+	       [["_=",[[["Boolean"],"_$","_$"],:12]],
+		 ["coerce",[[$Expression,"_$"],:14], [["_$", $Symbol], :16]]
                          ]]
     dom.2 := NIL
     dom.3 := ["EnumerationCategory",:QCDR dom.0]
     dom.4 :=
-          [[ '(SetCategory) ],[ '(SetCategory) ]]
+	  [[ '(SetCategory) ],[ '(SetCategory) ]]
     dom.5 := args
     dom.6 := [function EnumEqual, :dom]
     dom.7 := [function EnumPrint, :dom]
@@ -240,11 +256,11 @@ UnionCategory(:"x") == constructorCategory ["Union",:x]
 --ListCategory(:"x") == constructorCategory ("List",:x)
 
 --VectorCategory(:"x") == constructorCategory ("Vector",:x)
-          --above two now defined in SPAD code.
+	  --above two now defined in SPAD code.
 
 constructorCategory (title is [op,:.]) ==
   constructorFunction:= GETL(op,"makeFunctionList") or
-              systemErrorHere '"constructorCategory"
+	      systemErrorHere '"constructorCategory"
   [funlist,.]:= FUNCALL(constructorFunction,"$",title,$CategoryFrame)
   oplist:= [[[a,b],true,c] for [a,b,c] in funlist]
   cat:=
@@ -266,23 +282,23 @@ mkRecordFunList(nam,["Record",:Alist],e) ==
 
 --  for (.,a,.) in Alist do
 --    if getmode(a,e) then MOAN("Symbol: ",a,
---        " must not be both a variable and literal")
+--	  " must not be both a variable and literal")
 --    e:= put(a,"isLiteral","true",e)
   dc := GENSYM()
   sigFunAlist:=
      --:((a,(A,nam),("XLAM",("$1","$2"),("RECORDELT","$1",i,len)))
-     --       for i in 0..,(.,a,A) in Alist),
+     --	      for i in 0..,(.,a,A) in Alist),
 
     [["construct",[nam,:[A for [.,a,A] in Alist]],"mkRecord"],
       ["_=",[["Boolean"],nam ,nam],["ELT",dc,6]],
        ["coerce",[$Expression,nam],["ELT",dc,7]],:
-        [["elt",[A,nam,PNAME a],["XLAM",["$1","$2"],["RECORDELT","$1",i,len]]]
-            for i in 0.. for [.,a,A] in Alist],:
-          [["setelt",[A,nam,PNAME a,A],["XLAM",["$1","$2","$3"],
-            ["SETRECORDELT","$1",i, len,"$3"]]]
-              for i in 0.. for [.,a,A] in Alist],:
-                [["copy",[nam,nam],["XLAM",["$1"],["RECORDCOPY",
-                  "$1",len]]]]]
+	[["elt",[A,nam,PNAME a],["XLAM",["$1","$2"],["RECORDELT","$1",i,len]]]
+	    for i in 0.. for [.,a,A] in Alist],:
+	  [["setelt",[A,nam,PNAME a,A],["XLAM",["$1","$2","$3"],
+	    ["SETRECORDELT","$1",i, len,"$3"]]]
+	      for i in 0.. for [.,a,A] in Alist],:
+		[["copy",[nam,nam],["XLAM",["$1"],["RECORDCOPY",
+		  "$1",len]]]]]
   [substitute(nam,dc,substitute("$","Rep",sigFunAlist)),e]
 
 mkNewUnionFunList(name,form is ["Union",:listOfEntries],e) ==
@@ -293,18 +309,18 @@ mkNewUnionFunList(name,form is ["Union",:listOfEntries],e) ==
     [["_=",[["Boolean"],name ,name],["ELT",dc,6]],
      ["coerce",[$Expression,name],["ELT",dc,7]],:
        ("append"/
-        [[["construct",[name,type],["XLAM",["#1"],["CONS",i,"#1"]]],
-          ["elt",[type,name,tag],cdownFun],
-            ["case",['(Boolean),name,tag],
-               ["XLAM",["#1"],["QEQCAR","#1",i]]]]
-                 for [.,tag,type] in listOfEntries for i in 0..])] where
-                   cdownFun() ==
-                    gg:=GENSYM()
-                    $InteractiveMode =>
-                      ["XLAM",["#1"],["PROG1",["QCDR","#1"],
-                        ["check_-union",["QEQCAR","#1",i],type,"#1"]]]
-                    ["XLAM",["#1"],["PROG2",["LET",gg,"#1"],["QCDR",gg],
-                      ["check_-union",["QEQCAR",gg,i],type,gg]]]
+	[[["construct",[name,type],["XLAM",["#1"],["CONS",i,"#1"]]],
+	  ["elt",[type,name,tag],cdownFun],
+	    ["case",['(Boolean),name,tag],
+	       ["XLAM",["#1"],["QEQCAR","#1",i]]]]
+		 for [.,tag,type] in listOfEntries for i in 0..])] where
+		   cdownFun() ==
+		    gg:=GENSYM()
+		    $InteractiveMode =>
+		      ["XLAM",["#1"],["PROG1",["QCDR","#1"],
+			["check_-union",["QEQCAR","#1",i],type,"#1"]]]
+		    ["XLAM",["#1"],["PROG2",["LET",gg,"#1"],["QCDR",gg],
+		      ["check_-union",["QEQCAR",gg,i],type,gg]]]
   [cList,e]
 
 mkEnumerationFunList(nam,["Enumeration",:SL],e) ==
@@ -331,34 +347,40 @@ mkUnionFunList(op,form is ["Union",:listOfEntries],e) ==
     ["coerce",[$Expression,g],["ELT",op,7]],:
      ("append"/
       [[["autoCoerce",[g,t],upFun],
-        ["coerce",[t,g],cdownFun],
-        ["autoCoerce",[t,g],downFun], --this should be removed eventually
-        ["case",['(Boolean),g,t],typeFun]]
-          for p in predList for t in listOfEntries])] where
-             upFun() ==
-               p is ["EQCAR",x,n] => ["XLAM",["#1"],["CONS",n,"#1"]]
-               ["XLAM",["#1"],"#1"]
-             cdownFun() ==
-               gg:=GENSYM()
-               if p is ["EQCAR",x,n] then
-                  ref:=["QCDR",gg]
-                  q:= ["QEQCAR", gg, n]
-               else
-                  ref:=gg
-                  q:= substitute(gg,"#1",p)
-               ["XLAM",["#1"],["PROG2",["LET",gg,"#1"],ref,
-                    ["check_-union",q,t,gg]]]
-             downFun() ==
-                p is ["EQCAR",x,.] =>
-                  ["XLAM",["#1"],["QCDR","#1"]]
-                ["XLAM",["#1"],"#1"]
-             typeFun() ==
-                p is ["EQCAR",x,n] =>
-                  ["XLAM",["#1"],["QEQCAR",x,n]]
-                ["XLAM",["#1"],p]
+	["coerce",[t,g],cdownFun],
+	["autoCoerce",[t,g],downFun], --this should be removed eventually
+	["case",['(Boolean),g,t],typeFun]]
+	  for p in predList for t in listOfEntries])] where
+	     upFun() ==
+	       p is ["EQCAR",x,n] => ["XLAM",["#1"],["CONS",n,"#1"]]
+	       ["XLAM",["#1"],"#1"]
+	     cdownFun() ==
+	       gg:=GENSYM()
+	       if p is ["EQCAR",x,n] then
+		  ref:=["QCDR",gg]
+		  q:= ["QEQCAR", gg, n]
+	       else
+		  ref:=gg
+		  q:= substitute(gg,"#1",p)
+	       ["XLAM",["#1"],["PROG2",["LET",gg,"#1"],ref,
+		    ["check_-union",q,t,gg]]]
+	     downFun() ==
+		p is ["EQCAR",x,.] =>
+		  ["XLAM",["#1"],["QCDR","#1"]]
+		["XLAM",["#1"],"#1"]
+	     typeFun() ==
+		p is ["EQCAR",x,n] =>
+		  ["XLAM",["#1"],["QEQCAR",x,n]]
+		["XLAM",["#1"],p]
   op:=
     op="Rep" => "$"
     op
   cList:= substitute(op,g,cList)
   [cList,e]
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/c-doc.boot b/src/interp/c-doc.boot.pamphlet
index ffbb4617..d1d0949c 100644
--- a/src/interp/c-doc.boot
+++ b/src/interp/c-doc.boot.pamphlet
@@ -1,3 +1,20 @@
+\documentclass{article}
+\usepackage{axiom}
+
+\title{\File{src/interp/c-doc.boot} Pamphlet}
+\author{The Axiom Team}
+
+\begin{document}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+
+\section{License}
+
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +46,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 batchExecute() ==
   _/RF_-1 '(GENCON INPUT)
@@ -1270,3 +1290,9 @@ checkDecorateForHt u ==
 
 
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/cattable.boot b/src/interp/cattable.boot.pamphlet
index 2d5e74ca..d25eaf80 100644
--- a/src/interp/cattable.boot
+++ b/src/interp/cattable.boot.pamphlet
@@ -1,3 +1,20 @@
+\documentclass{article}
+\usepackage{axiom}
+
+\title{\File{src/interp cattable.boot} Pamphlet}
+\author{The Axiom Team}
+
+\begin{document}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+
+\section{License}
+
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +46,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 hasCat(domainOrCatName,catName) ==
   catName='Object or catName='Type  -- every domain is a Type (Object)
@@ -499,3 +519,9 @@ clearTempCategoryTable(catNames) ==
 
 
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/cfuns.lisp b/src/interp/cfuns.lisp.pamphlet
index dbe77db4..d9bf72d5 100644
--- a/src/interp/cfuns.lisp
+++ b/src/interp/cfuns.lisp.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp cfuns.lisp}
+\author{Timothy Daly}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 ;; Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 ;; All rights reserved.
 ;;
@@ -29,6 +42,9 @@
 ;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 ;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 (in-package "BOOT")
 
@@ -99,3 +115,9 @@
 (defun |hashCombine| (x y) (system:|hashCombine| x y))
 
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/clam.boot b/src/interp/clam.boot.pamphlet
index 3095753f..d811c00a 100644
--- a/src/interp/clam.boot
+++ b/src/interp/clam.boot.pamphlet
@@ -1,3 +1,19 @@
+\documentclass{article}
+\usepackage{axiom}
+
+\title{\File{/src/interp/clam.boot} Pamphlet}
+\author{The Axiom Team}
+
+\begin{document}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +45,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 )package "BOOT"
 
@@ -700,3 +719,11 @@ removeAllClams() ==
   for [fun,:.] in $clamList repeat
     sayBrightly ['"Un-clamming function",'%b,fun,'%d]
     SET(fun,eval INTERN STRCONC(STRINGIMAGE fun,'";"))
+@
+
+
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/clammed.boot b/src/interp/clammed.boot.pamphlet
index 82cbffe9..d0689739 100644
--- a/src/interp/clammed.boot
+++ b/src/interp/clammed.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp clammed.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 --% Functions on $clamList
 
@@ -205,3 +221,9 @@ underDomainOf t ==
   u := getUnderModeOf(t) => u
   last d
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/compress.boot b/src/interp/compress.boot.pamphlet
index a9e41ac5..ddf74136 100644
--- a/src/interp/compress.boot
+++ b/src/interp/compress.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp compress.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 )package "BOOT"
 
@@ -65,3 +81,9 @@ minimalise x ==
   x
  
  
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/cstream.boot b/src/interp/cstream.boot.pamphlet
index 01190dac..46be9728 100644
--- a/src/interp/cstream.boot
+++ b/src/interp/cstream.boot.pamphlet
@@ -1,3 +1,30 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp cstream.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+The input stream is parsed into a large s-expression by repeated calls
+to Delay. Delay takes a function f and an argument x and returns a list
+consisting of ("nonnullstream" f x). Eventually multiple calls are made
+and a large list structure is created that consists of 
+("nonnullstream" f x ("nonnullstream" f1 x1 ("nonnullstream" f2 x2...
+
+This delay structure is given to StreamNull which walks along the
+list looking at the head. If the head is "nonnullstream" then the
+function is applied to the argument.
+
+So, in effect, the input is "zipped up" into a Delay data structure
+which is then evaluated by calling StreamNull. This "zippered stream"
+parser was a research project at IBM and Axiom was the testbed (which
+explains the strange parsing technique).
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +56,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 import '"sys-macros"
 
@@ -109,3 +139,9 @@ spadcall1(g)==
 spadcall2(f,args) ==
     [impl, :env] := f
     APPLY(impl, [args, env])
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/database.boot b/src/interp/database.boot.pamphlet
index e1c9e069..f33d9333 100644
--- a/src/interp/database.boot
+++ b/src/interp/database.boot.pamphlet
@@ -1,3 +1,20 @@
+\documentclass{article}
+\usepackage{axiom}
+
+\title{\File{src/interp/database.boot} Pamphlet}
+\author{The Axiom Team}
+
+\begin{document}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+
+\section{License}
+
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +46,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 SETANDFILEQ($getUnexposedOperations,true)
 
@@ -52,7 +72,7 @@ augLisplibModemapsFromCategory(form is [op,:argl],body,signature) ==
       pred':= MKPF([pred,:catPredList],'AND)
       modemap:= [["*1",:sig],[pred',sel]]
       $lisplibModemapAlist:=
-        [[op,:interactiveModemapForm modemap],:$lisplibModemapAlist]
+	[[op,:interactiveModemapForm modemap],:$lisplibModemapAlist]
 
 augmentLisplibModemapsFromFunctor(form,opAlist,signature) ==
   form:= [formOp,:argl]:= formal2Pattern form
@@ -68,30 +88,30 @@ augmentLisplibModemapsFromFunctor(form,opAlist,signature) ==
   for (entry:= [[op,sig,:.],pred,sel]) in opAlist |
     or/[(sig in catSig) for catSig in
       allLASSOCs(op,nonCategorySigAlist)] repeat
-        skip:=
-          argl and CONTAINED("$",rest sig) => 'SKIP
-          nil
-        sel:= substitute(form,"$",sel)
-        patternList:= listOfPatternIds sig
-        --get relevant predicates
-        predList:=
-          [[a,m] for a in argl for m in rest signature
-            | MEMQ(a,$PatternVariableList)]
-        sig:= substitute(form,"$",sig)
-        pred':= MKPF([pred,:[mkDatabasePred y for y in predList]],'AND)
-        l:=listOfPatternIds predList
-        if "OR"/[null MEMQ(u,l) for u in argl] then
-          sayMSG ['"cannot handle modemap for",:bright op,
-                          '"by pattern match" ]
-          skip:= 'SKIP
-        modemap:= [[form,:sig],[pred',sel,:skip]]
-        $lisplibModemapAlist:= [[op,:interactiveModemapForm modemap],
-          :$lisplibModemapAlist]
+	skip:=
+	  argl and CONTAINED("$",rest sig) => 'SKIP
+	  nil
+	sel:= substitute(form,"$",sel)
+	patternList:= listOfPatternIds sig
+	--get relevant predicates
+	predList:=
+	  [[a,m] for a in argl for m in rest signature
+	    | MEMQ(a,$PatternVariableList)]
+	sig:= substitute(form,"$",sig)
+	pred':= MKPF([pred,:[mkDatabasePred y for y in predList]],'AND)
+	l:=listOfPatternIds predList
+	if "OR"/[null MEMQ(u,l) for u in argl] then
+	  sayMSG ['"cannot handle modemap for",:bright op,
+			  '"by pattern match" ]
+	  skip:= 'SKIP
+	modemap:= [[form,:sig],[pred',sel,:skip]]
+	$lisplibModemapAlist:= [[op,:interactiveModemapForm modemap],
+	  :$lisplibModemapAlist]
 
 rebuildCDT(filemode) ==
   clearConstructorAndLisplibCaches()
   $databaseQueue:local :=nil
-  $e: local := [[NIL]]    -- We may need to evaluate Categories
+  $e: local := [[NIL]]	  -- We may need to evaluate Categories
   buildDatabase(filemode,false)
   $IOindex:= 1
   $InteractiveFrame:= [[NIL]]
@@ -99,7 +119,7 @@ rebuildCDT(filemode) ==
 
 buildDatabase(filemode,expensive) ==
   $InteractiveMode: local:= true
-  $constructorList := nil       --looked at by buildLibdb
+  $constructorList := nil	--looked at by buildLibdb
   $ConstructorCache:= MAKE_-HASHTABLE('ID)
   SAY '"Making constructor autoload"
   makeConstructorsAutoLoad()
@@ -169,14 +189,14 @@ orderPredicateItems(pred1,sig,skip) ==
 orderPredTran(oldList,sig,skip) ==
   lastPreds:=nil
   --(1) make two kinds of predicates appear last:
-  -----  (op *target ..) when *target does not appear later in sig
-  -----  (isDomain *1 ..)
+  -----	 (op *target ..) when *target does not appear later in sig
+  -----	 (isDomain *1 ..)
   for pred in oldList repeat
     ((pred is [op,pvar,.] and MEMQ(op,'(isDomain ofCategory))
        and pvar=first sig and ^(pvar in rest sig)) or
-        (^skip and pred is ['isDomain,pvar,.] and pvar="*1")) =>
-          oldList:=delete(pred,oldList)
-          lastPreds:=[pred,:lastPreds]
+	(^skip and pred is ['isDomain,pvar,.] and pvar="*1")) =>
+	  oldList:=delete(pred,oldList)
+	  lastPreds:=[pred,:lastPreds]
 --sayBrightlyNT "lastPreds="
 --pp lastPreds
 
@@ -201,7 +221,7 @@ orderPredTran(oldList,sig,skip) ==
       indepvl := listOfPatternIds x
       depvl := nil
     (INTERSECTIONQ(indepvl,dependList) = nil)
-        and INTERSECTIONQ(indepvl,lastDependList) =>
+	and INTERSECTIONQ(indepvl,lastDependList) =>
       somethingDone := true
       lastPreds := [:lastPreds,x]
       oldList := delete(x,oldList)
@@ -215,14 +235,14 @@ orderPredTran(oldList,sig,skip) ==
   while oldList repeat
     for x in oldList repeat
       if (x is ['ofCategory,v,body]) or (x is ['isDomain,v,body]) then
-        indepvl:=listOfPatternIds v
-        depvl:=listOfPatternIds body
+	indepvl:=listOfPatternIds v
+	depvl:=listOfPatternIds body
       else
-        indepvl := listOfPatternIds x
-        depvl := nil
+	indepvl := listOfPatternIds x
+	depvl := nil
       (INTERSECTIONQ(indepvl,dependList) = nil) =>
-        dependList:= setDifference(dependList,depvl)
-        newList:= [:newList,x]
+	dependList:= setDifference(dependList,depvl)
+	newList:= [:newList,x]
 --  sayBrightlyNT "newList="
 --  pp newList
 
@@ -239,7 +259,7 @@ orderPredTran(oldList,sig,skip) ==
     if pred is ['isDomain,x,y] or x is ['ofCategory,x,y] then
       ids:= listOfPatternIds y
       if and/[id in fullDependList for id in ids] then
-        fullDependList:= insertWOC(x,fullDependList)
+	fullDependList:= insertWOC(x,fullDependList)
       fullDependList:= UNIONQ(fullDependList,ids)
 
   newList:=[:newList,:lastPreds]
@@ -254,8 +274,8 @@ isDomainSubst u == main where
   main ==
     u is [head,:tail] =>
       nhead :=
-        head is ['isDomain,x,y] => ['isDomain,x,fn(y,tail)]
-        head
+	head is ['isDomain,x,y] => ['isDomain,x,fn(y,tail)]
+	head
       [nhead,:isDomainSubst rest u]
     u
   fn(x,alist) ==
@@ -377,7 +397,7 @@ getDomainFromMm mm ==
   if cond is ['partial, :c] then cond := c
   condList :=
     cond is ['AND, :cl] => cl
-    cond is ['OR, ['AND, :cl],:.] => cl  --all cl's should give same info
+    cond is ['OR, ['AND, :cl],:.] => cl	 --all cl's should give same info
     [cond]
   val :=
     for condition in condList repeat
@@ -397,7 +417,7 @@ getFirstArgTypeFromMm mm ==
   if cond is ['partial, :c] then cond := c
   condList :=
     cond is ['AND, :cl] => cl
-    cond is ['OR, ['AND, :cl],:.] => cl  --all cl's should give same info
+    cond is ['OR, ['AND, :cl],:.] => cl	 --all cl's should give same info
     [cond]
   type := nil
   for condition in condList while not type repeat
@@ -416,7 +436,7 @@ isFreeFunctionFromMmCond cond ==
   if cond is ['partial, :c] then cond := c
   condList :=
     cond is ['AND, :cl] => cl
-    cond is ['OR, ['AND, :cl],:.] => cl  --all cl's should give same info
+    cond is ['OR, ['AND, :cl],:.] => cl	 --all cl's should give same info
     [cond]
   iff := false
   for condition in condList while not iff repeat
@@ -443,7 +463,7 @@ getSystemModemaps(op,nargs) ==
     for (x := [[.,:sig],.]) in mml repeat
       (NUMBERP nargs) and (nargs ^= #QCDR sig) => 'iterate
       $getUnexposedOperations or isFreeFunctionFromMm(x) or
-        isExposedConstructor(getDomainFromMm(x)) => mms := [x,:mms]
+	isExposedConstructor(getDomainFromMm(x)) => mms := [x,:mms]
       'iterate
     mms
   nil
@@ -453,8 +473,8 @@ getInCoreModemaps(modemapList,op,nargs) ==
     mml:= CAR mml
     [x for (x:= [[dc,:sig],.]) in mml |
       (NUMBERP nargs => nargs=#rest sig; true) and
-        (cfn := abbreviate (domName := getDomainFromMm x)) and
-          ($getUnexposedOperations or isExposedConstructor(domName))]
+	(cfn := abbreviate (domName := getDomainFromMm x)) and
+	  ($getUnexposedOperations or isExposedConstructor(domName))]
   nil
 
 mkAlistOfExplicitCategoryOps target ==
@@ -466,16 +486,16 @@ mkAlistOfExplicitCategoryOps target ==
     l:= flattenSignatureList ['PROGN,:l]
     u:=
       [[atomizeOp op,:sig] for x in l | x is ['SIGNATURE,op,sig,:.]]
-            where
-              atomizeOp op ==
-                atom op => op
-                op is [a] => a
-                keyedSystemError("S2GE0016",
-                  ['"mkAlistOfExplicitCategoryOps",'"bad signature"])
+	    where
+	      atomizeOp op ==
+		atom op => op
+		op is [a] => a
+		keyedSystemError("S2GE0016",
+		  ['"mkAlistOfExplicitCategoryOps",'"bad signature"])
     opList:= REMDUP ASSOCLEFT u
     [[x,:fn(x,u)] for x in opList] where
       fn(op,u) ==
-        u is [[a,:b],:c] => (a=op => [b,:fn(op,c)]; fn(op,c))
+	u is [[a,:b],:c] => (a=op => [b,:fn(op,c)]; fn(op,c))
   isCategoryForm(target,$e) => nil
   keyedSystemError("S2GE0016",
     ['"mkAlistOfExplicitCategoryOps",'"bad signature"])
@@ -488,8 +508,8 @@ flattenSignatureList(x) ==
   x is ['PROGN,:l] =>
      ll:= []
      for x in l repeat
-        x is ['SIGNATURE,:.] => ll:=cons(x,ll)
-        ll:= append(flattenSignatureList x,ll)
+	x is ['SIGNATURE,:.] => ll:=cons(x,ll)
+	ll:= append(flattenSignatureList x,ll)
      ll
   nil
 
@@ -549,16 +569,16 @@ loadDependents fn ==
       l:= rread('dependents,stream,nil)
       RSHUT stream
       for x in l repeat
-        x='SubDomain => nil
-        loadIfNecessary x
+	x='SubDomain => nil
+	loadIfNecessary x
 
 --% Miscellaneous Stuff
 
 getOplistForConstructorForm (form := [op,:argl]) ==
   --  The new form is an op-Alist which has entries (<op> . signature-Alist)
-  --    where signature-Alist has entries (<signature> . item)
-  --      where item has form (<slotNumber> <condition> <kind>)
-  --        where <kind> =  ELT | CONST | Subsumed | (XLAM..) ..
+  --	where signature-Alist has entries (<signature> . item)
+  --	  where item has form (<slotNumber> <condition> <kind>)
+  --	    where <kind> =  ELT | CONST | Subsumed | (XLAM..) ..
   pairlis:= [[fv,:arg] for fv in $FormalMapVariableList for arg in argl]
   opAlist := getOperationAlistFromLisplib op
   [:getOplistWithUniqueSignatures(op,pairlis,signatureAlist)
@@ -568,8 +588,8 @@ getOplistWithUniqueSignatures(op,pairlis,signatureAlist) ==
   alist:= nil
   for [sig,:[slotNumber,pred,kind]] in signatureAlist | kind ^= 'Subsumed repeat
     alist:= insertAlist(SUBLIS(pairlis,[op,sig]),
-                SUBLIS(pairlis,[pred,[kind,nil,slotNumber]]),
-                alist)
+		SUBLIS(pairlis,[pred,[kind,nil,slotNumber]]),
+		alist)
   alist
 
 --% Code For Modemap Insertion
@@ -597,21 +617,21 @@ dropPrefix(fn) ==
 --++  egFiles := NIL
 --++  while (not PLACEP (x:= READ_-LINE stream)) repeat
 --++    x := DROPTRAILINGBLANKS x
---++    SIZE(x) = 0 => 'iterate                         -- blank line
+--++    SIZE(x) = 0 => 'iterate				-- blank line
 --++    (x.0 = char "#") or (x.0 = char "*") => 'iterate    -- comment
 --++    x.0 = char " " =>
 --++       -- possible exposure group member name and library name
 --++       null egName =>
---++     throwKeyedMsg("S2IZ0069A",[namestring egFile,x])
+--++	 throwKeyedMsg("S2IZ0069A",[namestring egFile,x])
 --++       x := dropLeadingBlanks x
 --++       -- should be two tokens on the line
 --++       p := STRPOS('" ",x,1,NIL)
 --++       NULL p =>
---++     throwKeyedMsg("S2IZ0069B",[namestring egFile,x])
+--++	 throwKeyedMsg("S2IZ0069B",[namestring egFile,x])
 --++       n := object2Identifier SUBSTRING(x,0,p)
 --++       x := dropLeadingBlanks SUBSTRING(x,p+1,NIL)
 --++       SIZE(x) = 0 =>
---++     throwKeyedMsg("S2IZ0069B",[namestring egFile,x])
+--++	 throwKeyedMsg("S2IZ0069B",[namestring egFile,x])
 --++       egFiles := [[n,:object2Identifier x],:egFiles]
 --++    -- have a new group name
 --++    if egName then $globalExposureGroupAlist :=
@@ -669,3 +689,9 @@ displayHiddenConstructors() ==
       centerAndHighlight c
 
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/domain.lisp.pamphlet b/src/interp/domain.lisp.pamphlet
new file mode 100644
index 00000000..775f3526
--- /dev/null
+++ b/src/interp/domain.lisp.pamphlet
@@ -0,0 +1,247 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp domain.lisp}
+\author{Timothy Daly}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
+;; Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
+;; All rights reserved.
+;;
+;; Redistribution and use in source and binary forms, with or without
+;; modification, are permitted provided that the following conditions are
+;; met:
+;;
+;;     - Redistributions of source code must retain the above copyright
+;;       notice, this list of conditions and the following disclaimer.
+;;
+;;     - Redistributions in binary form must reproduce the above copyright
+;;       notice, this list of conditions and the following disclaimer in
+;;       the documentation and/or other materials provided with the
+;;       distribution.
+;;
+;;     - Neither the name of The Numerical ALgorithms Group Ltd. nor the
+;;       names of its contributors may be used to endorse or promote products
+;;       derived from this software without specific prior written permission.
+;;
+;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
+;; IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
+;; TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
+;; PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
+;; OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+;; EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+;; PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+;; PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+;; LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+@
+<<*>>=
+<<license>>
+
+;; lisp support for creating domain stubs
+
+(in-package "BOOT")
+;;(SETQ |$optimizableConstructorNames| nil)
+
+(defstruct domain constructor args
+  (dollar (check-dollar-fields constructor args)))
+
+(defstruct (old-compiler-domain (:include domain) (:conc-name oldom-))
+  (devaluate (if dollar (|devaluate| dollar)
+	       (CONS constructor (MAPCAR #'|devaluate| args))))
+  (vector nil))  
+
+(defun check-dollar-fields (constructor arglist)
+  (if (some #'(lambda (x) (and (domain-p x) (domain-dollar x))) arglist)
+      (apply constructor (mapcar #'(lambda (x) (if (domain-p x)
+						   (or (domain-dollar x) x)
+						 x)) arglist))
+    nil))
+
+(defun |domain?| (x) (domain-p x))
+
+(defun |Mapping| (&rest args)
+  (make-old-compiler-domain :constructor '|Mapping| :args args
+			    :vector '|Mapping0|))
+
+(defun |Record| (&rest args)
+  (make-old-compiler-domain :constructor '|Record| :args args
+			    :vector '|Record0|))
+
+(defun |Union| (&rest args)
+  (make-old-compiler-domain :constructor '|Union| :args args
+			    :vector '|Union0|))
+
+(defun |devaluate| (x &aux tag dom)
+  (cond ((REFVECP x)
+	 (if (> (QVSIZE x) 5)
+	     (cond ((equal (qvelt x 3) '(|Category|))
+		    (qvelt x 0))
+;; next line will become obsolete
+		   ((|isFunctor| (qvelt x 0)) (qvelt x 0))
+		   ((domain-p (qvelt x 0)) (|devaluate| (qvelt x 0)))
+		   (t x))
+	     x))
+	((and (pairp x) (eq (car x) '|:|) (dcq (tag dom) (cdr x)))
+	 (list (car x) tag (|devaluate| dom)))
+; 20030527 note that domain-p does not exist
+	((not (domain-p x)) x)
+; 20030527 note that old-compiler-domain-p does not exist
+	((old-compiler-domain-p x) (oldom-devaluate x))
+	(t (error "devaluate of new compiler domain"))))
+
+(defun |domainEqual| (x y)
+  (cond ((old-compiler-domain-p x)
+	 (if (old-compiler-domain-p y)
+	     (equalp (oldom-devaluate x) (oldom-devaluate y))
+	     nil))
+	((old-compiler-domain-p y) nil)
+	(t (error "no new compiler domains yet"))))
+
+(defun |domainSelectDollar| (dom)
+  (or (domain-dollar dom) dom))
+
+(defun |domainSetDollar| (dom dollar)
+  (setf (domain-dollar dom) dollar)
+  (if (old-compiler-domain-p dom)
+      (setf (oldom-devaluate dom) (|devaluate| dollar))))
+
+(defun |domainSelectVector| (dom)
+  (let ((vec (oldom-vector dom)))
+    (cond ((vectorp vec) vec)
+	  ((null vec) nil)
+	  ((symbolp vec) ;; case for Records and Unions
+	   (setq vec (funcall vec (domain-args dom)))
+	   (setf (elt vec 0) dom)
+	   (setf (oldom-vector dom) vec))
+	  ((or (fboundp (car vec))
+	       (|loadLib| (cdr vec)) t)
+	   (instantiate (car vec) dom)))))
+
+;;(defun instantiate (innername dom) 
+;;  (let ((vec (apply innername (domain-args dom))))
+;;    (setelt vec 0 dom)
+;;    (setf (oldom-vector dom) vec)
+;;    vec))
+
+(defun instantiate (innername dom)
+  (let* ((infovec (get (domain-constructor dom) '|infovec|))
+	 (|$dollarVec| (getrefv (size (car infovec )))))
+    (declare (special |$dollarVec|))
+    (setf (elt |$dollarVec| 0) dom)
+    (setf (elt |$dollarVec| 1)
+	  (list (symbol-function (|getLookupFun| infovec))
+		|$dollarVec|
+		(elt infovec 1)))
+    (setf (elt |$dollarVec| 2) (elt infovec 2))
+    (setf (oldom-vector dom) |$dollarVec|)
+    (apply innername (domain-args dom))
+    |$dollarVec|))
+  
+(defun universal-domain-constructor (&rest args-env)
+  (let* ((args (fix-domain-args (butlast args-env)))
+	 (env (car (last args-env))))
+    (check-constructor-cache env args)))
+
+(defun fix-domain-args (args)
+  (mapcar #'(lambda (x) (if (and (vectorp x) (domain-p (elt x 0)))
+			    (elt x 0) x)) args))
+
+(defun universal-nocache-domain-constructor (&rest args-env)
+  (let* ((args (butlast args-env))
+	 (env (car (last args-env))))
+    (make-old-compiler-domain :constructor (car env)
+			      :args args
+			      :vector (cdr env))))
+
+(defun universal-category-defaults-constructor (&rest args-env)
+  (let* ((args (butlast args-env))
+	 (env (car (last args-env))))
+    (make-old-compiler-domain :constructor (car env)
+			      :args args
+			      :dollar (car args)
+			      :vector (cdr env))))
+
+(defun cached-constructor (cname)
+  (if (or (|isCategoryPackageName| cname)
+	  (and (boundp '|$mutableDomains|)
+	       (memq cname |$mutableDomains|)))
+      nil
+    t))
+
+(defun |makeDomainStub| (con) 
+  (|systemDependentMkAutoload| (|constructor?| con) con))
+
+(defun |mkAutoLoad| (fn cname)
+  (cond ((or (memq cname |$CategoryNames|)
+	  (eq (GETDATABSE cname 'CONSTRUCTORKIND) '|category|))
+	 (function (lambda (&rest args)
+		     (|autoLoad| fn cname)
+		     (apply cname args))))
+	(t (|systemDependentMkAutoload| fn cname)
+	   (symbol-function cname))))
+
+(defun |systemDependentMkAutoload| (fn cname)
+  (let* ((cnameInner (intern (strconc cname ";")))
+	 (env (list* cname cnameInner fn))
+	 (spadfun
+	  (cond ((|isCategoryPackageName| cname)
+		 (cons #'universal-category-defaults-constructor env))
+		((and (boundp '|$mutableDomains|)
+		      (memq cname |$mutableDomains|))
+		 (cons #'universal-nocache-domain-constructor env))
+		(t (cons #'universal-domain-constructor env)))))
+    (setf (symbol-function cname) (mkConstructor spadfun))
+    (set cname spadfun)))
+
+(defun mkConstructor (spadfun)
+   (function (lambda (&rest args)
+	       (apply (car spadfun) (append args (list (cdr spadfun)))))))
+
+(defun |makeAddDomain| (add-domain dollar)
+  (cond ((old-compiler-domain-p add-domain)
+	 (make-old-compiler-domain :constructor (domain-constructor add-domain)
+			    :args (domain-args add-domain)
+			    :dollar dollar
+			    :vector (cddr (eval (domain-constructor add-domain)))))
+	(t (error "no new compiler adds supported yet"))))
+
+(defun check-constructor-cache (env arglist)
+  (let ((dollar (check-dollar-fields (car env) arglist)))
+    (if dollar (make-old-compiler-domain :constructor (car env)
+					 :args arglist
+					 :dollar dollar
+					 :vector (cdr env))
+      (let* ((constructor (car env))
+	     (devargs (mapcar #'|devaluate| arglist))
+	     (cacheddom
+	      (|lassocShiftWithFunction| devargs
+	       (HGET |$ConstructorCache| constructor)
+	       #'|domainEqualList|)))
+	(if cacheddom (|CDRwithIncrement| cacheddom)
+	  (cdr (|haddProp| |$ConstructorCache| constructor devargs
+		(cons 1 (make-old-compiler-domain :constructor constructor
+						  :args arglist
+						  :devaluate
+						  (cons constructor devargs)
+						  :vector (cdr env))))))))))
+
+
+
+
+	  
+	 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/fnewmeta.lisp b/src/interp/fnewmeta.lisp.pamphlet
index aa0bd478..be041a6a 100644
--- a/src/interp/fnewmeta.lisp
+++ b/src/interp/fnewmeta.lisp.pamphlet
@@ -1,3 +1,266 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp fnewmeta.lisp}
+\author{William Burge}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+<<fnew.meta>>=
+%       Scratchpad II Boot Language Grammar, Common Lisp Version
+%       IBM Thomas J. Watson Research Center
+%       Summer, 1986
+%
+%       NOTE: Substantially different from VM/LISP version, due to
+%             different parser and attempt to render more within META proper.
+
+.META(New NewExpr Process)
+.PACKAGE 'BOOT'
+.DECLARE(tmptok TOK ParseMode DEFINITION_NAME LABLASOC)
+.PREFIX 'PARSE-'
+
+NewExpr:        =')' .(processSynonyms) Command
+              / .(SETQ DEFINITION_NAME (CURRENT-SYMBOL)) Statement ;
+
+Command:        ')' SpecialKeyWord SpecialCommand +() ;
+
+SpecialKeyWord: =(MATCH-CURRENT-TOKEN "IDENTIFIER)
+                .(SETF (TOKEN-SYMBOL (CURRENT-TOKEN)) (unAbbreviateKeyword (CURRENT-SYMBOL))) ;
+
+SpecialCommand: 'show' <'?' / Expression>! +(show #1) CommandTail
+              / ?(MEMBER (CURRENT-SYMBOL) \$noParseCommands)
+                 .(FUNCALL (CURRENT-SYMBOL))
+              / ?(MEMBER (CURRENT-SYMBOL) \$tokenCommands) TokenList
+                  TokenCommandTail
+              / PrimaryOrQM* CommandTail ;
+
+TokenList:      (^?(isTokenDelimiter) +=(CURRENT-SYMBOL) .(ADVANCE-TOKEN))* ;
+
+TokenCommandTail:
+                <TokenOption*>! ?(atEndOfLine) +(#2 -#1) .(systemCommand #1) ;
+
+TokenOption:    ')' TokenList ;
+
+CommandTail:    <Option*>! ?(atEndOfLine) +(#2 -#1) .(systemCommand #1) ;
+
+PrimaryOrQM:    '?' +\? / Primary ;
+
+Option:         ')' PrimaryOrQM* ;
+
+Statement:      Expr{0} <(',' Expr{0})* +(Series #2 -#1)>;
+
+InfixWith:      With +(Join #2 #1) ;
+
+With:           'with' Category +(with #1) ;
+
+Category:      'if' Expression 'then' Category <'else' Category>! +(if #3 #2 #1)
+              / '(' Category <(';' Category)*>! ')' +(CATEGORY #2 -#1)
+              / .(SETQ $1 (LINE-NUMBER CURRENT-LINE)) Application 
+                   ( ':' Expression +(Signature #2 #1)
+                             .(recordSignatureDocumentation ##1 $1)
+                           / +(Attribute #1)
+                             .(recordAttributeDocumentation ##1 $1));
+
+Expression:   Expr{(PARSE-rightBindingPowerOf (MAKE-SYMBOL-OF PRIOR-TOKEN) ParseMode)}
+                +#1 ;
+
+Import:         'import' Expr{1000} <(',' Expr{1000})*>! +(import #2 -#1) ;
+
+Infix:          =TRUE +=(CURRENT-SYMBOL) .(ADVANCE-TOKEN) <TokTail>
+                Expression +(#2 #2 #1) ;
+
+Prefix:         =TRUE +=(CURRENT-SYMBOL) .(ADVANCE-TOKEN) <TokTail>
+                Expression +(#2 #1) ;
+
+Suffix:         +=(CURRENT-SYMBOL) .(ADVANCE-TOKEN) <TokTail> +(#1 #1) ;
+
+TokTail:        ?(AND (NULL \$BOOT) (EQ (CURRENT-SYMBOL) "\$)
+                      (OR (ALPHA-CHAR-P (CURRENT-CHAR))
+                          (CHAR-EQ (CURRENT-CHAR) '$')
+                          (CHAR-EQ (CURRENT-CHAR) '\%')
+                          (CHAR-EQ (CURRENT-CHAR) '(')))
+                .(SETQ $1 (COPY-TOKEN PRIOR-TOKEN)) Qualification
+                .(SETQ PRIOR-TOKEN $1) ;
+
+Qualification:  '$' Primary1 +=(dollarTran #1 #1) ;
+
+SemiColon:      ';' (Expr{82} / + \/throwAway) +(\; #2 #1) ;
+
+Return:         'return' Expression +(return #1) ;
+
+Exit:           'exit' (Expression / +\$NoValue) +(exit #1) ;
+
+Leave:          'leave' ( Expression / +\$NoValue )
+                ('from' Label +(leaveFrom #1 #1) / +(leave #1)) ;
+
+Seg:            GliphTok{"\.\.} <Expression>! +(SEGMENT #2 #1) ;
+
+Conditional:    'if' Expression 'then' Expression <'else' ElseClause>!
+                   +(if #3 #2 #1) ;
+
+ElseClause:     ?(EQ (CURRENT-SYMBOL) "if) Conditional / Expression ;
+
+Loop:           Iterator* 'repeat' Expr{110} +(REPEAT -#2 #1)
+              / 'repeat' Expr{110} +(REPEAT #1) ;
+
+Iterator:       'for' Primary 'in' Expression
+                ( 'by' Expr{200} +(INBY #3 #2 #1) / +(IN #2 #1) )
+                < '\|' Expr{111} +(\| #1) >
+              / 'while' Expr{190} +(WHILE #1)
+              / 'until' Expr{190} +(UNTIL #1) ;
+
+Expr{RBP}:      NudPart{RBP} <LedPart{RBP}>* +#1;
+
+LabelExpr:      Label Expr{120} +(LABEL #2 #1) ;
+
+Label:          '<<' Name '>>' ;
+
+LedPart{RBP}:   Operation{"Led RBP} +#1;
+
+NudPart{RBP}:   (Operation{"Nud RBP} / Reduction / Form) +#1 ;
+
+Operation{ParseMode RBP}:
+        ^?(MATCH-CURRENT-TOKEN "IDENTIFIER)
+        ?(GETL (SETQ tmptok (CURRENT-SYMBOL)) ParseMode)
+        ?(LT RBP (PARSE-leftBindingPowerOf tmptok ParseMode))
+        .(SETQ RBP (PARSE-rightBindingPowerOf tmptok ParseMode))
+        getSemanticForm{tmptok ParseMode (ELEMN (GETL tmptok ParseMode) 5 NIL)} ;
+
+% Binding powers stored under the Led and Red properties of an operator
+% are set up by the file BOTTOMUP.LISP.  The format for a Led property
+% is <Operator Left-Power Right-Power>, and the same for a Nud, except that
+% it may also have a fourth component <Special-Handler>. ELEMN attempts to
+% get the Nth indicator, counting from 1.
+
+leftBindingPowerOf{X IND}: =(LET ((Y (GETL X IND))) (IF Y (ELEMN Y 3 0) 0)) ;
+
+rightBindingPowerOf{X IND}: =(LET ((Y (GETL X IND))) (IF Y (ELEMN Y 4 105) 105)) ;
+
+getSemanticForm{X IND Y}:
+                ?(AND Y (EVAL Y)) / ?(EQ IND "Nud) Prefix / ?(EQ IND "Led) Infix ;
+
+
+Reduction:      ReductionOp Expr{1000} +(Reduce #2 #1) ;
+
+ReductionOp:    ?(AND (GETL (CURRENT-SYMBOL) "Led)
+                      (MATCH-NEXT-TOKEN "SPECIAL-CHAR (CODE-CHAR 47))) % Forgive me!
+                +=(CURRENT-SYMBOL) .(ADVANCE-TOKEN) .(ADVANCE-TOKEN) ;
+
+Form:           'iterate' < 'from' Label +(#1) >! +(iterate -#1)
+              / 'yield' Application +(yield #1)
+              / Application ;
+
+Application: Primary <Selector>* <Application +(#2 #1)>;
+
+Selector: ?NONBLANK ?(EQ (CURRENT-SYMBOL) "\.) ?(CHAR-NE (CURRENT-CHAR) "\ )
+                 '.' PrimaryNoFloat (=\$BOOT +(ELT #2 #1)/ +(#2 #1))
+          / (Float /'.' Primary) (=\$BOOT +(ELT #2 #1)/ +(#2 #1));
+
+PrimaryNoFloat: Primary1 <TokTail> ;
+
+Primary: Float /PrimaryNoFloat ;
+
+Primary1: VarForm <=(AND NONBLANK (EQ (CURRENT-SYMBOL) "\()) Primary1 +(#2 #1)>
+        /Quad
+        /String
+        /IntegerTok
+        /FormalParameter
+        /='\'' (?\$BOOT Data / '\'' Expr{999} +(QUOTE #1))
+        /Sequence
+        /Enclosure ;
+
+Float: FloatBase (?NONBLANK FloatExponent / +0) +=(MAKE-FLOAT #4 #2 #2 #1) ;
+
+FloatBase: ?(FIXP (CURRENT-SYMBOL)) ?(CHAR-EQ (CURRENT-CHAR) '.')
+           ?(CHAR-NE (NEXT-CHAR) '.')
+              IntegerTok FloatBasePart
+          /?(FIXP (CURRENT-SYMBOL)) ?(CHAR-EQ (CHAR-UPCASE (CURRENT-CHAR)) "E)
+              IntegerTok +0 +0
+         /?(DIGITP (CURRENT-CHAR)) ?(EQ (CURRENT-SYMBOL) "\.)
+              +0 FloatBasePart ;
+
+FloatBasePart: '.'
+  (?(DIGITP (CURRENT-CHAR)) +=(TOKEN-NONBLANK (CURRENT-TOKEN)) IntegerTok
+  / +0 +0);
+
+
+FloatExponent: =(AND (MEMBER (CURRENT-SYMBOL) "(E e))
+                     (FIND (CURRENT-CHAR) '+-'))
+                 .(ADVANCE-TOKEN)
+        (IntegerTok/'+' IntegerTok/'-' IntegerTok +=(MINUS #1)/+0)
+       /?(IDENTP (CURRENT-SYMBOL)) =(SETQ $1 (FLOATEXPID (CURRENT-SYMBOL)))
+       .(ADVANCE-TOKEN) +=$1 ;
+
+Enclosure:      '(' ( Expr{6} ')' / ')' +(Tuple) )
+              / '{' ( Expr{6} '}' +(brace (construct #1)) / '}' +(brace)) ;
+
+IntegerTok:     NUMBER ;
+
+FloatTok:       NUMBER +=(IF \$BOOT #1 (BFP- #1)) ;
+
+FormalParameter: FormalParameterTok ;
+
+FormalParameterTok: ARGUMENT-DESIGNATOR ;
+
+Quad:           '$' +\$ / ?\$BOOT GliphTok{"\.} +\. ;
+
+String:         SPADSTRING ;
+
+VarForm:        Name <Scripts +(Scripts #2 #1) > +#1 ;
+
+Scripts:        ?NONBLANK '[' ScriptItem ']' ;
+
+ScriptItem:     Expr{90} <(';' ScriptItem)* +(\; #2 -#1)>
+              / ';' ScriptItem +(PrefixSC #1) ;
+
+Name:           IDENTIFIER +#1 ;
+
+Data:           .(SETQ LABLASOC NIL) Sexpr +(QUOTE =(TRANSLABEL #1 LABLASOC)) ;
+
+Sexpr:          .(ADVANCE-TOKEN) Sexpr1 ;
+
+Sexpr1:       AnyId
+              < NBGliphTok{"\=} Sexpr1
+                 .(SETQ LABLASOC (CONS (CONS #2 ##1) LABLASOC))>
+              / '\'' Sexpr1 +(QUOTE #1)
+              / IntegerTok
+              / '-' IntegerTok +=(MINUS #1)
+              / String
+              / '<' <Sexpr1*>! '>' +=(LIST2VEC #1)
+              / '(' <Sexpr1* <GliphTok{"\.} Sexpr1 +=(NCONC #2 #1)>>! ')' ;
+
+NBGliphTok{tok}:   ?(AND (MATCH-CURRENT-TOKEN "GLIPH tok) NONBLANK)
+                    .(ADVANCE-TOKEN) ;
+
+GliphTok{tok}:     ?(MATCH-CURRENT-TOKEN "GLIPH tok) .(ADVANCE-TOKEN) ;
+
+AnyId:          IDENTIFIER
+              / (='$' +=(CURRENT-SYMBOL) .(ADVANCE-TOKEN) / KEYWORD) ;
+
+Sequence:       OpenBracket Sequence1 ']'
+              / OpenBrace Sequence1 '}' +(brace #1) ;
+
+Sequence1:     (Expression +(#2 #1) / +(#1)) <IteratorTail +(COLLECT -#1 #1)>  ;
+
+OpenBracket:    =(EQ (getToken (SETQ $1 (CURRENT-SYMBOL))) "\[ )
+                      (=(EQCAR $1 "elt) +(elt =(CADR $1) construct)
+                        / +construct) .(ADVANCE-TOKEN) ;
+
+OpenBrace:      =(EQ (getToken (SETQ $1 (CURRENT-SYMBOL))) "\{ )
+                      (=(EQCAR $1 "elt) +(elt =(CADR $1) brace)
+                        / +construct) .(ADVANCE-TOKEN) ;
+
+IteratorTail:   ('repeat' <Iterator*>! / Iterator*) ;
+
+.FIN ;
+
+
+@
+\section{License}
+<<license>>=
 ;; Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 ;; All rights reserved.
 ;;
@@ -29,6 +292,9 @@
 ;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 ;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 (IMPORT-MODULE "parsing")
 (IN-PACKAGE "BOOT" )
@@ -738,3 +1004,9 @@
                  (OPTIONAL (STAR REPEATOR (|PARSE-Iterator|)))))
       (STAR REPEATOR (|PARSE-Iterator|)))) 
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/format.boot b/src/interp/format.boot.pamphlet
index fee60054..e4c83a31 100644
--- a/src/interp/format.boot
+++ b/src/interp/format.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp format.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 --% Functions for display formatting system objects
 
@@ -630,7 +646,7 @@ application2String(op,argl, linkInfo) ==
       concat(first argl, '"..")
     concat(first argl, concat('"..", first rest argl))
   concat(app2StringWrap(formWrapId op, linkInfo) ,
-                        concat("_(",concat(tuple2String argl,"_)")))
+			concat("_(",concat(tuple2String argl,"_)")))
 
 app2StringConcat0(x,y) ==
   FORMAT(NIL, '"~a ~a", x, y)
@@ -778,3 +794,9 @@ form2FenceQuoteTail x ==
 form2StringList u ==
   atom (r := form2String u) => [r]
   r
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/fortcall.boot b/src/interp/fortcall.boot.pamphlet
index 72d79948..9513e313 100644
--- a/src/interp/fortcall.boot
+++ b/src/interp/fortcall.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp fortcall.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 makeFort(name,args,decls,results,returnType,aspInfo) ==
   -- Create an executable Fortran file to call a given library function,
@@ -575,21 +591,21 @@ prepareResults(results,args,dummies,values,decls) ==
   NREVERSE data
 
 -- TTT this is dead code now
---      transposeVector(u,type) ==
---        -- Take a vector of vectors and return a single vector which is in column
---        -- order (i.e. swap from C to Fortran order).
---        els  := nil
---        rows := CAR ARRAY_-DIMENSIONS(u)-1
---        cols := CAR ARRAY_-DIMENSIONS(ELT(u,0))-1
---        -- Could be a 3D Matrix
---        if VECTORP ELT(ELT(u,0),0) then
---          planes := CAR ARRAY_-DIMENSIONS(ELT(ELT(u,0),0))-1
---          for k in 0..planes repeat for j in 0..cols repeat for i in 0..rows repeat
---            els := [ELT(ELT(ELT(u,i),j),k),:els]
---        else
---          for j in 0..cols repeat for i in 0..rows repeat
---            els := [ELT(ELT(u,i),j),:els]
---        makeVector(NREVERSE els,type)
+--	transposeVector(u,type) ==
+--	  -- Take a vector of vectors and return a single vector which is in column
+--	  -- order (i.e. swap from C to Fortran order).
+--	  els  := nil
+--	  rows := CAR ARRAY_-DIMENSIONS(u)-1
+--	  cols := CAR ARRAY_-DIMENSIONS(ELT(u,0))-1
+--	  -- Could be a 3D Matrix
+--	  if VECTORP ELT(ELT(u,0),0) then
+--	    planes := CAR ARRAY_-DIMENSIONS(ELT(ELT(u,0),0))-1
+--	    for k in 0..planes repeat for j in 0..cols repeat for i in 0..rows repeat
+--	      els := [ELT(ELT(ELT(u,i),j),k),:els]
+--	  else
+--	    for j in 0..cols repeat for i in 0..rows repeat
+--	      els := [ELT(ELT(u,i),j),:els]
+--	  makeVector(NREVERSE els,type)
 
 
 writeData(tmpFile,indata) ==
@@ -600,47 +616,47 @@ writeData(tmpFile,indata) ==
   xstr := xdrOpen(str,true)
   [args,dummies,values,decls] := indata
   for v in values repeat
-        -- the two Boolean values
-        v = "T" => 
-                xdrWrite(xstr,1)
-        NULL v =>   
-                xdrWrite(xstr,0)
-        -- characters  
-        STRINGP v => 
-                xdrWrite(xstr,v)
-        -- some array
-        VECTORP v =>  
-                rows := CAR ARRAY_-DIMENSIONS(v)
-                -- is it 2d or more (most likely) ?
-                VECTORP ELT(v,0) =>     
-                        cols := CAR ARRAY_-DIMENSIONS(ELT(v,0))
-                        -- is it 3d ?
-                        VECTORP ELT(ELT(v,0),0) =>
-                                planes := CAR ARRAY_-DIMENSIONS(ELT(ELT(v,0),0))
-                                -- write 3d array
-                                xdrWrite(xstr,rows*cols*planes)
-                                for k in 0..planes-1 repeat 
-                                        for j in 0..cols-1 repeat 
-                                                for i in 0..rows-1 repeat 
-                                                        xdrWrite(xstr,ELT(ELT(ELT(v,i),j),k))
-                        -- write 2d array
-                        xdrWrite(xstr,rows*cols)
-                        for j in 0..cols-1 repeat
-                                for i in 0..rows-1 repeat xdrWrite(xstr,ELT(ELT(v,i),j))
-                -- write 1d array
-                xdrWrite(xstr,rows)
-                for i in 0..rows-1 repeat xdrWrite(xstr,ELT(v,i))
-        -- this is used for lists of booleans apparently in f01
-        LISTP v => 
-                xdrWrite(xstr,LENGTH v)
-                for el in v repeat 
-                        if el then xdrWrite(xstr,1) else xdrWrite(xstr,0) 
-        -- integers
-        INTEGERP v => 
-                xdrWrite(xstr,v)
-        -- floats
-        FLOATP v => 
-                xdrWrite(xstr,v)
+	-- the two Boolean values
+	v = "T" => 
+		xdrWrite(xstr,1)
+	NULL v =>   
+		xdrWrite(xstr,0)
+	-- characters  
+	STRINGP v => 
+		xdrWrite(xstr,v)
+	-- some array
+	VECTORP v =>  
+		rows := CAR ARRAY_-DIMENSIONS(v)
+		-- is it 2d or more (most likely) ?
+		VECTORP ELT(v,0) =>	
+			cols := CAR ARRAY_-DIMENSIONS(ELT(v,0))
+			-- is it 3d ?
+			VECTORP ELT(ELT(v,0),0) =>
+				planes := CAR ARRAY_-DIMENSIONS(ELT(ELT(v,0),0))
+				-- write 3d array
+				xdrWrite(xstr,rows*cols*planes)
+				for k in 0..planes-1 repeat 
+					for j in 0..cols-1 repeat 
+						for i in 0..rows-1 repeat 
+							xdrWrite(xstr,ELT(ELT(ELT(v,i),j),k))
+			-- write 2d array
+			xdrWrite(xstr,rows*cols)
+			for j in 0..cols-1 repeat
+				for i in 0..rows-1 repeat xdrWrite(xstr,ELT(ELT(v,i),j))
+		-- write 1d array
+		xdrWrite(xstr,rows)
+		for i in 0..rows-1 repeat xdrWrite(xstr,ELT(v,i))
+	-- this is used for lists of booleans apparently in f01
+     	LISTP v => 
+		xdrWrite(xstr,LENGTH v)
+	        for el in v repeat 
+			if el then xdrWrite(xstr,1) else xdrWrite(xstr,0) 
+	-- integers
+	INTEGERP v => 
+		xdrWrite(xstr,v)
+	-- floats
+	FLOATP v => 
+		xdrWrite(xstr,v)
   SHUT(str)
   tmpFile
 
@@ -705,7 +721,7 @@ protectedNagCall(objFiles,nfile,data,results) ==
  td:=generateDataName()
  tr:=generateResultsName()
  UNWIND_-PROTECT( (val:=nagCall(objFiles,nfile,data,results,td,tr) ;errors :=NIL),
-        errors =>( resetStackLimits(); sendNagmanErrorSignal();cleanUpAfterNagman(td,tr,objFiles)))
+	errors =>( resetStackLimits(); sendNagmanErrorSignal();cleanUpAfterNagman(td,tr,objFiles)))
  val
 
 
@@ -796,3 +812,9 @@ vectorOfFunctions f ==
 
 
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/functor.boot b/src/interp/functor.boot.pamphlet
index 0513d9f0..7e952a88 100644
--- a/src/interp/functor.boot
+++ b/src/interp/functor.boot.pamphlet
@@ -1,3 +1,20 @@
+\documentclass{article}
+\usepackage{axiom}
+
+\title{\$SPAD/src/interp functor.boot}
+\author{The Axiom Team}
+
+\begin{document}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+
+\section{License}
+
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +46,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 --%  Domain printing
 keyItem a ==
@@ -981,3 +1001,9 @@ resolvePatternVars(p,args) ==
 --  [SetFunctionSlots(sig,implem,flag,'adding)
 --                   for u in baseops | u is [sig,[pred,implem]]]
  
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/g-boot.boot b/src/interp/g-boot.boot.pamphlet
index 11c45a29..63a7c00a 100644
--- a/src/interp/g-boot.boot
+++ b/src/interp/g-boot.boot.pamphlet
@@ -1,3 +1,19 @@
+\documentclass{article}
+\usepackage{axiom}
+
+\title{\File{src/interp/g-boot.boot} Pamphlet}
+\author{The Axiom Team}
+
+\begin{document}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,10 +45,13 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 )package "BOOT"
 
--- @(#)g-boot.boot      2.2      89/11/02  14:44:09
+-- @(#)g-boot.boot	2.2      89/11/02  14:44:09
 
 --% BOOT to LISP Translation
  
@@ -457,3 +476,10 @@ bootTransform e ==
   $labelsForGO : local := NIL
   bootLabelsForGO e
   bootTran e
+@
+
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/g-cndata.boot b/src/interp/g-cndata.boot.pamphlet
index eaa9dee7..7e09df96 100644
--- a/src/interp/g-cndata.boot
+++ b/src/interp/g-cndata.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp g-cndata.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 --% Manipulation of Constructor Datat
 
@@ -64,7 +80,7 @@ putConstructorProperty(name,prop,val) ==
   true
 
 attribute? name == 
-        MEMQ(name, _*ATTRIBUTES_*)
+	MEMQ(name, _*ATTRIBUTES_*)
  
 abbreviation? abb ==
   -- if it is an abbreviation, return the corresponding name
@@ -238,3 +254,9 @@ nAssocQ(x,l,n) ==
     l:= QCDR l
  
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/g-error.boot b/src/interp/g-error.boot.pamphlet
index 47e45e6d..103b8b0a 100644
--- a/src/interp/g-error.boot
+++ b/src/interp/g-error.boot.pamphlet
@@ -1,3 +1,19 @@
+\documentclass{article}
+\usepackage{axiom}
+
+\title{\File{src/interp/g-error.boot} Pamphlet}
+\author{The Axiom Team}
+
+\begin{document}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +45,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 import '"diagnostics"
 )package "BOOT"
@@ -197,3 +216,9 @@ throwMessage(:msg) ==
   if $printMsgsToFile then sayMSG2File msg'
   spadThrow()
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot.pamphlet
index 932cff17..33fad9dd 100644
--- a/src/interp/g-opt.boot
+++ b/src/interp/g-opt.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp g-opt.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 --% OPTIMIZER
  
@@ -397,3 +413,9 @@ EVALANDFILEACTQ
     )
  
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/g-timer.boot b/src/interp/g-timer.boot.pamphlet
index b922387a..513e367d 100644
--- a/src/interp/g-timer.boot
+++ b/src/interp/g-timer.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp g-timer.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 --% Code instrumentation facilities
 --  These functions can be used with arbitrary lists of
@@ -268,3 +284,9 @@ statRecordInstantiationEvent() == nil
 statRecordLoadEvent()          == nil
  
 statisticsSummary()  == '"No statistics available."
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot.pamphlet
index 30c5ccd4..05e262c8 100644
--- a/src/interp/g-util.boot
+++ b/src/interp/g-util.boot.pamphlet
@@ -1,3 +1,20 @@
+\documentclass{article}
+\usepackage{axiom}
+
+\title{\File{src/interp/g-util.boot} Pamphlet}
+\author{The Axiom Team}
+
+\begin{document}
+
+\maketitle
+\begin{abstract}
+\end{abstract}
+
+\tableofcontents
+\eject
+
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +46,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 )package "BOOT"
 
@@ -633,3 +653,11 @@ gensymInt g ==
 
 -- Push into the BOOT package when invoked in batch mode.
 AxiomCore::$sysScope := '"BOOT"
+@
+
+
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/guess.boot b/src/interp/guess.boot.pamphlet
index 8dde919c..4f4d2544 100644
--- a/src/interp/guess.boot
+++ b/src/interp/guess.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp guess.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 $minThreshold := 3
 $maxThreshold := 7
@@ -345,3 +361,9 @@ forge(word,w,W,entry,e,E,n) ==
 --+  forge(word,w+1,W,entry,e+1,E,d,i,s+1,t)
  
 mySort u == listSort(function GLESSEQP,u)
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/hash.lisp b/src/interp/hash.lisp.pamphlet
index 5dfda6e1..be039807 100644
--- a/src/interp/hash.lisp
+++ b/src/interp/hash.lisp.pamphlet
@@ -1,3 +1,20 @@
+\documentclass{article}
+\usepackage{axiom}
+
+\title{\File{src/interp/hash.lisp} Pamphlet}
+\author{Timothy Daly}
+
+\begin{document}
+\maketitle
+\begin{abstract}
+\end{abstract}
+
+\tableofcontents
+\eject
+
+\section{License}
+
+<<license>>=
 ;; Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 ;; All rights reserved.
 ;;
@@ -29,13 +46,16 @@
 ;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 ;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 (IMPORT-MODULE "vmlisp")
 (in-package "BOOT")
 
 (export '(MAKE-HASHTABLE HGET HKEYS HCOUNT HPUT HPUT* HREM HCLEAR HREMPROP
           HASHEQ HASHUEQUAL HASHCVEC HASHID HASHTABLEP CVEC UEQUAL ID HPUTPROP
-          HASHTABLE-CLASS))
+	  HASHTABLE-CLASS))
 
 ;17.0 Operations on Hashtables
 ;17.1 Creation
@@ -43,12 +63,12 @@
 (defun MAKE-HASHTABLE (id1 &optional (id2 nil))
  (declare (ignore id2))
    (let ((test (case id1
-                     ((EQ ID) #'eq)
-                     (CVEC #'equal)
-                     (EQL #'eql)
-                     #+Lucid ((UEQUAL EQUALP) #'EQUALP)
-                     #-Lucid ((UEQUAL EQUAL) #'equal)
-                     (otherwise (error "bad arg to make-hashtable")))))     
+		     ((EQ ID) #'eq)
+		     (CVEC #'equal)
+		     (EQL #'eql)
+		     #+Lucid ((UEQUAL EQUALP) #'EQUALP)
+		     #-Lucid ((UEQUAL EQUAL) #'equal)
+		     (otherwise (error "bad arg to make-hashtable")))))     
       (make-hash-table :test test)))
 
 ;17.2 Accessing
@@ -75,18 +95,18 @@
 #+AKCL
 (defun HASHTABLE-CLASS (table)
   (case (memory-value-short table 12)
-        (0 'EQ)
-        (1 'EQL)
-        (2 'EQUAL)
-        (t "error unknown hash table class")))
+	(0 'EQ)
+	(1 'EQL)
+	(2 'EQUAL)
+	(t "error unknown hash table class")))
 
 #+:CCL
 (defun HASHTABLE-CLASS (table)
   (case (hashtable-flavour table)
-        (0 'EQ)
-        (1 'EQL)
-        (2 'EQUAL)
-        (t (format nil "error unknown hash table class ~a" (hashtable-flavour table)))))
+	(0 'EQ)
+	(1 'EQL)
+	(2 'EQUAL)
+	(t (format nil "error unknown hash table class ~a" (hashtable-flavour table)))))
 
 (define-function 'HCOUNT #'hash-table-count)
 
@@ -119,3 +139,9 @@
 (define-function 'HASHCVEC #'sxhash)
 
 (define-function 'HASHID #'sxhash)
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/hashcode.boot b/src/interp/hashcode.boot.pamphlet
index 53a42d04..4a0f640e 100644
--- a/src/interp/hashcode.boot
+++ b/src/interp/hashcode.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp hashcode.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 )package "BOOT"
 
@@ -38,67 +54,67 @@
 getDomainHash dom == SPADCALL(CDR dom, (CAR dom).4)
 
 hashType(type, percentHash) ==
-        SYMBOLP type  =>
+	SYMBOLP type  =>
            type = '$ => percentHash
            type = "%" => percentHash
            hashString SYMBOL_-NAME type
         STRINGP type  => hashCombine(hashString type, 
-                                        hashString('"Enumeration"))
+   					hashString('"Enumeration"))
         type is ['QUOTE, val] => hashType(val, percentHash)
-        type is [dom] => hashString SYMBOL_-NAME dom
-        type is ['_:, ., type2] => hashType(type2, percentHash)
+	type is [dom] => hashString SYMBOL_-NAME dom
+	type is ['_:, ., type2] => hashType(type2, percentHash)
         isDomain type => getDomainHash type
-        [op, :args] := type
-        hash := hashString SYMBOL_-NAME op
-        op = 'Mapping =>
-                hash := hashString '"->"
-                [retType, :mapArgs] := args
-                for arg in mapArgs repeat
-                        hash := hashCombine(hashType(arg, percentHash), hash)
+	[op, :args] := type
+	hash := hashString SYMBOL_-NAME op
+	op = 'Mapping =>
+		hash := hashString '"->"
+		[retType, :mapArgs] := args
+		for arg in mapArgs repeat
+			hash := hashCombine(hashType(arg, percentHash), hash)
                 retCode := hashType(retType, percentHash)
                 EQL(retCode, $VoidHash) => hash
-                hashCombine(retCode, hash)
-        op = 'Enumeration =>
-                for arg in args repeat
-                        hash := hashCombine(hashString(STRING arg), hash)
-                hash
-        op in $DomainsWithoutLisplibs =>
-                for arg in args repeat
-                        hash := hashCombine(hashType(arg, percentHash), hash)
-                hash
+		hashCombine(retCode, hash)
+	op = 'Enumeration =>
+		for arg in args repeat
+			hash := hashCombine(hashString(STRING arg), hash)
+		hash
+	op in $DomainsWithoutLisplibs =>
+		for arg in args repeat
+			hash := hashCombine(hashType(arg, percentHash), hash)
+		hash
 
-        cmm :=   CDDAR getConstructorModemap(op)
-        cosig := CDR   GETDATABASE(op, 'COSIG)
-        for arg in args for c in cosig for ct in cmm repeat
-                if c then
-                        hash := hashCombine(hashType(arg, percentHash), hash)
-                else
-                        hash := hashCombine(7, hash)
+	cmm :=   CDDAR getConstructorModemap(op)
+	cosig := CDR   GETDATABASE(op, 'COSIG)
+	for arg in args for c in cosig for ct in cmm repeat
+		if c then
+			hash := hashCombine(hashType(arg, percentHash), hash)
+		else
+			hash := hashCombine(7, hash)
 --           !!!   If/when asharp hashes values using their type, use instead
---                      ctt := EQSUBSTLIST(args, $FormalMapVariableList, ct)
---                      hash := hashCombine(hashType(ctt, percentHash), hash)
+--			ctt := EQSUBSTLIST(args, $FormalMapVariableList, ct)
+--			hash := hashCombine(hashType(ctt, percentHash), hash)
 
 
-        hash
+	hash
 
 --The following are in cfuns.lisp
-$hashModulus := 1073741789                      -- largest 30-bit prime
+$hashModulus := 1073741789 			-- largest 30-bit prime
 
 -- Produce a 30-bit hash code.  This function must produce the same codes
 -- as the asharp string hasher in src/strops.c
 hashString str ==
-        h := 0
-        for i in 0..#str-1 repeat
-                j := CHAR_-CODE char str.i
-                h := LOGXOR(h, ASH(h, 8))
-                h := h + j + 200041
-                h := LOGAND(h, 1073741823)      -- 0x3FFFFFFF
-        REM(h, $hashModulus)
+	h := 0
+	for i in 0..#str-1 repeat
+		j := CHAR_-CODE char str.i
+		h := LOGXOR(h, ASH(h, 8))
+		h := h + j + 200041
+		h := LOGAND(h, 1073741823)	-- 0x3FFFFFFF
+	REM(h, $hashModulus)
 
 -- Combine two hash codes to make a new one.  Must be the same as in
 -- the hashCombine function in aslib/runtime.as in asharp.
 hashCombine(hash1, hash2) ==
-         MOD(ASH(LOGAND(hash2, 16777215), 6) + hash1, $hashModulus)
+	 MOD(ASH(LOGAND(hash2, 16777215), 6) + hash1, $hashModulus)
 
 
 $VoidHash := hashString '"Void"
@@ -107,3 +123,9 @@ $VoidHash := hashString '"Void"
 -- following two lines correct bad coSig properties due to SubsetCategory
 --putConstructorProperty('LocalAlgebra,'coSig,'(NIL T T T))
 --putConstructorProperty('Localize,'coSig,'(NIL T T T))
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/ht-root.boot b/src/interp/ht-root.boot.pamphlet
index 7325b3b8..3d8d08af 100644
--- a/src/interp/ht-root.boot
+++ b/src/interp/ht-root.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp ht-root.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 $historyDisplayWidth := 120
 $newline := char 10
@@ -287,3 +303,9 @@ mkUnixPattern s ==
   u
 
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/ht-util.boot.pamphlet b/src/interp/ht-util.boot.pamphlet
new file mode 100644
index 00000000..f875959f
--- /dev/null
+++ b/src/interp/ht-util.boot.pamphlet
@@ -0,0 +1,753 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp ht-util.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
+-- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
+-- All rights reserved.
+--
+-- Redistribution and use in source and binary forms, with or without
+-- modification, are permitted provided that the following conditions are
+-- met:
+--
+--     - Redistributions of source code must retain the above copyright
+--       notice, this list of conditions and the following disclaimer.
+--
+--     - Redistributions in binary form must reproduce the above copyright
+--       notice, this list of conditions and the following disclaimer in
+--       the documentation and/or other materials provided with the
+--       distribution.
+--
+--     - Neither the name of The Numerical ALgorithms Group Ltd. nor the
+--       names of its contributors may be used to endorse or promote products
+--       derived from this software without specific prior written permission.
+--
+-- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
+-- IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
+-- TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
+-- PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
+-- OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+-- EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+-- PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+-- PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+-- LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+-- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+-- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+@
+<<*>>=
+<<license>>
+
+-- HyperTeX Utilities for generating basic Command pages
+--)package "BOOT"
+
+$bcParseOnly := true
+
+-- List of issued hypertex lines
+$htLineList := nil
+
+-- pointer to the page we are currently defining
+$curPage := nil
+
+-- List of currently active window named
+$activePageList := nil
+
+htpDestroyPage(pageName) ==
+  pageName in $activePageList =>
+    SET(pageName, nil)
+    $activePageList := NREMOVE($activePageList, pageName)
+
+htpName htPage ==
+-- GENSYM whose value is the page
+  ELT(htPage, 0)
+
+htpSetName(htPage, val) ==
+  SETELT(htPage, 0, val)
+
+htpDomainConditions htPage ==
+-- List of Domain conditions
+  ELT(htPage, 1)
+
+htpSetDomainConditions(htPage, val) ==
+  SETELT(htPage, 1, val)
+
+htpDomainVariableAlist htPage ==
+-- alist of pattern variables and conditions
+  ELT(htPage, 2)
+
+htpSetDomainVariableAlist(htPage, val) ==
+  SETELT(htPage, 2, val)
+
+htpDomainPvarSubstList htPage ==
+-- alist of user pattern variables to system vars
+  ELT(htPage, 3)
+
+htpSetDomainPvarSubstList(htPage, val) ==
+  SETELT(htPage, 3, val)
+
+htpRadioButtonAlist htPage ==
+-- alist of radio button group names and labels
+  ELT(htPage, 4)
+
+htpButtonValue(htPage, groupName) ==
+  for buttonName in LASSOC(groupName, htpRadioButtonAlist htPage) repeat
+    (stripSpaces htpLabelInputString(htPage, buttonName)) = '"t" =>
+      return buttonName
+
+htpSetRadioButtonAlist(htPage, val) ==
+  SETELT(htPage, 4, val)
+
+htpInputAreaAlist htPage ==
+-- Alist of input-area labels, and default values
+  ELT(htPage, 5)
+
+htpSetInputAreaAlist(htPage, val) ==
+  SETELT(htPage, 5, val)
+
+htpAddInputAreaProp(htPage, label, prop) ==
+  SETELT(htPage, 5, [[label, nil, nil, nil, :prop], :ELT(htPage, 5)])
+
+htpPropertyList htPage ==
+-- Association list of user-defined properties
+  ELT(htPage, 6)
+
+htpProperty(htPage, propName) ==
+  LASSOC(propName, ELT(htPage, 6))
+
+htpSetProperty(htPage, propName, val) ==
+  pair := ASSOC(propName, ELT(htPage, 6))
+  pair => RPLACD(pair, val)
+  SETELT(htPage, 6, [[propName, :val], :ELT(htPage, 6)])
+
+htpLabelInputString(htPage, label) ==
+-- value user typed as input string on page
+  props := LASSOC(label, htpInputAreaAlist htPage)
+  props and STRINGP (s := ELT(props,0)) =>
+    s = '"" => s
+    trimString s
+  nil
+
+htpLabelFilteredInputString(htPage, label) ==
+-- value user typed as input string on page
+  props := LASSOC(label, htpInputAreaAlist htPage)
+  props =>
+    #props > 5 and ELT(props, 6) =>
+      FUNCALL(SYMBOL_-FUNCTION ELT(props, 6), ELT(props, 0))
+    replacePercentByDollar ELT(props, 0)
+  nil
+
+replacePercentByDollar s == fn(s,0,MAXINDEX s) where
+  fn(s,i,n) ==
+    i > n => '""
+    (m := charPosition(char "%",s,i)) > n => SUBSTRING(s,i,nil)
+    STRCONC(SUBSTRING(s,i,m - i),'"$",fn(s,m + 1,n))
+
+htpSetLabelInputString(htPage, label, val) ==
+------------------> OBSELETE
+-- value user typed as input string on page
+  props := LASSOC(label, htpInputAreaAlist htPage)
+  props => SETELT(props, 0, STRINGIMAGE val)
+  nil
+
+htpLabelSpadValue(htPage, label) ==
+-- Scratchpad value of parsed and evaled inputString, as (type . value)
+  props := LASSOC(label, htpInputAreaAlist htPage)
+  props => ELT(props, 1)
+  nil
+
+htpSetLabelSpadValue(htPage, label, val) ==
+-- value user typed as input string on page
+  props := LASSOC(label, htpInputAreaAlist htPage)
+  props => SETELT(props, 1, val)
+  nil
+
+htpLabelErrorMsg(htPage, label) ==
+-- error message associated with input area
+  props := LASSOC(label, htpInputAreaAlist htPage)
+  props => ELT(props, 2)
+  nil
+
+htpSetLabelErrorMsg(htPage, label, val) ==
+-- error message associated with input area
+  props := LASSOC(label, htpInputAreaAlist htPage)
+  props => SETELT(props, 2, val)
+  nil
+
+htpLabelType(htPage, label) ==
+-- either 'string or 'button
+  props := LASSOC(label, htpInputAreaAlist htPage)
+  props => ELT(props, 3)
+  nil
+
+htpLabelDefault(htPage, label) ==
+-- default value for the input area
+  msg := htpLabelInputString(htPage, label) =>
+    msg = '"t" => 1
+    msg = '"nil" => 0
+    msg
+  props := LASSOC(label, htpInputAreaAlist htPage)
+  props =>
+    ELT(props, 4)
+  nil
+
+
+htpLabelSpadType(htPage, label) ==
+-- pattern variable for target domain for input area
+  props := LASSOC(label, htpInputAreaAlist htPage)
+  props => ELT(props, 5)
+  nil
+
+htpLabelFilter(htPage, label) ==
+-- string to string mapping applied to input area strings before parsing
+  props := LASSOC(label, htpInputAreaAlist htPage)
+  props => ELT(props, 6)
+  nil
+
+htpPageDescription htPage ==
+-- a list of all the commands issued to create the basic-command page
+  ELT(htPage, 7)
+
+htpSetPageDescription(htPage, pageDescription) ==
+  SETELT(htPage, 7, pageDescription)
+
+htpAddToPageDescription(htPage, pageDescrip) ==
+-------------> OBSELETE <-----------
+  SETELT(htPage, 7, nconc(nreverse COPY_-LIST pageDescrip, ELT(htPage, 7)))
+
+iht line ==
+-- issue a single hyperteTeX line, or a group of lines
+  $newPage => nil
+  PAIRP line =>
+    $htLineList := NCONC(nreverse mapStringize COPY_-LIST line, $htLineList)
+  $htLineList := [basicStringize line, :$htLineList]
+
+bcHt line ==
+--line = '"\##1" => harharhar()
+  iht line
+  PAIRP line =>
+    if $newPage then htpAddToPageDescription($curPage, [['text, :line]])
+  if $newPage then htpAddToPageDescription($curPage, [['text, line]])
+
+bcIssueHt line ==
+  PAIRP line => htMakePage1 line
+  iht line
+
+mapStringize l ==
+  ATOM l => l
+  RPLACA(l, basicStringize CAR l)
+  RPLACD(l, mapStringize CDR l)
+  l
+
+basicStringize s ==
+  STRINGP s =>
+    s = '"\$"      => '"\%"
+    s = '"{\em $}" => '"{\em \%}"
+    s
+  s = '_$ => '"\%"
+  PRINC_-TO_-STRING s
+
+stringize s ==
+  STRINGP s => s
+  PRINC_-TO_-STRING s
+
+htInitPage(title, propList) ==
+----------------------------> OBSELETE---cannot return $curPage
+-- start defining a hyperTeX page
+  htInitPageNoScroll(propList, title)
+  htSayStandard '"\beginscroll "
+  $curPage
+
+
+--htInitPageNoHeading(propList) ==
+-----------------------> replaced by htInitPageNoScroll
+-- start defining a hyperTeX page
+--  $curPage := htpMakeEmptyPage(propList)
+--  if $saturn then $saturnPage := htpMakeEmptyPage(propList)
+--  $newPage := true
+--  $htLineList := nil
+--  $curPage
+
+htAddHeading(title) ==
+------------------------> OBSELETE
+  htNewPage title
+  $curPage
+
+htShowPage() ==
+-- show the page which has been computed
+  htSayStandard '"\endscroll"
+  htShowPageNoScroll()
+
+htShowPageNoScroll() ==
+------------------------> OBSELETE
+-- show the page which has been computed
+  htSayStandard '"\autobuttons"
+  htpSetPageDescription($curPage, nreverse htpPageDescription $curPage)
+  $newPage := false
+  $htLineList := nil
+  htMakePage htpPageDescription $curPage
+  line := APPLY(function CONCAT, nreverse $htLineList)
+  issueHT line
+  endHTPage()
+
+htMakePage itemList ==
+------------------------> OBSELETE
+-- make a page given the description in itemList
+  if $newPage then htpAddToPageDescription($curPage, itemList)
+  htMakePage1 itemList
+
+htMakePage1 itemList ==
+-- make a page given the description in itemList
+  for [itemType, :items] in itemList repeat
+    itemType = 'text              => iht items
+    itemType = 'lispLinks         => htLispLinks items
+    itemType = 'lispmemoLinks     => htLispMemoLinks items
+    itemType = 'bcLinks           => htBcLinks items               --->
+    itemType = 'bcLinksNS         => htBcLinks(items,true)
+    itemType = 'bcLispLinks       => htBcLispLinks items           --->
+    itemType = 'radioButtons      => htRadioButtons items
+    itemType = 'bcRadioButtons    => htBcRadioButtons items
+    itemType = 'inputStrings      => htInputStrings items
+    itemType = 'domainConditions  => htProcessDomainConditions items
+    itemType = 'bcStrings         => htProcessBcStrings items
+    itemType = 'toggleButtons     => htProcessToggleButtons items
+    itemType = 'bcButtons         => htProcessBcButtons items
+    itemType = 'doneButton        => htProcessDoneButton items
+    itemType = 'doitButton        => htProcessDoitButton items
+    systemError ['"unknown itemType", itemType]
+
+htMakeErrorPage htPage ==
+------------------> OBSELETE
+  $newPage := false
+  $htLineList := nil
+  $curPage := htPage
+  htMakePage htpPageDescription htPage
+  line := APPLY(function CONCAT, nreverse $htLineList)
+  issueHT line
+  endHTPage()
+
+htQuote s ==
+-- wrap quotes around a piece of hyperTeX
+  iht '"_""
+  iht s
+  iht '"_""
+
+htProcessToggleButtons buttons ==
+  iht '"\newline\indent{5}\beginitems "
+  for [message, info, defaultValue, buttonName] in buttons repeat
+    if NULL LASSOC(buttonName, htpInputAreaAlist $curPage) then
+      setUpDefault(buttonName, ['button, defaultValue])
+    iht ['"\item{\em\inputbox[", htpLabelDefault($curPage, buttonName), '"]{",
+         buttonName, '"}{\htbmfile{pick}}{\htbmfile{unpick}}\space{}"]
+    bcIssueHt message
+    iht '"\space{}}"
+    bcIssueHt info
+  iht '"\enditems\indent{0} "
+
+htProcessBcButtons buttons ==
+  for [defaultValue, buttonName] in buttons repeat
+    if NULL LASSOC(buttonName, htpInputAreaAlist $curPage) then
+      setUpDefault(buttonName, ['button, defaultValue])
+    k := htpLabelDefault($curPage,buttonName)
+    k = 0 => iht ['"\off{",buttonName,'"}"]
+    k = 1 => iht ['"\on{", buttonName,'"}"]
+    iht ['"\inputbox[", htpLabelDefault($curPage, buttonName), '"]{",
+         buttonName, '"}{\htbmfile{pick}}{\htbmfile{unpick}}"]
+
+htProcessBcStrings strings ==
+---------------------> OBSELETE <------------------------
+  for [numChars, default, stringName, spadType, :filter] in strings repeat
+    mess2 := '""
+    if NULL LASSOC(stringName, htpInputAreaAlist $curPage) then
+      setUpDefault(stringName, ['string, default, spadType, filter])
+    if htpLabelErrorMsg($curPage, stringName) then
+      iht ['"\centerline{{\em ", htpLabelErrorMsg($curPage, stringName), '"}}"]
+      mess2 := CONCAT(mess2, bcSadFaces())
+      htpSetLabelErrorMsg($curPage, stringName, nil)
+    iht ['"\inputstring{", stringName, '"}{",
+         numChars, '"}{", htpLabelDefault($curPage,stringName), '"} ", mess2]
+
+bcSadFaces() ==
+  '"\space{1}{\em\htbitmap{error}\htbitmap{error}\htbitmap{error}}"
+
+htLispLinks(links,:option) ==
+  [links,options] := beforeAfter('options,links)
+  indent := LASSOC('indent,options) or 5
+  iht '"\newline\indent{"
+  iht stringize indent
+  iht '"}\beginitems"
+  for [message, info, func, :value] in links repeat
+    iht '"\item["
+    call := (IFCAR option => '"\lispmemolink"; '"\lispdownlink")
+    htMakeButton(call,message, mkCurryFun(func, value))
+    iht ['"]\space{}"]
+    bcIssueHt info
+  iht '"\enditems\indent{0} "
+
+htLispMemoLinks(links) == htLispLinks(links,true)
+
+htBcLinks(links,:options) ==
+-------------------------> OBSELETE
+  skipStateInfo? := IFCAR options
+  [links,options] := beforeAfter('options,links)
+  for [message, info, func, :value] in links repeat
+    htMakeButton('"\lispdownlink",message,
+                   mkCurryFun(func, value),skipStateInfo?)
+    bcIssueHt info
+
+htBcLispLinks links ==
+-------------------------> OBSELETE
+  [links,options] := beforeAfter('options,links)
+  for [message, info, func, :value] in links repeat
+    htMakeButton('"\lisplink",message, mkCurryFun(func, value))
+    bcIssueHt info
+
+beforeAfter(x,u) == [[y for [y,:r] in tails u while x ^= y],r]
+
+mkCurryFun(fun, val) ==
+  name := GENTEMP()
+  code :=
+    ['DEFUN, name, '(arg), ['APPLY, MKQ fun, ['CONS, 'arg, MKQ val]]]
+  EVAL code
+  name
+
+htRadioButtons [groupName, :buttons] ==
+  htpSetRadioButtonAlist($curPage, [[groupName, :buttonNames buttons],
+                                    : htpRadioButtonAlist $curPage])
+  boxesName := GENTEMP()
+  iht ['"\newline\indent{5}\radioboxes{", boxesName,
+     '"}{\htbmfile{pick}}{\htbmfile{unpick}}\beginitems "]
+  defaultValue := '"1"
+  for [message, info, buttonName] in buttons repeat
+    if NULL LASSOC(buttonName, htpInputAreaAlist $curPage) then
+      setUpDefault(buttonName, ['button, defaultValue])
+      defaultValue := '"0"
+    iht ['"\item{\em\radiobox[", htpLabelDefault($curPage, buttonName), '"]{",
+         buttonName, '"}{",boxesName, '"}\space{}"]
+    bcIssueHt message
+    iht '"\space{}}"
+    bcIssueHt info
+  iht '"\enditems\indent{0} "
+
+htBcRadioButtons [groupName, :buttons] ==
+  htpSetRadioButtonAlist($curPage, [[groupName, :buttonNames buttons],
+                                    : htpRadioButtonAlist $curPage])
+  boxesName := GENTEMP()
+  iht ['"\radioboxes{", boxesName,
+     '"}{\htbmfile{pick}}{\htbmfile{unpick}} "]
+  defaultValue := '"1"
+  for [message, info, buttonName] in buttons repeat
+    if NULL LASSOC(buttonName, htpInputAreaAlist $curPage) then
+      setUpDefault(buttonName, ['button, defaultValue])
+      defaultValue := '"0"
+    iht ['"{\em\radiobox[", htpLabelDefault($curPage, buttonName), '"]{",
+         buttonName, '"}{",boxesName, '"}"]
+    bcIssueHt message
+    iht '"\space{}}"
+    bcIssueHt info
+
+setUpDefault(name, props) ==
+---------------> OBSELETE <----------------
+  htpAddInputAreaProp($curPage, name, props)
+
+buttonNames buttons ==
+  [buttonName for [.,., buttonName] in buttons]
+
+htInputStrings strings ==
+  iht '"\newline\indent{5}\beginitems "
+  for [mess1, mess2, numChars, default, stringName, spadType, :filter]
+   in strings repeat
+    if NULL LASSOC(stringName, htpInputAreaAlist $curPage) then
+      setUpDefault(stringName, ['string, default, spadType, filter])
+    if htpLabelErrorMsg($curPage, stringName) then
+      iht ['"\centerline{{\em ", htpLabelErrorMsg($curPage, stringName), '"}}"]
+
+      mess2 := CONCAT(mess2, bcSadFaces())
+      htpSetLabelErrorMsg($curPage, stringName, nil)
+    iht '"\item "
+    bcIssueHt mess1
+    iht ['"\inputstring{", stringName, '"}{",
+         numChars, '"}{", htpLabelDefault($curPage,stringName), '"} "]
+    bcIssueHt mess2
+  iht '"\enditems\indent{0}\newline "
+
+htProcessDomainConditions condList ==
+  htpSetDomainConditions($curPage, renamePatternVariables condList)
+  htpSetDomainVariableAlist($curPage, computeDomainVariableAlist())
+
+renamePatternVariables condList ==
+  htpSetDomainPvarSubstList($curPage,
+    renamePatternVariables1(condList, nil, $PatternVariableList))
+  substFromAlist(condList, htpDomainPvarSubstList $curPage)
+
+renamePatternVariables1(condList, substList, patVars) ==
+  null condList => substList
+  [cond, :restConds] := condList
+  cond is ['isDomain, pv, pattern] or cond is ['ofCategory, pv, pattern]
+    or cond is ['Satisfies, pv, cond] =>
+      if pv = $EmptyMode then nsubst := substList
+      else nsubst := [[pv, :car patVars], :substList]
+      renamePatternVariables1(restConds, nsubst, rest patVars)
+  substList
+
+substFromAlist(l, substAlist) ==
+  for [pvar, :replace] in substAlist repeat
+    l := SUBST(replace, pvar, l)
+  l
+
+computeDomainVariableAlist() ==
+  [[pvar, :pvarCondList pvar] for [., :pvar] in
+    htpDomainPvarSubstList $curPage]
+
+pvarCondList pvar ==
+  nreverse pvarCondList1([pvar], nil, htpDomainConditions $curPage)
+
+pvarCondList1(pvarList, activeConds, condList) ==
+  null condList => activeConds
+  [cond, : restConds] := condList
+  cond is [., pv, pattern] and pv in pvarList =>
+    pvarCondList1(nconc(pvarList, pvarsOfPattern pattern),
+                  [cond, :activeConds], restConds)
+  pvarCondList1(pvarList, activeConds, restConds)
+
+pvarsOfPattern pattern ==
+  NULL LISTP pattern => nil
+  [pvar for pvar in rest pattern | pvar in $PatternVariableList]
+
+htMakeTemplates(templateList, numLabels) ==
+  templateList := [templateParts template for template in templateList]
+  [[substLabel(i, template) for template in templateList]
+    for i in 1..numLabels] where substLabel(i, template) ==
+      PAIRP template =>
+        INTERN CONCAT(first template, PRINC_-TO_-STRING i, rest template)
+      template
+
+templateParts template ==
+  NULL STRINGP template => template
+  i := SEARCH('"%l", template)
+  null i => template
+  [SUBSEQ(template, 0, i), : SUBSEQ(template, i+2)]
+
+htMakeDoneButton(message, func) ==
+  bcHt '"\newline\vspace{1}\centerline{"
+  if message = '"Continue" then
+    bchtMakeButton('"\lispdownlink", "\ContinueBitmap", func)
+  else
+    bchtMakeButton('"\lispdownlink",CONCAT('"\box{", message, '"}"), func)
+  bcHt '"} "
+
+htProcessDoneButton [label , func] ==
+  iht '"\newline\vspace{1}\centerline{"
+
+  if label = '"Continue" then
+    htMakeButton('"\lispdownlink", "\ContinueBitmap", func)
+  else if label = '"Push to enter names" then
+    htMakeButton('"\lispdownlink",'"\ControlBitmap{ClickToSet}", func)
+  else
+    htMakeButton('"\lispdownlink", CONCAT('"\box{", label, '"}"), func)
+
+  iht '"} "
+
+htMakeButton(htCommand, message, func,:options) ==
+----------> OBSELETE <----------------------------------
+  skipStateInfo? := IFCAR options
+  iht [htCommand, '"{"]
+  bcIssueHt message
+  skipStateInfo? =>
+    iht ['"}{(|htDoneButton| '|", func, '"| ",htpName $curPage, '")}"]
+  iht ['"}{(|htDoneButton| '|", func, '"| (PROGN "]
+  for [id, ., ., ., type, :.] in htpInputAreaAlist $curPage repeat
+    iht ['"(|htpSetLabelInputString| ", htpName $curPage, '"'|", id, '"| "]
+    if type = 'string then
+      iht ['"_"\stringvalue{", id, '"}_""]
+    else
+      iht ['"_"\boxvalue{", id, '"}_""]
+    iht '") "
+  iht [htpName $curPage, '"))}"]
+
+bchtMakeButton(htCommand, message, func) ==
+  bcHt [htCommand, '"{", message,
+       '"}{(|htDoneButton| '|", func, '"| (PROGN "]
+  for [id, ., ., ., type, :.] in htpInputAreaAlist $curPage repeat
+    bcHt ['"(|htpSetLabelInputString| ", htpName $curPage, '"'|", id, '"| "]
+    if type = 'string then
+      bcHt ['"_"\stringvalue{", id, '"}_""]
+    else
+      bcHt ['"_"\boxvalue{", id, '"}_""]
+    bcHt '") "
+  bcHt [htpName $curPage, '"))} "]
+
+htProcessDoitButton [label, command, func] ==
+  fun := mkCurryFun(func, [command])
+  iht '"\newline\vspace{1}\centerline{"
+  htMakeButton('"\lispcommand", CONCAT('"\box{", label, '"}"), fun)
+  iht '"} "
+  iht '"\vspace{2}{Select \  \UpButton{} \  to go back one page.}"
+  iht '"\newline{Select \  \ExitButton{QuitPage} \  to remove this window.}"
+
+htMakeDoitButton(label, command) ==
+  -- use bitmap button if just plain old "Do It"
+  if label = '"Do It" then
+    bcHt '"\newline\vspace{1}\centerline{\lispcommand{\DoItBitmap}{(|doDoitButton| "
+  else
+    bcHt ['"\newline\vspace{1}\centerline{\lispcommand{\box{", label,
+       '"}}{(|doDoitButton| "]
+  bcHt htpName $curPage
+  bcHt ['" _"", htEscapeString command, '"_""]
+  bcHt '")}}"
+
+  bcHt '"\vspace{2}{Select \  \UpButton{} \  to go back one page.}"
+  bcHt '"\newline{Select \  \ExitButton{QuitPage} \  to remove this window.}"
+
+doDoitButton(htPage, command) ==
+  executeInterpreterCommand command
+
+executeInterpreterCommand command ==
+  PRINC command
+  TERPRI()
+  ncSetCurrentLine(command)
+  CATCH('SPAD__READER, parseAndInterpret command)
+  PRINC MKPROMPT()
+  FINISH_-OUTPUT()
+
+htDoneButton(func, htPage) ==
+  typeCheckInputAreas htPage =>
+    htMakeErrorPage htPage
+  NULL FBOUNDP func =>
+    systemError ['"unknown function", func]
+  FUNCALL(SYMBOL_-FUNCTION func, htPage)
+
+typeCheckInputAreas htPage ==
+  -- This needs to be severly beefed up
+  inputAlist := nil
+  errorCondition := false
+  for entry in htpInputAreaAlist htPage
+   | entry is [stringName, ., ., ., 'string, ., spadType, filter] repeat
+    condList :=
+      LASSOC(LASSOC(spadType,htpDomainPvarSubstList htPage),
+             htpDomainVariableAlist htPage)
+    string := htpLabelFilteredInputString(htPage, stringName)
+    $bcParseOnly =>
+      null ncParseFromString string =>
+        htpSetLabelErrorMsg(htPage, '"Syntax Error", '"Syntax Error")
+      nil
+    val := checkCondition(htpLabelInputString(htPage, stringName),
+                          string, condList)
+    STRINGP val =>
+      errorCondition := true
+      htpSetLabelErrorMsg(htPage, stringName, val)
+    htpSetLabelSpadValue(htPage, stringName, val)
+  errorCondition
+
+checkCondition(s1, string, condList) ==
+  condList is [['Satisfies, pvar, pred]] =>
+    val := FUNCALL(pred, string)
+    STRINGP val => val
+    ['(String), :wrap s1]
+  condList isnt [['isDomain, pvar, pattern]] =>
+    systemError '"currently invalid domain condition"
+  pattern is '(String) => ['(String), :wrap s1]
+  val := parseAndEval string
+  STRINGP val =>
+    val = '"Syntax Error " => '"Error: Syntax Error "
+    condErrorMsg pattern
+  [type, : data] := val
+  newType := CATCH('SPAD__READER, resolveTM(type, pattern))
+  null newType =>
+    condErrorMsg pattern
+  coerceInt(val, newType)
+
+condErrorMsg type ==
+  typeString := form2String type
+  if PAIRP typeString then typeString := APPLY(function CONCAT, typeString)
+  CONCAT('"Error: Could not make your input into a ", typeString)
+
+parseAndEval string ==
+  $InteractiveMode :fluid := true
+  $BOOT: fluid := NIL
+  $SPAD: fluid := true
+  $e:fluid := $InteractiveFrame
+  $QuietCommand:local := true
+  parseAndEval1 string
+
+parseAndEval1 string ==
+  syntaxError := false
+  pform :=
+    $useNewParser =>
+      v := applyWithOutputToString('ncParseFromString, [string])
+      CAR v => CAR v
+      syntaxError := true
+      CDR v
+    oldParseString string
+  syntaxError =>
+     '"Syntax Error "
+  pform =>
+    val := applyWithOutputToString('processInteractive, [pform, nil])
+    CAR val => CAR val
+    '"Type Analysis Error"
+  nil
+
+oldParseString string ==
+  tree := applyWithOutputToString('string2SpadTree, [string])
+  CAR tree => parseTransform postTransform CAR tree
+  CDR tree
+
+makeSpadCommand(:l) ==
+  opForm := CONCAT(first l, '"(")
+  lastArg := last l
+  l := rest l
+  argList := nil
+  for arg in l while arg ^= lastArg repeat
+    argList := [CONCAT(arg, '", "), :argList]
+  argList := nreverse [lastArg, :argList]
+  CONCAT(opForm, APPLY(function CONCAT, argList), '")")
+
+htMakeInputList stringList ==
+-- makes an input form for constructing a list
+  lastArg := last stringList
+  argList := nil
+  for arg in stringList while arg ^= lastArg repeat
+    argList := [CONCAT(arg, '", "), :argList]
+  argList := nreverse [lastArg, :argList]
+  bracketString APPLY(function CONCAT, argList)
+
+
+-- predefined filter strings
+bracketString string == CONCAT('"[",string,'"]")
+
+quoteString string == CONCAT('"_"", string, '"_"")
+
+$funnyQuote := char 127
+$funnyBacks := char 128
+
+htEscapeString str ==
+  str := SUBSTITUTE($funnyQuote, char '_", str)
+  SUBSTITUTE($funnyBacks, char '_\, str)
+
+unescapeStringsInForm form ==
+  STRINGP form =>
+    str := NSUBSTITUTE(char '_", $funnyQuote, form)
+    NSUBSTITUTE(char '_\, $funnyBacks, str)
+  CONSP form =>
+    unescapeStringsInForm CAR form
+    unescapeStringsInForm CDR form
+    form
+  form
+
+
+
+
+
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/htcheck.boot b/src/interp/htcheck.boot.pamphlet
index b1cdb2dd..d2dd018c 100644
--- a/src/interp/htcheck.boot
+++ b/src/interp/htcheck.boot.pamphlet
@@ -1,3 +1,20 @@
+\documentclass{article}
+\usepackage{axiom}
+
+\title{\File{src/interp/htcheck.boot} Pamphlet}
+\author{The Axiom Team}
+
+\begin{document}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+
+\section{License}
+
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +46,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 $primitiveHtCommands := '(
   ("\ContinueButton"     . 1)
@@ -125,3 +145,9 @@ spadSysBranch(tree,arg) ==  --tree is (msg kind TREEorSomethingElse ...)
   systemError '"unknown tree branch"
 
 buildHtMacroTable()
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/htsetvar.boot b/src/interp/htsetvar.boot.pamphlet
index 0698ec1d..0d664ff9 100644
--- a/src/interp/htsetvar.boot
+++ b/src/interp/htsetvar.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp htsetvar.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 htsv() ==
   startHTPage(50)
@@ -476,3 +492,9 @@ htCacheOne names ==
 
 
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/hypertex.boot b/src/interp/hypertex.boot.pamphlet
index 00a513aa..430abc4e 100644
--- a/src/interp/hypertex.boot
+++ b/src/interp/hypertex.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp hypertex.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 -- HyperTex Spad interface
 
@@ -118,3 +134,9 @@ popUpNamedHTPage(name,cols) ==
 
 sendHTErrorSignal() ==
   sockSendInt($MenuServer, $SpadError)
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/i-analy.boot b/src/interp/i-analy.boot.pamphlet
index 00e62a44..ff2d62fa 100644
--- a/src/interp/i-analy.boot
+++ b/src/interp/i-analy.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp i-analy.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 --% Interpreter Analysis Functions
 
@@ -808,3 +824,9 @@ isEltable(op,argl,numArgs) ==
   (getUnname arg) ^= 'construct => nil
   true
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/i-code.boot b/src/interp/i-code.boot.pamphlet
index 667186ce..c58ff15e 100644
--- a/src/interp/i-code.boot
+++ b/src/interp/i-code.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp i-code.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 --% Interpreter Code Generation Routines
 
@@ -140,3 +156,9 @@ wrapMapBodyWithCatch body ==
       keyedSystemError("S2GE0016",['"wrapMapBodyWithCatch",
         '"bad CATCH for in function form"])
     else ['CATCH,MKQ mapCatchName $mapName,body]
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/i-eval.boot b/src/interp/i-eval.boot.pamphlet
index 673ff85d..0803bae7 100644
--- a/src/interp/i-eval.boot
+++ b/src/interp/i-eval.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp i-eval.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 --% Constructor Evaluation
 
@@ -450,3 +466,9 @@ failCheck x ==
 --                   the alternate polynomial types of Symbols.
 --    $localVars: list of local variables in a map body
 --    $MapArgumentTypeList: hack for stream compilation
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/i-map.boot b/src/interp/i-map.boot.pamphlet
index 429123a5..b66f02b9 100644
--- a/src/interp/i-map.boot
+++ b/src/interp/i-map.boot.pamphlet
@@ -1,3 +1,20 @@
+\documentclass{article}
+\usepackage{axiom}
+
+\title{\File{src/interp/i-map.boot} Pamphlet}
+\author{The Axiom Team}
+
+\begin{document}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+
+\section{License}
+
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +46,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 --% User Function Creation and Analysis Code
 
@@ -1157,3 +1177,9 @@ getLocalVars(op,body) ==
 --  with modemap ((dummy target source ..) (T f;1)) so that the next
 --  time f is applied to arguments which coerce to the source
 --  arguments of this local modemap, f;1 will be invoked.
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/interop.boot b/src/interp/interop.boot.pamphlet
index 87958dfc..88d4e560 100644
--- a/src/interp/interop.boot
+++ b/src/interp/interop.boot.pamphlet
@@ -1,3 +1,20 @@
+\documentclass{article}
+\usepackage{axiom}
+
+\title{\File{src/interp/interop.boot} Pamphlet}
+\author{The Axiom Team}
+
+\begin{document}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+
+\section{License}
+
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +46,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 )package "BOOT"
 
@@ -77,7 +97,7 @@ DNameToSExpr1 dname ==
 
 DNameToSExpr dname ==
   CAR dname = DNameOtherID  =>
-        CDR dname
+	CDR dname
   sx := DNameToSExpr1 dname
   CONSP sx => sx
   LIST sx
@@ -93,7 +113,7 @@ SExprToDName(sexpr, cosigVal) ==
     [DNameApplyID,
          [DNameStringID,: StringToCompStr '"->"],
               [DNameTupleID, : CDR args],
-                 [DNameTupleID, CAR args]]
+		 [DNameTupleID, CAR args]]
   name0 :=   [DNameStringID, : StringToCompStr SYMBOL_-NAME CAR sexpr]
   CAR sexpr = 'Union or CAR sexpr = 'Record =>
     [DNameApplyID, name0, 
@@ -150,7 +170,7 @@ $lazyOldAxiomDomainDispatch :=
    VECTOR('lazyOldAxiomDomain,
           [function lazyOldAxiomDomainDevaluate],
           [nil],
-          [function lazyOldAxiomDomainLookupExport],
+	  [function lazyOldAxiomDomainLookupExport],
           [function lazyOldAxiomDomainHashCode],
           [function lazyOldAxiomAddChild])
 
@@ -347,8 +367,8 @@ $oldAxiomDomainDispatch :=
    VECTOR('oldAxiomDomain,
           [function oldAxiomDomainDevaluate],
           [nil],
-          [function oldAxiomDomainLookupExport],
-          [function oldAxiomDomainHashCode],
+	  [function oldAxiomDomainLookupExport],
+	  [function oldAxiomDomainHashCode],
           [function oldAxiomAddChild])
 
 --------------------> NEW DEFINITION (see g-util.boot.pamphlet)
@@ -392,7 +412,7 @@ basicLookup(op,sig,domain,dollar) ==
   dispatch.0 = 0 =>  -- new compiler domain object
        hashSig :=
            hashCode? sig => sig
-           opIsHasCat op => hashType(sig, hashPercent)
+	   opIsHasCat op => hashType(sig, hashPercent)
            hashType(['Mapping,:sig], hashPercent)
 
        if SYMBOLP op then
@@ -904,3 +924,10 @@ getFunctionFromDomain(op,dc,args) ==
     b or  throwKeyedMsg("S2IS0023",[op,dc])
   throwKeyedMsg("S2IF0004",[op,dc])
 
+@
+
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/interp-fix.boot b/src/interp/interp-fix.boot.pamphlet
index d21bfd1b..c0edc418 100644
--- a/src/interp/interp-fix.boot
+++ b/src/interp/interp-fix.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp interp-fix.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 -- From newfort.boot:
 
@@ -75,3 +91,9 @@ evaluateType1 form ==
     [op,:NREVERSE typeList]
   throwEvalTypeMsg("S2IE0007",[op])
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/interp-proclaims.lisp b/src/interp/interp-proclaims.lisp
new file mode 100644
index 00000000..30d61fc7
--- /dev/null
+++ b/src/interp/interp-proclaims.lisp
@@ -0,0 +1,3391 @@
+
+(IN-PACKAGE "USER") 
+(PROCLAIM '(FTYPE (FUNCTION (*) (VALUES T T)) BOOT:|ReadLine|)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (T) FUNCTION) FOAM::FOAMPROGINFOSTRUCT-FUNCALL)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (T) FIXNUM) BOOT::LINE-NUMBER BOOT::|eq0|
+            VMLISP:CHAR2NUM BOOT::|nothingWidth| BOOT::|nothingSub|
+            BOOT::|nothingSuper| BOOT::LINE-LAST-INDEX
+            BOOT::LINE-CURRENT-INDEX FOAM:|ProgHashCode|
+            FOAM:|strLength| BOOT:|StringLength| BOOT::|widthSC|)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (T) FOAM:|SInt|)
+            FOAM::FOAMPROGINFOSTRUCT-HASHVAL)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (T) (VALUES T T)) BOOT::|mkSharpVar|
+            BOOT::|makeCharacter| BOOT::|mapCatchName|
+            BOOT::|queryUser| BOOT:|LispKeyword| BOOT::MONITOR-INFO
+            BOOT::FILE-GETTER-NAME BOOT::|mkDomainCatName|
+            FOAM:AXIOMXL-FILE-INIT-NAME BOOT::|getKeyedMsg|
+            BOOT::|mkCacheName| BOOT::|mkAuxiliaryName|)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION ((VECTOR T) (VECTOR T)) T) VMLISP::VGREATERP
+            VMLISP::LEXVGREATERP)) 
+(PROCLAIM '(FTYPE (FUNCTION ((VECTOR T)) T) BOOT:TRIMLZ)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (T) (*)) BOOT:|StringToInteger|
+            BOOT:|StringToFloat|)) 
+(PROCLAIM '(FTYPE (FUNCTION (T *) (VALUES T T)) VMLISP:|read-line|)) 
+(PROCLAIM '(FTYPE (FUNCTION (STRING FIXNUM) T) BOOT::|subWord|)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (T T) FIXNUM) VMLISP:QSQUOTIENT
+            VMLISP:QSREMAINDER VMLISP:QENUM FOAM:|SetProgHashCode|
+            BOOT:GETCHARN BOOT::|attributeCategoryParentCount|)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (T T) (VALUES T T)) BOOT::|htMakeLabel|
+            BOOT::|fetchKeyedMsg|)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (T T T T T) *) BOOT::|applpar1| BOOT::|apprpar1|
+            BOOT::|appargs1| BOOT::|appagg1| BOOT::|matrixBorder|
+            BOOT::|e02befDefaultSolve| BOOT::|e02agfDefaultSolve|
+            BOOT::|e02dafDefaultSolve| BOOT::|htQueryPage|
+            BOOT::|compileAndLink| BOOT::|f04jgfDefaultSolve|
+            BOOT::|f02aefDefaultSolve| BOOT::|f02agfDefaultSolve|
+            BOOT::|apphor| BOOT::|appvertline| BOOT::|applpar|
+            BOOT::|e04jafDefaultSolve| BOOT::|f01brfDefaultSolve|
+            BOOT::|e04ycfDefaultSolve|)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (T T *) *) VMLISP:CONCAT
+            BOOT::LOCALDATABASE BOOT::FE BOOT::|ncBug|)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (T T T) *) BOOT::|replacePercentByDollar,fn|
+            BOOT::|getSlotFromDomain| BOOT::|ncGetFunction|
+            BOOT::|c02affDefaultSolve| BOOT::|c02agfDefaultSolve|
+            BOOT::|Qf2F| BOOT::|selectOptionLC| BOOT::|compUniquely|
+            BOOT::|compExpression| BOOT::|e02gafDefaultSolve|
+            BOOT::|e02aefDefaultSolve| BOOT::|e02bbfDefaultSolve|
+            BOOT::|asytranForm| BOOT::|asytranFormSpecial|
+            BOOT::|asytranApplySpecial| BOOT::SOCK-GET-STRING
+            BOOT::|sockGetString| BOOT::|showIt| BOOT::|pmPreparse,fn|
+            BOOT::|pmPreparse,gn| BOOT::|dbSearchAbbrev|
+            BOOT::|mkUpDownPattern,recurse| BOOT::|htMkPath|
+            BOOT::|getVal| BOOT::|htGlossPage| BOOT::|checkCondition|
+            BOOT::|compTopLevel| BOOT::GETOP
+            BOOT::|checkTransformFirsts| BOOT::|parseIf,ifTran|
+            BOOT::|dbShowOpAllDomains| BOOT::|templateVal|
+            BOOT::|dbChooseDomainOp| BOOT::|whoUsesOperation|
+            BOOT::|c05pbfDefaultSolve| BOOT::|c05nbfDefaultSolve|
+            BOOT::|c06frfDefaultSolve| BOOT::|c06ekfDefaultSolve|
+            BOOT::|NRTvectorCopy| BOOT::|c06fufDefaultSolve|
+            BOOT::|c06fpfDefaultSolve| BOOT::|c06fqfDefaultSolve|
+            BOOT::|applyInPackage| BOOT::|exp2FortSpecial|
+            BOOT::|f04mcfDefaultSolve| BOOT::|f04atfDefaultSolve|
+            BOOT::|f04fafDefaultSolve| BOOT::|f02affDefaultSolve|
+            BOOT::|dbShowCons1| BOOT::|f02aafDefaultSolve|
+            BOOT::|dbSelectCon| BOOT::|dbShowOperationsFromConform|
+            BOOT::|genSearch1| BOOT::|dbSearch|
+            BOOT::|constructorSearch| BOOT::|underscoreDollars,fn|
+            BOOT::|oSearchGrep| BOOT::|selectOption|
+            BOOT::|constructorSearchGrep| BOOT::|dbInfoChoose1|
+            BOOT::|bcDrawIt2| BOOT::|charybdis| BOOT::|bcMkFunction|
+            BOOT::|charyTop| BOOT::|bcDrawIt|
+            BOOT::|f01qcfDefaultSolve| BOOT::|e02zafDefaultSolve|
+            BOOT::|ncloopInclude0| VMLISP:$FCOPY)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (T T T T T T) *) BOOT::|e02befColdSolve|
+            BOOT::|e02ahfDefaultSolve| BOOT::|e02akfDefaultSolve|
+            BOOT::|d02bbfDefaultSolve| BOOT::|d02cjfDefaultSolve|
+            BOOT::|e01sefDefaultSolve| BOOT::|htSetLiterals|
+            BOOT::|f04mbfDefaultSolve| BOOT::|f02axfDefaultSolve|
+            BOOT::|f02akfDefaultSolve| BOOT::|kcaPage1|
+            BOOT::MAKE-DEPSYS BOOT::|makeLongStatStringByProperty|
+            BOOT::|f01rdfDefaultSolve| BOOT::|f01qdfDefaultSolve|)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (T T T T) *) BOOT::|compileConstructorLib|
+            BOOT::|quoteApp| BOOT::|argsapp| BOOT::|appargs|
+            BOOT::|inApp| BOOT::|appsc| BOOT::|appfrac| BOOT::|exptApp|
+            BOOT::|charyTrouble| BOOT::|overbarApp|
+            BOOT::|appHorizLine| BOOT::|overlabelApp| BOOT::/D-1
+            BOOT::|appmat| BOOT::|e01bhfDefaultSolve|
+            BOOT::|e02adfDefaultSolve| BOOT::|e02bcfDefaultSolve|
+            BOOT::|makeStream| BOOT::|newExpandLocalTypeArgs|
+            FOAM:|fputss| FOAM:|fgetss| BOOT::|f01mafDefaultSolve|
+            BOOT::|conform2StringList| BOOT::|f02abfDefaultSolve|
+            BOOT::|f02awfDefaultSolve| BOOT::|f02ajfDefaultSolve|
+            BOOT::|f02adfDefaultSolve| BOOT::|patternCheck,mknew|
+            BOOT::|kDomainName| BOOT::|koPageAux| BOOT::|dbShowOp1|
+            BOOT::APP BOOT::|appagg| BOOT::|binomialApp|
+            BOOT::|charyTrouble1| BOOT::|appsub| BOOT::|slashApp|
+            BOOT::|appsetq| BOOT::|makeStatString|
+            BOOT::|e02dffDefaultSolve| BOOT::|e04dgfDefaultSolve|
+            BOOT::|e04fdfDefaultSolve| BOOT::|e04gcfDefaultSolve|
+            BOOT::|f01refDefaultSolve| BOOT::|f01qefDefaultSolve|)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (T T T T T T T T T T) *) BOOT::|makeFortranFun|
+            BOOT::|d03eefDefaultSolve| BOOT::|e04nafDefaultSolve|)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (T T T T T T T) *) BOOT::|e02ajfDefaultSolve|
+            BOOT::|e02dcfDefaultSolve| BOOT::|e02ddfDefaultSolve|
+            BOOT::|d02ejfDefaultSolve| BOOT::|d02bhfDefaultSolve|
+            BOOT::|d01fcfDefaultSolve| BOOT::|d01gbfDefaultSolve|
+            BOOT::|f04qafDefaultSolve| BOOT::|f02bjfDefaultSolve|
+            BOOT::|f02bbfDefaultSolve| BOOT::|e04mbfDefaultSolve|)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (T T T T T T T T T T T T T T) *)
+            BOOT::BUILD-INTERPSYS)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (T T T T T T T T) *) BOOT::|e02ddfColdSolve|
+            BOOT::|f02xefDefaultSolve| BOOT::|f02wefDefaultSolve|
+            BOOT::BUILD-DEPSYS)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (T T T T T T T T T) *) BOOT::|e04ucfDefaultSolve|
+            BOOT::|e02dcfColdSolve| BOOT::|d02kefDefaultSolve|
+            BOOT::|d02gbfDefaultSolve| BOOT::|d02gafDefaultSolve|)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (T T T T T T T T T T T T T) *)
+            BOOT::|d02rafDefaultSolve|)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (T T T) T) BOOT::|mapRecurDepth| BOOT::THETACHECK
+            BOOT::|flowSegmentedMsg| BOOT::|rewriteMap0|
+            BOOT::|restoreDependentMapInfo| BOOT::|dcSig|
+            BOOT::|analyzeNonRecur| BOOT::|addMap| BOOT::|fortCall|
+            BOOT::|axAddLiteral| BOOT::|writeStringLengths|
+            BOOT::|writeXDR| BOOT::|deleteMap| BOOT::|fnameNew|
+            BOOT::|axFormatDefaultOpSig| BOOT::|htpSetProperty|
+            BOOT::|rewriteMap1| BOOT::|displayMap|
+            BOOT::|compileDeclaredMap| BOOT::|compileCoerceMap|
+            BOOT::|displaySingleRule| BOOT::|hasAtt| BOOT::|hasAttSig|
+            BOOT::SPADRWRITE0 BOOT::SPADRWRITE BOOT::|recordNewValue|
+            BOOT::|recordOldValue| BOOT::|orderUnionEntries,split|
+            BOOT::|getSlotNumberFromOperationAlist|
+            BOOT::|isSuperDomain| BOOT::|recordOldValue0|
+            BOOT::|PARSE-getSemanticForm| BOOT::|recordNewValue0|
+            BOOT::|getSlotFromFunctor| BOOT::|addConstructorModemaps|
+            BOOT::|compDefWhereClause| BOOT::|get1| BOOT::|get2|
+            BOOT::|get0| BOOT::|throwListOfKeyedMsgs|
+            BOOT::|getConstructorOpsAndAtts|
+            BOOT::|mkExplicitCategoryFunction|
+            BOOT::|findDomainSlotNumber| BOOT::|addIntSymTabBinding|
+            BOOT::|sigsMatch| BOOT::|compDefineAddSignature|
+            BOOT::|hasFullSignature| BOOT:ELEMN BOOT::|mkAtree2|
+            BOOT::|mkAtree3| BOOT::|getValueFromSpecificEnvironment|
+            BOOT::|compForMode| BOOT::|transferPropsToNode,transfer|
+            BOOT::|genDomainOps| BOOT::|getOperationAlist|
+            BOOT::|remprop| BOOT::|setMsgForcedAttr| BOOT::|P2Uts|
+            BOOT::|Up2FR| BOOT::|mac0Define| BOOT::|getMappingArgValue|
+            BOOT::|compContained| BOOT::|getArgValueComp|
+            BOOT::|altTypeOf| BOOT::|mac0InfiniteExpansion|
+            BOOT::|setMsgUnforcedAttr| BOOT::|genDomainViewList|
+            BOOT::|compSubDomain| BOOT::|compCapsule|
+            BOOT::|sideEffectedArg?| BOOT::|evalFormMkValue|
+            BOOT::|doItIf| BOOT::|compSingleCapsuleItem|
+            BOOT::|compJoin| BOOT::|rewriteMap|
+            BOOT::|NRTgetLookupFunction| BOOT::|lisplibWrite|
+            BOOT::|getLocalMms| BOOT::|makeFunctorArgumentParameters|
+            BOOT::|selectMmsGen,exact?| BOOT::REDUCE-1
+            BOOT::|getLocalMms,f| BOOT::|isOpInDomain|
+            BOOT::|compDefine| BOOT::|compCategory|
+            BOOT::|getTargetFromRhs| BOOT::|unifyStructVar|
+            BOOT::|augmentSub| BOOT::|unifyStruct| BOOT::|compAdd|
+            BOOT::|filterModemapsFromPackages| BOOT::|constrArg|
+            BOOT::|evalMmCond0| BOOT::|maprinSpecial| BOOT::|hasCaty|
+            BOOT::|evalMmCond| BOOT:ADDASSOC BOOT::|hasCate|
+            BOOT::|matchTypes| BOOT::|findUniqueOpInDomain|
+            BOOT::|hasSigOr| BOOT::|hasSigAnd|
+            BOOT::|findCommonSigInDomain| BOOT::|evalMmCat1|
+            BOOT::|coerceTypeArgs| BOOT::|domArg2| BOOT::|L2Tuple|
+            BOOT::V2M BOOT::DEF-INNER BOOT::|OV2Sy| BOOT::|Qf2EF|
+            BOOT::|Sy2P| BOOT::I2NNI BOOT::|Rm2L| BOOT::|Var2OtherPS|
+            BOOT::|Var2UpS| BOOT::OV2SE BOOT::|NDmp2domain| VMLISP:PUT
+            BOOT::|Var2Up| BOOT::|Expr2Mp| BOOT::|Expr2Dmp|
+            BOOT::|Sy2NDmp| VMLISP:DEFIOSTREAM BOOT::|Dmp2P|
+            BOOT::|Sy2Mp| BOOT::|Var2SUP| BOOT::|Factored2Factored|
+            VMLISP:EQSUBSTLIST BOOT::I2PI BOOT::|P2Expr| BOOT::|P2Up|
+            BOOT::|P2Dmp| BOOT::|Var2FS| BOOT::|Sy2Dmp| BOOT::B-MDEF
+            BOOT::|Ker2Expr| BOOT::|Sy2OV| BOOT::|Var2QF| BOOT::|Sm2V|
+            BOOT::M2V BOOT::|Var2P| BOOT::I2OI BOOT::P2FR
+            BOOT::|makeEijSquareMatrix| BOOT::|Set2L| BOOT::|Sm2Rm|
+            BOOT::DEF BOOT::|Var2NDmp| BOOT::|Dmp2Dmp|
+            BOOT::|coerceDmp2| BOOT::|rread| BOOT::I2EI BOOT::|Var2Mp|
+            BOOT::|compCapsuleInner| BOOT::|Mp2FR| BOOT::|Qf2domain|
+            BOOT::|compCapsuleItems| BOOT::|L2Set| BOOT::|Var2Gdmp|
+            BOOT::COMP-ILAM BOOT::COMP-SPADSLAM BOOT::|L2Sm|
+            BOOT::|mkCategoryPackage| BOOT::COMP-SLAM BOOT::L2M
+            BOOT::|compDefine1| BOOT::|Mp2Expr| BOOT::|Ker2Ker|
+            BOOT::|Var2Dmp| VMLISP:MSUBST BOOT::|Dmp2NDmp|
+            BOOT::|Sm2PolyType| BOOT::|Var2OV|
+            BOOT::|orderPredicateItems| BOOT::|L2Rm| BOOT::|substVars|
+            BOOT::|OV2poly| BOOT::|Sm2M|
+            BOOT::|augmentLisplibModemapsFromFunctor| BOOT::OV2P
+            BOOT::|needBlankForRoot| BOOT::|Rn2F|
+            BOOT::|getInCoreModemaps| BOOT::|Sm2L| BOOT::|splitConcat|
+            BOOT::|Un2E| BOOT::|SUP2Up| BOOT::OV2OV
+            BOOT::|insertAlist,fn| BOOT::|replaceVars|
+            BOOT::|compFromIf| BOOT::|Scr2Scr| BOOT::|compBoolean|
+            BOOT::|L2Record| BOOT::|Rm2V| VMLISP:RPLNODE
+            BOOT::|domain2NDmp| BOOT::|Up2Up|
+            BOOT::|augLisplibModemapsFromCategory| BOOT::|P2Mp|
+            BOOT::|compWithMappingMode,FreeList| BOOT::|orderPredTran|
+            BOOT::|Rm2Sm| BOOT::|Rm2M| BOOT::|Up2SUP| BOOT::|Mp2Up|
+            BOOT::|Mp2Dmp| BOOT::|LargeMatrixp| BOOT::DP2DP
+            BOOT::|Dmp2Up| BOOT::|Up2P| BOOT::|Complex2Expr|
+            BOOT::|seteltModemapFilter| BOOT::/MONITORX BOOT::|P2Upxs|
+            BOOT::|coerceTraceFunValue2E| BOOT::|Complex2FR|
+            BOOT::|Up2Mp| BOOT::V2L BOOT::|P2Uls| BOOT::|M2Sm|
+            BOOT::|coerceTraceArgs2E| BOOT::|Complex2underDomain|
+            BOOT::|resolveTTRed2| BOOT::|Agg2L2Agg|
+            BOOT::|resolveTTRed1| BOOT::|fnameMake|
+            BOOT::MONITOR-PRINARGS VMLISP:HREMPROP
+            BOOT::|eltModemapFilter| BOOT::|coerceOrCroak|
+            BOOT::|resolveTTEq2| BOOT::|resolveTTEq1|
+            BOOT::|matchUpToPatternVars|
+            BOOT::|getConditionalCategoryOfType|
+            BOOT::|getSubDomainPredicate| BOOT::|resolveTMEq2|
+            BOOT::|coerceIntX| BOOT::|compSymbol|
+            BOOT::|coerceSubDomain| BOOT::|compExpressionList|
+            BOOT::|NRTcompileEvalForm| BOOT::|setqMultiple,decompose|
+            BOOT::|permuteToOrder| BOOT::|retractUnderDomain|
+            BOOT::|compList| BOOT::SMALL-ENOUGH-COUNT
+            BOOT::|isRectangularList| BOOT::|augModemapsFromDomain1|
+            BOOT::|canCoerceByFunction1|
+            BOOT::|sayFunctionSelectionResult| BOOT::|compForm|
+            BOOT::|compTypeOf| BOOT::|comp3| BOOT::|coerceOrFail|
+            BOOT::|computeTTTranspositions,compress| BOOT::|algEqual|
+            BOOT::|compiledLookupCheck| VMLISP:RWRITE
+            BOOT::|coerceOrThrowFailure| BOOT::|NRTcompiledLookup|
+            BOOT::|spad2BootCoerce| BOOT::|M2Rm| BOOT::M2M
+            VMLISP:MACRO-INVALIDARGS BOOT::L2V BOOT::|Mp2P|
+            BOOT::|Mp2Mp| BOOT::|coerceDmpCoeffs| BOOT::|Expr2Complex|
+            BOOT::|Dmp2Expr| BOOT::|coerceFFE| BOOT::M2L VMLISP:QESET
+            BOOT::|V2Sm| BOOT::|isRectangularVector| BOOT::V2DP
+            BOOT::L2DP BOOT::|Up2Expr| BOOT::|Qf2Qf| BOOT::|NDmp2NDmp|
+            BOOT::|V2Rm| BOOT::|Qf2PF| BOOT::|Dmp2Mp| BOOT::|Up2Dmp|
+            BOOT::|Sy2Var| BOOT::|Agg2Agg| BOOT::|Expr2Up|
+            BOOT::|Sy2Up| VMLISP:HPUT BOOT::|pvarCondList1|
+            VMLISP:SUBSTRING BOOT::|interpRewriteRule| BOOT::|putAtree|
+            BOOT::|isEltable| BOOT::|selectMms| BOOT::|throwKeyedMsgSP|
+            BOOT::|pushDownTargetInfo|
+            BOOT::|pushDownOnArithmeticVariables|
+            BOOT::|keyedMsgCompFailureSP| BOOT::|intCodeGenCoerce1|
+            BOOT::|throwKeyedMsgCannotCoerceWithValue|
+            BOOT::|asytranForm1| BOOT::|hput| BOOT::|asyCattranOp1|
+            BOOT::|asyMakeOperationAlist| BOOT::|setVector4|
+            BOOT::|SetDomainSlots124| BOOT::|asGetExports|
+            BOOT::|asySig1| BOOT::|ncPutQ|
+            BOOT::|putConstructorProperty| BOOT::|throwKeyedErrorMsg|
+            BOOT::|mkUserConstructorAbbreviation|
+            BOOT::|unabbrevSpecialForms| BOOT::|nAssocQ|
+            BOOT::|New,ENTRY,2| BOOT::READ-INPUT BOOT::READ-SPAD
+            BOOT::|errorSupervisor1| BOOT::|argumentDataError|
+            BOOT::|BesselasymptA| BOOT::|htpSetLabelSpadValue|
+            BOOT::|optPackageCall| BOOT::|from?| BOOT::|clngamma|
+            BOOT::|chebevalarr| BOOT::|PsiBack| BOOT::|logH|
+            BOOT::|PiMinusLogSinPi| BOOT::|besselIcheb|
+            BOOT::|chebstarevalarr| BOOT::|chebf01coefmake|
+            BOOT::|clngammacase23| BOOT::|PsiAsymptoticOrder|
+            BOOT::|grepf| BOOT::|clngammacase1| BOOT::|cotdiffeval|
+            BOOT::|BesselIAsympt| BOOT::|lffloat|
+            BOOT::|substringMatch| BOOT::|makeResultRecord|
+            BOOT::|makeCompilation| BOOT::|extractFileNameFromPath,fn|
+            BOOT::|makeAspGenerators| BOOT::|makeAspGenerators1|
+            BOOT::|mkNewUnionFunList| BOOT::|EnumEqual|
+            BOOT::|cleanUpAfterNagman| BOOT::|sySpecificErrorAtToken|
+            BOOT::|prepareResults,defaultValue|
+            BOOT::|setVector4Onecat| BOOT::|pfLambda| BOOT::|pfWIf|
+            BOOT::|SigSlotsMatch| BOOT::|DomainPrint1|
+            BOOT::|DescendCodeAdd1,update| BOOT::|CheckVector|
+            BOOT::|pfTLambda| BOOT::|htSystemVariables,fn|
+            BOOT::|postCollect,finish| VMLISP:|nsubst|
+            BOOT::|npBackTrack| BOOT::|bchtMakeButton|
+            BOOT::|compWhere| BOOT::|compVector| BOOT::|compAtom|
+            BOOT::|getUniqueModemap| BOOT::|modeIsAggregateOf|
+            BOOT::|compArgumentsAndTryAgain| VMLISP:MACRO-MISSINGARGS
+            BOOT::|compForm1| BOOT::|mergeModemap|
+            BOOT::|compSubsetCategory| BOOT::|compString|
+            BOOT::|augModemapsFromDomain| BOOT::|compWithMappingMode|
+            BOOT::|extractCodeAndConstructTriple| BOOT::|compCat|
+            BOOT::|pfWith| BOOT::|compMakeDeclaration|
+            BOOT::|extendsCategoryForm| BOOT::|compSeq|
+            BOOT::|compSeq1| BOOT::|compReturn| BOOT::|isSubset|
+            BOOT::|getModemapList| BOOT::|compCase1|
+            BOOT::|compCoerce1| BOOT::|compPretend| BOOT::|compMacro|
+            BOOT::|compConstructorCategory| BOOT::|compCoerce|
+            BOOT::|compColon| BOOT::|compSetq| BOOT::|compLeave|
+            BOOT::|npList| BOOT::|modeEqualSubst| BOOT::|compIf|
+            BOOT::|compIs| BOOT::|comp2| BOOT::|compImport|
+            BOOT::|coerce,fn| BOOT::|throwKeyedMsgFromDb|
+            BOOT::|sayKeyedMsgFromDb| BOOT::|compHas| BOOT::|compExit|
+            BOOT::|compElt| BOOT::|compConstruct| BOOT::|compCons|
+            BOOT::|compCons1| BOOT::|compSeqItem|
+            BOOT::|recordInstantiation1| BOOT::|compCase|
+            BOOT::|compQuote| BOOT::|recordInstantiation|
+            BOOT::|compAtSign| BOOT::|compSuchthat|
+            BOOT::|addToConstructorCache| BOOT::|loadLibNoUpdate|
+            BOOT::SETDATABASE BOOT::|lassocShiftWithFunction|
+            BOOT::|assocCache| BOOT::|assocCacheShift|
+            BOOT::|assocCacheShiftCount| BOOT::|pileForests|
+            BOOT::|isLegitimateMode;| BOOT::|hasFileProperty;|
+            BOOT::|coerceConvertMmSelection;|
+            BOOT::|hasFilePropertyNoCache| BOOT::|writeLib1|
+            BOOT::|rwrite| BOOT::|putModemapIntoDatabase|
+            BOOT::|getOplistWithUniqueSignatures|
+            BOOT::|checkSkipOpToken| BOOT::|checkSkipIdentifierToken|
+            BOOT::|readLib1| BOOT::|checkSkipBlanks|
+            BOOT::MAKE-PARSE-FUNC-FLATTEN-1 BOOT::|checkSkipToken|
+            BOOT::|getDocForCategory| BOOT::|newWordFrom|
+            BOOT::PRINT-XDR-STREAM BOOT::|getDocForDomain|
+            BOOT::|getDoc| BOOT::|htcharPosition|
+            BOOT::|PackageDescendCode| BOOT::|RecordEqual|
+            BOOT::|processPackage,replace| BOOT::|UnionEqual|
+            BOOT::|mkEnumerationFunList| BOOT::|mkMappingFunList|
+            BOOT::|mkUnionFunList| BOOT::|mkRecordFunList|
+            BOOT::|MappingEqual| BOOT::|CondAncestorP|
+            BOOT::|updateDatabase| BOOT::|compressSexpr|
+            BOOT::|parseTypeError| BOOT::|moreGeneralCategoryPredicate|
+            BOOT::|encodeUnion| BOOT::|makeCatPred|
+            BOOT::|lookupInDomainByName| BOOT::|simpHasAttribute|
+            BOOT::|domainHput| BOOT::|simpHasPred,simpHas|
+            BOOT::|substDollarArgs| BOOT::|NRTisRecurrenceRelation|
+            BOOT::|dbShowOpSigList| BOOT::|dbSelectData|
+            BOOT::|dbReduceOpAlist| BOOT::|listOfCategoryEntriesIf|
+            BOOT::|dbResetOpAlistCondition|
+            BOOT::|algCoerceInteractive| BOOT::|buildPredVector,fn|
+            BOOT::|extendsCategoryBasic| BOOT::|catExtendsCat?|
+            BOOT::|expandType| BOOT::|expandTypeArgs| BOOT::|stuffSlot|
+            BOOT::|dbPresentOpsSaturn| BOOT::|reduceOpAlistForDomain|
+            BOOT::|mungeAddGensyms,fn| BOOT::|dbReduceBySelection|
+            BOOT::|extendsCategoryBasic0| BOOT::|substSlotNumbers|
+            BOOT::|dbReduceBySignature| BOOT::|extendsCategory|
+            BOOT::|buildPredVector| BOOT::|dbParts|
+            BOOT::|NRTextendsCategory1| BOOT::|getSubstQualify|
+            BOOT::|fortFormatLabelledIfGoto| BOOT::|whoUsesMatch1?|
+            BOOT::|fullSubstitute| BOOT::|whoUsesMatch?|
+            BOOT::|getfortarrayexp| BOOT::|addWhereList|
+            BOOT::|dbGetDisplayFormForOp|
+            BOOT::|dbGetFormFromDocumentation| BOOT::|anySubstring?|
+            VMLISP::MAKE-ENTRY BOOT::|NRTsetVector4a|
+            BOOT::|NRTsetVector4Part1| BOOT::|NRTencode,encode|
+            BOOT::|consOpSig| BOOT::|genSlotSig| BOOT::|NRTsetVector4|
+            BOOT::|newExpandGoGetTypeSlot| BOOT::MAKEOP
+            BOOT::|insertEntry| BOOT::|nextown| BOOT::|mkFortFn|
+            BOOT::|exp2Fort2| BOOT::|evalQUOTE| BOOT::|evalSEQ|
+            BOOT::|IFcodeTran| BOOT::|exp2FortFn|
+            BOOT::|fortFormatHead| BOOT::|addContour,fn1|
+            BOOT::|traverse,traverseInner| BOOT::|upTableSetelt|
+            BOOT::|printSignature| BOOT::|addContour,fn3|
+            BOOT::|commandAmbiguityError| BOOT::|charPosition|
+            BOOT::|traverse| BOOT::|dbPart| BOOT::|commandErrorMessage|
+            BOOT::|substituteOp| BOOT::|displayModemap|
+            BOOT::|displayType| BOOT::|comp| BOOT::|displayMode|
+            BOOT::|numOfOccurencesOf,fn| VMLISP::QUOREM
+            BOOT::|pmatchWithSl| BOOT::|displayCondition|
+            BOOT::|displayValue|
+            BOOT::|intersectionContour,buildModeAssoc| BOOT::|get|
+            BOOT::|sigDomainVal| BOOT::GEQNSUBSTLIST
+            BOOT::|compNoStacking| BOOT::|transImplementation|
+            BOOT::GEQSUBSTLIST BOOT::|libConstructorSig,g|
+            BOOT::|coerceable| BOOT::|substituteIntoFunctorModemap|
+            BOOT::|adjExitLevel| BOOT::|getParentsFor|
+            BOOT::|asytranApply| BOOT::|explodeIfs,fn| BOOT::|dbSplit|
+            BOOT::|buildLibAttr| BOOT::|buildLibOp|
+            BOOT::|transKCatAlist| BOOT::|dbTickIndex|
+            BOOT::|insertShortAlist| BOOT::|sublisFormal,sublisFormal1|
+            BOOT::PUTALIST FOAM:|FormatNumber|
+            BOOT::|dbSetOpAlistCondition| BOOT::|compiledLookup|
+            BOOT::|insertAlist| BOOT::|reduceAlistForDomain|
+            BOOT:|StreamCopyChars| BOOT:|StreamCopyBytes|
+            BOOT::|dbXParts| BOOT::|kePageDisplay|
+            BOOT::|dbShowOpItems| BOOT::MKPFFLATTEN-1
+            BOOT::|dbSearchOrder| BOOT::CARCDRX1 BOOT::SETELTREST
+            BOOT::SETELTFIRST BOOT::AS-INSERT1 BOOT::AS-INSERT
+            BOOT::PROPERTY BOOT::|mkDomTypeForm| BOOT::|stringPosition|
+            BOOT:|StringFromTo| BOOT::|patternCheck,equal|
+            BOOT:|StringFromLong| BOOT::|rightCharPosition|
+            BOOT::|infix?| BOOT::|matchSegment?| BOOT::|stringMatch|
+            BOOT::|skipBlanks| BOOT::|dbPresentConsSaturn|
+            BOOT::MAKE-DEFUN BOOT::|compOrCroak| BOOT::|profileRecord|
+            BOOT::|getSignature| BOOT::|traceDomainLocalOps|
+            BOOT::|getArgumentModeOrMoan|
+            BOOT::|filterListOfStringsWithFn|
+            BOOT::|mkGrepPattern1,charPosition|
+            BOOT::|displayModemap,g|
+            BOOT::|filterAndFormatConstructors| BOOT::READ-BOOT
+            BOOT::|userLevelErrorMessage| BOOT::|addBinding|
+            BOOT::|dbShowConsDoc1| BOOT::|makePathname|
+            BOOT::|mkConform| BOOT::|dbInfoFindCat| BOOT::|compReduce|
+            BOOT::|dbShowInfoList| BOOT::|dbShowConditions|
+            BOOT::|compRepeatOrCollect| BOOT::|dbInfoOrigin|
+            BOOT::|dbConstructorDoc| BOOT::|interpret2|
+            BOOT::|htpSetLabelInputString| BOOT::|letPrint2|
+            BOOT::|letPrint| BOOT::|mapLetPrint|
+            BOOT::|htpAddInputAreaProp| BOOT::|getOpBindingPower|
+            BOOT::|infixArgNeedsParens| BOOT::|linearFinalRequest|
+            BOOT::|bcInputEquations,f| BOOT::|htpSetLabelErrorMsg|
+            BOOT::|isBreakSegment?| BOOT::|substring?|
+            BOOT::|sublisMatAlist| BOOT::MAKESPAD
+            BOOT::|reportCategory| BOOT::|longext|
+            BOOT::|npParenthesize| BOOT::|bcString2WordList,fn|
+            VMLISP::ECQGENEXP VMLISP::RCQGENEXP BOOT::|outputString|
+            BOOT::|outputNumber| VMLISP::DODSETQ
+            BOOT::|pfInfApplication| BOOT::|insertString|
+            BOOT::|npAndOr| BOOT::|npListofFun| BOOT::|optSpecialCall|
+            BOOT::|pfPushBody| BOOT::|pfIf| BOOT::|incZip|
+            BOOT::|augProplist| BOOT::|augProplistInteractive|
+            BOOT::|centerString| BOOT::|evalCOLLECT|
+            BOOT::|interpCOLLECTbody| BOOT::|upLoopIterIN|
+            BOOT::|position,posn| BOOT::|domainVal| BOOT::|subVecNodes|
+            BOOT::|addBindingInteractive| BOOT::|interpCOLLECT|
+            BOOT::|upTaggedUnionConstruct| BOOT::|upRecordConstruct|
+            BOOT::|newExpandTypeSlot| BOOT::|upNullList|
+            BOOT::|upStreamIterIN| BOOT::|getCatForm|
+            BOOT::|oldAxiomAddChild| BOOT::|evalCOERCE|
+            BOOT::|mkAndApplyZippedPredicates| BOOT::|lookupPred|
+            BOOT::|oldAxiomDomainHasCategory| BOOT::|mkIterFun|
+            BOOT::|attributeCategoryBuild|
+            BOOT::|oldAxiomCategoryBuild| BOOT::|upLETtype|
+            BOOT::|upLETWithFormOnLhs| BOOT::|lazyMatchAssocV1|
+            BOOT::|oldAxiomCategoryNthParent| BOOT::|assignSymbol|
+            BOOT::|evalIsntPredicate| BOOT::|evalIsPredicate|
+            BOOT::|SpadInterpretStream| BOOT::|upSetelt| BOOT:SUBLISLIS
+            BOOT::|upNullTuple| BOOT::|evalIF| BOOT::|intloopProcess|
+            BOOT::|evalis| BOOT::|evalREPEAT| BOOT::|upwhereMain|
+            BOOT::|upwhereMkAtree| BOOT::|upwhereClause|
+            BOOT::|intloopInclude0| BOOT::|intloopSpadProcess,interp|
+            BOOT::|incPrefix?| BOOT::|inclmsgIfSyntax|
+            BOOT::|renamePatternVariables1| BOOT::|newExpandLocalType|
+            BOOT::|newExpandLocalTypeForm|
+            BOOT::|oldAxiomPreCategoryBuild|
+            BOOT::|getFunctionFromDomain| BOOT::|lazyOldAxiomAddChild|
+            BOOT:SUBSTEQ BOOT::|getOpCode| BOOT::|lazyDomainSet|
+            BOOT::|application2String| BOOT::|putI| BOOT::|mkInterpFun|
+            BOOT::|interpret1| BOOT::|analyzeMap0|
+            BOOT::|reportOpSymbol,sayMms| BOOT::|findLocalsInLoop|)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (T T T T T) T) BOOT::|analyzeRecursiveMap|
+            BOOT::|augmentMap| BOOT::|reportFunctionCompilation|
+            BOOT::|putSrcPos| BOOT::|hasSigInTargetCategory,fn|
+            BOOT::|encodeFunctionName| BOOT::|getArgValueComp2|
+            BOOT::|augModemapsFromCategory| BOOT::|compDefineFunctor1|
+            BOOT::|augModemapsFromCategoryRep|
+            BOOT::|compDefineFunctor| BOOT::|processFunctor|
+            BOOT::|buildFunctor| BOOT::|selectMmsGen,matchMms|
+            BOOT::|makeConstrArg|
+            BOOT::|commuteSparseUnivariatePolynomial|
+            BOOT::|commuteUnivariatePolynomial|
+            BOOT::|commuteSquareMatrix| BOOT::|coerceDmp1|
+            BOOT::|aggregateApp| BOOT::|compDefineCategory1|
+            BOOT::|commuteFraction| BOOT::|compDefineCategory|
+            BOOT::|commuteQuaternion| BOOT::|commuteComplex|
+            BOOT::|resolveTT2| BOOT::|concatApp1|
+            BOOT::|compFormPartiallyBottomUp|
+            BOOT::|canReturn,findThrow| BOOT::|orderMms|
+            BOOT::|sayFunctionSelection| BOOT::MATCH-FUNCTION-DEF
+            BOOT::|commuteNewDistributedMultivariatePolynomial|
+            BOOT::|commuteMPolyCat|
+            BOOT::|commuteDistributedMultivariatePolynomial|
+            BOOT::|commuteMultivariatePolynomial|
+            BOOT::|commutePolynomial| BOOT::|bottomUpDefaultCompile|
+            BOOT::|bottomUpDefaultEval| BOOT::|bottomUpFormTuple|
+            BOOT::|bottomUpFormAnyUnionRetract| BOOT::|bottomUpForm|
+            BOOT::|bottomUpFormUntaggedUnionRetract|
+            BOOT::|bottomUpFormRetract| BOOT::|bottomUpForm2|
+            BOOT::|bottomUpForm0| BOOT::|bottomUpForm3|
+            BOOT::|coerceByTable| BOOT::|compileRecurrenceRelation|
+            BOOT::|logS| BOOT::|spadify| BOOT::|prepareResults|
+            BOOT::|DescendCodeAdd1|
+            BOOT::|htSystemVariables,displayOptions| BOOT::|evalAndSub|
+            BOOT::FINCOMBLOCK BOOT::|compIf,Env| BOOT::LOCALASY
+            BOOT::|mkCacheVec| BOOT::LOCALNRLIB BOOT::|selectMms1;|
+            BOOT::|selectMms2| BOOT::|processPackage|
+            BOOT::|mkCategory| BOOT::|newCompareSig|
+            BOOT::|lookupInDomain| BOOT::|fortFormatDo|
+            BOOT::|newLookupInDomain| BOOT::|getNewDefaultPackage|
+            BOOT::|printLabelledList| BOOT::|compApplication|
+            BOOT::|dbExpandOpAlistIfNecessary| BOOT::-REDUCE
+            BOOT::|compDefineCapsuleFunction| BOOT::|genSearchSay|
+            BOOT::|compRepeatOrCollect,fn| BOOT::|dbGetDocTable|
+            BOOT::|apprpar| BOOT::WRITE-TAG-LINE BOOT::|concatTrouble|
+            BOOT::|charyBinary| BOOT::|split2| BOOT::|needStar|
+            BOOT::|lazyMatchArg2| BOOT::|newLookupInTable|
+            BOOT::|hashNewLookupInTable| BOOT::|compileADEFBody|
+            BOOT::|interpLoopIter| BOOT::|compileIF|
+            BOOT::|xlCannotRead| BOOT::|xlMsg| BOOT::|xlNoSuchFile|
+            BOOT::|incLine| BOOT::|xlFileCycle| BOOT::|xlConStill|
+            BOOT::|xlConActive| BOOT::|xlSay| BOOT::|xlOK1|
+            BOOT::|incLude| BOOT::|analyzeDeclaredMap|)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (T T T T) T) BOOT::|analyzeNonRecursiveMap|
+            BOOT::|makeInternalMapName| BOOT::|printCName|
+            BOOT::|clearDep1| BOOT::|domArg| BOOT::|mkDomPvar|
+            BOOT::|hasSig| BOOT::|putIntSymTab|
+            BOOT::|findConstructorSlotNumber| BOOT::MAKE-FLOAT
+            BOOT::|getFileProperty|
+            BOOT::|compDefWhereClause,fetchType| BOOT::|compSubDomain1|
+            BOOT::|putFileProperty| BOOT::|srcPosNew|
+            BOOT::|substNames| BOOT::|mac0MLambdaApply|
+            BOOT::|mac0ExpandBody| BOOT::|genDomainView|
+            BOOT::|getArgValue2| BOOT::|compFunctorBody|
+            BOOT::|analyzeMap| BOOT::|defaultTarget|
+            BOOT::|selectDollarMms| BOOT::|selectMmsGen|
+            BOOT::|allOrMatchingMms| BOOT::|evalMmCat|
+            BOOT::|matchMmSig| BOOT::/LOCATE BOOT::|hasCateSpecialNew|
+            BOOT::|evalMm| BOOT::|evalMmFreeFunction|
+            BOOT::|hasCateSpecial| BOOT::|hasCate1| BOOT::|boxApp|
+            BOOT::|concatApp| BOOT::|appsum| BOOT::|altSuperSubApp|
+            BOOT::|concatbApp| BOOT::|appSum| BOOT::|binomApp|
+            BOOT::|aggApp| BOOT::|fixUpPredicate| BOOT::|stepApp|
+            BOOT::|appneg| BOOT::|setqMultipleExplicit|
+            BOOT::|braceApp| BOOT::|compSetq1| BOOT::|timesApp|
+            BOOT::|rootApp| BOOT::|bracketApp| BOOT::|plusApp|
+            BOOT::|appparu1| BOOT::|bigopWidth| BOOT::|P2Us|
+            BOOT::|pi2App| BOOT::|boxLApp| VMLISP:STRPOSL
+            BOOT::|compOrCroak1| BOOT::|piApp| BOOT::|compForm2|
+            BOOT::|compForm3| BOOT::|getConditionalCategoryOfType1|
+            BOOT::|indefIntegralApp| BOOT::|nothingApp|
+            BOOT::|evalconstruct| BOOT::|evalInfiniteTupleConstruct|
+            BOOT::|setqSetelt| BOOT::|evalTupleConstruct|
+            BOOT::|consProplistOf| BOOT::|setqMultiple|
+            BOOT::|coerceImmediateSubDomain| BOOT::|intApp|
+            BOOT::|setqSingle| BOOT::|assignError| BOOT::|sigma2App|
+            BOOT::|canReturn| BOOT::|appext| BOOT::|centerApp|
+            BOOT::|sigmaApp| BOOT::|stringApp| BOOT::|MpP2P|
+            BOOT::|evalForm| BOOT::|selectLocalMms|
+            BOOT::|bottomUpDefault| BOOT::|canCoerceTopMatching|
+            BOOT::|catchCoerceFailure| BOOT::|asGetModemaps|
+            BOOT::|asytranCategory| BOOT::|asytranCategoryItem|
+            BOOT::|asytranDeclaration|
+            BOOT::|InvestigateConditions,flist| BOOT::|getTranslation|
+            BOOT::|condUnabbrev|
+            BOOT::|constructorAbbreviationErrorCheck| BOOT::READ-SPAD0
+            BOOT::|BesselasymptB| BOOT::|optCallSpecially|
+            BOOT::|getDocDomainForOpSig| BOOT::|reportFunctionCacheAll|
+            BOOT::|clngammacase2| BOOT::|constoken| BOOT::|writeMalloc|
+            BOOT::|printDec| BOOT::|htPred2English,gn|
+            BOOT::|prepareData| BOOT::|protectedNagCall|
+            BOOT::|axiomType| BOOT::|DescendCode|
+            BOOT::|SetFunctionSlots|
+            BOOT::|InvestigateConditions,update|
+            BOOT::|htSystemVariables,functionTail| VMLISP:STRPOS
+            BOOT::|replaceExitEtc,fn| BOOT::|compNoStacking1|
+            BOOT::|compClam| BOOT::|getModemapListFromDomain|
+            BOOT::|say2Split| BOOT::|compColonInside| BOOT::|haddProp|
+            BOOT::|npEnclosed| BOOT::|hputNewProp|
+            BOOT::ASHARPMKAUTOLOADFUNCTOR
+            BOOT::ASHARPMKAUTOLOADCATEGORY BOOT::|addCoreModemap|
+            BOOT::|getMatchingRightPren| BOOT::|checkHTargs|
+            BOOT::|mkOperatorEntry| BOOT::|catPairUnion|
+            BOOT::|lookupUF| BOOT::|newLookupInCategories|
+            BOOT::|lookupFF| BOOT::|simpHasSignature|
+            BOOT::|compareSig| BOOT::|lazyCompareSigEqual|
+            BOOT::|lookupInAddChain| BOOT::|lookupInCategories|
+            BOOT::|lookupInTable| BOOT::|lookupDisplay|
+            BOOT::|domainTableLookup| BOOT::|dbShowOpConditions|
+            BOOT::|dbShowOpParameterJump|
+            BOOT::|dbShowOpImplementations| BOOT::|dbShowOpParameters|
+            BOOT::|dbShowOpOrigins| BOOT::|dbShowOpSignatures|
+            BOOT::|getSigSubst| BOOT::|optDeltaEntry|
+            BOOT::|lazyMatchArg| BOOT::|nrunNumArgCheck|
+            BOOT::|nextown2| BOOT::|semchkProplist|
+            BOOT::|interpREPEAT| BOOT::|makeCommonEnvironment,fn|
+            BOOT::|compMapCondFun| BOOT::|compApplyModemap|
+            BOOT::|compMapCond| BOOT::|compMapCond'|
+            BOOT::|compToApply| BOOT::REDUCE-N BOOT::|applyMapping|
+            BOOT::|compFormWithModemap| BOOT::|compAtomWithModemap|
+            BOOT::|ancestorsRecur| BOOT::|checkCommentsForBraces|
+            BOOT::|dbShowOpDocumentation| BOOT::|dbShowOpNames|
+            BOOT::REDUCE-N-1 BOOT::|dbGatherData| BOOT::|dbConsHeading|
+            BOOT::REDUCE-N-2 BOOT::|termMatch| BOOT::|matchAnySegment?|
+            BOOT::|replaceExitEtc| BOOT::|put| BOOT::|checkAndDeclare|
+            BOOT::|hasSigInTargetCategory| BOOT::READ-SPAD1
+            BOOT::|mkDetailedGrepPattern| BOOT::|displayInfoOp|
+            BOOT::|dbShowInfoOp| BOOT::|compReduce1| BOOT::|letPrint3|
+            BOOT::|intloopSpadProcess| BOOT::|zagApp|
+            BOOT::|findBalancingBrace| BOOT::|appelse| BOOT::|appChar|
+            BOOT::|appInfix| BOOT::|htMakeButtonSaturn|
+            BOOT::|vconcatapp| BOOT::|superSubApp| BOOT::|xLate|
+            BOOT::|appconc| BOOT::MAKELIB BOOT::|appparu|
+            BOOT::|charySemiColon| BOOT::|charyElse|
+            BOOT::|charyEquatnum| BOOT::|bcFindString|
+            BOOT::|charySplit| BOOT::|charyMinus| VMLISP::DCQGENEXP
+            BOOT::|augProplistOf| BOOT::|putHist|
+            BOOT::|evalUntargetedADEF| BOOT::|evalTargetedADEF|
+            BOOT::|mergeInPlace| BOOT::|upLoopIterSTEP|
+            BOOT::|mergeSort| BOOT::|interpLoop| BOOT::|collectStream|
+            BOOT::|collectStream1| BOOT::|lazyMatch|
+            BOOT::|lazyMatchArgDollarCheck|
+            BOOT::|interpCOLLECTbodyIter| BOOT::|lookupInCompactTable|
+            BOOT::|sayLooking| BOOT::|upStreamIterSTEP|
+            BOOT::|lookupIncomplete| BOOT::|newLookupInAddChain|
+            BOOT::|hashNewLookupInCategories| BOOT::|lookupComplete|
+            BOOT::|newLookupInCategories1| BOOT::|lazyMatchAssocV|
+            BOOT::|collectSeveralStreams| BOOT::|mkIterZippedFun|
+            BOOT::|compareSigEqual| BOOT::|mkInterpTargetedADEF|
+            BOOT::|compileTargetedADEF| BOOT::|collectOneStream|
+            BOOT::|oldCompLookupNoDefaults| BOOT::|evalTuple|
+            BOOT::|interpIF| BOOT::|getReduceFunction|
+            BOOT::|NRTgetMinivectorIndex| BOOT::|xlPrematureFin|
+            BOOT::|xlPrematureEOF| BOOT::|xlCmdBug| BOOT::|xlIfBug|
+            BOOT::|xlSkippingFin| BOOT::|xlConsole| BOOT::|xlOK|
+            BOOT::|xlSkip| BOOT::|lookupInDomainVector|
+            BOOT::|basicLookupCheckDefaults| BOOT::|basicLookup|
+            BOOT::|oldCompLookup| BOOT::|analyzeUndeclaredMap|)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (T T T T T T) T) BOOT::|compDefineLisplib|
+            BOOT::|compConLib1| BOOT::|addModemap| BOOT::|mmCost|
+            BOOT::|findFunctionInDomain1| BOOT::/WRITEUPDATE
+            BOOT::|mmCost0| BOOT::|/D,2,LIB|
+            BOOT::|processFunctorOrPackage| BOOT::|compOrCroak1,fn|
+            BOOT::/D-2 BOOT::|BesselIBackRecur| BOOT::|invokeFortran|
+            BOOT::|nagCall| BOOT::|makeFort| BOOT::|addModemapKnown|
+            BOOT::|addModemap1| BOOT::|addEltModemap| BOOT::|compHash|
+            BOOT::|compHashGlobal| BOOT::|compApply| BOOT::|kdPageInfo|
+            BOOT::|addModemap0| BOOT::|bracketagglist|
+            BOOT::|attributeLookupExport| BOOT::|upDollarTuple|
+            BOOT::|xlIfSyntax| BOOT::|incLine1|
+            BOOT::|oldAxiomCategoryLookupExport| BOOT::|genMapCode|
+            BOOT::|putMapCode|)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (T T *) T) BOOT::|pfLeaf| BOOT::BPITRACE
+            VMLISP:|remove| VMLISP:RREAD VMLISP:REMOVEQ
+            BOOT::MATCH-LISP-TAG VMLISP:NREMOVE VMLISP:NREMOVEQ
+            BOOT::|tokConstruct| BOOT::|pfAdd|
+            BOOT:|ByteFileReadLineIntoString| BOOT:MATCH-TOKEN)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (T T T *) T) BOOT::|ncHardError|
+            BOOT::TOKEN-INSTALL BOOT::|ncSoftError| BOOT::|lnCreate|)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (T T T T T T T) T) BOOT::|findFunctionInCategory|
+            BOOT::|Mp2MpAux1| BOOT::|Mp2MpAux0| BOOT::|Expr2Dmp1|
+            BOOT::|Mp2SimilarDmp| BOOT::|bigopAppAux|
+            BOOT::|findFunctionInDomain| BOOT::|abbreviationError|
+            BOOT::|lisplibError| BOOT::|invokeNagman|
+            BOOT::|mkNewModemapList| BOOT::|mkDiffAssoc|
+            BOOT::|dbGatherThenShow| BOOT::|appInfixArg|
+            BOOT::|lazyOldAxiomDomainLookupExport|
+            BOOT::|oldAxiomDomainLookupExport|)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (T T T T T T T T T T T) T)
+            BOOT::|displayDomainOp|)) 
+(PROCLAIM '(FTYPE (FUNCTION (T T T T *) T) VMLISP:RPLACSTR)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (T T T T T T T T T T) T) BOOT::|P2DmpAux|
+            BOOT::|makeSpadFun|)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (T T T T T T T T) T) BOOT::|compDefineCategory2|
+            BOOT::|P2MpAux| BOOT::|makeFort1|)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (T T T T T T T T T) T) BOOT::|writeCFile|
+            BOOT::|Mp2MpAux2|)) 
+(PROCLAIM '(FTYPE (FUNCTION (T T T T T *) T) BOOT::|msgCreate|)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION NIL *) BOOT::|generateResultsName|
+            BOOT::|generateDataName| BOOT::|htShowPage|
+            BOOT::|PARSE-Label| BOOT::|bcMatrix| BOOT::|PARSE-Primary1|
+            BOOT::|PARSE-Enclosure| BOOT::|bcDraw2DSolve|
+            BOOT::|PARSE-Selector| BOOT::|PARSE-Category|
+            BOOT::|PARSE-Option| BOOT::|PARSE-TokenOption|
+            BOOT::|PARSE-Sexpr1| BOOT::|PARSE-Sexpr|
+            BOOT::|PARSE-Scripts| BOOT::|PARSE-SpecialCommand|
+            BOOT::|PARSE-FloatBasePart| BOOT::|PARSE-FloatBase|
+            BOOT::|PARSE-Leave| BOOT::|e02aef| BOOT::|e04ucfCopOut|
+            BOOT::|c02agf| BOOT::|c02aff| BOOT::|e02adf| BOOT::|c05pbf|
+            VMLISP:RECLAIM BOOT::MKPROMPT BOOT::|sendHTErrorSignal|
+            BOOT::|testPage| BOOT::|e01sef| BOOT::|e01saf|
+            BOOT::|e01daf| BOOT::|e01bhf| BOOT::|e01bgf| BOOT::|e01bff|
+            BOOT::|e01bef| BOOT::|e01baf| BOOT::|e02zaf| BOOT::|e02gaf|
+            BOOT::|e02dff| BOOT::|e02def| BOOT::|e02ddf| BOOT::|e02dcf|
+            BOOT::|e02daf| BOOT::|e02bef| BOOT::|e02bdf|
+            BOOT::|minusInfinity| BOOT::|plusInfinity|
+            BOOT::SERVER-SWITCH BOOT::CLEARDATABASE BOOT::NBOOT-LEXPR
+            BOOT::BOOT-LEXPR BOOT::|executeQuietCommand|
+            BOOT::|serverSwitch| BOOT::|scanS|
+            BOOT::|sendNagmanErrorSignal| BOOT::|d01gbf| BOOT::|d01gaf|
+            BOOT::|d01fcf| BOOT::|d01bbf| BOOT::|d01asf|
+            BOOT::|d02rafCopOut| BOOT::|d02raf| BOOT::|d02kef|
+            BOOT::|d02gbf| BOOT::|d02gaf| BOOT::|d02ejf| BOOT::|d02cjf|
+            BOOT::|d02bhf| BOOT::|d02bbf| BOOT::|e02ahf|
+            BOOT::|d03edfShort| BOOT::|d03edfLong| BOOT::|d03eefInput|
+            BOOT::|d03faf| BOOT::|d03eef| BOOT::|d03edf|
+            BOOT::|htSystemVariables| BOOT::|htSetVars|
+            BOOT::|mkSetTitle| BOOT::|npCategory|
+            BOOT::PARSE-CONS_SEXPR BOOT::PARSE-SEXPR
+            BOOT::PARSE-REF_SEXPR BOOT::PARSE-EXPR2 BOOT::PARSE-EXPR1
+            BOOT::|htsv| BOOT::|npDefinitionItem| BOOT::|npDefn|
+            BOOT::|npMacro| BOOT::|npMDEFinition| BOOT::|npRule|
+            BOOT::RESETHASHTABLES BOOT::READSPADEXPR
+            BOOT::|batchExecute| BOOT::|c05nbf| BOOT::|c05adf|
+            BOOT::|c06gsf| BOOT::|c06gqf| BOOT::|c06gcf| BOOT::|c06gbf|
+            BOOT::|c06fuf| BOOT::|c06frf| BOOT::|c06fqf| BOOT::|c06fpf|
+            BOOT::|c06ekf| BOOT::|c06ecf| BOOT::|c06ebf| BOOT::|c06eaf|
+            BOOT::|s17def| BOOT::|s17dcf| BOOT::|s17akf| BOOT::|s17ajf|
+            BOOT::|s17ahf| BOOT::|s17agf| BOOT::|s17aff| BOOT::|s17aef|
+            BOOT::|s17adf| BOOT::|s17acf| BOOT::|s15aef| BOOT::|s15adf|
+            BOOT::|s14baf| BOOT::|s14abf| BOOT::|s14aaf| BOOT::|s13adf|
+            BOOT::|s13acf| BOOT::|s13aaf| BOOT::|s01eaf| BOOT::|s21bdf|
+            BOOT::|s21bcf| BOOT::|s21bbf| BOOT::|s21baf| BOOT::|s20adf|
+            BOOT::|e02agf| BOOT::|s20acf| BOOT::|d01aqf| BOOT::|s19adf|
+            BOOT::|d01apf| BOOT::|s19acf| BOOT::|d01anf| BOOT::|d01amf|
+            BOOT::|d01alf| BOOT::|s19abf| BOOT::|d01akf| BOOT::|s19aaf|
+            BOOT::|d01ajf| BOOT::|s18def| BOOT::|s18dcf| BOOT::|s18aff|
+            BOOT::|s18aef| BOOT::|s18adf| BOOT::|s18acf| BOOT::|f04qaf|
+            BOOT::|f04mcf| BOOT::|f04mbf| BOOT::|f04maf| BOOT::|f04jgf|
+            BOOT::|f04faf| BOOT::|f04axf| BOOT::|f04atf| BOOT::|f04asf|
+            BOOT::|quit| BOOT::|f04arf| BOOT::|quitSpad2Cmd|
+            BOOT::|f04adf| BOOT::|pquit| BOOT::|pquitSpad2Cmd|
+            BOOT::CONTINUE BOOT::|continue| BOOT::|purgeLocalLibdb|
+            BOOT::|dbSplitLibdb| BOOT::|f07fef| BOOT::|f07fdf|
+            BOOT::|f07aef| BOOT::|f07adf| BOOT::|copyright|
+            BOOT::|s17dlf| BOOT::|s17dhf| BOOT::|s17dgf| BOOT::|f02xef|
+            BOOT::|f02wef| BOOT::|f02fjf| BOOT::|f02bjf| BOOT::|f02bbf|
+            BOOT::|f02axf| BOOT::|f02awf| BOOT::|f02akf| BOOT::|f02ajf|
+            BOOT::|f02agf| BOOT::|htShowPageNoScroll| BOOT::|f02aff|
+            BOOT::|f02aef| BOOT::|f02adf| BOOT::|f02abf| BOOT::|f02aaf|
+            BOOT::|measure| BOOT::|writeSaturnSuffix| BOOT::NEWRULE
+            BOOT::PARSE-LOCAL_VAR BOOT::|htErrorStar|
+            BOOT::|queryClients| BOOT::|onDisk| BOOT::|endHTPage|
+            BOOT::|readSpadProfileIfThere| BOOT::|bcDraw3Dpar1|
+            BOOT::|bcDraw3Dpar| BOOT::|htShowPageStarSaturn|
+            BOOT::|htShowPageStar| BOOT::|bcDraw3Dfun|
+            BOOT::|bcDraw2Dpar| BOOT::|bcSum| BOOT::|bcSeries|
+            BOOT::|bcProduct| BOOT::|bcLimit|
+            BOOT::|bcIndefiniteIntegrate| BOOT::|bcDraw|
+            BOOT::|bcDifferentiate| BOOT::|bcDefiniteIntegrate|
+            BOOT::|bcDraw2Dfun| BOOT::MAKE-TAGS-FILE BOOT::|bcSolve|
+            BOOT::|npPrimary1| BOOT::|e02bcf| BOOT::|e02bbf|
+            BOOT::|e02baf| BOOT::|e02akf| BOOT::|e02ajf| BOOT::|e04ycf|
+            BOOT::|e04ucf| BOOT::|e04naf| BOOT::|e04mbf| BOOT::|e04jaf|
+            BOOT::|e04gcf| BOOT::|e04fdf| BOOT::|e04dgf| BOOT::|f01ref|
+            BOOT::|f01rdf| BOOT::|f01rcf| BOOT::|f01qef| BOOT::|f01qdf|
+            BOOT::|f01qcf| BOOT::|f01mcf| BOOT::|f01maf| BOOT::|f01bsf|
+            BOOT::|f01brf|)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION NIL T) BOOT::|getCodeVector|
+            BOOT:PARSE-IDENTIFIER BOOT::|axDoLiterals|
+            BOOT::|PARSE-Suffix| BOOT:CURRENT-TOKEN
+            BOOT::|PARSE-TokTail| BOOT::|PARSE-InfixWith|
+            BOOT::|PARSE-With| BOOT::|PARSE-Form|
+            BOOT::|PARSE-Reduction| BOOT::|PARSE-SemiColon|
+            BOOT::|PARSE-Iterator| BOOT::|PARSE-Primary|
+            BOOT::|PARSE-ElseClause| BOOT::|PARSE-Conditional|
+            BOOT::|PARSE-Name| BOOT::|PARSE-Sequence|
+            BOOT::|PARSE-Data| BOOT::|PARSE-FormalParameter|
+            BOOT::|PARSE-IntegerTok| BOOT::|PARSE-String|
+            BOOT::|PARSE-Quad| BOOT::|PARSE-VarForm|
+            BOOT::|PARSE-Qualification| BOOT::|PARSE-Prefix|
+            BOOT::|PARSE-Infix| BOOT::|PARSE-Application|
+            BOOT:CURRENT-SYMBOL BOOT::|clearCmdSortedCaches|
+            BOOT::|PARSE-Statement| BOOT::|PARSE-Command|
+            BOOT::|updateInCoreHist| BOOT::|processSynonyms|
+            BOOT::|disableHist| BOOT::|PARSE-IteratorTail|
+            BOOT::|histFileName| BOOT::|PARSE-OpenBrace|
+            BOOT::|PARSE-Sequence1| BOOT::|PARSE-OpenBracket|
+            BOOT::|PARSE-PrimaryNoFloat| BOOT:FAIL BOOT::|PARSE-Float|
+            BOOT::|PARSE-PrimaryOrQM| BOOT::|PARSE-TokenList|
+            BOOT::|PARSE-AnyId| BOOT::|resetInCoreHist|
+            BOOT::|PARSE-TokenCommandTail| BOOT::|isTokenDelimiter|
+            BOOT::|PARSE-ScriptItem| BOOT::|PARSE-CommandTail|
+            BOOT::|historySpad2Cmd| BOOT::|PARSE-FormalParameterTok|
+            BOOT::|PARSE-SpecialKeyWord|
+            BOOT::|writeHistModesAndValues| BOOT::|PARSE-FloatTok|
+            BOOT::|PARSE-FloatExponent| BOOT::|updateHist|
+            BOOT::|initHistList| BOOT::|initHist| BOOT::|PARSE-Exit|
+            BOOT::|oldHistFileName| BOOT:PARSE-NUMBER
+            BOOT::|PARSE-Return| BOOT::|PARSE-ReductionOp|
+            BOOT::|PARSE-LabelExpr| BOOT::|PARSE-Import|
+            BOOT::|writeHiFi| BOOT::|PARSE-Loop|
+            BOOT::|updateCurrentInterpreterFrame| BOOT::|PARSE-Seg|
+            BOOT:CURINPUTLINE BOOT::|profileWrite| BOOT:PARSE-BSTRING
+            BOOT:NEXT-TOKEN BOOT:IOSTAT BOOT::|isPackageFunction|
+            BOOT:UNGET-TOKENS BOOT::|setOptKeyBlanks|
+            BOOT::|getInfovecCode| BOOT::|NRTmakeSlot1Info|
+            BOOT::|reportOnFunctorCompilation| BOOT:BUMPCOMPERRORCOUNT
+            BOOT::|displayMissingFunctions| BOOT:PARSE-STRING
+            BOOT:ADVANCE-TOKEN BOOT::ERRHUH BOOT:CURRENT-CHAR
+            VMLISP:$TOTAL-ELAPSED-TIME BOOT::IS-GENSYM
+            BOOT::|getSpecialCaseAssoc|
+            BOOT::|makeConstructorsAutoLoad|
+            BOOT::|displayExposedGroups|
+            BOOT::|displayHiddenConstructors|
+            BOOT::|displaySemanticErrors| BOOT::|clock|
+            BOOT::|startTimer| BOOT::|spadPrompt| BOOT::|stopTimer|
+            BOOT::|quadSch| BOOT::/TRACEREPLY BOOT::TRACELETREPLY
+            BOOT::|voidValue| BOOT::/COMP BOOT::|getDateAndTime|
+            BOOT::|coercionFailure| VMLISP:EMBEDDED
+            BOOT::|printableArgModeSetList| BOOT::|asList|
+            BOOT::|boot2LispError| BOOT::|extendConstructorDataTable|
+            BOOT::|fin| BOOT::PARSERSTATE BOOT::|New,ENTRY,1|
+            BOOT::|mkLowerCaseConTable| BOOT::NEW-LEXPR-INTERACTIVE
+            BOOT::NEW-LEXPR BOOT::|spadThrow| BOOT::INITIALIZE
+            BOOT::NEW BOOT::|New,ENTRY| BOOT::|traceComp|
+            BOOT::|New,ENTRY1| BOOT::|New,ENTRY,SYS| BOOT::NEWPO
+            BOOT::|returnToReader| BOOT::|returnToTopLevel| BOOT::TOP
+            BOOT::|serverLoop| BOOT::|describeSetOutputTex|
+            BOOT::|describeSetOutputFortran|
+            BOOT::|describeSetLinkerArgs|
+            BOOT::|describeProtectSymbols|
+            BOOT::|describeOutputLibraryArgs|
+            BOOT::|describeSetFortDir| BOOT::|describeFortPersistence|
+            BOOT::|describeSetFortTmpDir|
+            BOOT::|describeProtectedSymbolsWarning|
+            BOOT::|describeSetStreamsCalculate|
+            BOOT::|describeSetOutputFormula|
+            BOOT::|describeInputLibraryArgs|
+            BOOT::|resetWorkspaceVariables| BOOT::|describeSetNagHost|
+            BOOT::|describeAsharpArgs| BOOT::|describeSetOutputAlgebra|
+            BOOT::|sayAllCacheCounts| BOOT::|describeSetFunctionsCache|
+            BOOT::|nangenericcomplex| BOOT::|createTypeEquivRules|
+            BOOT::|createResolveTTRules| BOOT::|createResolveTMRules|
+            BOOT::|bcBlankLine| BOOT::|browserAutoloadOnceTrigger|
+            BOOT::|scanKeyTableCons| BOOT::|scanToken| BOOT::|scanEsc|
+            BOOT::|scanError| BOOT::|scanEscape| BOOT::|scanNumber|
+            BOOT::|asharpConstructors| BOOT::|scanString|
+            BOOT::|scanSpace| BOOT::|scanPunct| BOOT::|scanNegComment|
+            BOOT::|startsNegComment?| BOOT::|scanComment|
+            BOOT::|startsComment?| BOOT::|scanPunCons|
+            BOOT::|scanDictCons| BOOT::|resetStackLimits|
+            BOOT::|npRecoverTrap| BOOT::|syGeneralErrorHere|
+            BOOT::|DPname| BOOT::|pfNoPosition| VMLISP:CURRENTTIME
+            BOOT::|buildHtMacroTable| BOOT::|checkWarningIndentation|
+            BOOT::|npDecl| BOOT::|npType| VMLISP:$SCREENSIZE
+            BOOT::|npAmpersand| BOOT::|npName| BOOT::|npFromdom|
+            BOOT::|npSCategory| BOOT::|npPrimary| BOOT::|npState|
+            BOOT::|npDefaultValue| BOOT::|npAssignVariableName|
+            BOOT::|npPDefinition| BOOT::|npDollar|
+            BOOT::|npSQualTypelist| BOOT::PARSE-NON_DEST_REF
+            BOOT::PARSE-OPT_EXPR BOOT::PARSE-REPEATOR
+            BOOT::|npCategoryL| BOOT::PARSE-SEXPR_STRING
+            BOOT::|npProduct| BOOT::PARSE-TEST BOOT::|npIterators|
+            BOOT::PARSE-EXPR BOOT::|npWhile|
+            BOOT::|displayPreCompilationErrors| BOOT::PARSE-N_TEST
+            BOOT::|npForIn| BOOT::PARSE-REP_TEST BOOT::|npGives|
+            BOOT::PARSE-FIL_TEST BOOT::|npLogical| BOOT::PARSE-SUBEXPR
+            BOOT::|npExpress| BOOT::PARSE-FID BOOT::PARSE-RULE
+            BOOT::|npExpress1| BOOT::PARSE-HEADER
+            BOOT::|npCommaBackSet| BOOT::PARSE-RULE1 BOOT::|npQualType|
+            VMLISP:$TOTAL-GC-TIME BOOT::|npADD|
+            BOOT::|npConditionalStatement|
+            BOOT::|npQualifiedDefinition| BOOT::|npPushId|
+            BOOT::|npVariable| BOOT::|npDefinitionOrStatement|
+            BOOT::|npAssignVariable| BOOT::|npColon|
+            BOOT::|npAssignment| BOOT::|profileDisplay|
+            BOOT:|TimeStampString| BOOT::|computeDomainVariableAlist|
+            BOOT::MONITOR-READINTERP BOOT::|npSingleRule|
+            BOOT::MONITOR-UNTESTED BOOT::|npDefTail| BOOT::|npQuiver|
+            BOOT::MONITOR-PERCENT BOOT::|npDef| BOOT::|npStatement|
+            BOOT::|npImport| BOOT::|npTyping| BOOT::|npItem|
+            BOOT::|npQualDef| BOOT::|npAssign| BOOT::MONITOR-AUTOLOAD
+            BOOT::|npDefinition| BOOT::MONITOR-RESULTS
+            BOOT::MONITOR-END BOOT::|npPop3| BOOT::MONITOR-INITTABLE
+            BOOT::|npAtom2| BOOT::|npInfixOperator| BOOT::|npPower|
+            BOOT::MONITOR-HELP BOOT::|npMatch| BOOT::MONITOR-REPORT
+            BOOT::|npMdef| BOOT::|reportInstantiations|
+            BOOT::|npPrimary2| BOOT::?DOMAINS BOOT::|?domains|
+            BOOT::|npSuch| BOOT::|npMDEF| BOOT::|npDisjand|
+            BOOT::|npInfixOp| BOOT::|npDiscrim|
+            BOOT::|clearConstructorAndLisplibCaches|
+            BOOT::|npVariableName| BOOT::|clearConstructorCaches|
+            BOOT::|clearClams| BOOT::|clearCategoryCaches|
+            BOOT::|cacheStats| BOOT::|reportAndClearClams|
+            BOOT::|traceDown| BOOT::|statRecordInstantiationEvent|
+            BOOT::|tc| BOOT::GET-CURRENT-DIRECTORY
+            BOOT::|removeAllClams| BOOT::|clamStats| BOOT::|npPop1|
+            BOOT::|npTrap| BOOT::|npApplication| BOOT::|npPop2|
+            BOOT::|npApplication2| BOOT::WRITE-WARMDATA
+            BOOT::WRITE-INTERPDB BOOT::|npAssignVariablelist|
+            BOOT::|clearHashReferenceCounts| BOOT::|npSignature|
+            BOOT::|pfNothing| BOOT::|npSigItemlist| BOOT::|npEncl|
+            BOOT::|npBDefinition| BOOT::|npPrefixColon| BOOT::|npNext|
+            BOOT::|allOperations| BOOT::WRITE-CATEGORYDB
+            BOOT::WRITE-OPERATIONDB BOOT::WRITE-BROWSEDB
+            BOOT::WRITE-COMPRESS BOOT::INITIAL-GETDATABASE
+            BOOT::CATEGORYOPEN BOOT::BROWSEOPEN BOOT::OPERATIONOPEN
+            BOOT::INTERPOPEN BOOT::COMPRESSOPEN
+            BOOT::CREATE-INITIALIZERS BOOT::|poNoPosition|
+            BOOT::|saveDependentsHashTable| BOOT::|saveUsersHashTable|
+            BOOT::|mkTopicHashTable| BOOT::TOKEN-STACK-SHOW
+            BOOT::|system| BOOT::|terminateSystemCommand|
+            BOOT::|getSystemCommandLine| BOOT::TERMCHR
+            BOOT::IOSTREAMS-SHOW BOOT::|displayExposedConstructors|
+            BOOT::|finalizeDocumentation| BOOT::REDUCE-STACK-SHOW
+            BOOT::CLEAR-HIGHLIGHT BOOT::RESET-HIGHLIGHT BOOT::RESTART0
+            START BOOT::|libraryFileLists| BOOT::|waitForViewport|
+            BOOT::|setViewportProcess|
+            BOOT::|installStandardTestPackages| BOOT::|printCopyright|
+            BOOT::AKCL-VERSION BOOT::SET-RESTART-HOOK
+            BOOT::|undoINITIALIZE| BOOT::|simpCategoryTable|
+            BOOT::|simpTempCategoryTable| BOOT::COMPFIN
+            BOOT::INPUT-CLEAR BOOT::|genTempCategoryTable| BOOT::|cc|
+            BOOT::|initNewWorld| BOOT::|genCategoryTable|
+            BOOT::|dbOpsExposureMessage| BOOT::|htSayUnexposed|
+            BOOT::|NRTmakeCategoryAlist|
+            BOOT::|NRTgenFinalAttributeAlist| BOOT::|dcSizeAll|
+            BOOT::|initialiseIntrinsicList| BOOT::|tempLen|
+            BOOT::|changeDirectoryInSlot1| BOOT::|NRTaddDeltaCode|
+            BOOT::|ncIntLoop| BOOT::SPECIALCASESYNTAX
+            BOOT::|newFortranTempVar| BOOT::|currentSP|
+            BOOT::|elapsedTime| BOOT::|traceUp|
+            BOOT::|getIntrinsicList| BOOT::|getInterpMacroNames|
+            BOOT::|synonymSpad2Cmd| BOOT::|interpFunctionDepAlists|
+            BOOT::NPPPG BOOT::|isFalse| BOOT::NPPPF BOOT::NPPPFF
+            BOOT::|printDashedLine| BOOT::|satBreak| BOOT::|up|
+            BOOT::|getWorkspaceNames| BOOT::|getParserMacroNames|
+            BOOT::|oldCompilerAutoloadOnceTrigger| BOOT::|TrimCF|
+            BOOT::|displayWorkspaceNames| BOOT::UP
+            BOOT::|displayWarnings| BOOT::|buildGloss|
+            BOOT::|nextInterpreterFrame| BOOT::|down|
+            BOOT::|displayFrameNames| BOOT::DOWN
+            BOOT::|previousInterpreterFrame| BOOT::SAME BOOT::|same|
+            BOOT::|mkUsersHashTable| BOOT::|allConstructors|
+            BOOT::|frameNames| BOOT::|sayShowWarning| BOOT::|credits|
+            BOOT::|mkDependentsHashTable|
+            BOOT::|buildDefaultPackageNamesHT|
+            BOOT::|dbAugmentConstructorDataTable| FOAM:|fiGetDebugVar|
+            BOOT::|menuButton| BOOT::|htSaturnBreak| BOOT::|random|
+            BOOT::|dbConsExposureMessage| BOOT::|mkSigPredVectors|
+            BOOT::FIRST-ERROR BOOT::|writeSaturnPrefix| BOOT::|on|
+            BOOT::|offDisk| BOOT::|htBigSkip| BOOT::PARSE-PROGRAM
+            BOOT::IN-META BOOT::|traceReply| BOOT::|?t|
+            BOOT::SKIP-BLANKS BOOT::|pspacers| BOOT::NEXT-LINES-SHOW
+            BOOT::|resetCounters| BOOT::PARSE-DEST_REF
+            BOOT::SPAD_SHORT_ERROR BOOT::|pcounters|
+            BOOT::SPAD_LONG_ERROR BOOT::INIT-BOOT/SPAD-READER
+            BOOT::NEXT-LINES-CLEAR BOOT::|resetTimers|
+            BOOT::|resetSpacers| BOOT::|ptimers|
+            BOOT::|PARSE-Expression|
+            BOOT::|oldParserAutoloadOnceTrigger| BOOT::|boot-LEXPR|
+            BOOT::|reportCount| BOOT::NEW-LEXPR1 BOOT::|spadReply|
+            BOOT::|listConstructorAbbreviations| BOOT::BOOT-SKIP-BLANKS
+            BOOT::|updateFromCurrentInterpreterFrame|
+            BOOT::PARSE-ARGUMENT-DESIGNATOR BOOT::PARSE-KEYWORD
+            BOOT::PARSE-SPADSTRING
+            BOOT::|initializeInterpreterFrameRing| BOOT::READ-SPAD-1
+            BOOT::READBOOT BOOT::|reportWhatOptions|
+            BOOT::TERSYSCOMMAND BOOT::|PARSE-NewExpr|
+            BOOT::|makeInitialModemapFrame|
+            BOOT::|createCurrentInterpreterFrame|
+            BOOT::|getParserMacros| BOOT::|clearCmdCompletely|
+            BOOT::|clearCmdAll| BOOT::|clearMacroTable|
+            BOOT::|initializeSystemCommands| BOOT::|htSayHrule|
+            BOOT::|htEndTable| BOOT::|mkMenuButton| BOOT::|runspad|
+            BOOT::|htBeginTable| BOOT::|ncTopLevel|
+            BOOT::|spadStartUpMsgs| BOOT::|initializeRuleSets|
+            BOOT::|loadExposureGroupData|
+            BOOT::|statisticsInitialization| BOOT::|ut|
+            BOOT::|printStatisticsSummary| BOOT::|printStorage|
+            BOOT::|prTraceNames| BOOT::|spad| BOOT::|spadpo|
+            BOOT::|intloop| BOOT::|off| BOOT::|htEndTabular|
+            BOOT::|htSaySaturnAmpersand| BOOT::|page|
+            BOOT::|clearFrame| BOOT::|getSaturnExampleList|
+            BOOT::|saturnTERPRI| BOOT::|bcSadFaces| BOOT::YEARWEEK
+            BOOT::|npBPileDefinition| BOOT::|npTypified|
+            BOOT::|npVariablelist| BOOT::|npTagged| BOOT::|bcvspace|
+            BOOT::|npTypeStyle| BOOT::|npColonQuery| BOOT::|npPretend|
+            BOOT::|npRestrict| BOOT::|npCoerceTo| BOOT::|npRelation|
+            BOOT::|npFirstTok| BOOT::|npVoid| BOOT::|npSLocalItem|
+            BOOT::NPPCG BOOT::|npLocalItemlist| BOOT::|npFix|
+            BOOT::NPPCFF BOOT::|npDefaultItemlist| BOOT::|npSynthetic|
+            BOOT::|npAmpersandFrom| BOOT::|npBy| BOOT::|npLet|
+            BOOT::|npTypeVariable| BOOT::|npSignatureDefinee|
+            BOOT::|npAtom1| BOOT::|npConstTok| BOOT::|npLocalItem|
+            BOOT::|npLocalDecl| BOOT::|npExport| BOOT::|npLocal|
+            BOOT::|npInline| BOOT::|npFree| BOOT::|npInterval|
+            BOOT::|npSegment| BOOT::|npArith| BOOT::|npBreak|
+            BOOT::|npDefaultItem| BOOT::|npDefaultDecl|
+            BOOT::|npReturn| BOOT::|npSemiBackSet|
+            BOOT::|npSDefaultItem| BOOT::|npTypeVariablelist|
+            BOOT::|npPileDefinitionlist| BOOT::|npDefinitionlist|
+            BOOT::|npComma| BOOT::|npSymbolVariable| BOOT::|npId|
+            BOOT::|npSum| BOOT::|npTerm| BOOT::|npRemainder|
+            BOOT::|npIterate| BOOT::|npLoop| BOOT::|npSuchThat|
+            BOOT::|npSelector| BOOT::|npIterator| BOOT::|npSigItem|
+            BOOT::|npSigDecl| BOOT::|statRecordLoadEvent|
+            BOOT::|computeElapsedTime| BOOT::|npLambda|
+            BOOT::|computeElapsedSpace| BOOT::|popTimedName|
+            BOOT::|npBacksetElse| BOOT::|peekTimedName|
+            BOOT::|npQualTypelist| BOOT::|npPileExit| BOOT::|npExit|
+            BOOT::|statisticsSummary| BOOT::|displayHeapStatsIfWanted|
+            BOOT::|update| BOOT:RESTART BOOT:|version| BOOT:/EMBEDREPLY
+            BOOT:NEXTINPUTLINE BOOT:|Category| BOOT::|intUnsetQuiet|
+            BOOT::|intSetQuiet| BOOT:POP-REDUCTION
+            BOOT::|intSetNeedToSignalSessionManager|
+            BOOT::|intNewFloat| BOOT::|leaveScratchpad| BOOT::|ncError|
+            BOOT::|incConsoleInput| BOOT:NEXT-CHAR
+            BOOT::|inclmsgCmdBug| BOOT::|inclmsgIfBug|
+            BOOT::|inclmsgFinSkipped| BOOT::|inclmsgConsole|
+            COMPILER::GAZONK-NAME HELP BOOT:ADVANCE-CHAR
+            BOOT::|rbrkSch| BOOT::|lbrkSch|)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (*) *) BOOT::|makeSpadCommand| BOOT::/RF
+            BOOT::|/RQ,LIB| VMLISP:$ERASE BOOT::|mkGrepPattern1|
+            BOOT::|nothingFoundPage| BOOT::|dbNotAvailablePage|
+            BOOT::|htSetCache| BOOT::NEXT-LINE BOOT::/EF
+            BOOT::INIT-MEMORY-CONFIG BOOT::/RQ BOOT::|newGoGet|
+            BOOT::|goGet| BOOT::|dbShowOps| BOOT::|oPage| BOOT::|aPage|
+            BOOT::|buildLibdb| BOOT::|emptySearchPage|
+            BOOT::|conOpPage1| BOOT::|conPage| BOOT::|kPage|
+            BOOT::|genSearch| BOOT::|dbShowCons| BOOT::|form2HtString|
+            BOOT::|bcFinish| BOOT::|Undef| BOOT:META-SYNTAX-ERROR)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (T) *) BOOT::|numArgs|
+            BOOT::|formatSignatureArgs0| BOOT::|formatSignatureArgs|
+            BOOT::|sayWidth| BOOT::SRCABBREVS BOOT::|bcMatrixGen|
+            BOOT::|bcwords2liststring| BOOT::|bcGenExplicitMatrix|
+            BOOT::|bcGen| BOOT::|bcInputMatrixByFormulaGen|
+            BOOT::|bcReadMatrix| BOOT::|systemCommand|
+            BOOT::|safeWritify| BOOT::|unAbbreviateKeyword|
+            BOOT::|replacePercentByDollar| BOOT::|e04ucfSolve|
+            BOOT::|brightPrint0AsTeX| BOOT::|sayDisplayStringWidth|
+            BOOT:GET-TOKEN BOOT::|initializeLisplib| BOOT::|getMsgTag|
+            BOOT::|poFileName| BOOT::|mac0InfiniteExpansion,name|
+            BOOT::|NRTtypeHack| BOOT::|getMsgPos2| BOOT::|e02agfSolve|
+            BOOT::|c02agfGen| BOOT:NUMOFARGS BOOT::|c02affSolve|
+            BOOT::|c02affGen| BOOT::|c02agfSolve| BOOT::|c05adfGen|
+            BOOT::|outputTran| BOOT::|replaceSharpCalls|
+            BOOT::/UNTRACE-0 BOOT::|doReplaceSharpCalls| BOOT::DEFTRAN
+            BOOT::LIST2STRING BOOT::DEF-WHERECLAUSELIST BOOT::DEF-ISNT
+            BOOT::|quoteSuper| BOOT::|quoteSub| BOOT::MK_LEFORM
+            BOOT::MK_LEFORM-CONS BOOT::|aggSuper|
+            BOOT::|oldParseString| BOOT::|outformWidth| BOOT::|aggSub|
+            BOOT::|agggwidth| BOOT::|agggsuper| BOOT::|agggsub|
+            BOOT::|obj2String| BOOT::|compileFileQuietly|
+            BOOT::|exptSub| BOOT::|mathPrint| BOOT::|rootSub|
+            BOOT::|parseTransform| BOOT::|overbarWidth|
+            BOOT::MONITOR-EVALAFTER BOOT::|overlabelWidth|
+            BOOT::|object2String| BOOT::|e02aefGen| BOOT::/TRACE-0
+            BOOT::LENGTH2STR BOOT::|matSub| BOOT::/MKINFILENAM
+            BOOT::|qTSuper| BOOT::|qTSub| BOOT::|sayMSGNT|
+            VMLISP:BPINAME BOOT::|e01safSolve| BOOT::|e01befSolve|
+            BOOT::|linkToHTPage| BOOT::|killHTPage|
+            BOOT::|startReplaceHTPage| BOOT::|e01dafSolve|
+            BOOT::|startHTPopUpPage| BOOT::|e01bffSolve|
+            BOOT::|e01bafGen| BOOT::|e01sefGen| BOOT::|e01bhfGen|
+            BOOT::|e01bhfSolve| BOOT::|e01dafGen| BOOT::|e01bgfGen|
+            BOOT::|e01befGen| BOOT::|e02dcfColdGen| BOOT::|e02bafGen|
+            BOOT::|e02agfGen| BOOT::|e02befColdGen| BOOT::|e02ajfSolve|
+            BOOT::|e02ddfColdGen| BOOT::|numMapArgs|
+            BOOT::|e02befSolve| BOOT::|e02dcfSolve|
+            BOOT::|e02ddfWarmGen| BOOT::|e02adfSolve|
+            BOOT::|e02aefSolve| BOOT::|e02ddfSolve| BOOT::|e02bafSolve|
+            BOOT::|e02bcfSolve| BOOT::|e02ahfGen| BOOT::|e02gafSolve|
+            BOOT::|e02bbfGen| BOOT::|e02adfGen| BOOT::|e02defGen|
+            BOOT::|e02ahfSolve| BOOT::|e02bdfGen| BOOT::|e02akfGen|
+            BOOT::|e02dafGen| BOOT::|e02bdfSolve| BOOT::|e02dffGen|
+            BOOT::|e02akfSolve| BOOT::|asyJoinPart| BOOT::|printLine|
+            BOOT::|sockSendWakeup| BOOT::|sockGetFloat|
+            BOOT::PRINT-LINE BOOT::SOCK-SEND-WAKEUP
+            BOOT::SOCK-GET-FLOAT BOOT::|/tb| BOOT::|/ry| BOOT::|/rx|
+            BOOT::|/cxd| BOOT::/FOOBAR BOOT::/CX BOOT::NEWNAMTRANS
+            BOOT::|htMakeInputList| BOOT::SPAD-MODETRAN
+            BOOT::|popSatOutput| BOOT::|subrname| BOOT::SOCK-GET-INT
+            BOOT::OPEN-SERVER BOOT::|protectedEVAL|
+            BOOT::|setOutputTex| BOOT::|setOutputFortran| BOOT::|set|
+            BOOT::|setLinkerArgs| BOOT::|protectSymbols|
+            BOOT::|protectedSymbolsWarning| BOOT::|setStreamsCalculate|
+            BOOT::|setOutputFormula| BOOT::|setNagHost|
+            BOOT::|setFunctionsCache| BOOT::|spadType| BOOT::|spadSys|
+            BOOT::|mkGrepFile| BOOT::|mkGrepPattern1,addOptions|
+            BOOT::|mkGrepPattern1,remUnderscores|
+            BOOT::|mkUpDownPattern| BOOT::|mkUpDownPattern,fixchar|
+            BOOT::|cSearch| BOOT::|verbatimize|
+            BOOT::|pmParseFromString,flatten|
+            BOOT::|htCommandToInputLine| BOOT::|detailedSearch|
+            BOOT::|docSearch| BOOT::|form2HtString,fnTailTail|
+            BOOT::|form2HtString,fn| BOOT::|sexpr2HtString|
+            BOOT::|kInvalidTypePage| BOOT::|args2LispString,fnTailTail|
+            BOOT::|sexpr2LispString,fn| BOOT::|args2LispString|
+            BOOT::|sexpr2LispString| BOOT::|sexpr2HtString,fn|
+            BOOT::|spleI| BOOT::|dbComments| BOOT::|sockGetInt|
+            BOOT::|parseAndEvalStr| BOOT::|parseAndEvalStr1|
+            BOOT::|d01gafSolve| BOOT::|d01apfGen| BOOT::|d01fcfSolve|
+            BOOT::|d01asfGen| BOOT::|d02bbfSolve| BOOT::|d02rafGen|
+            BOOT::|d02kefGen| BOOT::|d02kefSolve| BOOT::|d02ejfGen|
+            BOOT::|d02gbfSolve| BOOT::|d02bbfGen| BOOT::|d02bhfGen|
+            BOOT::|d02rafSolve| BOOT::|d02ejfSolve| BOOT::|d02bhfSolve|
+            BOOT::|d02gafGen| BOOT::|d02gbfGen| BOOT::|d02gafSolve|
+            BOOT::|d02cjfGen| BOOT::|d02cjfSolve| BOOT::|d03edfControl|
+            BOOT::|d03edfSolve| BOOT::|d03eefSolve|
+            BOOT::|d03edfLongGen| BOOT::|d03eefGen|
+            BOOT::|d03edfShortGen| BOOT::|e01sefSolve|
+            BOOT::|lnFileName| BOOT::|e01bgfSolve| BOOT::|e01safGen|
+            BOOT::|e01bffGen| BOOT::|e01bafSolve|
+            BOOT::|pfGlobalLinePosn| BOOT::|quoteString|
+            BOOT::|postTran| BOOT::|decodeScripts| BOOT::|htGloss|
+            BOOT::|htTutorialSearch| BOOT::|postInSeq|
+            BOOT::|htTextSearch| BOOT::|htGreekSearch|
+            BOOT::|postMakeCons| BOOT::|postCategory,fn|
+            BOOT::|htShowFunctionPageContinued| BOOT::|htCacheSet|
+            BOOT::|htSetFunCommand| BOOT::|listOfStrings2String|
+            BOOT::|htCacheOne| BOOT::|htShowSetTree|
+            BOOT::|htShowSetTreeValue| BOOT::|postBigFloat|
+            BOOT::|htSetInteger| BOOT::|chkRange| BOOT::|postConstruct|
+            BOOT::|postSlash| BOOT::|htCacheAddChoice|
+            BOOT::|startHTPage| BOOT::|htSetLinkerArgs|
+            BOOT::|htSetOutputCharacters| BOOT::|htSetKernelWarn|
+            BOOT::|htSetKernelProtect| BOOT::|htSetExpose|
+            BOOT::|htSetInputLibrary| BOOT::|htSetOutputLibrary|
+            BOOT::|htSetHistory| SPAD-SAVE BOOT:|OsEnvGet|
+            BOOT:|LispCompile| BOOT:|LispCompileFile|
+            BOOT::|condErrorMsg| BOOT:|LispLoadFile|
+            BOOT:|LispLoadFileQuietly| BOOT::MONITOR-RESTORE
+            BOOT::|brightPrintCenterAsTeX| BOOT::|brightPrint0|
+            BOOT::|sayWidth,fn| BOOT::|brightPrintCenter|
+            BOOT::|clearClam| BOOT::|brightPrintHighlightAsTeX|
+            BOOT::|brightPrintHighlight| BOOT::|sayDisplayWidth,fn|
+            BOOT::|sayDisplayWidth| BOOT::INIT-LIB-FILE-GETTER
+            BOOT::INIT-FILE-GETTER BOOT::|entryWidth| BOOT::FILE-RUNNER
+            BOOT::|editFile| BOOT::|readForDoc| BOOT::|checkNumOfArgs|
+            BOOT::|openServer| BOOT::|removeBackslashes|
+            BOOT::|checkAddBackSlashes| BOOT::/RF-1 BOOT::|docreport|
+            BOOT::|ExecuteInterpSystemCommand| BOOT::|pfFileName|
+            BOOT::|InterpExecuteSpadSystemCommand| BOOT::|alistSize|
+            BOOT::|parseTranList| BOOT::|parseOr| BOOT::|parseIf|
+            BOOT::|parseImplies| BOOT::|parseEquivalence|
+            BOOT::|parseLhs| BOOT::|parseAnd| BOOT::|parseLeftArrow|
+            BOOT::|parseUpArrow| BOOT::|parseNotEqual| BOOT::|parseNot|
+            BOOT::|parseDollarNotEqual| BOOT::|parseDollarGreaterEqual|
+            BOOT::|parseDollarLessEqual| BOOT::|parseGreaterEqual|
+            BOOT::|parseLessEqual| BOOT::|scriptTranRow1|
+            BOOT::|scriptTran| BOOT::|scriptTranRow|
+            BOOT::|parseExclusiveOr| BOOT::QUOTE-IF-STRING
+            BOOT::|dbConformGenUnder| BOOT::|listOfEntries|
+            BOOT::|conformString| BOOT::|dbConformGen|
+            BOOT::|evalableConstructor2HtString| BOOT::|halfWordSize|
+            BOOT::|fortFormatCharacterTypes,mkCharName|
+            BOOT::|opPageFast|
+            BOOT::|fortFormatCharacterTypes,par2string| VMLISP::MAKEDIR
+            VMLISP::DELETE-DIRECTORY VMLISP::GET-IO-INDEX-STREAM
+            VMLISP::GET-INPUT-INDEX-STREAM VMLISP::DIRECTORY?
+            BOOT::|c05pbfGen| BOOT::|c05nbfGen| BOOT::|c05pbfSolve|
+            BOOT::|c05nbfSolve| BOOT::|e02dafSolve| BOOT::|c06ebfGen|
+            BOOT::|c06ebfSolve| BOOT::|c06gsfGen| BOOT::|c06gsfSolve|
+            BOOT::|c06ekfSolve| BOOT::|c06eafSolve| BOOT::|c06gqfGen|
+            BOOT::|c06ecfGen| BOOT::|c06fpfGen| BOOT::|c06frfSolve|
+            BOOT::|c06gbfSolve| BOOT::|c06fqfGen| BOOT::|c06gqfSolve|
+            BOOT::|c06eafGen| BOOT::|c06gcfGen| BOOT::|c06gcfSolve|
+            BOOT::|c06gbfGen| BOOT::|c06fufGen| BOOT::|s01eafGen|
+            BOOT::|s21bafGen| BOOT::|c06fpfSolve| BOOT::|s17dcfGen|
+            BOOT::|c06fqfSolve| BOOT::|s18defGen| BOOT::|c06frfGen|
+            BOOT::|s14bafGen| BOOT::|s18dcfGen| BOOT::|s17dhfGen|
+            BOOT::|c06ecfSolve| BOOT::|s21bdfGen| BOOT::|c06fufSolve|
+            BOOT::|c06ekfGen| BOOT::|s21bcfGen| BOOT::|sGen|
+            BOOT::|s17dgfGen| BOOT::|d01anfGen| BOOT::|d01ajfGen|
+            BOOT::|d01aqfGen| BOOT::|d01gafGen| BOOT::|d01bbfGen|
+            BOOT::|s21bbfGen| BOOT::|d01amfGen| BOOT::|s17dlfGen|
+            BOOT::|d01alfGen| BOOT::|d01fcfGen| BOOT::|d01akfGen|
+            BOOT::|d01gbfGen| BOOT::|d01gbfSolve| VMLISP::|npPC|
+            VMLISP::|npPP| BOOT::|exp2FortOptimizeArray|
+            BOOT::|fortError1| BOOT::|fortPre1| BOOT::|spadcall1|
+            BOOT::|fortPreRoot| BOOT::|checkPrecision|
+            BOOT::|fix2FortranFloat| BOOT::|normalizeStatAndStringify|
+            BOOT::|mkParameterList,par2string| BOOT::|f02wefSolve|
+            BOOT::|f02ajfGen| BOOT::|printAny| BOOT::|f02adfGen|
+            BOOT::|e02dffSolve| BOOT::|printString| BOOT::|f04jgfGen|
+            BOOT::|f04qafGen| BOOT::|f04asfGen| BOOT::|summary|
+            BOOT::|show| BOOT::|showSpad2Cmd| BOOT::|f04qafSolve|
+            BOOT::|f04mbfGen| BOOT::|f04fafGen| BOOT::|f04arfGen|
+            BOOT::|f04adfSolve| BOOT::|fixObjectForPrinting|
+            BOOT::|savesystem| BOOT::|escapeSpecialChars|
+            BOOT::|f04mcfSolve| BOOT::|encodeItem| BOOT::|f04atfGen|
+            BOOT::|form2LispString| BOOT::|f04adfGen|
+            BOOT::|concatWithBlanks| BOOT::|withAsharpCmd|
+            BOOT::|f04jgfSolve| BOOT::|extendLocalLibdb|
+            BOOT::|deleteFile| BOOT::|compileAsharpCmd1|
+            BOOT::|f04mcfGen| BOOT::|f04arfSolve| BOOT::|frame|
+            BOOT::|frameSpad2Cmd| BOOT::|addNewInterpreterFrame|
+            BOOT::|getEnv| BOOT::|f04asfSolve| BOOT::|f04fafSolve|
+            BOOT::|f04mbfSolve| BOOT::|f04atfSolve| BOOT::|f07fdfSolve|
+            BOOT::|obey| BOOT::|f07aefGen| BOOT::|buildLibdbString|
+            BOOT::|f07aefSolve| BOOT::|f07fefGen| BOOT::|f07adfSolve|
+            BOOT::|f07adfGen| BOOT::|dbReadComments|
+            BOOT::|f07fefSolve| BOOT::|f07fdfGen| BOOT::|s17defGen|
+            BOOT::|f01qdfSolve| BOOT::|f01rcfSolve| BOOT::|f01mafGen|
+            BOOT::|f01rdfGen| BOOT::|f01mafSolve| BOOT::|f01brfGen|
+            BOOT::|f01mcfGen| BOOT::|f02axfGen| BOOT::|f02aefSolve|
+            BOOT::|f02akfGen| BOOT::|f02abfSolve| BOOT::|f02bjfGen|
+            BOOT::|bcErrorPage| BOOT::|f02xefGen| BOOT::|form2String|
+            BOOT::|f02aafSolve| BOOT::|dbSourceFile|
+            BOOT::MAKE-REASONABLE BOOT::|f02ajfSolve|
+            BOOT::|f02axfSolve| BOOT::|f02affSolve| BOOT::|downlink|
+            BOOT::BRIGHTPRINT-0 BOOT::|f02wefGen|
+            BOOT::|conform2String| BOOT::|f02akfSolve|
+            BOOT::|f02adfSolve| BOOT::|f02aafGen|
+            BOOT::|dbSpecialExports| BOOT::|f02agfGen|
+            BOOT::|f02bjfSolve| BOOT::|buildLibdbConEntry|
+            BOOT::|f02agfSolve| BOOT::|dbSpecialDescription|
+            BOOT::|f02xefSolve| BOOT::|f02abfGen| BOOT::|f02bbfGen|
+            BOOT::|mkButtonBox| BOOT::|f02awfSolve|
+            BOOT::|assignSlotToPred| BOOT::|f02bbfSolve|
+            BOOT::|f02aefGen| BOOT::|f02awfGen| BOOT::|f02affGen|
+            BOOT::|dbMkEvalable| BOOT::|mkEvalable|
+            BOOT::|conPageChoose| BOOT::KILL-TRAILING-BLANKS
+            BOOT::|ySearch| BOOT::|aSearch| BOOT::|close|
+            BOOT::|kSearch| BOOT::|compileBoot| BOOT::|aokSearch|
+            BOOT::|showNamedConstruct|
+            BOOT::|reportOpsFromUnitDirectly1| BOOT::|oSearch|
+            BOOT::|tabsToBlanks| BOOT::|underscoreDollars|
+            BOOT::|mkGrepTextfile| BOOT::|reportOpsFromUnitDirectly0|
+            BOOT::|replaceGrepStar| BOOT::|grepSource| BOOT::|xSearch|
+            BOOT::|pSearch| BOOT::|dSearch| BOOT::|doSystemCommand|
+            BOOT::|standardizeSignature| BOOT::|conPageFastPath|
+            BOOT::|conPageConEntry| BOOT::|quickForm2HtString|
+            BOOT::|dbAttr| BOOT::|e02ajfGen| BOOT::|pluralize|
+            BOOT::|parseTran| BOOT::|e02defSolve|
+            BOOT::|dbSpecialOperations| BOOT::|issueHTStandard|
+            BOOT::|justifyMyType| BOOT::|getCallBackFn|
+            BOOT::|bcDifferentiateGen| BOOT::|bcIndefiniteIntegrateGen|
+            BOOT::|htMakeErrorPage| BOOT::|issueHT|
+            BOOT::|setOutputAlgebra| BOOT::|bcDraw2DparGen|
+            BOOT::|ExecuteSpadSystemCommand| BOOT::|bcDraw3Dpar1Gen|
+            BOOT::|bcProductGen| BOOT::|ts| BOOT::|bcRealLimitGen|
+            BOOT::|e02zafGen| BOOT::|bcSumGen| BOOT::|bcDraw3DparGen|
+            BOOT::|bcDraw3DfunGen| BOOT::|aggwidth| BOOT::WIDTH
+            BOOT::|bcDefiniteIntegrateGen| BOOT::|bcSeriesGen|
+            BOOT::|subspan| BOOT::|bcPuiseuxSeriesGen|
+            BOOT::|bcLaurentSeriesGen| BOOT::|superspan|
+            BOOT::|bcSeriesByFormulaGen| BOOT::|bcNotReady|
+            BOOT::|bcDraw2DfunGen| BOOT::|bcTaylorSeriesGen|
+            BOOT::|bcDraw2DSolveGen| BOOT::KCL-OS-ENV-GET
+            BOOT::|bcComplexLimitGen| BOOT::|saturnPRINTEXP|
+            BOOT::|bcSeriesExpansionGen| BOOT::COMPILE-BOOT-FILE
+            BOOT::|bcCreateVariableString| BOOT::|bcGenEquations|
+            BOOT::|vConcatSuper| BOOT::BOOT-LOAD
+            BOOT::|bcSolveNumerically1| BOOT::|bcLinearSolveEqnsGen|
+            BOOT::|bcMakeUnknowns| BOOT::|bcInputSolveInfo|
+            BOOT::|bcInputEquationsEnd| BOOT::|bcSystemSolveEqns1|
+            BOOT::|bcLinearSolveEqns1| BOOT::|bcVectorGen|
+            BOOT::|printBasic| BOOT::|subSuper| BOOT::|tr|
+            BOOT::|bcLinearSolveMatrix1| BOOT::|stringList2String|
+            BOOT::|bcString2HyString2| BOOT::|bcwords2liststring,fn|
+            BOOT::|linkGen| BOOT::|optCallEval| BOOT::|tokType|
+            BOOT::|timedEvaluate| BOOT::|roundStat|
+            BOOT::|bracketString| BOOT::|e02bcfGen| BOOT::|e02gafGen|
+            BOOT::|e02bbfSolve| VMLISP:OBEY BOOT::|e04ycfSolve|
+            BOOT::|e04nafSolve| BOOT::|e04dgfSolve| BOOT::|e04fdfGen|
+            BOOT::|e04gcfGen| BOOT::|NRTevalDomain| BOOT::|e04fdfSolve|
+            BOOT::|e04mbfSolve| BOOT::|e04nafGen| BOOT::|e04gcfSolve|
+            BOOT::|e04ucfGen| BOOT::|e04jafGen| BOOT::|e04mbfGen|
+            BOOT::|e04jafSolve| BOOT::|e04dgfGen| BOOT::|e04ycfGen|
+            BOOT::|f01rdfSolve| BOOT::|f01mcfSolve| BOOT::|f01qdfGen|
+            BOOT::|f01qcfGen| BOOT::|f01qefGen| BOOT::|f01rcfGen|
+            BOOT::|f01refSolve| BOOT::|f01qefSolve| BOOT::|e02zafSolve|
+            BOOT::|f01qcfSolve| BOOT::|f01refGen| BOOT::|f01brfSolve|
+            BOOT::|poGlobalLinePosn| BOOT:|sayString|
+            BOOT::|incHandleMessage| BOOT::|pred2English|
+            BOOT::|prefix2String0| BOOT::|form2StringLocal|
+            BOOT::|formatOpType| BOOT::|form2String1| BOOT::|ncTag|
+            BOOT::|ncAlist| BOOT::|tuple2String,f|
+            BOOT::|formatAttributeArg| BOOT::|formString|
+            BOOT::|form2StringWithPrens| BOOT::|prefix2String|
+            BOOT::|form2StringAsTeX| BOOT::|prefix2StringAsTeX|)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (*) T) BOOT::|bcConform| BOOT:STREAM-EOF
+            BOOT::|categoryParts| BOOT:IOCLEAR BOOT:SAY BOOT:MOAN
+            BOOT::|centerNoHighlight| BOOT:CROAK BOOT::INTERRUPT
+            BOOT::LISP-BREAK-FROM-AXIOM BOOT:META VMLISP:NILFN
+            BOOT::MAKE-DATABASE BOOT::|defaultTargetFE| BOOT::/DUPDATE
+            BOOT::/UPDATE BOOT::/MONITOR VMLISP:$FILEP VMLISP:CALLBELOW
+            BOOT::|systemError| BOOT::|listSort|
+            BOOT::|asCategoryParts| BOOT::RDEFOUTSTREAM
+            BOOT::RDEFINSTREAM VMLISP::SETQERROR BOOT::|throwMessage|
+            BOOT::TOPLEVEL BOOT::|getDomainSigs|
+            BOOT::|getInheritanceByDoc| BOOT::|showImp|
+            BOOT::|showFrom| BOOT::|getDomainDocs| BOOT::|grepFile|
+            BOOT::|printRecordFile| BOOT::|wasIs|
+            BOOT::|htFile2RecordFile| BOOT::|inputFile2RecordFile|
+            BOOT::|htFile2InputFile| BOOT::|bcComments|
+            BOOT::|bcNameTable| BOOT::|dbSayItemsItalics|
+            BOOT::|htPred2English| BOOT::|interpret|
+            BOOT::|Enumeration,LAM| VMLISP:VMREAD VMLISP:RKEYIDS
+            BOOT::/RP BOOT::MONITOR-TESTED BOOT::MONITOR-RESET
+            BOOT::MONITOR-DISABLE BOOT::MONITOR-ENABLE
+            BOOT::|returnStLFromKey| BOOT::MAKE-MONITOR-DATA
+            BOOT::|level| BOOT::LEVEL BOOT::|resolveTT|
+            BOOT::|isLegitimateMode| BOOT::|hasFileProperty|
+            BOOT::|coerceConvertMmSelection| BOOT::|canCoerce|
+            BOOT::|selectMms1| BOOT::|canCoerceFrom| BOOT::MAKE-TOKEN
+            BOOT::MAKE-LINE BOOT::|centerAndHighlight| BOOT::|getOpDoc|
+            BOOT::MAKE-STACK BOOT::|firstNonBlankPosition|
+            BOOT::MAKE-XDR-STREAM BOOT::INITROOT
+            BOOT::|EnumerationCategory,LAM| BOOT::|Mapping|
+            BOOT::|RecordCategory,LAM| BOOT::|Union|
+            BOOT::|UnionCategory,LAM| BOOT::|displayCategoryTable|
+            BOOT::MAKE-REDUCTION BOOT::READ-A-LINE BOOT::|dbPresentOps|
+            BOOT::|buildBitTable| BOOT::|htBlank|
+            BOOT::|dbMakeContrivedForm| BOOT::|dcSize| BOOT::|sum|
+            BOOT::|args2HtString| BOOT::|dc| BOOT::|bcNameCountTable|
+            VMLISP::MAKE-LIBSTREAM BOOT::|nextown1| BOOT::|next1|
+            BOOT::|incAppend1| BOOT::|synonym| BOOT::|grepConstruct|
+            VMLISP::LOTSOF BOOT::|htBeginMenu| BOOT::|bcCon|
+            BOOT::|koOps| BOOT::|dbWriteLines| BOOT::|catsOf|
+            BOOT::|getDomainOpTable| BOOT:|PlainError|
+            BOOT:|PlainPrint| BOOT::|htInitPageNoScroll|
+            BOOT:|ReadLispExpr| BOOT::|conSpecialString?|
+            BOOT::|htSayStandard| BOOT:|StreamFlush| BOOT:|NewPathname|
+            BOOT:|SessionPathname| BOOT::|domainsOf|
+            BOOT::|dbPresentCons| READLINE BOOT:|StringConcat|
+            BOOT::|htBcLinks| BOOT::|pluralSay|
+            BOOT::|getConstructorExports| BOOT::|sublisFormal|
+            BOOT::NEXT-META-LINE BOOT::|htLispLinks|
+            BOOT::META-META-ERROR-HANDLER BOOT::|dbHeading|
+            BOOT::NEXT-BOOT-LINE BOOT::|concat| BOOT::SPAD_SYNTAX_ERROR
+            BOOT::BOOT BOOT::|htQuery| BOOT::SPAD
+            BOOT::|htSayIndentRel| BOOT::|bcConPredTable|
+            BOOT::|htSaySaturn| BOOT::|dbSayItems| BOOT::|simpHasPred|
+            BOOT::|start| BOOT::|protectedPrompt|
+            BOOT::|htpMakeEmptyPage| BOOT::|htMakeButton|
+            BOOT::|htSayIfStandard| BOOT::|htSay| BOOT::|incZip1|
+            BOOT::|incIgen1| BOOT::|incRgen1|
+            BOOT::|runOldAxiomFunctor| BOOT:|fillerSpaces|
+            BOOT::|incLude1| FOAM::MAKE-FOAMPROGINFOSTRUCT
+            BOOT::|bcPred| BOOT::|sayNewLine|)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (T) CHARACTER) VMLISP:EBCDIC VMLISP:NUM2CHAR
+            BOOT::LINE-CURRENT-CHAR)) 
+(PROCLAIM '(FTYPE (FUNCTION (T T *) FIXNUM) BOOT::LINE-NEW-LINE)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (T T T) FIXNUM) BOOT::|rwrite128|))
+(PROCLAIM
+    '(FTYPE (FUNCTION (T) STRING) BOOT::|stripSpaces| BOOT::LINE-BUFFER
+            BOOT::DROPTRAILINGBLANKS)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (T) T) BOOT::|form2FenceQuoteTail|
+            BOOT::|combineMapParts| BOOT::|form2FenceQuote|
+            BOOT::|mkMapPred| BOOT::|formatOpConstant|
+            BOOT::|formJoin2| BOOT::|axOpTran| BOOT::|axFormatOpList|
+            BOOT::|axFormatOp| BOOT::|optcomma|
+            BOOT::|displayTranModemap|
+            BOOT::|makeInternalMapMinivectorName|
+            BOOT::|cleanUpSegmentedMsg| BOOT::|makeDefaultDef|
+            BOOT::|getDefaultingOps| BOOT::|getOpSegment|
+            BOOT::|removeIsDomainD| BOOT::|formatSignatureAsTeX|
+            BOOT::|axFormatType| BOOT::|sayRemoveFunctionOrValue|
+            BOOT::|pvarCondList| BOOT::|makeTypeSequence|
+            BOOT::|makeArgumentIntoNumber| BOOT::|axFormatAttrib|
+            BOOT::|categoryForm?| BOOT::|axFormatCondOp| BOOT:OPTIONAL
+            BOOT::|axFormatPred| BOOT::|fileConstructors|
+            BOOT::SOURCEPATH BOOT::|untraceMapSubNames| BOOT:LASTELEM
+            BOOT::|mapPredTran| BOOT::|makeDefaultArgs|
+            BOOT::|stripType| BOOT::|dqUnitCopy| BOOT::|mkAliasList|
+            BOOT::|dqUnit| BOOT::|modemapToAx|
+            BOOT::|isDefaultPackageName| BOOT::|getEqualSublis|
+            BOOT::|myWritable?| BOOT::|getInfovec| BOOT::|predTran|
+            BOOT::|fnameReadable?| BOOT::|hasDefaultPackage|
+            BOOT::|compFailure| BOOT::|fnameType|
+            BOOT::|setExtendedDomains|
+            BOOT::|simplifyMapConstructorRefs| BOOT::|fnameName|
+            BOOT::|StringToDir|
+            BOOT::|spad2AxTranslatorAutoloadOnceTrigger|
+            BOOT::|fnameDirectory|
+            BOOT::|simplifyMapPattern,unTrivialize| BOOT::|DirToString|
+            BOOT::|isPatternArgument| BOOT::|htQuote|
+            BOOT::|isConstantArgument| BOOT::|frameName|
+            BOOT::|objValUnwrap| BOOT::|htMakePage|
+            BOOT::|PARSE-LedPart| BOOT::|htpPropertyList|
+            BOOT::|analyzeMap,f| BOOT::|PARSE-NudPart|
+            BOOT::|PARSE-Expr| BOOT::|bcHt| BOOT::|getIteratorIds|
+            BOOT::|getUserIdentifiersInIterators|
+            BOOT::|htpInputAreaAlist| BOOT::|getUserIdentifiersIn|
+            BOOT::|PARSE-GliphTok| BOOT::|kePageOpAlist|
+            BOOT::|fileNameStrings| BOOT::|inclmsgCannotRead|
+            BOOT::MAKE-SYMBOL-OF BOOT:MATCH-ADVANCE-STRING
+            BOOT::|removeUndoLines| BOOT::STACK-SIZE BOOT:NOTE
+            BOOT::|histFileErase| BOOT::|histInputFileName|
+            BOOT::STACK-STORE BOOT::|readHiFi| BOOT::|restoreHistory|
+            BOOT::STACK-UPDATED BOOT::|clearSpad2Cmd| BOOT::|getToken|
+            BOOT::|makeHistFileName| BOOT::|changeHistListLen|
+            BOOT::|showHistory| BOOT::|setIOindex| BOOT::|saveHistory|
+            BOOT::|PARSE-NBGliphTok| BOOT::|dewritify,dewritifyInner|
+            BOOT::|setHistoryCore| BOOT::|charDigitVal|
+            BOOT::|dewritify,is?| BOOT::|writify| BOOT::|history|
+            BOOT::|gensymInt| BOOT::|dewritify| BOOT::TOKEN-NONBLANK
+            BOOT::|undoFromFile| BOOT::FLOATEXPID
+            BOOT::|e02dffSolve,fy| BOOT::|spadClosure?|
+            BOOT::|bustUnion| BOOT::|writify,writifyInner|
+            BOOT::|undoChanges| BOOT::|undoInCore| BOOT::|getSlot1|
+            BOOT::|writifyComplain| BOOT::|unwritable?|
+            BOOT::|dbSpecialDisplayOpChar?| BOOT::|removeAttributes|
+            BOOT:|pathname| BOOT::|isLeaf| BOOT::|srcPosDisplay|
+            BOOT::|srcPosColumn| BOOT::|transformOperationAlist|
+            BOOT::|srcPosSource| BOOT::|sayNonUnique|
+            BOOT::|compDefWhereClause,removeSuchthat|
+            BOOT::|srcPosLine| BOOT::|compTuple2Record|
+            BOOT::|srcPosFile| BOOT::|mkAtreeValueOf1| BOOT::|center80|
+            BOOT::|loadFunctor|
+            BOOT::|compDefWhereClause,transformType|
+            BOOT::|mkCategoryPackage,gn|
+            BOOT::|updateCategoryFrameForConstructor| BOOT:|sayFORMULA|
+            BOOT::|convertOpAlist2compilerInfo|
+            BOOT::|getCategoryOpsAndAtts| BOOT::|lispize|
+            BOOT::|getSrcPos| BOOT::|mustInstantiate|
+            BOOT::|isSystemDirectory| BOOT:ASSOCRIGHT BOOT::|getFlag|
+            BOOT::|getMsgToWhere| BOOT::|mkExplicitCategoryFunction,fn|
+            BOOT::|updateCategoryFrameForCategory| BOOT:CURSTRMLINE
+            BOOT::|alreadyOpened?| BOOT::|msgImPr?| BOOT::|Operators|
+            BOOT::|mkAtree1| BOOT::|getLineText| BOOT::|pfSourceText|
+            BOOT::|toFile?| BOOT::|getMsgArgL| BOOT::|poGetLineObject|
+            BOOT:BRIGHTPRINT BOOT::|getLinePos|
+            BOOT::|loadIfNecessaryAndExists| BOOT::|lnPlaceOfOrigin|
+            BOOT::|makeLeaderMsg| BOOT::|putInLocalDomainReferences|
+            BOOT::|pfPosOrNopos| BOOT::|killNestedInstantiations|
+            BOOT::|NRTputInTail| BOOT::|quotifyCategoryArgument|
+            BOOT::|getLisplibVersion| BOOT::|getMsgPrefix|
+            BOOT::|unInstantiate| BOOT::|asTupleAsVector|
+            BOOT::|lisplibDoRename| BOOT::|asTupleSize|
+            BOOT::|finalizeLisplib| BOOT::|disallowNilAttribute|
+            BOOT::|asTupleNewCode0| BOOT::|processKeyedError|
+            BOOT::|toScreen?| BOOT::|compileConstructor1|
+            BOOT::|compileDocumentation| BOOT::|transformREPEAT|
+            BOOT::|line?| BOOT::|readLibPathFast|
+            BOOT::|modemap2Signature| BOOT::|transformCollect|
+            BOOT::|msgLeader?| BOOT::|compileConstructor|
+            BOOT::|initToWhere| BOOT::|initImPr|
+            BOOT::|putDatabaseStuff| BOOT::|e02defSolve,fxy|
+            BOOT::|getMsgPosTagOb| BOOT::|pfIdSymbol|
+            BOOT::|mkAtreeExpandMacros| BOOT::|getMsgPos|
+            BOOT::|macApplication| BOOT::|isInterpMacro|
+            BOOT::|getMsgFTTag?| BOOT::|leader?|
+            BOOT::|pf0ApplicationArgs| BOOT::|atree2EvaluatedTree|
+            BOOT::|remFile| BOOT::|pfMLambda?| BOOT::|whichCat|
+            BOOT::|pfApplicationOp| BOOT::|removeBindingI|
+            BOOT::|addArgumentConditions,fn| BOOT::|macId|
+            BOOT:STRMBLANKLINE BOOT::|getUnname1| BOOT:STRMSKIPTOBLANK
+            BOOT::|remLine| BOOT::|pfSourcePosition|
+            BOOT::|spadCompileOrSetq| BOOT::|getMsgKey?|
+            BOOT::|mac0Get| BOOT::|getMsgKey| BOOT::|compile|
+            BOOT::|evaluateType| BOOT::|constructMacro|
+            BOOT::|poPosImmediate?| BOOT::|pfMLambdaBody|
+            BOOT::|poNopos?| BOOT::|evaluateType1|
+            BOOT::|pf0MLambdaArgs| BOOT:NEXTSTRMLINE
+            BOOT::|evaluateSignature| BOOT::|macMacro|
+            BOOT::|poLinePosn| BOOT::|failCheck| BOOT::|pfNothing?|
+            BOOT::|compile,isLocalFunction| BOOT::|macSubstituteOuter|
+            BOOT::|erMsgSep| BOOT::|pfMacroRhs| BOOT::|mkConstructor|
+            BOOT::|showMsgPos?| BOOT::|pfMacroLhs| BOOT::|macExpand|
+            BOOT:IS_GENVAR BOOT::|mkEvalableMapping| BOOT::|macLambda|
+            BOOT::|getMsgInfoFromKey| BOOT::|evaluateType0|
+            BOOT::|getStFromMsg| BOOT::|getUnnameIfCan|
+            BOOT::|macWhere| BOOT::|tabbing| BOOT::|getMsgLitSym|
+            BOOT::|pfApplication?| BOOT::|getPosStL| BOOT::|pfMacro?|
+            BOOT::|doItIf,localExtras| BOOT::|getMsgText|
+            BOOT::|mkEvalableUnion| BOOT::|pfLambda?|
+            BOOT::|getMsgPrefix?| BOOT::|mkEvalableRecord|
+            BOOT::|pfWhere?| BOOT::|getPreStL| BOOT::|makeOrdinal|
+            BOOT::|mac0GetName| BOOT::|getAndEvalConstructorArgument|
+            BOOT::|msgOutputter| BOOT::|pfLeaf?|
+            BOOT::|mkEvalableCategoryForm| BOOT::|getMsgTag?|
+            BOOT::|devaluateDeeply| BOOT::|pfLeafPosition|
+            BOOT::|compDefineFunctor1,FindRep| BOOT::|pfAbSynOp|
+            BOOT::|listOutputter| BOOT::|pfTypedId|
+            BOOT::|processChPosesForOneLine| BOOT::|pf0LambdaArgs|
+            BOOT::|e02dffSolve,fx| BOOT::|getModeSetUseSubdomain|
+            BOOT::MKQSADD1 BOOT::|getModeSet| BOOT::|poCharPosn|
+            BOOT::|posPointers| BOOT::|NRTgenInitialAttributeAlist|
+            BOOT::|makeMsgFromLine| BOOT::THETA_ERROR
+            BOOT::|mkRationalFunction| BOOT::MACROEXPANDALL
+            BOOT::|isCategoryPackageName| BOOT::|erMsgSort|
+            BOOT::|isAVariableType| BOOT::|msgNoRep?|
+            BOOT::|getPrincipalView| BOOT::|To| BOOT::|hitListOfTarget|
+            BOOT::SUBANQ BOOT::|From| BOOT::|domainDepth|
+            BOOT::|NRTgetLocalIndexClear| BOOT::|constructSubst|
+            BOOT::|containsVars| BOOT::|evalMmDom|
+            BOOT::|abbreviationsSpad2Cmd|
+            BOOT::|formatUnabbreviatedSig| BOOT::|optFunctorBody|
+            BOOT::|optimize| BOOT::|emptyAtree| BOOT::|templateParts|
+            BOOT::|dqToList| BOOT::|dqConcat| BOOT::|isHomogeneousList|
+            BOOT::|isUncompiledMap| BOOT::|printMms|
+            BOOT::|getSymbolType| BOOT::/UNTRACE-REDUCE
+            BOOT::|matchMmCond| BOOT::|object2Identifier|
+            BOOT::|selectMostGeneralMm| BOOT::|fixUpTypeArgs|
+            BOOT::|handleLispBreakLoop| BOOT::TRACEOPTIONS BOOT:REMDUP
+            BOOT::|evalMmStack| BOOT::SHOWBIND BOOT::DROPENV
+            BOOT::UNVEC BOOT::|noSharpCallsHere|
+            BOOT::|untraceDomainConstructor| BOOT:CURMAXINDEX
+            BOOT::|isDomain| BOOT::|getFunctionSourceFile|
+            BOOT::|isMap| BOOT::HACKFORIS1 BOOT::HACKFORIS
+            BOOT::|containsVars1| BOOT::|orderMmCatStack|
+            BOOT::|evalMmStackInner| BOOT::DEF-IN2ON
+            BOOT::|new2OldTran| BOOT::|resolveTypeList|
+            BOOT::|newConstruct| BOOT::|newIf2Cond| BOOT::|newDef2Def|
+            BOOT::|asTupleNew0| BOOT::DEF-MESSAGE1 BOOT::LIST2STRING1
+            BOOT::DEF-WHERE BOOT::DEF-SEQ BOOT::SEQOPT BOOT::DEF-IS
+            BOOT::DEF-EQUAL BOOT::DEF-MESSAGE BOOT::DEF-CATEGORY
+            BOOT::DEF-REPEAT BOOT::DEF-COND BOOT::DEF-LESSP
+            BOOT::SMINT-ABLE BOOT::DEF-COLLECT BOOT::DEF-STRING
+            BOOT::|Zeros| BOOT::DEF-SETELT BOOT::DEF-RENAME1
+            BOOT::DEF-ELT BOOT::|DEF-:| BOOT::DEF-ADDLET
+            BOOT::|quoteWidth| BOOT::DEF-INSERT_LET1 BOOT::|boxSuper|
+            BOOT::DEF-WHERECLAUSE BOOT::DEF-STRINGTOQUOTE
+            BOOT::|boxSub| BOOT::DEF-INSERT_LET BOOT::LIST2CONS-1
+            BOOT::|bootTransform| BOOT::|concatWidth|
+            BOOT::DEF-IS-REMDUP1 BOOT::|altSuperSubWidth|
+            BOOT::|altSuperSubSuper| BOOT::|concatbWidth|
+            BOOT::LIST2CONS BOOT::|altSuperSubSub| BOOT::DEF-IS-REMDUP
+            BOOT::|concatSuper| BOOT::DEF-IS-EQLIST
+            VMLISP:RECOMPILE-DIRECTORY BOOT::|concatSub|
+            BOOT::|new2OldDefForm| BOOT::|binomWidth|
+            BOOT::|binomSuper| BOOT::DEF-SELECT BOOT::|binomSub|
+            BOOT::COMP-TRAN-1 BOOT::PUSHLOCVAR BOOT::COMP-EXPAND
+            BOOT::|canCacheLocalDomain,domargsglobal| VMLISP:MAKE-CVEC
+            BOOT::|inSuper| BOOT::COMP-NEWNAM BOOT::COMP-TRAN
+            BOOT::|inSub| BOOT::COMP-FLUIDIZE BOOT::|addInputLibrary|
+            BOOT::|inWidth| BOOT::|dropInputLibrary|
+            BOOT::|openOutputLibrary| BOOT::|moveORsOutside|
+            BOOT::|stepSuper| BOOT::|outputTranMatrix|
+            BOOT::|fracwidth| BOOT::|stepSub| BOOT::|compQuietly|
+            BOOT::|listOfPatternIds| BOOT::|fracsuper| BOOT::COMP-1
+            BOOT::|getOplistForConstructorForm| BOOT::|stepWidth|
+            BOOT::COMP-2 VMLISP:TRIMSTRING BOOT::|maprin0|
+            BOOT::|compAndDefine| BOOT::|abbreviate| BOOT::|fracsub|
+            BOOT::|exptSuper| BOOT::|mathPrintTran|
+            BOOT::|COMP,FLUIDIZE| VMLISP:COMP370 BOOT::|exptWidth|
+            BOOT::|rootWidth| BOOT::|with| BOOT::|exptNeedsPren|
+            BOOT::|minusWidth| VMLISP:|log| BOOT::|maprin|
+            BOOT::|loadDependents| BOOT::|concatTrouble,fixUp|
+            BOOT::|loadIfNecessary| VMLISP:MBPIP BOOT::|timesWidth|
+            BOOT::|rootSuper| BOOT::|interactiveModemapForm,fn|
+            BOOT::|largeMatrixAlist| VMLISP:QSORT BOOT::|sumWidth|
+            VMLISP:PLACEP BOOT::LOG10 BOOT::|aggWidth| BOOT::|zagWidth|
+            BOOT::|pi2Width| BOOT::|rebuildCDT| BOOT::|LZeros|
+            BOOT::|e02zafSolve,fmu| BOOT::|signatureTran|
+            BOOT::|destructT| BOOT::|userError| BOOT::|clearAllSlams|
+            BOOT::|displayComp| VMLISP:HKEYS BOOT::|mkErrorExpr|
+            BOOT::|pi2Sup| BOOT::|compOrCroak1,compactify|
+            BOOT::|pi2Sub| BOOT::|convertSpadToAsFile|
+            BOOT::|overbarSuper| BOOT::|outputOp| BOOT::|compiler|
+            BOOT::|resolveTMRed1| BOOT::|resolveTTRed3|
+            BOOT::|fnameWritable?| BOOT::MONITOR-EVALBEFORE
+            VMLISP:UPCASE BOOT::|interpOp?| BOOT::|pathnameName|
+            BOOT::|pathnameDirectory| BOOT::SPADSYSNAMEP VMLISP:STATEP
+            BOOT::|compileSpad2Cmd| BOOT::MONITOR-BLANKS
+            BOOT::|piWidth| BOOT::|newType?| BOOT::WHOCALLED
+            BOOT::|charyTopWidth| VMLISP:FBPIP BOOT::|bubbleType|
+            BOOT::|putWidth| BOOT::|piSup| BOOT::OPTIONS2UC
+            BOOT::|overlabelSuper| BOOT::|pathnameType|
+            BOOT::|spadThrowBrightly| BOOT::/OPTIONS BOOT::|piSub|
+            BOOT::/UNEMBED-Q BOOT::/UNEMBED-1
+            BOOT::|typeIsASmallInteger| BOOT::|indefIntegralWidth|
+            BOOT::|indefIntegralSup| BOOT::|isSimple| VMLISP:UNEMBED
+            BOOT::|indefIntegralSub| BOOT::|primitiveType|
+            BOOT::|mkAtree| BOOT::/UNTRACELET-2
+            BOOT::|outputTranIterate| BOOT::|errorRef|
+            VMLISP:RE-ENABLE-INT BOOT::/UNTRACELET-1 BOOT::|intWidth|
+            BOOT::|NRTgetLocalIndex| BOOT::|getOutputAbbreviatedForm|
+            BOOT::|isFluid| VMLISP:IVECP BOOT::|iterVarPos|
+            BOOT::|remWidth| VMLISP:LIST2VEC BOOT::|matWidth|
+            BOOT::|asTupleAsList| BOOT::|outputTranIteration|
+            VMLISP:LISTOFQUOTES BOOT::|upcase| BOOT::|intSup|
+            BOOT::|reassembleTowerIntoType| BOOT::|upor|
+            BOOT::|matSuper| BOOT::|hasFormalMapVariable,hasone?|
+            BOOT::|intSub| VMLISP:IS-CONSOLE BOOT::|coerceUnion2Branch|
+            BOOT::|PushMatrix| BOOT::MKPROGN BOOT::|uncons|
+            VMLISP:MAKE-ABSOLUTE-FILENAME
+            BOOT::|retract2Specialization| BOOT::|sigma2Width|
+            VMLISP:FUNARGP BOOT::|syminusp| BOOT::|NRTassocIndex|
+            BOOT::|resolveTypeListAny| BOOT::MONITOR-PRINTREST
+            BOOT::|extwidth| BOOT::|varsInPoly| BOOT::|sigma2Sup|
+            BOOT::|stackWarning| BOOT::SMALL-ENOUGH BOOT::|extsuper|
+            BOOT::|sigma2Sub| BOOT::|extsub| BOOT::|sigmaWidth|
+            BOOT::/INITUPDATES BOOT::|sigmaSup| BOOT::IS_SHARP_VAR
+            BOOT::|sigmaSub| BOOT::|retract1| BOOT::|qTWidth| VMLISP:LN
+            BOOT::|decomposeTypeIntoTower| BOOT::|transcomparg|
+            BOOT::FUNLOC BOOT::|stringWidth|
+            BOOT::|mathprintWithNumber| BOOT::COND-UCASE
+            VMLISP:PROPLIST BOOT::|texFormat| BOOT::|bubbleConstructor|
+            BOOT::|isSubForRedundantMapName| BOOT::|isDomainOrPackage|
+            BOOT::|dispfortexp| BOOT::|isInterpOnlyMap|
+            BOOT::|formulaFormat| BOOT::|boxWidth| BOOT::|sayMath|
+            BOOT::|domainZero| BOOT::|domainOne| VMLISP:COPY
+            VMLISP:DOWNCASE BOOT::|e04ucfSolve,fg| VMLISP:SHUT
+            BOOT::|unescapeStringsInForm|
+            BOOT::|executeInterpreterCommand| VMLISP:REROOT
+            BOOT::|parseAndInterpret| VMLISP:DIG2FIX
+            BOOT::|ncSetCurrentLine| BOOT::|pvarsOfPattern|
+            BOOT::|htEscapeString| BOOT::|e01safSolve,f|
+            BOOT::|e04ucfSolve,fe| BOOT::|e01befSolve,f|
+            BOOT::|e01bffSolve,g| VMLISP:LOG2 BOOT::|e01dafSolve,g|
+            BOOT::|e01dafSolve,f| VMLISP:SIZE VMLISP:EOFP
+            BOOT::|e01bffSolve,f| VMLISP:RSHUT BOOT::|e04ucfSolve,fd|
+            BOOT::|e01bhfSolve,f| BOOT::|objVal| BOOT::|getValue|
+            BOOT::|getMode| BOOT::|getUnname| VMLISP:DIGITP
+            BOOT::|bottomUp| BOOT::|mkAtreeNode| VMLISP:VEC2LIST
+            VMLISP:MAKE-VEC VMLISP:GCMSG BOOT::|retract|
+            BOOT::|getUnionOrRecordTags| BOOT::|e02dcfColdSolve,h|
+            BOOT::|e02ajfSolve,f| BOOT::|polyVarlist|
+            BOOT::|e02befColdSolve,f| BOOT::|removeQuote|
+            BOOT::|e02dcfColdSolve,g| BOOT::|e02dcfColdSolve,f|
+            BOOT::|isMapExpr| BOOT::|getTarget|
+            BOOT::|e02ddfColdSolve,f| BOOT::|isType|
+            BOOT::|bottomUpElt| BOOT::|e02adfSolve,f|
+            BOOT::|retractAtree| BOOT::|bottomUpPercent|
+            BOOT::|fetchOutput| BOOT::|e02aefSolve,f|
+            BOOT::|e02gafSolve,fb| BOOT::|bottomUpUseSubdomain|
+            BOOT::|getBasicObject| BOOT::|bottomUpCompile|
+            BOOT::|e02ddfSolve,h| BOOT::|e02ddfSolve,g|
+            BOOT::|e02bafSolve,g| BOOT::|e02bcfSolve,f|
+            BOOT::|getBasicMode| BOOT::|e02ddfSolve,f| BOOT::|unwrap|
+            BOOT::|isWrapped| BOOT::|e02bafSolve,f| BOOT::GETZEROVEC
+            BOOT::|containsPolynomial|
+            BOOT::|getModeOrFirstModeSetIfThere| BOOT::|e02ahfSolve,f|
+            BOOT::|e04ucfSolve,fc| BOOT::|wrapMapBodyWithCatch|
+            BOOT::|e02agfSolve,i| BOOT::|e02agfSolve,h|
+            BOOT::|e02bdfSolve,f| BOOT::|containsVariables|
+            BOOT::|e02bbfSolve,f| BOOT::|wrapped2Quote|
+            BOOT::|objCodeVal| BOOT::|objCodeMode|
+            BOOT::|e02akfSolve,f| BOOT::|asyUnTuple|
+            BOOT::|asyTypeUnitList| BOOT::|asyComma?|
+            BOOT::|interactiveModemapForm| BOOT::|isTaggedUnion|
+            BOOT::|asIsCategoryForm| BOOT::|opOf| BOOT::|e02agfSolve,g|
+            BOOT::|asySubstMapping| BOOT::|e02agfSolve,f|
+            BOOT::|asyTypeMapping| BOOT::|asyCATEGORY|
+            BOOT::|e02dafSolve,fp| BOOT::|asyShorten|
+            BOOT::|e02dafSolve,fmu| BOOT::|createAbbreviation|
+            BOOT::|astran| BOOT::|asMakeAlist| BOOT::|asyParents|
+            BOOT::|asyDocumentation| BOOT::|asyConstructorModemap|
+            BOOT::|asytran| BOOT::|asyPredTran| BOOT::|asyPredTran1|
+            BOOT::|as| BOOT::|asytranLiteral| BOOT::|asytranEnumItem|
+            BOOT::|constructor?| BOOT::|hackToRemoveAnd|
+            BOOT::|asyGetAbbrevFromComments| BOOT::|intern|
+            BOOT::|asyTypeJoinPartPred| BOOT::|zeroOneConversion|
+            BOOT::|asyArgs| BOOT::|asyArg| BOOT::|asyFindAttrs|
+            BOOT::|asyAncestors| BOOT::|asyAncestorList|
+            BOOT::|asyTypeJoinItem| BOOT::|isLowerCaseLetter|
+            BOOT::|abbreviation?| BOOT::|asAll| BOOT::|error|
+            BOOT::|asyTypeJoinPartIf| BOOT::|asyType|
+            BOOT::|asyTypeJoin| BOOT::|asyTypeJoinPartExport|
+            BOOT::|asyCattranOp| BOOT::|predicateBitRef|
+            BOOT::|asyMkpred| BOOT::|asyLooksLikeCatForm?|
+            BOOT::|asyCosigType| BOOT::|setVector12|
+            BOOT::|asMakeAlistForFunction| BOOT::|optFunctorPROGN|
+            BOOT::|getAttributesFromCATEGORY| BOOT::|worthlessCode|
+            BOOT::|mySort| BOOT::|optFunctorBody,CondClause|
+            BOOT::|mkDomainFormer| BOOT::|mkNiladics| BOOT::|optCall|
+            BOOT::|explodeIfs| BOOT::|folks| BOOT::|mkVector|
+            BOOT::|asyExtractDescription| BOOT::|asyCattran1|
+            BOOT::|simpCattran| BOOT::|asyCattran| BOOT::|asyCatItem|
+            BOOT::|asyExportAlist| BOOT::FOOBAR
+            BOOT::|bootAbsorbSEQsAndPROGNs| BOOT::|displayDatabase|
+            BOOT::|bootAbsorbSEQsAndPROGNs,flatten| BOOT::|bootTran|
+            BOOT::|asyConstructorArg| BOOT::|bootLabelsForGO|
+            BOOT::GP2COND BOOT::|bootPROGN| BOOT::|asyTypeMakePred|
+            BOOT::|bootSEQ| BOOT::|tryToRemoveSEQ| BOOT::|nakedEXIT?|
+            BOOT::|asyConstructorArgs| BOOT::|mergeCONDsWithEXITs|
+            BOOT::STREAM2UC BOOT::|asyTypeJoinStack| BOOT::|bootCOND|
+            BOOT::STRINGREST BOOT::|bootAND| BOOT::|boot2Lisp|
+            BOOT::|bootOR| BOOT::|asyTypeJoinPartWith| BOOT::|bootIF|
+            BOOT::|asyCosig| BOOT::|bootAND,flatten|
+            BOOT::|bootPushEXITintoCONDclause| BOOT::|asyIsCatForm|
+            BOOT::|bootOR,flatten| BOOT::|asCategoryParts,exportsOf|
+            BOOT::|removeEXITFromCOND| BOOT::|flattenCOND| BOOT::/FLAG
+            BOOT::|extractCONDClauses| BOOT::|hashable|
+            BOOT::|trimString| BOOT::|mergeableCOND|
+            BOOT::|knownEqualPred| BOOT::|removeEXITFromCOND?|
+            BOOT::CPSAY BOOT::|zeroOneConvert| BOOT::/EDIT
+            BOOT::|domainForm?| BOOT::|makeByteWordVec|
+            BOOT::DECIMAL-LENGTH BOOT::|unabbrevAndLoad| BOOT::READLISP
+            BOOT::|abbQuery| BOOT::SPAD-EVAL BOOT::/TRANSNBOOT
+            BOOT::SPAD-MDTR-2 BOOT::SPAD-MDTR-1 BOOT::/TRANSPAD
+            BOOT::|setAutoLoadProperty| BOOT::/TRANSMETA
+            BOOT::|getConstructorUnabbreviation| BOOT::|getLisplibName|
+            BOOT::OPTIMIZE&PRINT
+            BOOT::|getPartialConstructorModemapSig| BOOT::UNCONS
+            BOOT::|maximalSuperType| BOOT::|getImmediateSuperDomain|
+            BOOT::|augmentLowerCaseConTable| BOOT::|isNameOfType|
+            BOOT::|objMode| BOOT::|isDomainValuedVariable|
+            BOOT::|packageForm?| BOOT::|sayMSG2File| BOOT::|concatList|
+            BOOT::|mkMessage| BOOT::|clearCache| BOOT::|IdentityError|
+            BOOT::/TRANSBOOT BOOT::|process| BOOT::|mathprint|
+            BOOT::ISLOCALOP-1 BOOT::|pushSatOutput| BOOT::|fracpart|
+            BOOT::|negintp| BOOT::|intpart| BOOT::|optRECORDELT|
+            BOOT::|optIF2COND| BOOT::C-TO-R BOOT::C-TO-S BOOT::S-TO-C
+            BOOT::CGAMMA BOOT::RGAMMA BOOT::CLNGAMMA BOOT::RLNGAMMA
+            BOOT::|getDomainOps| BOOT::|showGoGet|
+            BOOT::|showAttributes| BOOT::|showPredicates|
+            BOOT::|showSummary| BOOT::|getExtensionsOfDomain|
+            BOOT::|getDomainSeteltForm| BOOT::|getCategoriesOfDomain|
+            BOOT::|getDomainExtensionsOfDomain| BOOT::|bnot|
+            BOOT::|notDnf| BOOT::|b2dnf| BOOT::|ordList| BOOT::|bor|
+            BOOT::|band| BOOT::|bassert| BOOT::|notCoaf| BOOT::|list3|
+            BOOT::|list2| BOOT::|list1| BOOT::|dnf2pf| BOOT::|be|
+            BOOT::|reduceDnf| BOOT::|bassertNot| BOOT::|prove|
+            BOOT::|testPredList| BOOT::|nodeCount|
+            BOOT::|mkCircularAlist| BOOT::|clearSlam,LAM|
+            BOOT::|getCacheCount| BOOT::|clearLocalModemaps|
+            BOOT::|hashCount| BOOT::|parseAndEvalToHypertex|
+            BOOT::|oldParseAndInterpret| BOOT::|parseAndInterpToString|
+            BOOT::|parseAndEvalToStringEqNum| BOOT::|setHistory|
+            BOOT::|setExposeAddGroup| BOOT::|setFortDir|
+            BOOT::|validateOutputDirectory| BOOT::|setOutputLibrary|
+            BOOT::|setFortPers| BOOT::|setExposeDropConstr|
+            BOOT::|setExposeDropGroup| BOOT::|setExposeDrop|
+            BOOT::|setFortTmpDir| BOOT::|setExposeAdd|
+            BOOT::|setExpose| BOOT::|setInputLibrary|
+            BOOT::|setAsharpArgs| BOOT::|countCache| BOOT::|cgamma|
+            BOOT::|rgamma| BOOT::|clngammacase3| BOOT::|cgammaBernsum|
+            BOOT::|cgammaAdjust| BOOT::|lnrgammaRatapprox|
+            BOOT::|phiRatapprox| BOOT::|lnrgamma|
+            BOOT::|gammaRatapprox| BOOT::|gammaRatkernel|
+            BOOT::|gammaStirling| BOOT::|PsiIntpart|
+            BOOT::|isFilterDelimiter?|
+            BOOT::|mkDetailedGrepPattern,simp| BOOT::|cgammat|
+            BOOT::|isDefaultOpAtt| BOOT::|replaceTicksBySpaces|
+            BOOT::COT BOOT::|conform2OutputForm| BOOT::|lncgamma|
+            BOOT::|dbGetName| BOOT::|pfTupleList| BOOT::|pfWIfElse|
+            BOOT::|pfWIfThen| BOOT::|mkGrepPattern1,addWilds|
+            BOOT::|pfWIfCond| BOOT::|pfWIf?| BOOT::|mkGrepPattern1,g|
+            BOOT::|organizeByName| BOOT::|pfAssignLhsItems|
+            BOOT::|pfRetractToType| BOOT::|getTempPath| BOOT::|pfSexpr|
+            BOOT::|looksLikeDomainForm| BOOT::|pfRetractToExpr|
+            BOOT::|pfRetractTo?| BOOT::|pfExpression?|
+            BOOT::|genSearchUniqueCount|
+            BOOT::|pf0FlattenSyntacticTuple| BOOT::|pfSexpr,strip|
+            BOOT::|pmPreparse| BOOT::|dbUnpatchLines|
+            BOOT::|evaluateLines| BOOT::|verifyRecordFile|
+            BOOT::|sayDocMessage| BOOT::|recordAndPrintTest,fn|
+            BOOT::|pmParseFromString|
+            BOOT::|conLowerCaseConTranTryHarder| BOOT::|fnameExists?|
+            BOOT::|htTrimAtBackSlash| BOOT::|setExposeAddConstr|
+            BOOT::|dbBasicConstructor?| BOOT::|lfnegcomment|
+            BOOT::|lfcomment| BOOT::|bcStarConform| BOOT::|lfstring|
+            BOOT::|bcStar| BOOT::|simpBool| BOOT::|scanKeyTr|
+            BOOT::|extractHasArgs,find| BOOT::|lfkey|
+            BOOT::|scanPossFloat| BOOT::|scanCloser?|
+            BOOT::|bcStarSpace| BOOT::|keyword|
+            BOOT::|loadLibIfNotLoaded| BOOT::|lineoftoks|
+            BOOT::|lisp2HT| BOOT::|getCType| BOOT::|lisp2HT,fn|
+            BOOT::|conform2HtString| BOOT::|nextline|
+            BOOT::|unMkEvalable| BOOT::|int2Bool| BOOT::|keyword?|
+            BOOT::|htSayList| BOOT::|scanW| BOOT::|isLoaded?|
+            BOOT::|mkQuote| BOOT::|lfinteger| BOOT::|mkQuote,addQuote|
+            BOOT::|functionAndJacobian| BOOT::|lferror|
+            BOOT::|scanWord| BOOT::|scanTransform|
+            BOOT::|htPred2English,fnAttr| BOOT::|dbConname|
+            BOOT::|digit?| BOOT::|addSpaces| BOOT::|dbKindString|
+            BOOT::|lfspaces| BOOT::|stripUnionTags| BOOT::|lfid|
+            BOOT::|mkPredList| BOOT::|spad2lisp|
+            BOOT::|orderUnionEntries| BOOT::|punctuation?|
+            BOOT::|Record0| BOOT::|makeFort,untangle|
+            BOOT::|makeFort,untangle2| BOOT::|makeOutputAsFortran|
+            BOOT::|rdigit?| BOOT::|vec2Lists| BOOT::|npMoveTo|
+            BOOT::|complexRows| BOOT::|makeLispList|
+            BOOT::|pfSourceStok| BOOT::|vec2Lists1|
+            BOOT::|multiToUnivariate| BOOT::|spadTypeTTT|
+            BOOT::|makeUnion| BOOT::|stripNil|
+            BOOT::|parseAndEvalToString|
+            BOOT::|parseAndEvalToStringForHypertex| BOOT::|XDRFun|
+            BOOT::|pair2list| BOOT::|pfStringConstString|
+            BOOT::|pfExportDef| BOOT::|prefix2Infix|
+            BOOT::|pfDefinitionSequenceArgs| BOOT::|lispType|
+            BOOT::|pfComDefinitionDef| BOOT::|checkForBoolean|
+            BOOT::|npTrapForm| BOOT::|pfTransformArg|
+            BOOT::|vectorOfFunctions| BOOT::|pfTaggedToTyped1|
+            BOOT::|pfFlattenApp| BOOT::|pfTaggedToTyped|
+            BOOT::|pfCollectVariable1|
+            BOOT::|InvestigateConditions,pessimise| BOOT::|pfCollect1?|
+            BOOT::|d01gafSolve,f| BOOT::|pfComDefinitionDoc|
+            BOOT::|PrepareConditional| BOOT::|pfLoopIterators|
+            BOOT::|TryGDC| BOOT::|d01fcfSolve,f| BOOT::|compCategories|
+            BOOT::|pfHidePart| BOOT::|makeMissingFunctionEntry,tran|
+            BOOT::|PacPrint| BOOT::|keyItem| BOOT::|pfHide?|
+            BOOT::|pfDocumentText| BOOT::|pfDocument?|
+            BOOT::|e02dafSolve,fxy| BOOT::|pfLambdaArgs|
+            BOOT::|ConstantCreator| BOOT::|pfDefinitionLhsItems|
+            BOOT::|pf0WithWithin| BOOT::|d02bbfSolve,fb|
+            BOOT::|pfWithWithin| BOOT::|d02bbfSolve,fa|
+            BOOT::|pf0WithBase| BOOT::|d02gbfSolve,fe|
+            BOOT::|pfWithBase| BOOT::|pfWithWithon| BOOT::|pfNot|
+            BOOT::|d02kefSolve,fc| BOOT::|pfId| BOOT::|pfTupleParts|
+            BOOT::|d02kefSolve,fb| BOOT::|pfWhereContext|
+            BOOT::|InvestigateConditions| BOOT::|pfCheckArg|
+            BOOT::|InvestigateConditions,reshape|
+            BOOT::|d02kefSolve,fa| BOOT::|pfCheckId|
+            BOOT::|getPossibleViews| BOOT::|pfQualTypeQual|
+            BOOT::|ICformat| BOOT::|pfTupleListOf|
+            BOOT::|InvestigateConditions,mkNilT| BOOT::|pfQualTypeType|
+            BOOT::|pfQualType?| BOOT::|getViewsConditions|
+            BOOT::|pfDWhereExpr| BOOT::|ICformat,Hasreduce|
+            BOOT::|pfForinLhs| BOOT::|ICformat,ORreduce|
+            BOOT::|d02gbfSolve,fi| BOOT::|d02gbfSolve,fh|
+            BOOT::|pfDWhereContext| BOOT::|CategoriesFromGDC|
+            BOOT::|pfSymbolVariable?| BOOT::|d02rafSolve,fc|
+            BOOT::|pfMLambdaArgs| BOOT::|optFunctorBodyRequote|
+            BOOT::|d02gafSolve,ff| BOOT::|pfInlineItems|
+            BOOT::|d02rafSolve,fb| BOOT::|pfSemiColonBody|
+            BOOT::|d02rafSolve,fa| BOOT::|pfSemiColon?|
+            BOOT::|optFunctorBodyQuotable| BOOT::|d02gafSolve,fd|
+            BOOT::|pfInline| BOOT::|pf0AddBase| BOOT::|pfAddBase|
+            BOOT::|d02ejfSolve,fb| BOOT::|pfSemiColon|
+            BOOT::|pfAddAddon| BOOT::|d02ejfSolve,fa|
+            BOOT::|pfAddAddin| BOOT::|d02bhfSolve,fb|
+            BOOT::|pf0ImportItems| BOOT::|d02bhfSolve,fa|
+            BOOT::|pfImportItems| BOOT::|pfInline?|
+            BOOT::|pfReturnFrom| BOOT::|pfImport|
+            BOOT::|d02gafSolve,fb| BOOT::|pfListOf?|
+            BOOT::|pfFreeItems| BOOT::|pf0TLambdaArgs|
+            BOOT::|d02gafSolve,fa| BOOT::|pfTLambdaArgs|
+            BOOT::|pfTLambdaBody| BOOT::|pfExitNoCond|
+            BOOT::|pf0WrongRubble| BOOT::|pfWrongRubble|
+            BOOT::|pfTLambdaRets| BOOT::|pfWrongWhy|
+            BOOT::|pfIterateFrom| BOOT::|pfLocalItems|
+            BOOT::|pfAttributeExpr| BOOT::|d02cjfSolve,fb|
+            BOOT::|pfAttribute?| BOOT::|pfLoop| BOOT::|d02cjfSolve,fa|
+            BOOT::|pfDo| BOOT::|pfWDeclareDoc| BOOT::|pfSecond|
+            BOOT::|pfWDeclareSignature| BOOT::|pfWDeclare?|
+            BOOT::|pfCheckInfop| BOOT::|d03edfSolve,fd|
+            BOOT::|pf0CollectIterators| BOOT::|pfExport?|
+            BOOT::|d03edfSolve,fc| BOOT::|pfDeclPart?|
+            BOOT::|d03edfSolve,fa| IDENTITY BOOT::|pfDWhere?|
+            BOOT::|pfImport?| BOOT::|pfTyping?| BOOT::|pfSuchthat|
+            BOOT::|pfComDefinition?| BOOT::|pfTLambda?| BOOT::|pfWhile|
+            BOOT::|pfAdd?| BOOT::|pf0ExportItems| BOOT::|pfExportItems|
+            BOOT::|pfExpr?| BOOT::|pfWith?| BOOT::|e01sefSolve,f|
+            BOOT::|pf0TypingItems| BOOT::|pfTypingItems|
+            BOOT::|pfGetLineObject| BOOT::|lnFileName?|
+            BOOT::|e01bgfSolve,g| BOOT::|e01bgfSolve,f|
+            BOOT::|pfNopos?| BOOT::|lnExtraBlanks|
+            BOOT::|pfPlaceOfOrigin| BOOT::|ravel|
+            BOOT::|poPlaceOfOrigin| BOOT::|e01bafSolve,f|
+            BOOT::|pfFileName?| BOOT::|poFileName?|
+            BOOT::|parseAndEval| BOOT::|getDomainHash| BOOT::|aplTran1|
+            BOOT::|hasAplExtension| BOOT::|htpDomainConditions|
+            BOOT::|aplTranList| BOOT::|postDefArgs|
+            BOOT::|postTranScripts| BOOT::|getHtMacroItem|
+            BOOT::|postTranScripts,fn| BOOT::|unTuple|
+            BOOT::|isPackageType| BOOT::|buttonNames|
+            BOOT::|postcheckTarget| BOOT::|postcheck|
+            BOOT::|dbNonEmptyPattern| BOOT::|postBlockItemList|
+            VMLISP:|last| BOOT::|postBlockItem| BOOT::|postQuote|
+            BOOT::|postSequence| BOOT::|postTranList|
+            BOOT::|checkWarning| VMLISP:HASHTABLE-CLASS
+            BOOT::|downlinkSaturn| BOOT::|decodeScripts,fn|
+            BOOT::|mkUnixPattern| BOOT::|tuple2List|
+            BOOT::|postCapsule| BOOT::|patternCheck| BOOT::|postElt|
+            BOOT::|postSEGMENT| BOOT::|e04nafSolve,ff|
+            BOOT::|postIteratorList| BOOT::|npEqPeek| BOOT::|postForm|
+            BOOT::|htAllOrNum| BOOT::|postOp| BOOT::|stringize|
+            VMLISP:LISTOFFREES BOOT::|postTuple| BOOT::|postExit|
+            BOOT::|parseWord| BOOT::|postMapping| VMLISP:GENSYMP
+            BOOT::|postMDef| BOOT::|pfAttribute| BOOT::|postDef|
+            BOOT::|npRestore| BOOT::|postCategory| BOOT::|aplTran|
+            BOOT::|containsBang| BOOT::|htMakePathKey| BOOT::|postJoin|
+            BOOT::|npWConditional| BOOT::|postTransformCheck|
+            BOOT::|npBraced| VMLISP:PAPPP
+            BOOT::|chkAllNonNegativeInteger| BOOT::|postIf|
+            BOOT::|chkNonNegativeInteger| BOOT::|postPretend|
+            BOOT::|pfId?| BOOT::|postAtSign| BOOT::|npBracketed|
+            BOOT::|postColon| BOOT::|chkDirectory|
+            BOOT::|postColonColon| BOOT::|postWhere|
+            BOOT::|npZeroOrMore| BOOT::|postSemiColon|
+            BOOT::|postBlock| BOOT::|pfParts| BOOT::|deepestExpression|
+            BOOT::|translateYesNo2TrueFalse| BOOT::|postComma|
+            BOOT::|pfEnSequence| BOOT::|comma2Tuple|
+            BOOT::|npParenthesized| BOOT::|chkOutputFileName|
+            BOOT::|postReduce| BOOT::|chkPosInteger| BOOT::|postAdd|
+            BOOT::|pfUnSequence| BOOT::|postTupleCollect|
+            BOOT::|postCollect| BOOT::|postRepeat| BOOT::|postIn|
+            BOOT::|htShowCount| BOOT::|satisfiesUserLevel|
+            BOOT::|postin| BOOT::|postQUOTE| BOOT::|pfListOf|
+            BOOT::|postScripts| BOOT::|translateTrueFalse2YesNo|
+            BOOT::|postWith| BOOT::|e02dffSolve,fp| VMLISP:CHARP
+            BOOT::|chkNameList| BOOT::|isSymbol| BOOT::INFIXTOK
+            BOOT::|npQualified| BOOT::SKIP-TO-ENDIF
+            BOOT::|npConditional| BOOT::|stackMessageIfNone|
+            BOOT::PREPARSEREADLINE BOOT::|npElse|
+            BOOT::|translateYesNoToTrueFalse| BOOT::|npMissing|
+            BOOT::PREPARSEREADLINE1 BOOT::|npDDInfKey| VMLISP:RPACKFILE
+            BOOT::SKIP-IFBLOCK BOOT::|tokPart| BOOT::|npInfKey|
+            VMLISP:RECOMPILE-LIB-FILE-IF-NECESSARY BOOT::|npWith|
+            BOOT::|optimizeFunctionDef| BOOT::PREPARSE-ECHO
+            BOOT::|npCompMissing| VMLISP::LIBSTREAM-DIRNAME
+            BOOT::ATENDOFUNIT BOOT::PARSEPRINT BOOT::|npAdd|
+            BOOT::PREPARSE1 BOOT::|e02defSolve,fp|
+            BOOT::|htpRadioButtonAlist| BOOT::MONITOR-DATA-COUNT
+            BOOT::MONITOR-DATA-NAME BOOT::|htpDomainPvarSubstList|
+            BOOT::MONITOR-DATA-SOURCEFILE BOOT::|profileTran|
+            BOOT::MONITOR-DELETE BOOT::|pfSequenceToList|
+            BOOT::MONITOR-DATA-MONITORP BOOT::|pfSequenceArgs|
+            BOOT::|renamePatternVariables| BOOT::|pfSequence?|
+            BOOT:|LispEval| BOOT::|pfNovalueExpr|
+            BOOT::MONITOR-EXPOSEDP BOOT::|pfNovalue?|
+            BOOT::|htpDomainVariableAlist| BOOT::|pfNotArg|
+            BOOT::MONITOR-APROPOS BOOT::|pfNot?| BOOT::MONITOR-DATA-P
+            BOOT::|pfOrRight| BOOT::|pfOrLeft| BOOT::MONITOR-LIBNAME
+            BOOT::|pfOr?| BOOT::MONITOR-FILE BOOT::|pfAndRight|
+            BOOT::|pfAndLeft| BOOT::|pfAnd?| BOOT::MONITOR-SPADFILE
+            BOOT::|getDomainsInScope| BOOT::|pfWrong?|
+            BOOT::MONITOR-PARSE BOOT::|pf0LocalItems|
+            BOOT::MONITOR-DECR BOOT::|pfLocal?| BOOT::|pfNovalue|
+            BOOT::|pf0FreeItems| BOOT::|npItem1| BOOT::|pfFree?|
+            BOOT::|pfRestrictType| BOOT::MONITOR-INCR
+            BOOT::|pfRestrictExpr| BOOT::|npLetQualified|
+            BOOT::|isConstructorForm| BOOT::|pfRestrict?|
+            BOOT::|library| BOOT::MONITOR-NRLIB BOOT::|pfDefinition?|
+            BOOT::|unknownTypeError| BOOT::|pfAssignRhs|
+            BOOT::|pf0AssignLhsItems| BOOT::|pfAssign?| BOOT::|quotify|
+            BOOT::|pfDoBody| BOOT::|reportHashCacheStats|
+            BOOT::MONITOR-DIRNAME BOOT::|pfDo?|
+            BOOT::|mkHashCountAlist| BOOT::|pfSuchthatCond|
+            BOOT::|displayCacheFrequency| BOOT::|pfSuchthat?|
+            BOOT::MONITOR-CHECKPOINT BOOT::|pfWhileCond|
+            BOOT::|pfWhile?| BOOT::|pfForinWhole|
+            BOOT::|outputDomainConstructor| BOOT::|e02dffSolve,fmu|
+            BOOT::|pf0ForinLhs| BOOT::|typeTimePrin|
+            BOOT::|pfCheckMacroOut| BOOT::|isSomeDomainVariable|
+            BOOT::|pfForin?| BOOT::|displayHashtable|
+            BOOT::|pfCollect?| BOOT::|removeZeroOne| BOOT::|npEncAp|
+            BOOT::|pf0LoopIterators| BOOT::|addBlanks|
+            BOOT::|compHasFormat| BOOT::|loopIters2Sex|
+            BOOT::|noBlankBeforeP| BOOT::|pfLoop?|
+            BOOT::|stopTimingProcess| BOOT::|noBlankAfterP|
+            BOOT::|?comp| BOOT::|pfExitExpr| BOOT::|pfExitCond|
+            BOOT::|compileQuietly| BOOT::|sayLongOperation|
+            BOOT::|isAlmostSimple,setAssignment| BOOT::|pfExit?|
+            BOOT::|compileInteractive| BOOT::|say2PerLineThatFit|
+            BOOT::?COMP BOOT::|npBracked| BOOT::|pfFromdomDomain|
+            BOOT::|startTimingProcess| BOOT::|prEnv|
+            BOOT::|pfFromdomWhat| BOOT::|operationLink| BOOT::|opTran|
+            BOOT::|pfFromdom?| BOOT::|hasType,fn| BOOT::|pfPretendType|
+            BOOT::|clearCategoryCache| BOOT::|pfTuple|
+            BOOT::|pfPretendExpr| BOOT::|clearConstructorCache|
+            BOOT::|qModemap| BOOT::|pfPretend?|
+            BOOT::|splitListSayBrightly| BOOT::|formatModemap|
+            BOOT::|pfCoercetoType| BOOT::|printEnv|
+            BOOT::|pfCoercetoExpr| BOOT::|tabber| BOOT::|pfCoerceto?|
+            BOOT::|decExitLevel| BOOT::|pfTaggedExpr|
+            BOOT::|splitSayBrightly| BOOT::|pfTaggedTag|
+            BOOT::|brightPrintRightJustify| BOOT::|pfTagged?|
+            BOOT::|pfIfElse| BOOT::|splitSayBrightlyArgument|
+            BOOT::DATABASE-ABBREVIATION BOOT::|pfIfThen|
+            BOOT::|mkDomainConstructor| BOOT::|pfIfCond|
+            BOOT::|brightPrint1| BOOT::SET-FILE-GETTER BOOT::|mkList|
+            BOOT::|pfIf?| BOOT::|brightPrint| BOOT::|pf0TupleParts|
+            BOOT::|pfTuple?| BOOT::DATABASE-SOURCEFILE
+            BOOT::|minimalise| BOOT::|minimalise,min|
+            BOOT::|pfLiteral?| BOOT::|mkDevaluate|
+            BOOT::|minimalise,HashCheck| BOOT::|pfSymbolSymbol|
+            BOOT::|numberOfEmptySlots| BOOT::|pfSymbol?|
+            BOOT::|sayBrightlyLength1| BOOT::|hasOptArgs?|
+            BOOT::|npFromdom1| BOOT::|pfSuchThat2Sex|
+            BOOT::|CDRwithIncrement| BOOT::|npPush|
+            BOOT::|segmentedMsgPreprocess| BOOT::|pfOp2Sex|
+            BOOT::SHOWDATABASE BOOT::|pmDontQuote?| BOOT::|initCache|
+            BOOT::|blankIndicator| BOOT::|pfDefinitionRhs|
+            BOOT::|npEqKey| BOOT::|pf0DefinitionLhsItems|
+            BOOT::|pfApplicationArg| BOOT::SQUEEZE
+            BOOT::|rulePredicateTran| BOOT::|pfRuleRhs| BOOT::UNSQUEEZE
+            BOOT::|npDotted| BOOT::|pfRuleLhsItems|
+            BOOT::|constructor2ConstructorForm| BOOT::|npAngleBared|
+            BOOT::|pfCollectBody| BOOT::DATABASE-SPARE
+            BOOT::|pfCollectIterators| BOOT::|remHashEntriesWith0Count|
+            BOOT::|float2Sex| BOOT::DATABASE-DEFAULTDOMAIN
+            BOOT::|npListing| BOOT::|pfLiteralString|
+            BOOT::DATABASE-NILADIC BOOT::|pfLeafToken|
+            BOOT::DATABASE-CONSTRUCTORCATEGORY BOOT::|pfLiteralClass|
+            BOOT::DATABASE-OBJECT BOOT::DATABASE-MODEMAPS
+            BOOT::DATABASE-OPERATIONALIST BOOT::DATABASE-DEPENDENTS
+            BOOT::DATABASE-USERS BOOT::DATABASE-PARENTS BOOT::|tokPosn|
+            BOOT::|pileColumn| BOOT::|underDomainOf|
+            BOOT::DATABASE-PREDICATES BOOT::|underDomainOf;|
+            BOOT::|pileCforest| BOOT::DATABASE-ATTRIBUTES
+            BOOT::|enPile| BOOT::|separatePiles|
+            BOOT::DATABASE-DOCUMENTATION BOOT::|pilePlusComments|
+            BOOT::|pilePlusComment| BOOT::|insertpile|
+            BOOT::|lastTokPosn| BOOT::|firstTokPosn|
+            BOOT::|pileComment| BOOT::|isValidType;|
+            BOOT::|lnGlobalNum| BOOT::|lnLocalNum|
+            BOOT::|pfSourcePositionlist| BOOT::|isPartialMode|
+            BOOT::|pfSourcePositions|
+            BOOT::|makeOldAxiomDispatchDomain| BOOT::|lnString|
+            BOOT::DATABASE-ANCESTORS BOOT::|poNoPosition?|
+            BOOT::|poImmediate?| BOOT::|poIsPos?| BOOT::|hashString|
+            BOOT::DATABASE-CONSTRUCTOR BOOT::|pfPosn|
+            BOOT::|isLegitimateRecordOrTaggedUnion|
+            BOOT::|lnImmediate?| BOOT::|listOfDuplicates|
+            BOOT::|pfPosImmediate?| BOOT::|isPolynomialMode|
+            BOOT::|pfSourceToken| BOOT::|equiType| BOOT::|pfFirst|
+            BOOT::|getUnderModeOf| FOAM::PROCESS-IMPORT-ENTRY
+            BOOT::|deconstructT| BOOT::|attribute?| BOOT::TRARGPRINT
+            BOOT::|makeLazyOldAxiomDispatchDomain| BOOT::|eqType|
+            BOOT::DATABASE-P BOOT::LINE-ADVANCE-CHAR
+            BOOT::DATABASE-COSIG BOOT::LINE-AT-END-P BOOT::TRBLANKS
+            BOOT::MAKE-STRING-ADJUSTABLE BOOT::|sayMessage|
+            BOOT::|dropPrefix| BOOT::TRMETA1 BOOT::|mkDatabasePred|
+            BOOT::TRY-GET-TOKEN BOOT::TRMETA BOOT::|namestring|
+            BOOT::|isFreeFunctionFromMmCond| BOOT::|isSharpVarWithNum|
+            BOOT::|isFreeFunctionFromMm|
+            BOOT::|mkAlistOfExplicitCategoryOps| BOOT::LINE-P
+            BOOT::|mkAlistOfExplicitCategoryOps,atomizeOp|
+            BOOT::|flattenSignatureList| BOOT::|collectAndDeleteAssoc|
+            BOOT::|checkSplitBrace| BOOT::|getFirstArgTypeFromMm|
+            BOOT::|checkSplitPunctuation| BOOT::|checkSplitOn|
+            BOOT::|checkSplitBackslash| BOOT::STACK-POP
+            BOOT::|checkAlphabetic| BOOT::|isDomainSubst|
+            BOOT::UNDERSCORE BOOT::|collectComBlock|
+            BOOT::|getDomainFromMm| BOOT::/MDEF BOOT::STACK-TOP
+            BOOT::|formal2Pattern| BOOT::|finalizeDocumentation,hn|
+            BOOT::STACK-P BOOT::LINE-NEXT-CHAR BOOT::REDUCTION-RULE
+            BOOT::|checkExtractItemList|
+            BOOT::|recordHeaderDocumentation| BOOT::|checkIeEgfun|
+            BOOT::|appendOver| BOOT::|rebuild| BOOT::|checkInteger|
+            BOOT::|spool| BOOT::|setOutputCharacters|
+            BOOT::/VERSIONCHECK BOOT::INTERP-MAKE-DIRECTORY
+            BOOT::CACHEKEYEDMSG BOOT::XDR-STREAM-HANDLE
+            BOOT::|normalizeArgFileName| BOOT::|checkTrim,trim|
+            BOOT::XDR-STREAM-P BOOT::|checkDocError| BOOT::|bootFind|
+            BOOT::|checkTrim,wherePP| BOOT::|checkDecorateForHt|
+            BOOT::XDR-STREAM-NAME BOOT::|checkRecordHash|
+            BOOT::|checkIsValidType| BOOT::|normalizeTimeAndStringify|
+            BOOT::SETLETPRINTFLAG BOOT::|checkGetParse|
+            BOOT::|checkGetStringBeforeRightBrace|
+            BOOT::|checkGetLispFunctionName| BOOT::MAKE-DIRECTORY
+            BOOT::|checkLookForRightBrace|
+            BOOT::|checkLookForLeftBrace| BOOT::|checkFixCommonProblem|
+            BOOT::|checkArguments| BOOT::SHAREDITEMS BOOT::|checkTexht|
+            BOOT::|isVowel| BOOT::|getOfCategoryArgument|
+            BOOT::|checkAddPeriod| BOOT::|newMKINFILENAM|
+            BOOT::|getFunctionSourceFile1| BOOT::|checkDecorate|
+            BOOT::|pathname?| BOOT::|hasNoVowels| BOOT::|checkBalance|
+            BOOT::|checkSayBracket| BOOT::|pfSequence2Sex|
+            BOOT::|checkBeginEnd| BOOT::|pf2Sex1| BOOT::|checkIeEg|
+            BOOT::|pfSequence2Sex0| BOOT::|checkDocError1|
+            BOOT::|ruleLhsTran| BOOT::|patternVarsOf|
+            BOOT::|checkAddMacros| BOOT::|pfLambdaTran|
+            BOOT::|pfLambdaBody| BOOT::|checkSplit2Words|
+            BOOT::|pfLambdaRets| BOOT::|checkAddSpaces|
+            BOOT::|pfTypedType| BOOT::|newString2Words|
+            BOOT::|pfCollectArgTran| BOOT::|checkGetArgs|
+            BOOT::|pfTyped?| BOOT::|pfRhsRule2Sex|
+            BOOT::|pfLhsRule2Sex| BOOT::|checkDocMessage|
+            BOOT::|checkRemoveComments| BOOT::|pfRule2Sex|
+            BOOT::|checkTrimCommented| BOOT::|pfLambda2Sex|
+            BOOT::|pfDefinition2Sex| BOOT::|leftTrim|
+            BOOT::|pfCollect2Sex| BOOT::|checkGetMargin|
+            BOOT::|pfApplication2Sex| BOOT::|whoOwns|
+            BOOT::|pfLiteral2Sex| BOOT::|pfWhereExpr|
+            BOOT::|pf0WhereContext| BOOT::|pfIterate?|
+            BOOT::|pfReturnExpr| BOOT::|pfReturn?| BOOT::|setOutStream|
+            BOOT::|pfBreakFrom| BOOT::|pfBreak?| BOOT::|pfRule?|
+            BOOT::DATABASE-CONSTRUCTORMODEMAP BOOT::|%key| BOOT::|ppos|
+            BOOT::|porigin| BOOT::|pfLinePosn| BOOT::|pfCharPosn|
+            BOOT::|pfImmediate?| BOOT::|pfNoPosition?| BOOT::|%pos|
+            BOOT::|processPackage,setPackageCode| BOOT::|%fname|
+            BOOT::|pfname| BOOT::|%origin| BOOT::|mkRepititionAssoc|
+            BOOT::|%id| BOOT::|pkey| BOOT::|getCaps|
+            BOOT::|constructorCategory| BOOT::|evalDomain|
+            BOOT::|parseAtom| BOOT::|systemErrorHere|
+            BOOT::|coerceMap2E| BOOT::|parseConstruct|
+            BOOT::|parseTran,g| BOOT::|parseWhere| BOOT::|parseVCONS|
+            BOOT::|parseSeq| BOOT::|transSeq| BOOT::|postError|
+            BOOT::|parseSegment| BOOT::|parseReturn|
+            BOOT::|parsePretend| BOOT::|parseType| BOOT::|RecordInner|
+            BOOT::|parseTypeEvaluate| BOOT::|isRecord|
+            BOOT::|parseMDEF| BOOT::|parseLETD| BOOT::|parseLET|
+            BOOT::|transIs| BOOT::|CatEval| BOOT::|transUnCons|
+            BOOT::|parseLeave| BOOT::|mkCategory,Prepare|
+            BOOT::|parseJoin| BOOT::|parseJoin,fn| BOOT::|parseIsnt|
+            BOOT::|parseBigelt| BOOT::|parseIs|
+            BOOT::|DropImplementations| BOOT::|parseInBy|
+            BOOT::|parseIn| BOOT::|FindFundAncs| BOOT::|parseHas|
+            BOOT::|parseHas,mkand| BOOT::|TruthP| BOOT::|parseHas,fn|
+            BOOT::|parseExit| BOOT::|isCategory| BOOT::|parseDEF|
+            BOOT::|setDefOp| BOOT::|mkCategory,Prepare2|
+            BOOT::|transIs1| BOOT::|isListConstructor|
+            BOOT::|parseCategory| BOOT::|parseDropAssertions|
+            BOOT::|parseAtSign| BOOT::|parseHasRhs| BOOT::|parseCoerce|
+            BOOT::|getCategoryExtensionAlist0| BOOT::|parseColon|
+            BOOT::|getCategoryExtensionAlist| BOOT::|sayMSG|
+            BOOT::|parseDollarGreaterThan| BOOT::|squeeze1|
+            BOOT::|squeezeList| BOOT::|parseGreaterThan|
+            BOOT::|categoryParts,exportsOf|
+            BOOT::|makeSimplePredicateOrNil| BOOT::|simpHasPred,eval|
+            BOOT::|simpHasPred,simp| BOOT::|specialModeTran|
+            BOOT::|compressHashTable| BOOT::|simpOrUnion|
+            BOOT::|clearCategoryTable| BOOT::|transCategoryItem|
+            BOOT::|parseCases| BOOT::TOKEN-PRINT BOOT::|getConstrCat|
+            BOOT::LINE-CURRENT-SEGMENT
+            BOOT::|mkCategoryExtensionAlistBasic| BOOT::STACK-CLEAR
+            BOOT::|macrop| BOOT::|showCategoryTable|
+            BOOT::|clearTempCategoryTable| BOOT::TOKEN-P
+            BOOT::|addToCategoryTable|
+            BOOT::|simpHasPred,simpDevaluate|
+            BOOT::|mkCategoryExtensionAlist|
+            BOOT::|updateCategoryTableForCategory|
+            BOOT::|isFormalArgumentList| BOOT::|defaultingFunction|
+            BOOT::|getOperationAlistFromLisplib|
+            BOOT::|getConstructorAbbreviation|
+            BOOT::|predicateBitIndex| BOOT::|encodeCatform|
+            BOOT::|evalableConstructor2HtString,unquote|
+            BOOT::|orderByContainment| BOOT::|stripOutNonDollarPreds|
+            BOOT::|isHasDollarPred| BOOT::|transHasCode|
+            BOOT::|removeAttributePredicates| BOOT::|getCatAncestors|
+            BOOT::|makeCompactDirect1,fn| BOOT::|depthAssoc|
+            BOOT::|depthAssocList| BOOT::|fromHeading|
+            BOOT::|htAddHeading| BOOT::|infovec| BOOT::|dcData1|
+            BOOT::|dbDoesOneOpHaveParameters?| BOOT::|ppTemplate|
+            BOOT::|dbOuttran| BOOT::|bitsOf| BOOT::|mathform2HtString|
+            BOOT::|conname2StringList| BOOT::|dcData|
+            BOOT::|predicateBitIndexRemop| BOOT::|form2StringList|
+            BOOT::|dbConform| BOOT::|dbMapping2StringList|
+            BOOT::|htTab| BOOT::|orderBySubsumption| BOOT::|dcCats|
+            BOOT::|dcCats1| BOOT::|getLookupFun|
+            BOOT::|listOfCategoryEntries| BOOT::|niladicHack|
+            BOOT::|dbGatherDataImplementation,fn| BOOT::|NRTcatCompare|
+            BOOT::|dbGatherDataImplementation,gn| BOOT::|template|
+            BOOT::|dcAtts| BOOT::|dcSlots| BOOT::|dcOpTable|
+            BOOT::|getConstructorArgs| BOOT::|dbNewConname|
+            BOOT::|escapeString| BOOT::|nodeSize| BOOT::|fortexp0|
+            BOOT::|vectorSize| BOOT::|myLastAtom|
+            BOOT::|isDefaultPackageForm?| BOOT::|numberOfNodes|
+            BOOT::|dcOps| BOOT::|removeAttributePredicates,fn|
+            BOOT::|removeAttributePredicates,fnl|
+            BOOT::DATABASE-CONSTRUCTORFORM BOOT::|makeCompactDirect|
+            BOOT::|htSayTuple| BOOT::|dcPreds| BOOT::|htSayArgument|
+            BOOT::|makeDomainTemplate| BOOT::|hashTable2Alist|
+            BOOT::|stuffDomainSlots| BOOT::|getExportCategory|
+            BOOT::|koCatOps1| BOOT::|simplifyAttributeAlist|
+            BOOT::|hasPatternVar| BOOT::|dcAll|
+            BOOT::|findSubstitutionOrder?| BOOT::|isInstantiated|
+            BOOT::|modemap2SigConds| BOOT::|getSubstCandidates|
+            BOOT::|htSayExplicitExports|
+            BOOT::|fortFormatCharacterTypes| BOOT::|opPageFastPath|
+            BOOT::|fortFormatCharacterTypes,mkParameterList2|
+            BOOT::|exp2FortOptimizeCS1,popCsStacks|
+            BOOT::|kFormatSlotDomain,fn|
+            BOOT::|fortFormatTypes,unravel| BOOT::|formatSlotDomain|
+            BOOT::|getSubstSignature| BOOT::|getfortexp1|
+            BOOT::|fortran2Lines1| BOOT::|koOps,trim|
+            BOOT::|isPatternVar| BOOT::|dispfortexp1|
+            BOOT::|displayBreakIntoAnds| VMLISP::LIBRARY-FILE
+            VMLISP::GET-DIRECTORY-LIST VMLISP::PROBE-NAME
+            VMLISP::SPAD-FIXED-ARG VMLISP::LIBSTREAM-INDEXSTREAM
+            VMLISP::LIBSTREAM-INDEXTABLE VMLISP::LIBSTREAM-MODE
+            VMLISP::GETINDEXTABLE VMLISP::GET-INDEX-TABLE-FROM-STREAM
+            VMLISP::LIBSTREAM-P BOOT::|NRTassocIndexAdd|
+            BOOT::|optDeltaEntry,quoteSelector| BOOT::|NRToptimizeHas|
+            BOOT::|listOfBoundVars| BOOT::|slot1Filter,fn|
+            BOOT::|reverseCondlist| BOOT::|c05pbfSolve,fb|
+            BOOT::|genDeltaSig| BOOT::|c05pbfSolve,fa|
+            BOOT::|c05nbfSolve,fb|
+            BOOT::|NRTsubstDelta,replaceSlotTypes|
+            BOOT::|c05nbfSolve,fa| BOOT::|slot1Filter|
+            BOOT::|NRTsubstDelta| BOOT::|c06ebfSolve,f|
+            BOOT::|catList2catPackageList,fn| BOOT::|addConsDB|
+            BOOT::|changeDirectoryInSlot1,fn|
+            BOOT::|changeDirectoryInSlot1,sigloc|
+            BOOT::|NRTreplaceAllLocalReferences| BOOT::|mkSlot1sublis|
+            BOOT::|NRTputInLocalReferences| BOOT::|NRTputInHead|
+            BOOT::|NRTcheckVector| BOOT::|NRTmakeSlot1|
+            BOOT::|NRTisExported?| BOOT::|makePredicateBitVector|
+            BOOT::|catList2catPackageList| BOOT::|c06eafSolve,f|
+            BOOT::|NRTgetAddForm| BOOT::|c06frfSolve,h|
+            BOOT::|NRTaddInner| BOOT::|c06ekfSolve,f|
+            BOOT::|updateSlot1DataBase| BOOT::|genDeltaSpecialSig|
+            BOOT::|c06gbfSolve,f| BOOT::|newHasTest,evalCond|
+            BOOT::|c06fufSolve,hn| BOOT::|c06gcfSolve,f|
+            BOOT::|c06fufSolve,hm| BOOT::|c06fpfSolve,h|
+            BOOT::|c06fqfSolve,h| BOOT::|c06ecfSolve,f| BOOT:|length1?|
+            BOOT:|ListRemoveDuplicatesQ| BOOT:|ListNReverse|
+            BOOT::|d01gbfSolve,f| BOOT:|TableKeys|
+            BOOT::|ncParseAndInterpretString| BOOT::|pfPrintSrcLines|
+            BOOT::TERMINATOR VMLISP::MAKE-BVEC
+            BOOT::|exp2FortOptimizeCS| BOOT::|exp2FortOptimizeCS1|
+            BOOT::|expression2Fortran| BOOT::|fortranCleanUp|
+            BOOT::|exp2FortOptimize| BOOT::|fortPre| BOOT::|incRgen|
+            BOOT::|segment| BOOT::|exp2Fort1| FOAM:|printNewLine|
+            FOAM:|formatDFloat| FOAM:|formatSFloat| FOAM:|formatBInt|
+            BOOT::|npNull| FOAM:|formatSInt| BOOT::|isFloat|
+            BOOT::|fortExpSize| BOOT::|parseAndEval1|
+            BOOT::|printStats| BOOT::|mkParameterList|
+            BOOT::|unStackWarning| BOOT::|fortFormatIntrinsics|
+            BOOT::?M BOOT::|displayLines| BOOT::|?m| BOOT::|addCommas|
+            BOOT::|unErrorRef| BOOT::|fortran2Lines| BOOT::|uppretend|
+            BOOT::|typeOfType| BOOT::|checkLines| BOOT::|uptypeOf|
+            BOOT::|statement2Fortran| BOOT::|displayLines1|
+            BOOT::|upQUOTE| BOOT::|dispStatement|
+            BOOT::|makeCommonEnvironment,interLocalE| BOOT::|upSEQ|
+            BOOT::|mkMat| BOOT::|makeCommonEnvironment,interC|
+            BOOT::|fortSize,elen| BOOT::|quote2Wrapped|
+            BOOT::|deltaContour,eliminateDuplicatePropertyLists|
+            BOOT::|fortSize| BOOT::|checkType| BOOT::|interpOnlyREPEAT|
+            BOOT::|upREPEAT1| BOOT::|old2NewModemaps| BOOT::|upREPEAT0|
+            BOOT::|displayModemaps| BOOT::|uplocal|
+            BOOT::|fortFormatElseIf| BOOT::|upfree|
+            BOOT::|indentFortLevel| FOAM:|Halt| BOOT::|upREPEAT|
+            BOOT::|?modemaps| BOOT::|fortFormatIf| BOOT::|upDEF|
+            BOOT::|upreturn| BOOT::|uperror| BOOT::|what|
+            BOOT::?MODEMAPS BOOT::|whatSpad2Cmd| BOOT::|stackAndThrow|
+            BOOT::|makeCommonEnvironment,interE| BOOT::|constructor|
+            BOOT::|alqlGetParams| BOOT::|makeNonAtomic|
+            BOOT::|alqlGetOrigin| BOOT::|alqlGetKindString|
+            BOOT::|npboot| BOOT::|compAndTrace| VMLISP::SIMPLE-ARGLIST
+            BOOT::|string2BootTree| VMLISP::REMOVE-FLUIDS
+            BOOT::|f04qafSolve,f| BOOT::|getBrowseDatabase|
+            BOOT::|wrapSEQExit| BOOT::|compileSpadLispCmd|
+            BOOT::|incExitLevel| BOOT::ASEC BOOT::|mkErrorExpr,bracket|
+            BOOT::|displayProperties,sayFunctionDeps| BOOT::ACOT
+            BOOT::|displayMacro| VMLISP::QUOTESOF BOOT::|genDeltaEntry|
+            BOOT::|displayParserMacro| VMLISP::DEQUOTE
+            BOOT::|compilerMessage| BOOT::MANEXP
+            BOOT::|asharpConstructorName?| VMLISP::ISQUOTEDP
+            BOOT::|f04mcfSolve,gj| BOOT::|f04arfSolve,h| VMLISP::VARP
+            BOOT::|f04mcfSolve,fd| BOOT::|dbpHasDefaultCategory?|
+            BOOT::|stackMessage| BOOT::|dbAddChainDomain|
+            BOOT::|listOfIdentifiersIn| BOOT::|knownInfo|
+            BOOT::|outerProduct| BOOT::|f04jgfSolve,h|
+            BOOT::|helpSpad2Cmd| BOOT::|f04mcfSolve,fal|
+            BOOT::|sayAsManyPerLineAsPossible| BOOT::|extractHasArgs|
+            BOOT::|read| BOOT::|readSpad2Cmd| BOOT::|displayMacros|
+            BOOT::|warnLiteral| BOOT::|getConstructorModemap|
+            BOOT::GCOPY BOOT::|koAttrs,fn| BOOT::|displayOperations|
+            BOOT::|libConstructorSig| BOOT::|f04asfSolve,h|
+            BOOT::|libConstructorSig,fn| BOOT::|npProcessSynonym|
+            BOOT::|listOfSharpVars| BOOT::|compileAsharpLispCmd|
+            BOOT::|isAlmostSimple| BOOT::|libdbTrim|
+            BOOT::|isAlmostSimple,fn| BOOT::|isFunctor|
+            BOOT::|stripLisp| BOOT::|parentsOfForm|
+            BOOT::|isSideEffectFree| BOOT::|ltrace| BOOT::|dbMkForm|
+            BOOT::|trace| BOOT::|compileAsharpCmd| BOOT::MSORT
+            BOOT::|displayProplist,fn| BOOT::|removeEnv| BOOT::|load|
+            BOOT::|loadSpad2Cmd| BOOT::|dbReadLines| BOOT::?VALUE
+            BOOT::|help| BOOT::|?value| BOOT::|trimComments|
+            BOOT::|f04atfSolve,h| BOOT::|f04fafSolve,h|
+            BOOT::|spreadGlossText| BOOT::?PROPERTIES
+            BOOT::|asyExtractAbbreviation| BOOT::|getGlossLines|
+            BOOT::|?properties| BOOT::|asyTypeUnit|
+            BOOT::|getParentsForDomain| BOOT::|f04fafSolve,g|
+            BOOT::|prModemaps| BOOT::|asyTypeItem|
+            BOOT::|f04fafSolve,f| BOOT::|importFromFrame|
+            BOOT::|decExitLevel,removeExit0|
+            BOOT::|closeInterpreterFrame| BOOT::|f04mbfSolve,f|
+            BOOT::|tokTran| BOOT::?MODE BOOT::|parseSystemCmd|
+            BOOT::|?mode| BOOT::|dumbTokenize| BOOT::|edit|
+            BOOT::|editSpad2Cmd| BOOT::|getDefaultPackageClients|
+            BOOT::|displayOperationsFromLisplib| BOOT::|say2PerLine|
+            BOOT::|getArgumentConstructors,fn|
+            BOOT::|getArgumentConstructors,gn| BOOT::|display|
+            BOOT::|displaySpad2Cmd| BOOT::|frameEnvironment|
+            BOOT::|getArgumentConstructors| BOOT::|buildLibAttrs|
+            BOOT::|buildLibOps| BOOT::|splitIntoOptionBlocks|
+            BOOT::|writedb| BOOT::|getFirstWord| BOOT::|f07aefSolve,fp|
+            BOOT::|isSharpVar| BOOT::HAS_SHARP_VAR
+            BOOT::|dbHasExamplePage| BOOT::|isExistingFile|
+            BOOT::|mkHasArgsPred| BOOT::|lefts| BOOT::|findEqualFun|
+            BOOT::|dbFromConstructor?| BOOT::|f01mafSolve,f|
+            BOOT::|dbShowKind| BOOT::|unAbbreviateIfNecessary|
+            BOOT:|DeepCopy| BOOT::|evalDomainOpPred,convertCatArg|
+            BOOT::|dbOpsForm| BOOT::|form2Fence| BOOT::|devaluateList|
+            BOOT::|dbConstructorDoc,fn| FOAM:|fiStrHash|
+            BOOT::|dbGetInputString| BOOT::|pmTransFilter|
+            BOOT::|dbExtractUnderlyingDomain| FOAM:|fiGetDebugger|
+            BOOT::|isValidType| BOOT:|ByteFileReadLine| BOOT::RENAME
+            BOOT::|isExposedConstructor| FOAM:|fiSetDebugVar|
+            BOOT:|InputStream?| BOOT::|ncParseFromString|
+            BOOT:|OutputStream?| BOOT:|StreamSize|
+            BOOT:|StreamGetPosition| BOOT:|StreamEnd?|
+            BOOT:|StreamClose| BOOT::|dbConstructorDoc,gn|
+            BOOT::|digits2Names| BOOT::|dbCompositeWithMap|
+            BOOT::|extractFileNameFromPath| BOOT:|ToPathname|
+            BOOT::IDENT-CHAR-LIT BOOT::IS-CONSOLE-NOT-XEDIT
+            BOOT::|dbAddChain| BOOT::MESSAGEPRINT
+            BOOT:|PathnameDirectory| BOOT::MESSAGEPRINT-2
+            BOOT::|kFormatSlotDomain| BOOT:|PathnameName|
+            BOOT::MESSAGEPRINT-1 BOOT::|devaluate| BOOT:|PathnameType|
+            BOOT::|simpCatPredicate| BOOT:|PathnameString|
+            BOOT::|dbInfovec| BOOT:|PathnameAbsolute?|
+            BOOT:|PathnameWithoutType| BOOT::|getImports|
+            BOOT:|PathnameWithoutDirectory| BOOT::|saySpadMsg|
+            BOOT::|mkConArgSublis| BOOT:|PathnameToUsualCase|
+            BOOT:|PathnameDirectoryOfDirectoryPathname| BOOT::|sayTeX|
+            BOOT::|getUsersOfConstructor| BOOT:|Bit?| BOOT::EQUABLE
+            BOOT::|makeTemplate| BOOT::|dbShowConsKinds|
+            BOOT::|makeOpDirect| BOOT:|Vector?| BOOT::|bcConTable|
+            BOOT::|makeOpDirect,fn| BOOT::|mkUniquePred|
+            BOOT::PARTCODET BOOT::|bcAbbTable| BOOT::|putPredHash|
+            BOOT::|bcNameConTable| BOOT::|NRTinnerGetLocalIndex|
+            BOOT::|breakIntoLines| BOOT::|dbConstructorKind|
+            BOOT::BLANKP BOOT::|setLoadTimeQ| BOOT:|CharDigit?|
+            BOOT::|dbConstructorDoc,hn| BOOT::|setLoadTime|
+            BOOT::NONBLANKLOC BOOT::|extendVectorSize|
+            BOOT::|markUnique| BOOT:|Cset| BOOT::INDENT-POS
+            BOOT::|addConsDB,min| BOOT::NEXT-TAB-LOC
+            BOOT:|CsetComplement| BOOT::|measureCommon|
+            BOOT:|CsetString| BOOT::|getDependentsOfConstructor|
+            BOOT::|htMakeSaturnFilterPage| BOOT::|writeSaturnLines|
+            BOOT::|hasIdent| BOOT::|addConsDB,HashCheck|
+            BOOT::|parseNoMacroFromString| BOOT::|mapConsDB|
+            BOOT::|pf2Sex| BOOT::|squeezeConsDB| BOOT::|StreamNull|
+            BOOT::|squeezeConsDB,fn| BOOT::|mkBold| BOOT::|incString|
+            BOOT::|postSignature| BOOT::|killColons| BOOT:|ToString|
+            BOOT::|e02dffSolve,flam| BOOT::|removeSuperfluousMapping|
+            BOOT:|StringImage| BOOT::|dbShowConstructorLines|
+            BOOT:|String?| BOOT::|postAtom| BOOT::|dbName|
+            BOOT::|makeSpadConstant| BOOT::|postType|
+            BOOT::|childrenOf| BOOT::|htBcLispLinks|
+            BOOT::|typeCheckInputAreas| BOOT::|kisValidType|
+            BOOT::|kCheckArgumentNumbers| BOOT:|StringUpperCase|
+            BOOT:|StringLowerCase| BOOT::|topicCode|
+            BOOT::|htMakePage1| BOOT::|string2OpAlist|
+            BOOT::|htProcessDoitButton| BOOT::|blankLine?|
+            BOOT::|htProcessDoneButton| BOOT::|e02defSolve,fmu|
+            BOOT::|topics| BOOT::|htProcessBcButtons|
+            BOOT::|topLevelInterpEval| BOOT::|tdPrint|
+            BOOT::|htProcessToggleButtons|
+            BOOT::|htProcessDomainConditions|
+            BOOT::|getConstructorSignature| BOOT::|getDefaultProps|
+            BOOT::|htInputStrings| BOOT::GET-A-LINE
+            BOOT::|getConstructorDocumentation|
+            BOOT::|htBcRadioButtons| BOOT::KILL-COMMENTS
+            BOOT::|topicCode,fn| BOOT::|htRadioButtons|
+            BOOT::|listOfTopics| BOOT::|htLispMemoLinks|
+            BOOT::PRINT-RULE BOOT::|code2Classes| BOOT::SET-PREFIX
+            BOOT::PRINT-FLUIDS BOOT::|td| BOOT::|unabbrev|
+            BOOT::|prTriple| BOOT::|htEndMenu| BOOT::GET-META-TOKEN
+            BOOT::|hasNewInfoAlist| BOOT::|addTraceItem|
+            BOOT::GET-BSTRING-TOKEN BOOT::|untraceAllDomainLocalOps|
+            BOOT::|bright| BOOT::GET-STRING-TOKEN
+            BOOT::|formatUnabbreviated| BOOT::GET-IDENTIFIER-TOKEN
+            BOOT::BVEC-NOT BOOT::TOKEN-LOOKAHEAD-TYPE
+            BOOT::|orderBySlotNumber| BOOT::|traceSpad2Cmd|
+            BOOT::|compArgumentConditions| BOOT::|e02defSolve,flam|
+            BOOT::|trace1| BOOT::LINE-PRINT BOOT::|saveMapSig|
+            BOOT::LINE-PAST-END-P BOOT::|untrace|
+            BOOT::|stripOffArgumentConditions|
+            BOOT::DATABASE-CONSTRUCTORKIND BOOT::SPAD_ERROR_LOC
+            BOOT::|getTraceOptions| BOOT::|transTraceItem|
+            BOOT::BOOT-PARSE-1 BOOT::|genSearchTran|
+            BOOT::REDUCTION-VALUE BOOT::|removeSurroundingStars|
+            BOOT::|getTraceOption| BOOT::|checkFilter| BOOT::PREPARSE
+            BOOT::|getMapSubNames| BOOT::|getPreviousMapSubNames|
+            BOOT::|coerceSpadArgs2E| BOOT::|clear|
+            BOOT::|whatConstructors| BOOT::|stupidIsSpadFunction|
+            BOOT::|sayBrightlyLength| BOOT::|stackTraceOptionError|
+            BOOT::GET-BOOT-TOKEN BOOT::|reportOpsFromUnitDirectly|
+            BOOT::|coerceSpadFunValue2E| BOOT::|searchCount|
+            BOOT::GET-SPECIAL-TOKEN BOOT::|domainToGenvar|
+            BOOT::|searchDropUnexposedLines| BOOT::GET-SPADSTRING-TOKEN
+            BOOT::|compileAsharpArchiveCmd| BOOT::|genDomainTraceName|
+            BOOT::GET-NUMBER-TOKEN BOOT::GET-ARGUMENT-DESIGNATOR-TOKEN
+            BOOT::|spadReply,printName| BOOT::|abbreviations|
+            BOOT::|getTraceOption,hn| BOOT::BOOT-TOKEN-LOOKAHEAD-TYPE
+            BOOT::|changeToNamedInterpreterFrame|
+            BOOT::|removeTracedMapSigs| BOOT::|findFrameInRing|
+            BOOT::|isListOfIdentifiers| BOOT::|string2Constructor|
+            BOOT::|isListOfIdentifiersOrStrings| BOOT::|dbString2Words|
+            BOOT::|conLowerCaseConTran| BOOT::|emptyInterpreterFrame|
+            BOOT::|string2Words| BOOT::|whatCommands|
+            BOOT::BUMPERRORCOUNT BOOT::|commandsForUserLevel|
+            BOOT::MAKE-ADJUSTABLE-STRING BOOT::|dnForm| BOOT::|pp2Cols|
+            BOOT::|dnForm,negate| BOOT::|dbGetCommentOrigin|
+            BOOT::|whatSpad2Cmd,fixpat| BOOT::DEF-PROCESS
+            BOOT::|synonymsForUserLevel| BOOT::DEF-RENAME
+            BOOT::|postTransform|
+            BOOT::|processSynonymLine,removeKeyFromLine|
+            BOOT::|pmPreparse,hn| BOOT::|new2OldLisp|
+            BOOT::|processSynonymLine| BOOT::PRINT-PACKAGE
+            BOOT::|printSynonyms| BOOT::INITIALIZE-PREPARSE
+            BOOT::|clearParserMacro|
+            BOOT::|dbScreenForDefaultFunctions| BOOT::S-PROCESS
+            BOOT::|newHelpSpad2Cmd| BOOT::|dbChooseOperandName|
+            BOOT::|zsystemDevelopmentSpad2Cmd| BOOT::|parseFromString|
+            BOOT::|checkPmParse,fn| BOOT::|dbRead|
+            BOOT::|string2SpadTree| BOOT::|checkPmParse| SYSTEM:PNAME
+            BOOT::|htCopyProplist| BOOT::|pathnameTypeId|
+            BOOT::|capitalize| BOOT::|htSayValue|
+            BOOT::|clearCmdExcept| BOOT::|getSubstSigIfPossible|
+            BOOT::|workfilesSpad2Cmd| BOOT::|isIntegerString|
+            BOOT::|cd| BOOT::|dbGetExpandedOpAlist|
+            BOOT::|dbAddDocTable| BOOT::|zsystemdevelopment|
+            BOOT::|getConstructorForm| BOOT::|workfiles|
+            BOOT::|originsInOrder| BOOT::|getInfoAlist|
+            BOOT::|parentsOf| BOOT::|listOrVectorElementMode|
+            BOOT::|zeroOneConvertAlist| BOOT::|dbInfoSig|
+            BOOT::|numberize| BOOT::|hasNewInfoText|
+            BOOT::|splitConTable| BOOT::|dbGetDocTable,gn|
+            BOOT::|string2Integer| BOOT::|recordFrame|
+            BOOT::|issueHTSaturn| BOOT::|kTestPred|
+            BOOT::|segmentKeyedMsg| BOOT::|htpPageDescription|
+            BOOT::|dbDocTable| BOOT::|saturnTran| BOOT::|bcUnixTable|
+            BOOT::|mkTabularItem| BOOT::|printAsTeX|
+            BOOT::|isAsharpFileName?| BOOT::|isMenuItemStyle?|
+            BOOT::|saturnTranText| BOOT::|bcError|
+            BOOT::|transOnlyOption| BOOT::|kPageContextMenu|
+            BOOT::|bcString2WordList| BOOT::|unTab1|
+            BOOT::|shortenForPrinting| BOOT::|getBpiNameIfTracedMap|
+            BOOT::|recordAndPrintTest| BOOT::|mkTabularItem,fn|
+            BOOT::|PullAndExecuteSpadSystemCommand| BOOT::|htNewPage|
+            BOOT::|htpName| BOOT::|prTraceNames,fn|
+            BOOT::|htMakePageSaturn| BOOT::|e02zafSolve,flam|
+            BOOT::|isCapitalWord| BOOT::|zagSuper| BOOT::|height|
+            BOOT::|zagSub| BOOT::|inputPrompt|
+            BOOT::|flattenOperationAlist| BOOT::|variableNumber|
+            BOOT::|spadTrace,g| BOOT::|mkPredList,fn|
+            BOOT::|isTraceGensym| BOOT::|htPopSaturn|
+            BOOT::|htMakePageStandard| BOOT::|undo| BOOT::|dbKind|
+            BOOT::|undoCount| BOOT::|stringer| BOOT::|outputTranIf|
+            BOOT::|htInitPageNoHeading| BOOT::|undoLocalModemapHack|
+            BOOT::|saturnHasExamplePage| BOOT::|reportUndo| BOOT::|iht|
+            BOOT::|bcIssueHt| BOOT::|bcConform1| BOOT::|keyp|
+            BOOT::|bcConform1,hd| BOOT::|binomialWidth|
+            BOOT::|htSaySourceFile| BOOT::|basicStringize|
+            BOOT::|mapStringize| BOOT::|binomialSuper|
+            BOOT::|bcConform1,mapping|
+            BOOT::|outputTranMatrix,outtranRow|
+            BOOT::PLAIN-PRINT-FORMAT-STRING BOOT::|bcConform1,tuple|
+            BOOT::|binomialSub| BOOT::|vConcatWidth| BOOTTRAN::BOOTTOCL
+            BOOT::|bcConform1,tl| BOOT::|deMatrix| BOOT::TRANSLIST
+            BOOT::|sumWidthA| BOOT::TRANSLATE BOOT::|htSayItalics|
+            BOOT::|dbGetDocTable,hn| BOOT::|absym|
+            BOOT::|dbEvalableConstructor?| BOOT::|getCallBack|
+            BOOT::|texFormat1| BOOT::|unTab|
+            BOOT::RETRANSLATE-DIRECTORY BOOT::|kPageContextMenuSaturn|
+            BOOT::|maPrin| BOOT::RETRANSLATE-FILE-IF-NECESSARY
+            BOOT::|saturnExampleLink| BOOT::|explainLinear|
+            BOOT::RECOMPILE-ALL-LIBS BOOT::|htSayCold|
+            BOOT::RECOMPILE-LIB-DIRECTORY
+            BOOT::RECOMPILE-NRLIB-IF-NECESSARY BOOT::|writeSaturnTable|
+            BOOT::|maprinRows| BOOT::RECOMPILE-ALL-FILES
+            BOOT::|writeSaturn| BOOT::|maprinChk|
+            BOOT::|writeSaturnPrint| BOOT::RECOMPILE-ALL-ALGEBRA-FILES
+            BOOT::|bcConform1,say| BOOT::|escapeSpecialIds|
+            BOOT::|vConcatSub| BOOT::LOAD-DIRECTORY
+            BOOT::|postDoubleSharp| BOOT::|sumoverlist|
+            BOOT::|htProcessBcStrings| BOOT::|matSuperList|
+            BOOT::|superSubWidth| BOOT::CHAPTER-NAME BOOT::|isQuotient|
+            BOOT::|matSubList| BOOT::|superSubSuper|
+            BOOT::|isRationalNumber| BOOT::|matLSum|
+            BOOT::|superSubSub| BOOT::BLANKCHARP
+            BOOT::SPADTAGS-FROM-FILE BOOT::|matLSum2|
+            BOOT::OUR-WRITE-DATE BOOT::LIFT-NRLIB-NAME
+            BOOT::RECOMPILE-FILE-IF-NECESSARY BOOT::|suScWidth|
+            BOOT::|bcLinearSolveMatrixInhomo,f| BOOT::LIBCHECK
+            BOOT::|bcLinearExtractMatrix| BOOT::|printMap|
+            BOOT::|isInitialMap| BOOT::SPAD-CLEAR-INPUT
+            BOOT::|bcString2HyString|
+            BOOT::|NeedAtLeastOneFunctionInThisFile| BOOT::|pfSequence|
+            BOOT::|npPileBracketed| BOOT::|npAnyNo| BOOT::|bcOptional|
+            VMLISP::EQUABLE VMLISP::*LAM BOOT::|subSub| VMLISP::RCQEXP
+            BOOT::|flattenOps| BOOT::|npInfGeneric| BOOT::|slashWidth|
+            BOOT::|slashSuper| VMLISP::COMPILE1 BOOT::|slashSub|
+            BOOT::|pfPile| BOOT::|npParened| BOOT::BVEC-COPY
+            BOOT::|letWidth| VMLISP::FLAT-BV-LIST BOOT::|sortCarString|
+            BOOT::|pfAppend| VMLISP::PLIST2ALIST BOOT::|pfFix|
+            BOOT::|outputConstructTran| BOOT::|pfTyping|
+            BOOT::|outputTranSEQ| BOOT::|outputTranRepeat|
+            BOOT::|outputTranReduce| BOOT::|outputTranCollect|
+            BOOT::|outputMapTran| BOOT::|npSemiListing|
+            BOOT::|pfExport| BOOT::|pfLocal|
+            BOOT::|optSEQ,getRidOfTemps| BOOT::|optSPADCALL|
+            BOOT::|pfFree| BOOT::|optXLAMCond| BOOT::|optCONDtail|
+            BOOT::|optPredicateIfTrue| BOOT::|optCons| BOOT::|optSEQ|
+            BOOT::|pfBreak| BOOT::|optSEQ,tryToRemoveSEQ|
+            BOOT::|optSEQ,SEQToCOND| BOOT::|optimize,opt|
+            BOOT::|optCond| BOOT::|pfReturnNoName| BOOT::|optMkRecord|
+            BOOT::|npListAndRecover| BOOT::|optCatch| BOOT::|npTuple|
+            BOOT::|pf0SequenceArgs| BOOT::|compileTimeBindingOf|
+            BOOT::|optimizeFunctionDef,removeTopLevelCatch|
+            BOOT::|optEQ| BOOT::|optLESSP| BOOT::|pfIterate|
+            BOOT::|opt-| BOOT::|optQSMINUS| BOOT::|pfLoop1|
+            BOOT::|optMINUS| BOOT::|optSuchthat| BOOT::|optRECORDCOPY|
+            BOOT::|optSETRECORDELT| BOOT::|npParse|
+            BOOT::|timedEVALFUN| BOOT::|pfDocument|
+            BOOT::|updateTimedName| BOOT::|pfTweakIf|
+            BOOT::|timedOptimization| BOOT::|pfCheckItOut|
+            BOOT::|timedAlgebraEvaluation| BOOT::|pushTimedName|
+            BOOT::|significantStat| BOOT::|printNamedStats|
+            BOOT::|htpDestroyPage| BOOT::|splitIntoBlocksOf200|
+            BOOT::|incIgen| BOOT::|e02dafSolve,flam|
+            BOOT::|e04nafSolve,fe| BOOT::|str2Tex|
+            BOOT::|e04nafSolve,fd| BOOT::|wrap| BOOT::|e04nafSolve,fc|
+            BOOT::|e04ycfSolve,fa| BOOT::|str2Outform|
+            BOOT::|parse2Outform| BOOT::|e04nafSolve,fj|
+            BOOT::|e04nafSolve,fg| BOOT::|e04dgfSolve,fb|
+            BOOT::|e04mbfSolve,fg| BOOT::|evalLoopIter|
+            BOOT::|formatUnabbreviatedTuple| BOOT::|e04mbfSolve,fe|
+            BOOT::|length2?| BOOT::|Identity| BOOT::|upADEF|
+            BOOT::|bool| BOOT::|e04mbfSolve,fd| BOOT::|orderList|
+            BOOT::|e04mbfSolve,fc| BOOT::|upLoopIters| BOOT::NMSORT
+            BOOT::|pr| BOOT::|e04fdfSolve,fb| BOOT::|interpIter|
+            BOOT::|functionp| BOOT::|quoteCatOp| BOOT::|e04fdfSolve,fa|
+            BOOT::|isLetter| BOOT::|mkNestedElts| BOOT::|charRangeTest|
+            BOOT::|instantiate| BOOT::|isUpperCaseLetter|
+            BOOT::|e04gcfSolve,fb| BOOT::|flattenSexpr|
+            BOOT::|e04gcfSolve,fa| BOOT::|isStreamCollect|
+            BOOT::|removeZeroOneDestructively| BOOT::|StringToCompStr|
+            BOOT::|boolODDP| BOOT::|rightTrim|
+            BOOT::|dropLeadingBlanks| BOOT::|getDomainByteVector|
+            BOOT::|interpOnlyCOLLECT| BOOT::|e04jafSolve,fc|
+            BOOT::|upCOLLECT| BOOT::|upAlgExtension|
+            BOOT::|e04jafSolve,fb| BOOT::|eq2AlgExtension|
+            BOOT::|e04jafSolve,fa| BOOT::|clearCmdParts|
+            BOOT::|upCOLLECT0| BOOT::|loadLib| BOOT::|upCOLLECT1|
+            BOOT::|upand| BOOT::|upDeclare| BOOT:|pp|
+            BOOT::|f01rdfSolve,fz| BOOT::|mkZipCode| BOOT:ATOM2STRING
+            BOOT::|orderCatAnc| BOOT::|f01mcfSolve,g|
+            BOOT::|isOkInterpMode| BOOT::|f01mcfSolve,f|
+            BOOT::|mkAndApplyPredicates| BOOT:MATCH-STRING
+            BOOT::|upCOERCE| BOOT::|upStreamIters| BOOT::|upconstruct|
+            BOOT::|upTARGET| BOOT::|falseFun| BOOT::|upLET|
+            BOOT::|closeOldAxiomFunctor| BOOT::|f01refSolve,fz|
+            BOOT::|upLETWithPatternOnLhs| BOOT::|isTupleForm|
+            BOOT::|f01qefSolve,fz| BOOT::|e02zafSolve,fxy|
+            BOOT::|shoeStrings| BOOT::|removeConstruct| BOOT:|break|
+            BOOT::|shoeIntern| BOOT::|isLocalPred|
+            BOOT::|shoeInternFile| BOOT::|upequation|
+            BOOT::|SpadInterpretFile| BOOT::|intInterpretPform|
+            BOOT::|altSeteltable| BOOT::|packageTran|
+            BOOT::|isHomogeneous| BOOT::|zeroOneTran|
+            BOOT::|intProcessSynonyms| BOOT::|upbreak|
+            BOOT::|f01brfSolve,f| BOOT::|intnplisp| BOOT::|upDollar|
+            BOOT::|nplisp| BOOT::|setCurrentLine|
+            BOOT::|f01qdfSolve,fz| BOOT::|copyHack| BOOT::|copyHack,fn|
+            BOOT:ADJCURMAXINDEX BOOT::|upTuple| BOOT::|ncloopParse|
+            BOOT::|ncloopIncFileName| BOOT::|phBegin|
+            BOOT::|ncloopEscaped| BOOT::|upiterate| BOOT::|upIF|
+            BOOT::|upisnt| BOOT::|upisAndIsnt| BOOT::|phInterpret|
+            BOOT::|isHomogeneousArgs| BOOT:LASTATOM BOOT::|uphas|
+            BOOT::|phMacro| BOOT::|macroExpanded| BOOT::|upis|
+            BOOT::|ncConversationPhase,wrapup| BOOT:CONSOLEINPUTP
+            BOOT::|upwhere| BOOT::|serverReadLine|
+            BOOT::|ncloopPrintLines| BOOT::|mkLineList|
+            BOOT::|nonBlank| BOOT:|MakeSymbol| BOOT::|intloopEchoParse|
+            BOOT::|incBiteOff| BOOT::|SkipEnd?| BOOT::|incFileName|
+            BOOT::|Else?| BOOT::|Elseif?| BOOT::|If?|
+            BOOT::|inclmsgNoSuchFile| BOOT::|inclmsgPrematureFin|
+            BOOT::|incFileInput| BOOT::|Top?|
+            BOOT::|inclmsgPrematureEOF| BOOT::|SkipPart?|
+            BOOT::|KeepPart?| BOOT:COMP BOOT:GETGENSYM
+            BOOT::|incNConsoles| BOOT::|Skipping?| BOOT::|incClassify|
+            BOOT::EXPAND-TABS BOOT::|incCommand?| BOOT::|incRenumber|
+            BOOT::|incFile| BOOT::|incPos|
+            BOOT:|initializeSetVariables| BOOT::|inclmsgSay|
+            BOOT::|inclmsgConStill| BOOT::|incStringStream|
+            BOOT::|inclmsgConActive| BOOT:NUMOFNODES FOAM::TYPE2INIT
+            BOOT:TRANSPGVAR FOAM::FOAM-FUNCTION-INFO BOOT::|GetValue|
+            BOOT::|hasToInfo| FOAM::INSERT-TYPES BOOT::|formatPred|
+            BOOT::|chaseInferences,foo| BOOT::|liftCond|
+            FOAM::FOAMPROGINFOSTRUCT-P BOOT::|formatInfo|
+            BOOT:TOKEN-TYPE BOOT::|addInformation,info|
+            BOOT:|updateSourceFiles| BOOT::|infoToHas| BOOT::|addInfo|
+            BOOT::|formatPredParts| BOOT::|printInfo|
+            BOOT::|linearFormat| BOOT::|formatOperationAlistEntry|
+            BOOT::|formatIf| BOOT:MKQ BOOT::|linearFormatName|
+            BOOT::|dollarPercentTran| BOOT::|string2Float|
+            BOOT::|specialChar| BOOT:TOKEN-SYMBOL BOOT::|hashCode?|
+            BOOT::|formatArgList| BOOT::|listOfPredOfTypePatternIds|
+            BOOT::|script2String| BOOT::|form2Fence1|
+            BOOT::|replaceGoGetSlot| BOOT::|constructorName|
+            BOOT::|sayModemap| BOOT:ACTION BOOT::|opIsHasCat|
+            BOOT::|isNewWorldDomain| BOOT::|formCollect2String|
+            BOOT::|DNameToSExpr1| BOOT::|tuple2String|
+            BOOT::|DNameFixEnum| BOOT::|formJoin2String| BOOT:ASSOCLEFT
+            BOOT::|DNameToSExpr| BOOT:|sayALGEBRA|
+            BOOT::|CompStrToString| BOOT::|record2String|
+            FOAM-USER::|AXL-spitSInt| BOOT::|computedMode|
+            BOOT::|formWrapId| BOOT::|getIProplist|
+            BOOT::|isBinaryInfix| BOOT::|mkAtreeValueOf|
+            BOOT::|collectDefTypesAndPreds| BOOT::|formatSignature|
+            BOOT::|freeOfSharpVars| BOOT::|unVectorize|
+            BOOT::|formatSignature0| BOOT::|isInternalFunctionName|
+            BOOT::|objEnv| BOOT:NREVERSE0 BOOT::|formatMapping|
+            BOOT::|canRemoveIsDomain?| BOOT:|sayFORTRAN|
+            BOOT::|formIterator2String| BOOT:|IS_#GENVAR|
+            BOOT::|removeIsDomains| BOOT:LISTOFATOMS
+            BOOT::|formatAttribute| BOOT::|formTuple2String|
+            BOOT::|numOfSpadArguments| BOOT::|args2Tuple|
+            BOOT::|blankList| BOOT::|removeBodyFromEnv|
+            BOOT::|form2StringWithWhere| BOOT::|reportOpSymbol|
+            BOOT::|apropos| BOOT::|formatModemap,fn|
+            BOOT::|listOfVariables| BOOT::|isFreeVar|
+            BOOT::|isLocalVar| BOOT::|expr2String|
+            BOOT::|isInternalMapName| BOOT::|atom2String|)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (T *) *) VMLISP:MAKE-APPENDSTREAM
+            VMLISP:MAKE-INSTREAM VMLISP:MAKE-OUTSTREAM
+            VMLISP:COMPILE-LIB-FILE BOOT:|OsRunProgram|
+            BOOT:|OsRunProgramToStream| BOOT::ASHARP
+            FOAM:COMPILE-AS-FILE BOOT:|Prompt| BOOT:|sayBrightlyNT|)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (T T T) (VALUES T T)) BOOT::|getScriptName|
+            FOAM:AXIOMXL-GLOBAL-NAME BOOT::|spadTraceAlias|)) 
+(PROCLAIM '(FTYPE (FUNCTION (T T *) (VALUES T T)) VMLISP:MDEF)) 
+(PROCLAIM '(FTYPE (FUNCTION (T *) STRING) VMLISP:MAKE-FULL-CVEC)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (T T) *) BOOT::|bcInputMatrixByFormula|
+            BOOT::|bcInputExplicitMatrix| BOOT::|htStringPad|
+            BOOT::|evalAndRwriteLispForm| BOOT::|mkAtreeWithSrcPos|
+            BOOT::|rwriteLispForm| BOOT::COMPILE-DEFUN BOOT::|doIt|
+            BOOT::BPIUNTRACE VMLISP:QUOTIENT BOOT::|print|
+            BOOT::|compilerDoitWithScreenedLisplib|
+            BOOT::|compilerDoit| BOOT::MONITOR-PRINVALUE BOOT::/TRACE-2
+            VMLISP:|LAM,FILEACTQ| BOOT::|hasFormalMapVariable|
+            BOOT::|ScanOrPairVec| VMLISP:SUFFIX BOOT::PRINMATHOR0
+            BOOT::|spadTrace| BOOT::|output| BOOT::|e01bffDefaultSolve|
+            BOOT::|e01safDefaultSolve| BOOT::|popUpNamedHTPage|
+            BOOT::|e01dafDefaultSolve| BOOT::|replaceNamedHTPage|
+            BOOT::|e02bafDefaultSolve| BOOT::|e02bdfDefaultSolve|
+            BOOT::|e02defDefaultSolve| BOOT::|sockSendFloat|
+            BOOT::SOCK-SEND-SIGNAL BOOT::SOCK-SEND-FLOAT
+            BOOT::SOCK-SEND-STRING BOOT::SOCK-SEND-INT BOOT::ERASE
+            BOOT::|sayErrorly| BOOT::|saturnSayErrorly| BOOT::|set1|
+            BOOT::|displaySetOptionInformation| BOOT::|mkGrepPattern|
+            BOOT::|showDoc| BOOT::|genSearchSayJump| BOOT::|oPageFrom|
+            BOOT::|showConstruct| BOOT::|htCommandToInputLine,fn|
+            BOOT::|grepConstructorSearch| BOOT::|showNamedDoc|
+            BOOT::|form2HtString,fnTail| BOOT::|xdrWrite|
+            BOOT::|spleI1| BOOT::|readData,xdrRead1| BOOT::|xdrRead|
+            BOOT::|sockSendSignal| BOOT::|htpLabelFilteredInputString|
+            BOOT::|e01bgfDefaultSolve| BOOT::|e01befDefaultSolve|
+            BOOT::|e01bafDefaultSolve| BOOT::|htGlossSearch|
+            BOOT::|htSetSystemVariable| BOOT::|htSetSystemVariableKind|
+            BOOT::|htSetNotAvailable| BOOT::|htShowLiteralsPage|
+            BOOT::|htCheck| BOOT::|htShowIntegerPage|
+            BOOT::|htShowFunctionPage| BOOT::|htSetFunCommandContinue|
+            BOOT::|htKill| BOOT::|htFunctionSetLiteral|
+            BOOT::|htShowSetPage| BOOT::ADDCLOSE BOOT::|htSetLiteral|
+            BOOT:|LispCompileFileQuietlyToObject|
+            ; BOOT::|findStringInFile| 
+	    BOOT::|ppPair|
+            BOOT::|getMinimalVarMode| BOOT::|checkAddSpaceSegments|
+            BOOT::|checkAddIndented| BOOT::|alistSize,count|
+            BOOT::|dbConformGen1| BOOT::|pickitForm|
+            BOOT::|koaPageFilterByCategory1| VMLISP::COPY-FILE
+            VMLISP::COPY-LIB-DIRECTORY BOOT::|c06ebfDefaultSolve|
+            BOOT::|c06gsfDefaultSolve| BOOT::|c06eafDefaultSolve|
+            BOOT::|c06gbfDefaultSolve| BOOT::|c06gqfDefaultSolve|
+            BOOT::|c06ecfDefaultSolve| BOOT::|c06gcfDefaultSolve|
+            BOOT::|d01gafDefaultSolve| BOOT::|spadcall2|
+            BOOT::|sublisV| BOOT::|sublisV,suba| BOOT::|fortError|
+            BOOT::|f04adfDefaultSolve| BOOT::|f04arfDefaultSolve|
+            BOOT::|koPageFromKKPage| BOOT::|kArgPage| BOOT::|npsystem|
+            BOOT::|f04asfDefaultSolve|
+            BOOT::|handleParsedSystemCommands|
+            BOOT::|handleTokensizeSystemCommands|
+            BOOT::|f07fdfDefaultSolve| BOOT::|tokenSystemCommand|
+            BOOT::|reportOpsFromLisplib1| BOOT::|handleNoParseCommands|
+            BOOT::|f07aefDefaultSolve| BOOT::|f07fefDefaultSolve|
+            BOOT::|f07adfDefaultSolve| BOOT::|addPatchesToLongLines|
+            BOOT::|kArgumentCheck| BOOT::COERCE-FAILURE-MSG
+            BOOT::|kxPage| BOOT::|kcnPage| BOOT::SAYBRIGHTLYNT1
+            BOOT::|kcuPage| BOOT::|ksPage| BOOT::|conOpPage|
+            BOOT::|kcdoPage| BOOT::|kcdePage| BOOT::|kcdPage|
+            BOOT::|kccPage| BOOT::|patternCheck,subWild|
+            BOOT::|kcaPage| BOOT::|kcpPage| BOOT::|htDoneButton|
+            BOOT::|sockSendInt| BOOT::|kePage| BOOT::|sockSendString|
+            BOOT::|koaPageFilterByName| BOOT::|koaPageFilterByCategory|
+            BOOT::|koPageAux1| BOOT::|kcPage| BOOT::|getmode|
+            BOOT::|docSearch1| BOOT::|grepSearchQuery|
+            BOOT::|repeatSearch| BOOT::|reportOpsFromLisplib0|
+            BOOT::|reportOperations| BOOT::|generalSearchDo|
+            BOOT::|grepSearchJump| BOOT::|mkDetailedGrepPattern,conc|
+            BOOT::|kiPage| BOOT::|errorPage|
+            BOOT::|dbShowConsKindsFilter| BOOT::|koPage|
+            BOOT::|dbInfoChoose| BOOT::|kciPage|
+            BOOT::|dbInfoChooseSingle| BOOT::|dbSort| BOOT::|msgText|
+            BOOT::|bcSeriesByFormula| BOOT::|bcRealLimitGen1|
+            BOOT::|bcSeriesExpansion| BOOT::|ncloopInclude|
+            BOOT::|bcComplexLimit| BOOT::|bcRealLimit|
+            BOOT::|htFilterPage| BOOT::|bcPuiseuxSeries|
+            BOOT::KCL-OS-RUN-PROGRAM-TO-STREAM BOOT::|bcLaurentSeries|
+            BOOT::KCL-OS-RUN-PROGRAM BOOT::|bcTaylorSeries|
+            BOOT::|bcLinearSolveMatrix| BOOT::|bcMakeEquations|
+            BOOT::|bcMakeLinearEquations| BOOT::|bcLinearSolveEqns|
+            BOOT::|bcSolveSingle| BOOT::|bcInputEquations| BOOT::FC
+            BOOT::|bcSystemSolve| BOOT::|bcSolveEquationsNumerically|
+            BOOT::|bcSolveEquations| BOOT::|bcLinearSolve|
+            BOOT::|bcLinearMatrixGen|
+            BOOT::|bcLinearSolveMatrixInhomoGen|
+            BOOT::|bcLinearSolveMatrixInhomo|
+            BOOT::|bcLinearSolveMatrixHomo| BOOT::|finalExactRequest|
+            BOOT::|printMap1| BOOT::|htMkName|
+            BOOT::|makeLongSpaceString| BOOT::|makeLongTimeString|
+            BOOT::|nrtEval| BOOT::|f01mcfDefaultSolve|
+            BOOT::|f01rcfDefaultSolve| BOOT::|ncloopCommand|
+            BOOT::|ncloopInclude1| BOOT::|ncConversationPhase|
+            BOOT:DEFSTREAM BOOT::|inclHandleBug| BOOT::|evalSlotDomain|
+            BOOT::|ncEltQ| BOOT::|formArguments2String,fn|)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (T *) T) BOOT:|sayBrightly| BOOT:BLANKS
+            BOOT:MATCH-NEXT-TOKEN BOOT::|desiredMsg|
+            BOOT:|sayBrightlyI| BOOT:MATCH-CURRENT-TOKEN
+            VMLISP:RDEFIOSTREAM VMLISP:CATCHALL VMLISP:TAB
+            VMLISP:|F,PRINT-ONE| VMLISP:VMPRINT BOOT::FINDTAG
+            VMLISP:MAKE-HASHTABLE VMLISP:MAKE-FILENAME VMLISP:MACERR
+            VMLISP:PRETTYPRINT BOOT::|pfExpression| BOOT::|pfSymbol|
+            VMLISP:|LAM,EVALANDFILEACTQ| VMLISP:PRETTYPRIN0
+            BOOT::|pfSymb| VMLISP::MAKE-INPUT-FILENAME
+            BOOT:|LispReadFromString| BOOT::MONITOR-ADD BOOT::|cpCms|
+            VMLISP::MAKE-FULL-NAMESTRING BOOT:|PrettyPrint|
+            BOOT:|PlainPrintOn| BOOT:|WriteLispExpr| BOOT:|WriteLine|
+            BOOT:|WriteString| BOOT:|ReadLineIntoString|
+            BOOT:|ReadBytesIntoVector| BOOT:|Pathname|
+            BOOT:|FullVector| BOOT:|FullBvec| BOOT:|FullString|
+            BOOT::PRINT-NEW-LINE BOOT::PRINT-FULL
+            BOOT::GET-BOOT-IDENTIFIER-TOKEN BOOT::COMPSPADFILES)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION (T T) T) BOOT::|mkAliasList,fn| BOOT:PREDECESSOR
+            BOOT::|depthOfRecursion| BOOT::|formatJoinKey|
+            BOOT::|putBodyInEnv| BOOT::|mapDefsWithCorrectArgCount|
+            BOOT::|sayModemapWithNumber| BOOT::|addDefaults| BOOT:NLIST
+            BOOT::|formatOperation| BOOT::|get1defaultOp|
+            BOOT::|compileBody| BOOT::|makeLocalModemap| BOOT:NSTRCONC
+            BOOT::|saveDependentMapInfo| BOOT:GETRULEFUNLISTS
+            BOOT::|axFormatDecl| BOOT::|mkMapAlias| BOOT::|readData|
+            BOOT::|axFormatConstantOp| BOOT::|axFormatOpSig|
+            BOOT::|mkFormalArg| BOOT::|writeData| BOOT:POINT
+            BOOT::|mkValCheck| BOOT::|mkValueCheck| BOOT::|isPointer?|
+            BOOT::|wt| BOOT::|dqAppend| BOOT::|makePattern|
+            BOOT::|makeAxFile| BOOT::|clearDependencies|
+            BOOT::|getEqualSublis,fn| BOOT::|sourceFilesToAxFile|
+            BOOT::|getLocalVars| BOOT::|simplifyMapPattern|
+            BOOT::|getMapBody| BOOT:GETTAIL BOOT::|htpLabelInputString|
+            BOOT::|htpLabelSpadValue| BOOT::|putDependencies|
+            BOOT::STACK-PUSH BOOT:COMPARE BOOT::|htMakeDoneButton|
+            BOOT::|putDependencies,removeObsoleteDependencies|
+            BOOT::|makeNewDependencies| BOOT::|PARSE-Operation|
+            BOOT::|htInitPage| BOOT::|notCalled| BOOT::|htpProperty|
+            BOOT::|containsOp| BOOT::|makeRuleForm|
+            BOOT::|nonRecursivePart| BOOT::|outputFormat|
+            BOOT::|sayDroppingFunctions| BOOT::|nonRecursivePart1|
+            BOOT::|expandRecursiveBody| BOOT::|addDefMap|
+            BOOT::|e04nafSolve,fh| BOOT:FLAG BOOT::|ifCond|
+            BOOT::|incCommandTail| BOOT::|incTrunc| BOOT::|dollarTran|
+            BOOT:PAIR BOOT::CHAR-EQ BOOT::|PARSE-rightBindingPowerOf|
+            BOOT::|e04nafSolve,fi| BOOT:SUBLISNQ
+            BOOT::|writeInputLines| BOOT::|rempropI| BOOT:DELASC
+            BOOT::|showInput| BOOT::|showInOut| BOOT::SPADRREAD
+            BOOT:LASSOC BOOT::|ScanOrPairVec,ScanOrInner| BOOT::|getI|
+            BOOT::|mergeSignatureAndLocalVarAlists| BOOT::CHAR-NE
+            BOOT:S+ BOOT::|convertOpAlist2compilerInfo,formatSig|
+            BOOT::|getLisplibNoCache| BOOT::|getLisplib|
+            BOOT::|PARSE-leftBindingPowerOf| BOOT:MAKE-PARSE-FUNCTION
+            BOOT::|spadPrint| BOOT::|getSlotFromCategoryForm|
+            BOOT::|systemDependentMkAutoload| BOOT:MKPF
+            BOOT::|mkAutoLoad| BOOT:STRM BOOT::|wordFrom|
+            FOAM::|magicEq1| BOOT::|throwKeyedMsg1|
+            BOOT::|saturnThrowKeyedMsg| BOOT::|center|
+            BOOT::|substituteCategoryArguments|
+            BOOT::|isDomainConstructorForm| BOOT::|keyedSystemError1|
+            BOOT::|orderByDependency| BOOT::|saturnKeyedSystemError|
+            BOOT::|getFunctorOpsAndAtts| BOOT::|breakKeyedMsg|
+            BOOT::|fastSearchCurrentEnv| BOOT::|putMode|
+            BOOT::|splitListOn| BOOT::|putFlag|
+            BOOT::|mkAtreeNodeWithSrcPos| BOOT::|getMsgCatAttr|
+            BOOT::|DomainSubstitutionFunction|
+            BOOT::|transferSrcPosInfo| BOOT::|isNestedInstantiation|
+            BOOT::|DomainSubstitutionFunction,Subst|
+            BOOT::|mkAtree1WithSrcPos| BOOT::|wrapDomainSub|
+            BOOT::|listInitialSegment| BOOT::|compCategoryItem|
+            BOOT::|writeLib|
+            BOOT::|makeFunctorArgumentParameters,findExtrasP|
+            BOOT::|loadLibIfNecessary| BOOT::|rep|
+            BOOT::|collectDefTypesAndPreds,addPred|
+            BOOT::|setMsgPrefix| BOOT::|setMsgCatlessAttr|
+            BOOT::|getSignatureFromMode|
+            BOOT::|makeFunctorArgumentParameters,findExtras|
+            BOOT::|makeFunctorArgumentParameters,findExtras1|
+            BOOT::|autoLoad| BOOT::|isMacro| BOOT::|readLib|
+            BOOT::|getValueFromEnvironment|
+            BOOT::|unloadOneConstructor|
+            BOOT::|compileCases,FindNamesFor| BOOT::|asTupleNewCode|
+            BOOT::|macroExpandList| BOOT::|setMsgForcedAttrList|
+            BOOT::|macSubstituteId| BOOT::|atree2Tree1|
+            BOOT::|compileCases,isEltArgumentIn|
+            BOOT::|makeFunctorArgumentParameters,augmentSig|
+            BOOT::|mkAtree3,fn| BOOT::|macroExpandInPlace|
+            BOOT::|getErFromDbL| BOOT::|compJoin,getParms|
+            BOOT::|pfMapParts| BOOT::|erMsgCompare|
+            BOOT::|compareposns| BOOT::|pfCopyWithPos|
+            BOOT::|mkCategoryPackage,fn| BOOT::|getArgumentMode|
+            BOOT:REMFLAG BOOT::|listDecideHowMuch|
+            BOOT::|throwEvalTypeMsg| BOOT::|splitEncodedFunctionName|
+            BOOT:QLASSQ BOOT::|decideHowMuch| BOOT::|getArgValue1|
+            BOOT::|setMsgText| BOOT::|setMsgUnforcedAttrList|
+            BOOT::|genDomainViewList0| BOOT::|macLambda,mac|
+            BOOT::|macWhere,mac|
+            BOOT::|makeFunctorArgumentParameters,fn|
+            BOOT::|canCacheLocalDomain|
+            BOOT::|makeCategoryPredicates,fn|
+            BOOT::|makeCategoryPredicates,fnl|
+            BOOT::|getArgValueOrThrow| BOOT::|mac0SubstituteOuter|
+            BOOT::|insertPos| BOOT::|macLambdaParameterHandling|
+            BOOT::|genDomainViewName| BOOT::|isKeyQualityP|
+            BOOT::|queueUpErrors| BOOT::|thisPosIsEqual|
+            BOOT::|getOpArgTypes1| BOOT::|redundant|
+            BOOT::|argCouldBelongToSubdomain| BOOT::|thisPosIsLess|
+            BOOT::APPEND-N BOOT::|putFTText| BOOT::CONS-N
+            BOOT::|getModemap| BOOT::|sameMsg?| BOOT::EVAL-DEFUN
+            BOOT::|mkOpVec| BOOT::|resolveTCat|
+            BOOT::PRINT-AND-EVAL-DEFUN BOOT::|AssocBarGensym|
+            BOOT::|FromTo| BOOT::|compareMode2Arg|
+            BOOT::|c02affSolve,f| BOOT::|subCopy|
+            BOOT::|getOpArgTypes,f| BOOT::|isTowerWithSubdomain|
+            BOOT::|addEmptyCapsuleIfNecessary| BOOT::|constructM|
+            BOOT:|delete| BOOT::|c02agfSolve,f| BOOT::|bootStrapError|
+            BOOT::|getOpArgTypes| BOOT::|dqAddAppend| BOOT::|tracelet|
+            BOOT::/UNTRACE-2 BOOT:|rassoc| BOOT::|resolveTM1|
+            BOOT::|matchMmSigTar| BOOT::/UNTRACE-1 BOOT::|deepSubCopy|
+            BOOT::|CONTAINEDisDomain| BOOT::|hasCatExpression|
+            BOOT::PAIRTRACE BOOT::|spadUntrace| BOOT:LENGTHENVEC
+            BOOT::|defaultTypeForCategory| BOOT::DEF-IT BOOT:|breaklet|
+            BOOT::|mmCatComp| BOOT::|mergeSubs| BOOT::DEF-LET
+            BOOT::|hasCaty1| BOOT:STRINGPAD BOOT::|mkObjWrap|
+            BOOT:TRUNCLIST BOOT::|position1| BOOT::DEF-IS2
+            BOOT::|defLET| BOOT::|defLETdcq|
+            BOOT::|sortAndReorderDmpExponents| BOOT::WHDEF
+            BOOT::|removeListElt| BOOT::|everyNth| BOOT::LET_ERROR
+            BOOT::|defIS| BOOT::DEF-IS-REV VMLISP:SETDIFFERENCE
+            BOOT::DEF-SELECT2 BOOT::DEF-SELECT1 BOOT::|addInformation|
+            BOOT::|varIsOnlyVarInPoly| BOOT::|makeCategoryPredicates|
+            BOOT::|compDefWhereClause,addSuchthat| VMLISP:DIVIDE
+            BOOT::NOTEQUALLIBS VMLISP:GETL BOOT::|modemapPattern|
+            BOOT::|removeVectorElt| BOOT::GETALIST
+            BOOT::|buildDatabase| BOOT::|mathPrint1|
+            BOOT::|getInverseEnvironment| BOOT::|getSuccessEnvironment|
+            BOOT::|getSystemModemaps| BOOT::|insertWOC|
+            BOOT::|getModemapsFromDatabase| BOOT::|removeCoreModemaps|
+            BOOT::|SubstWhileDesizing| BOOT::|resolveTTUnion|
+            BOOT::|resolveTTEq| BOOT::|rightBindingPowerOf|
+            BOOT::/GETOPTION BOOT::|resolveTTCC|
+            BOOT::|leftBindingPowerOf| BOOT::|stackSemanticError|
+            BOOT::/GETTRACEOPTIONS BOOT::|resolveTTRed|
+            BOOT::/TRACELET-PRINT BOOT::|resolveTTSpecial|
+            BOOT::MONITOR-PRINT BOOT::|compareTT| BOOT::|opWidth|
+            BOOT::|isConstantId| BOOT::|acceptableTypesToResolve|
+            BOOT::|resolveTCat1| BOOT::|getConditionsForCategoryOnType|
+            BOOT::|resolveTTAny| BOOT::|resolveTMOrCroak|
+            BOOT::|outputMapTran0| BOOT::|spliceTypeListForEmptyMode|
+            BOOT::MONITOR-EVALTRAN BOOT::|constructTowerT|
+            BOOT::|throwKeyedMsg| BOOT::|canCoerceExplicit2Mapping|
+            BOOT::|term1RWall| BOOT::|absolutelyCannotCoerce|
+            BOOT::|rassocSub| BOOT::|coerceOrConvertOrRetract|
+            VMLISP:NCONC2 BOOT::|term1RW| BOOT::|coerceOrRetract|
+            BOOT::|resolveTMTaggedUnion| BOOT::|canCoerceUnion|
+            BOOT::|acceptableTypesToResolve1| BOOT::|canCoercePermute|
+            BOOT::|computeTTTranspositions| BOOT::|resolveTM2|
+            BOOT::|newCanCoerceCommute| BOOT::|coerceIntCommute|
+            BOOT::|resolveTMRed| BOOT::|coerceInt1| BOOT::|pmatch|
+            BOOT::/TRACE-1 BOOT::|resolveTMEq| BOOT::|getUnionMode|
+            BOOT::|resolveTMEq1| BOOT::|isUnionMode|
+            BOOT::|coerceInt2Union| BOOT::|resolveTMSpecial|
+            BOOT::|coerceIntFromUnion| VMLISP:REMAINDER
+            BOOT::|resolveTMRecord| BOOT::|resolveTMUnion|
+            BOOT::|isFunction| BOOT::|coerceIntAlgebraicConstant|
+            BOOT::|coerceIntTower| BOOT::|coerceRetract|
+            BOOT::|compareTypeLists| BOOT::|modifyModeStack|
+            BOOT::|replaceSymbols| BOOT::|coerceIntTableOrFunction|
+            BOOT::|isDomainForm| BOOT::|coerceIntSpecial|
+            BOOT::/TRACELET-2 BOOT::|SubstWhileDesizingList|
+            BOOT::|coerceIntPermute| BOOT::|getProplist|
+            BOOT::|coerceBranch2Union| BOOT::ASSOCIATER
+            BOOT::/TRACELET-1 BOOT::|retractByFunction|
+            BOOT::|constructT| BOOT::MONITOR-PRINARGS-1
+            BOOT::|outputComp| VMLISP:GGREATERP BOOT::|isDomainInScope|
+            BOOT::|canConvertByFunction| VMLISP:CGREATERP
+            BOOT::|canCoerceLocal| BOOT::|maxSuperType|
+            BOOT::|canCoerceTower| BOOT::/UPDATE-1 BOOT::|coerceInt0|
+            BOOT::|objSetMode| VMLISP:SORTBY BOOT::MONITOR-GETVALUE
+            VMLISP:|member| BOOT::MONITOR-EVALTRAN1
+            BOOT::|coerceIntByMapInner| BOOT::|getConstantFromDomain|
+            BOOT::|valueArgsEqual?| BOOT::|traceDomainConstructor|
+            BOOT::|coerceIntByMap| BOOT::|equalZero|
+            BOOT::|replaceLast| BOOT::|coerceIntTest| VMLISP:ADDOPTIONS
+            BOOT::|isSubTowerOf| BOOT::|starstarcond| BOOT::|equalOne|
+            VMLISP:|assoc| VMLISP:SETSIZE BOOT::|evalSharpOne|
+            VMLISP:EFFACE BOOT::|canCoerceCommute|
+            BOOT::|clearDependentMaps| BOOT::|constantInDomain?|
+            VMLISP:EMBED BOOT::|translateMpVars2PVars|
+            VMLISP:LEXGREATERP VMLISP:RPLPAIR
+            BOOT::|addDmpLikeTermsAsTarget| VMLISP:HPUT*
+            BOOT::|genMpFromDmpTerm| VMLISP:STRING2ID-N
+            BOOT::|htMakeTemplates,substLabel| BOOT::|doDoitButton|
+            VMLISP:$FINDFILE BOOT::|keyedMsgCompFailure| BOOT::|objNew|
+            BOOT::|putValue| BOOT::|getAtree| BOOT::|putModeSet|
+            VMLISP:$SHOWLINE VMLISP:RDROPITEMS BOOT::|bottomUpType|
+            BOOT::|bottomUpIdentifier| BOOT::|transferPropsToNode|
+            BOOT::|getArgValue| BOOT::|bottomUpCompilePredicate|
+            BOOT::|bottomUpPredicate| BOOT::|putTarget|
+            BOOT::|getMinimalVariableTower|
+            BOOT::|computeTypeWithVariablesTarget|
+            BOOT::|removeUnionsAtStart| BOOT::|pushDownOp?|
+            BOOT::|e02gafSolve,fc| BOOT::|e02gafSolve,fr|
+            BOOT::|sayIntelligentMessageAboutOpAvailability|
+            BOOT::|getBasicMode0| BOOT::|mkObjCode|
+            BOOT::|intCodeGenCOERCE| BOOT::|canCoerceByMap|
+            BOOT::|canCoerceByFunction| BOOT::|isSubDomain|
+            BOOT::|absolutelyCanCoerceByCheating|
+            BOOT::|e04ucfSolve,fa| BOOT::|coerceCommuteTest|
+            BOOT::|asyGetAbbrevFromComments,fn| BOOT::|asySplit|
+            BOOT::|asyWrap| BOOT::GETDATABASE
+            BOOT::|asyAbbreviation,chk| BOOT::|asyTypeJoinPart|
+            BOOT::|setVector4part3| BOOT::|sublisProp|
+            BOOT::|setVector12,freeof| BOOT::|setVector4Onecat,form|
+            BOOT::|asyDisplay| BOOT::ERROR-FORMAT
+            BOOT::|asyAbbreviation| BOOT::|asyCattranConstructors|
+            BOOT::|DomainPrint| BOOT::|makeSF| BOOT::|asySimpPred|
+            BOOT::|setVector0| BOOT::|setVector3| BOOT::DIVIDE2
+            BOOT::QUOTIENT2 BOOT::|htpSetName| BOOT::|sort|
+            BOOT::|defLET2| BOOT::|defLetForm| BOOT::|asyMapping|
+            BOOT::|defIS1| BOOT::|asySig| BOOT::|defISReverse|
+            BOOT::|addCARorCDR| BOOT::|defLET1|
+            BOOT::|asyExportAlist,fn| BOOT::|displayDatabase,fn|
+            BOOT::|quickAnd| BOOT::|asyCattranSig| BOOT::|asySigTarget|
+            BOOT::|asyMkSignature| BOOT::|asCategoryParts,build|
+            BOOT::/COMPINTERP BOOT::|unabbrevRecordComponent|
+            BOOT::|unabbrev1| BOOT::|makeByteWordVec2|
+            BOOT::|condAbbrev| BOOT::|unabbrevUnionComponent|
+            BOOT::|constructorNameConflict| BOOT::SPAD-PRINTTIME
+            BOOT::|htpLabelType| BOOT::|errorSupervisor|
+            BOOT::|sayErrorly1| BOOT::INTEGER-BIT BOOT::|chebeval|
+            BOOT::|rPsi| BOOT::|cpsireflect| BOOT::|cPsi|
+            BOOT::|BesselJRecur| BOOT::|substFromAlist|
+            BOOT::|BesselJAsymptOrder| BOOT::|BesselJAsympt|
+            BOOT::|PsiXotic| BOOT::|f01| BOOT::|brutef01|
+            BOOT::RBESSELJ BOOT::CPSI BOOT::RPSI BOOT::CHYPER0F1
+            BOOT::CBESSELI BOOT::RBESSELI BOOT::CBESSELJ
+            BOOT::|formatLazyDomainForm| BOOT::|formatLazyDomain|
+            BOOT::|getDomainSigs1| BOOT::|showDomainsOp1|
+            BOOT::|devaluateSlotDomain| BOOT::|getDomainRefName|
+            BOOT::|andDnf| BOOT::|ordUnion| BOOT::|coafAndDnf|
+            BOOT::|orDel| BOOT::|orDnf| BOOT::|dnfContains,fn|
+            BOOT::|andReduce| BOOT::|simpBoolGiven| BOOT::|dnfContains|
+            BOOT::|coafAndCoaf| BOOT::|ordIntersection|
+            BOOT::|ordSetDiff| BOOT::|coafOrDnf| BOOT::|predCircular|
+            BOOT::|clearAllSlams,fn| BOOT::|assocCircular|
+            BOOT::|recurrenceError| BOOT::|countCircularAlist|
+            BOOT::|displaySetVariableSettings| BOOT::|sayCacheCount|
+            BOOT::|chebstareval| BOOT::|BesselIAsymptOrder|
+            BOOT::|horner| BOOT::|BesselKAsymptOrder| BOOT::|cbeta|
+            BOOT::|PsiAsymptotic| BOOT::|PsiEps| BOOT::|FloatError|
+            BOOT::|cgammaG| BOOT::|besselIback| BOOT::|rPsiW|
+            BOOT::|firstNonDelim| BOOT::|chebf01| BOOT::|BesselJ|
+            BOOT::|BesselI| BOOT::|grepSplit| BOOT::|grepConstruct1|
+            BOOT::|grepConstructDo| BOOT::|mkGrepPattern1,h|
+            BOOT::|pfCoerceto| BOOT::|stripOffSegments|
+            BOOT::|pfFromdom| BOOT::|pfRetractTo| BOOT::|pfRestrict|
+            BOOT::|mkGrepPattern1,split| BOOT::|testInput2Output|
+            BOOT::|hyperize| BOOT::|testPrin| BOOT::|grepCombine|
+            BOOT::|subMatch| BOOT::|bcAbb| BOOT::|lfrinteger|
+            BOOT::|getFortranType| BOOT::|wl| BOOT::|scanIgnoreLine|
+            BOOT::|makeVector| BOOT::|htPred2English,fn| BOOT::|posend|
+            BOOT::|functionAndJacobian,DF| BOOT::|isString?|
+            BOOT::|bcOpTable| BOOT::|xdrOpen| BOOT::|scanExponent|
+            BOOT::|scanCheckRadix| BOOT::|coerceUn2E|
+            BOOT::|inFirstNotSecond| BOOT::|coerceVal2E|
+            BOOT::|EnumPrint| BOOT::|scanInsert| VMLISP::WRAP
+            BOOT::|RecordPrint| BOOT::|coerceRe2E|
+            BOOT::|syIgnoredFromTo| BOOT::|sySpecificErrorHere|
+            BOOT::|pfTree| BOOT::|makeList|
+            BOOT::|setVector4Onecat,Supplementaries| BOOT::|pfSuch|
+            BOOT::|compCategories1| BOOT::|pfParen| BOOT::|pfPretend|
+            BOOT::|pfComDefinition| BOOT::|pfMLambda|
+            BOOT::|resolvePatternVars| BOOT::|cons5|
+            BOOT::|makeMissingFunctionEntry| BOOT::|pfHide|
+            BOOT::|setVector5| BOOT::|d02kefSolve,fd|
+            BOOT::|mkVectorWithDeferral| BOOT::|d02kefSolve,fe|
+            BOOT::|d02gbfSolve,ff| BOOT::|pfBracketBar|
+            BOOT::|d02gbfSolve,fg| BOOT::|pfIdPos| BOOT::|ProcessCond|
+            BOOT::|DescendCodeAdd| BOOT::|LookUpSigSlots|
+            BOOT::|DomainPrintSubst| BOOT::|d02gbfSolve,fc|
+            BOOT::|partPessimise| BOOT::|d02gbfSolve,fd|
+            BOOT::|pfBraceBar| BOOT::|sublisProp,inspect|
+            BOOT::|pfTagged| BOOT::|HasCategory| BOOT::|d02gbfSolve,fa|
+            BOOT::|HasSignature| BOOT::|d02gbfSolve,fb|
+            BOOT::|HasAttribute| BOOT::|pfWDeclare|
+            BOOT::|InvestigateConditions,Conds| BOOT::|pfBracket|
+            BOOT::|pfDWhere| BOOT::|NewbFVectorCopy|
+            BOOT::|DescendCodeVarAdd| BOOT::|getDomainView|
+            BOOT::|pfBrace| BOOT::|d02gafSolve,fe|
+            BOOT::|d02gafSolve,fc| BOOT::|pfOr| BOOT::|pfAnd|
+            BOOT::|d03edfSolve,fb| BOOT::|pfTLam|
+            BOOT::|stringChar2Integer| BOOT::|reshape|
+            BOOT::|e01dafSolve,h| BOOT::|hashCombine|
+            BOOT::|e01dafSolve,k| BOOT::|hashType| VMLISP:$REPLACE
+            VMLISP:UNIONQ BOOT::|spadSysBranch|
+            BOOT::|htSystemVariables,gn| BOOT::|postFlatten|
+            BOOT::|gatherGlossLines| VMLISP:|intersection|
+            BOOT::|postFlattenLeft| BOOT::|postTranSegment|
+            VMLISP:DEFINE-FUNCTION BOOT::SEGMENT BOOT::|pfTyped|
+            BOOT::|postScriptsForm| BOOT::|htCheckList|
+            BOOT::|htSetvarDoneButton| BOOT::|htMakePathKey,fn|
+            BOOT::|npLeftAssoc| VMLISP:SETDIFFERENCEQ
+            BOOT::|htMarkTree| BOOT::|pfCollect| BOOT::|pfQualType|
+            BOOT::|deltaContour| BOOT::ADD-PARENS-AND-SEMIS-TO-LINE
+            BOOT::|getUniqueSignature| VMLISP:INTERSECTIONQ
+            BOOT::|AMFCR,redefinedList| BOOT::|putDomainsInScope|
+            BOOT::INITIAL-SUBSTRING BOOT::|compFormMatch,match|
+            BOOT::STOREBLANKS BOOT::|compFormMatch| BOOT::ESCAPED
+            BOOT::PARSEPILES BOOT::|addNewDomain| BOOT::|htDoNothing|
+            BOOT::|AMFCR,redefined| BOOT::|domainMember|
+            BOOT::|e04ycfSolve,fb| BOOT::MONITOR-WRITE
+            BOOT::|htpSetDomainPvarSubstList| BOOT::|coerceByModemap|
+            BOOT::|htpLabelFilter| BOOT::|profileDisplayOp|
+            BOOT::|htpLabelSpadType| BOOT::|pfAssign|
+            BOOT::|htpSetDomainVariableAlist| BOOT::|convertOrCroak|
+            BOOT::|htpSetDomainConditions|
+            BOOT::|intersectionEnvironment| BOOT::|pfRule|
+            BOOT::|coerceExit| BOOT::|resolveTM|
+            BOOT::|autoCoerceByModemap| BOOT::|coerceExtraHard|
+            BOOT::|hasType| BOOT::|getConstructorMode|
+            BOOT::|getConstructorFormOfMode| BOOT::|pfWhere|
+            BOOT::|coerceHard| BOOT::|npRightAssoc|
+            BOOT::|coerceSubset| BOOT::|reportCircularCacheStats|
+            BOOT::|mkCircularCountAlist| BOOT::|pfPushMacroBody|
+            BOOT::|pfMacro| BOOT::|coerceEasy| BOOT::|keyedSystemError|
+            BOOT::|chaseInferences| BOOT::|say2PerLineWidth|
+            BOOT::|getFormModemaps| BOOT::|prEnv,tran| BOOT::|qArg|
+            BOOT::|npMissingMate| BOOT::|canFit2ndEntry|
+            BOOT::|sayKeyedMsgLocal| BOOT::|mkUnion|
+            BOOT::|printEnv,tran| BOOT::|listTruncate|
+            BOOT::|newHasTest| BOOT::|makeCategoryForm|
+            BOOT::ADDOPERATIONS BOOT::ASHARPMKAUTOLOADFUNCTION
+            BOOT::|HGETandCount| BOOT::|consForHashLookup|
+            BOOT::|sayKeyedMsgAsTeX| BOOT::|SymMemQ| BOOT::|addToSlam|
+            BOOT::|throwPatternMsg| BOOT::DELDATABASE
+            BOOT::|sayPatternMsg| BOOT::|getKeyedMsgInDb|
+            BOOT::|lassocShift| BOOT::|htMakeTemplates|
+            BOOT::|isKeyedMsgInDb| BOOT::|patternVarsOf1|
+            BOOT::GETCONSTRUCTOR BOOT::|pfFromDom| BOOT::|symEqual|
+            BOOT::|domainEqualList| BOOT::SET-LIB-FILE-GETTER
+            BOOT::|pfApplication| BOOT::|rightJustifyString|
+            BOOT::|remHashEntriesWith0Count,fn|
+            BOOT::|globalHashtableStats| BOOT::|lassocShiftQ|
+            BOOT::|pfWDec| BOOT::|pileForest| BOOT::|canCoerce;|
+            BOOT::|pileForest1| BOOT::|canCoerce1| BOOT::DAASENAME
+            BOOT::|pileTree| BOOT::|eqpileTree| BOOT::|pileCtree|
+            BOOT::|resolveTT;| BOOT::WRAPDOMARGS BOOT::|evalCategory|
+            BOOT::|replaceSharps| BOOT::|ofCategory|
+            BOOT::|canCoerceFrom;| BOOT::|canCoerceFrom0|
+            BOOT::|isEqualOrSubDomain| BOOT::|hasCorrectTarget|
+            BOOT::MAKE-DATABASES BOOT::|resolveTT1|
+            BOOT::|applyWithOutputToString| BOOT::|isDomainSubst,fn|
+            BOOT::|isDomainSubst,findSub| BOOT::|insertModemap|
+            BOOT::|makeBigFloat| BOOT::REDUCTION-PRINT
+            BOOT::|mkAlistOfExplicitCategoryOps,fn| BOOT::REMOVER
+            BOOT::STACK-LOAD BOOT::ESCAPE-KEYWORDS BOOT::|allLASSOCs|
+            BOOT::MAKE-PARSE-FUNCTION1 BOOT::|pairList|
+            BOOT::INITIAL-SUBSTRING-P BOOT::|finalizeDocumentation,fn|
+            BOOT::|formatOpSignature| BOOT::|sayKeyedMsg|
+            BOOT::|transDocList| BOOT::MAKE-PARSE-FUNC-FLATTEN
+            BOOT::|recordAttributeDocumentation|
+            BOOT::|recordDocumentation|
+            BOOT::|recordSignatureDocumentation| BOOT::|macroExpand|
+            BOOT::|checkRewrite| BOOT::|checkComments|
+            BOOT::|checkExtract| BOOT::|checkTrim|
+            BOOT::|spadSysChoose| BOOT::|testError|
+            BOOT::|spadtestValueHook| BOOT::|checkIsValidType,fn|
+            BOOT::|transDoc| BOOT::|checkIndentedLines|
+            BOOT::SAYBRIGHTLY1 BOOT::|pvarPredTran| BOOT::|mkAbbrev|
+            BOOT::|addSuffix| BOOT::|processPackage,opt|
+            BOOT::|subTree| BOOT::|mkRepititionAssoc,mkRepfun|
+            BOOT::|setPackageLocals| BOOT::|UnionPrint|
+            BOOT::|JoinInner| BOOT::|objNewWrap|
+            BOOT::|coerceByFunction| BOOT::|MappingPrint|
+            BOOT::|parseTypeEvaluateArgs| BOOT::|createEnum|
+            BOOT::|parseTranCheckForRecord| BOOT::|installConstructor|
+            BOOT::|AncestorP| BOOT::|SourceLevelSubset|
+            BOOT::|JoinInner,AddPredicate| BOOT::|mkAnd| BOOT::|mkOr|
+            BOOT::|SigListUnion| BOOT::|PredImplies|
+            BOOT::|DescendantP| BOOT::|mkOr2| BOOT::|SigOpsubsume|
+            BOOT::|SourceLevelSubsume| BOOT::|compMakeCategoryObject|
+            BOOT::|MachineLevelSubset| BOOT::|MachineLevelSubsume|
+            BOOT::|SigListOpSubsume| BOOT::|SigEqual|
+            BOOT::|SigListMember| BOOT::|CategoryPrint| BOOT::|mkAnd2|
+            BOOT::|categoryParts,build|
+            BOOT::|catPairUnion,addConflict|
+            BOOT::|clearCategoryTable1| BOOT::|parseCases,casefn|
+            BOOT::|hasCat| BOOT::|superSub| BOOT::|encodeCategoryAlist|
+            BOOT::|simpCategoryOr| BOOT::|tempExtendsCat|
+            BOOT::CONVERSATION1 BOOT::|addDomainToTable|
+            BOOT::|mkCategoryOr| BOOT::/EMBED-Q
+            BOOT::|formalSubstitute|
+            BOOT::|updateCategoryTableForDomain|
+            BOOT::|simpCatHasAttribute| BOOT::|testExtend|
+            BOOT::|mergeOr| BOOT::|newHasTest,fn| BOOT::|simpOrUnion1|
+            BOOT::|updateCategoryTable| BOOT::|substDomainArgs|
+            BOOT::|NRTreplaceLocalTypes| BOOT::|dcOpPrint|
+            BOOT::|predicateBitIndex,pn| BOOT::|augmentPredCode|
+            BOOT::|mungeAddGensyms| BOOT::|htSayExpose|
+            BOOT::|makeCompactSigCode| BOOT::|evalDomainOpPred,process|
+            BOOT::|makeGoGetSlot| BOOT::|dbShowOpHeading|
+            BOOT::|makePrefixForm| BOOT::|dbShowOperationLines|
+            BOOT::|buildBitTable,fn| BOOT::|makeCompactDirect1|
+            BOOT::|augmentPredVector| BOOT::|simpOrDumb|
+            BOOT::|dbReduceByForm| BOOT::|dbContrivedForm|
+            BOOT::|dbReduceByOpSignature| BOOT::|dcOpLatchPrint|
+            BOOT::|reduceByGroup| BOOT::|dbGetCondition|
+            BOOT::|dbGetOrigin| BOOT::|koCatOps| BOOT::|modemap2Sig|
+            BOOT::|substInOrder| BOOT::|pairlis| BOOT::|getDcForm|
+            BOOT::|koCatAttrsAdd| BOOT::|getSubstInsert|
+            BOOT::|integerAssignment2Fortran1| BOOT::|koOps,fn|
+            BOOT::|getAllModemapsFromDatabase| BOOT::|koOps,merge|
+            BOOT::|exp2FortOptimizeCS1,pushCsStacks|
+            BOOT::|fortFormatTypes| BOOT::|segment2| BOOT::|whoUses|
+            BOOT::|fortranifyIntrinsicFunctionName|
+            BOOT::|expression2Fortran1| BOOT::|dispfortarrayexp|
+            BOOT::|fortFormatIfGoto| BOOT::|koCatAttrs|
+            BOOT::|dbGetContrivedForm| BOOT::|dispfortexpj|
+            BOOT::|assignment2Fortran1| BOOT::|beenHere|
+            BOOT::|dispfortexpf| BOOT::|htSayConstructor|
+            BOOT::|stringPrefix?| VMLISP::PUTINDEXTABLE
+            VMLISP::WRITE-INDEXTABLE BOOT::|NRTsetVector4Part2|
+            BOOT::|consDomainName| BOOT::|NRTencode|
+            BOOT::|consDomainForm| BOOT::|deltaTran| BOOT::|consSig|
+            BOOT::|NRTaddToSlam| BOOT::|deepChaseInferences|
+            BOOT::|c06gsfSolve,g| BOOT::|c06gsfSolve,f|
+            BOOT::|NRTdescendCodeTran| BOOT::|mergeAppend|
+            BOOT::|NRTgetLocalIndex1| BOOT::|vectorLocation|
+            BOOT::|c06frfSolve,fy| BOOT::|c06frfSolve,gy|
+            BOOT::|c06frfSolve,fx| BOOT::|c06frfSolve,gx|
+            BOOT::|c06gqfSolve,g| BOOT::|c06gqfSolve,f|
+            BOOT::|c06fpfSolve,f| BOOT::|c06fpfSolve,g|
+            BOOT::|c06fqfSolve,f| BOOT::|c06fqfSolve,g|
+            BOOT::|c06fufSolve,fy| BOOT::|c06fufSolve,gy|
+            BOOT::|c06fufSolve,fx| BOOT::|c06fufSolve,gx|
+            BOOT:|ListIsLength?| BOOT:|ListMemberQ?| BOOT:|ListMember?|
+            BOOT:|ListRemoveQ| BOOT:|ListNRemoveQ| BOOT:|ListUnion|
+            BOOT:|ListUnionQ| BOOT:|ListIntersection|
+            BOOT:|ListIntersectionQ| BOOT:|ListAdjoin|
+            BOOT:|ListAdjoinQ| BOOT:|AlistAssoc| BOOT:|AlistRemove|
+            BOOT:|AlistAssocQ| BOOT:|AlistRemoveQ| BOOT:|AlistAdjoinQ|
+            BOOT:|AlistUnionQ| BOOT::|rePackageTran|
+            BOOT::|ncINTERPFILE| BOOT:|TableUnset|
+            BOOT::|updateSymbolTable| FOAM:|printDFloat|
+            FOAM:|printSFloat| FOAM:|fputs| FOAM:|printBInt|
+            FOAM:|fputc| FOAM:|printSInt| FOAM:|printString|
+            FOAM:|printChar| BOOT::|incAppend| BOOT::|segment1|
+            BOOT::|intersectionContour,unifiable| BOOT::|getStatement|
+            BOOT::|deltaContour,contourDifference|
+            BOOT::|makeCommonEnvironment,makeSameLength| BOOT::DELLASOS
+            BOOT::|addContour,fn| BOOT::|fortranifyFunctionName|
+            BOOT::|displayOpModemaps| BOOT::|fortFormatTypes1|
+            BOOT::|f02aefSolve,l| FOAM:|PtrMagicEQ| BOOT::|hasOption|
+            BOOT::|intersectionContour| BOOT::|commandErrorIfAmbiguous|
+            BOOT::|intersectionContour,computeIntersection|
+            BOOT::|f04adfSolve,f| BOOT::|f04adfSolve,g|
+            BOOT::|makeCommonEnvironment| BOOT::|makeLiteral|
+            BOOT::|isLiteral| BOOT::|f04mcfSolve,f|
+            BOOT::|f04mcfSolve,g| BOOT::|f04qafSolve,h| BOOT::|mapInto|
+            BOOT::|f04qafSolve,k| BOOT::|stringMatches?|
+            BOOT::|basicMatch?| BOOT::|optionError|
+            BOOT::|displayProperties| BOOT::|mkErrorExpr,highlight|
+            BOOT::|f04adfSolve,fb| BOOT::|mkErrorExpr,highlight1|
+            BOOT::|coerce| BOOT::|numOfOccurencesOf| BOOT::|sublisR|
+            BOOT::|compMapCond''| BOOT::|getAndSay|
+            BOOT::|intersectionContour,interProplist| BOOT::|position|
+            BOOT::|satDownLink| BOOT::|getmodeOrMapping|
+            BOOT::|intersectionContour,compare|
+            BOOT::|intersectionContour,modeCompare|
+            BOOT::|getAbbreviation| BOOT::|koAttrs|
+            BOOT::|GEQNSUBSTLIST,GSUBSTinner| BOOT::|isCategoryForm|
+            BOOT::|resolve| BOOT::|convert| BOOT::|flatten|
+            BOOT::|f04jgfSolve,f| BOOT::|npsynonym|
+            BOOT::|f04jgfSolve,g| BOOT::|getImports,import|
+            BOOT::|f04arfSolve,f| BOOT::|f04arfSolve,g|
+            BOOT::|modeEqual| BOOT::|f04mbfSolve,l|
+            BOOT::|displayWarning| BOOT::|f04mbfSolve,o|
+            BOOT::|addContour| BOOT::|f04asfSolve,f|
+            BOOT::|f04asfSolve,g| BOOT::|deleteAssoc|
+            BOOT::|purgeNewConstructorLines|
+            BOOT::|filterListOfStrings| BOOT::|asyDocumentation,fn|
+            BOOT::|satisfiesRegularExpressions| BOOT::|displayProplist|
+            BOOT::|transformAndRecheckComments|
+            BOOT::|displaySemanticError| BOOT::|asySignature|
+            BOOT::|f04mbfSolve,h| BOOT::|asyTypeUnitDeclare|
+            BOOT::|f04mbfSolve,k| BOOT::|asyCatSignature|
+            BOOT::|dbSpreadComments| BOOT::|computeAncestorsOf|
+            BOOT::|descendantsOf| BOOT::|f04atfSolve,f|
+            BOOT::|f04atfSolve,g| BOOT::|f04adfSolve,gb|
+            BOOT::|reportOpsFromLisplib| BOOT::|f07fdfSolve,fa|
+            BOOT::|f07fdfSolve,fb| BOOT::|f07aefSolve,fa|
+            BOOT::|f07aefSolve,faa| BOOT::|f07adfSolve,fa|
+            BOOT::|f07adfSolve,fb| BOOT::|childArgCheck|
+            BOOT::|f07aefSolve,fb| BOOT::POSN1 BOOT::|assocCar|
+            BOOT::|childAssoc| BOOT::|f07fefSolve,fb|
+            BOOT::|f07fefSolve,fbb| BOOT::|ancestorsAdd|
+            BOOT::|f07fefSolve,fa| BOOT::|quickOr|
+            BOOT::|f07fefSolve,faa| BOOT::|f07aefSolve,fbb|
+            BOOT::|explodeIfs,gn| BOOT::|f01qdfSolve,fa|
+            BOOT::|f01qdfSolve,ga| BOOT::|dbGatherDataImplementation|
+            BOOT::|dbMakeSignature| BOOT::|dbExposed?|
+            BOOT::|getRegistry| BOOT::|opAlistCount|
+            BOOT::|f01rdfSolve,gb| BOOT::|bcStarSpaceOp|
+            BOOT::|evalDomainOpPred,convert| BOOT::|f02aefSolve,f|
+            BOOT:|Sort| BOOT::|f02aefSolve,g| BOOT:|SortInPlace|
+            BOOT::|evalDomainOpPred,evpred| BOOT::|f02aefSolve,h|
+            BOOT::|evalDomainOpPred,evpred1| BOOT::|f02abfSolve,f|
+            BOOT::|f02abfSolve,g| BOOT::|f02aafSolve,f|
+            BOOT::|f02aafSolve,g| BOOT::|evalDomainOpPred|
+            BOOT::|getDomainOpTable,memq| BOOT::|f02ajfSolve,h|
+            BOOT::|f02ajfSolve,l| BOOT::|superMatch?|
+            BOOT::|f02affSolve,f| BOOT::|f02affSolve,g|
+            BOOT:|ByteFileWriteLine| BOOT::NREVERSE-N
+            BOOT::|f02adfSolve,h| BOOT::|f02adfSolve,l|
+            FOAM:|fiSetDebugger| BOOT::TRUNCLIST-1
+            BOOT::|f02bjfSolve,h| BOOT::-REDUCE-OP
+            BOOT::|f02bjfSolve,l| BOOT::OR2 BOOT::|f02axfSolve,h|
+            BOOT::AND2 BOOT::|f02axfSolve,l| BOOT::|f02ajfSolve,f|
+            BOOT::REPEAT-TRAN BOOT::|f02ajfSolve,g| BOOT::MKPFFLATTEN
+            BOOT::|f02akfSolve,h| BOOT:|StreamSetPosition|
+            BOOT::|f02akfSolve,l| BOOT::MKPF1 BOOT::|f02axfSolve,f|
+            BOOT::|f02axfSolve,g| BOOT::-REPEAT BOOT::|f02xefSolve,fb|
+            BOOT::|CONTAINED,EQUAL| BOOT::|f02xefSolve,gb|
+            BOOT::|CONTAINED,EQ| BOOT::|f02awfSolve,h|
+            BOOT::|f02awfSolve,l| BOOT::|kPageArgs|
+            BOOT::|dbSubConform| BOOT::|f02akfSolve,f|
+            BOOT::|f02akfSolve,g| BOOT:|PathnameWithType|
+            BOOT::MARKHASH BOOT:|PathnameWithDirectory|
+            BOOT::|f02bjfSolve,f| BOOT::|f02bjfSolve,g|
+            BOOT::|f02adfSolve,f| BOOT::|f02adfSolve,g| BOOT::|,MIN|
+            BOOT:|PathnameWithinDirectory|
+            BOOT::|domainDescendantsOf,jfn|
+            BOOT::|domainDescendantsOf,catScreen| BOOT::|,MAX|
+            BOOT:|PathnameWithinOsEnvVar| BOOT::LEXLESSEQP
+            BOOT::|,DIFFERENCE| BOOT::GLESSEQP BOOT::MAKE-INIT-VECTOR
+            BOOT::|,TIMES| BOOT::|,PLUS| BOOT::|f02awfSolve,f|
+            BOOT::|f02awfSolve,g| BOOT::SUBB BOOT::|getCDTEntry|
+            BOOT::|f02xefSolve,fa| BOOT::|f02xefSolve,ga|
+            BOOT::|stuffSlots| BOOT::|domainDescendantsOf| BOOT::DO_LET
+            BOOT::|f02agfSolve,f| BOOT:|CsetMember?|
+            BOOT::|f02agfSolve,g| BOOT::|measureCommon,fn|
+            BOOT:|CsetUnion| BOOT::|f02wefSolve,fb|
+            BOOT::|f02wefSolve,gb| BOOT::|deleteWOC|
+            BOOT::|f02bbfSolve,f| BOOT::|next| BOOT::|f02bbfSolve,g|
+            BOOT::|suffix?| BOOT::|list2LongerVec|
+            BOOT::|f02wefSolve,fa| BOOT::|mkCurryFun|
+            BOOT::|f02wefSolve,ga| BOOT::|logicalMatch?|
+            BOOT::|subCopy0| BOOT::|patternCheck,wild|
+            BOOT:|StringFromToEnd| BOOT::|beforeAfter|
+            BOOT::|deepSubCopyOrNil| BOOT::|patternCheck,pos|
+            BOOT:|StringGreater?| BOOT::|deepSubCopy0| BOOT::|prefix?|
+            BOOT:|StringPrefix?| BOOT::|subCopyOrNil|
+            BOOT::|htpSetInputAreaAlist| BOOT::|termRW1|
+            BOOT::|processInteractive| BOOT::|termRW|
+            BOOT::|maskMatch?| BOOT::|tdAdd| BOOT::|filterByTopic|
+            BOOT::|addTopic2Documentation| BOOT::|addStats|
+            BOOT::|transferCodeCon| BOOT::|compileCases|
+            BOOT::|transferClassCodes| BOOT::|addArgumentConditions|
+            BOOT::|NRTassignCapsuleFunctionSlot|
+            BOOT::|reportSpadTrace| BOOT::BVEC-NOR BOOT::BVEC-NAND
+            BOOT::|addDomain| BOOT::|giveFormalParametersValues|
+            BOOT::PRINT-DEFUN BOOT::|augmentTraceNames|
+            BOOT::|stripOffSubdomainConditions|
+            BOOT::|untraceDomainLocalOps| BOOT::TRANSLABEL1
+            BOOT::|getOption| BOOT::TRANSLABEL BOOT::|traceOptionError|
+            BOOT::GET-GLIPH-TOKEN BOOT::|funfind,LAM|
+            BOOT::|mergePathnames| BOOT::|subTypes| BOOT::|lassocSub|
+            BOOT::|dbWordFrom| BOOT::|commandUserLevelError|
+            BOOT::|applyGrep| BOOT::|htButtonOn?|
+            BOOT::|generalSearchString| BOOT::|zsystemdevelopment1|
+            BOOT::|grepForAbbrev| BOOT::|match?| BOOT::|commandError|
+            BOOT::|optionUserLevelError| BOOT::|firstDelim| BOOT::/READ
+            BOOT::|kciReduceOpAlist| BOOT::|dbInfoTran|
+            BOOT::|koPageInputAreaUnchanged?| BOOT::|dbInfoWrapOrigin|
+            BOOT::|insert| BOOT::|dbInfoSigMatch| BOOT::|ancestorsOf|
+            BOOT::|compIterator| BOOT::|getIdentity|
+            BOOT::|augmentHasArgs| BOOT::|processInteractive1|
+            BOOT::|recordAndPrint| BOOT::|interpretTopLevel|
+            BOOT::|substituteSegmentedMsg|
+            BOOT::|dbSpecialExpandIfNecessary| BOOT::|sameUnionBranch|
+            BOOT::|htpSetPageDescription| BOOT::|testBitVector|
+            BOOT::|dbShowConsDoc| BOOT::|printTypeAndTimeNormal|
+            BOOT::|satTypeDownLink| BOOT::|printTypeAndTimeSaturn|
+            BOOT::|mkDocLink| BOOT::|addParameterTemplates|
+            BOOT::|hasPair| BOOT::|htpAddToPageDescription|
+            BOOT::|getAliasIfTracedMapParameter| BOOT::|pfAbSynOp?|
+            BOOT::|printTypeAndTime| BOOT::|phReportMsgs|
+            BOOT::|untraceDomainConstructor,keepTraced?|
+            BOOT::|htpButtonValue| BOOT::|htSayConstructorName|
+            BOOT::|getMapSig| BOOT::|spadTrace,isTraceable|
+            BOOT::|removeOption| BOOT::|screenLocalLine|
+            BOOT::|undoSteps| BOOT::|agg| BOOT::|diffAlist|
+            BOOT::|undoSingleStep| BOOT::|htSayBind|
+            BOOT::|bcConstructor| BOOT::|checkArgs|
+            BOOT::SPADTAGS-FROM-DIRECTORY BOOT::|matSuperList1|
+            BOOT::|getBindingPowerOf| BOOT::|matSubList1|
+            BOOT::|matWList1| BOOT::NAG-FILES BOOT::|htpLabelDefault|
+            BOOT::GET-NAG-CHAPTER BOOT::|setNAGBootAutloadProperties|
+            BOOT::|htpLabelErrorMsg| BOOT::|setBootAutloadProperties|
+            BOOT::|setUpDefault| BOOT::|setBootAutoLoadProperty|
+            BOOT::|mkBootAutoLoad| BOOT::|matWList| VMLISP::ECQEXP
+            BOOT::|npTypedForm1| BOOT::|htMakeDoitButton| BOOT::|prnd|
+            BOOT::|reportAO| BOOT::BVEC-XOR BOOT::BVEC-OR
+            VMLISP::DCQEXP BOOT::BVEC-AND BOOT::BVEC-GREATER
+            BOOT::BVEC-EQUAL BOOT::BVEC-CONCAT BOOT::|stringLE1|
+            BOOT::BVEC-MAKE-FULL BOOT::|scylla| BOOT::|mkSuperSub|
+            BOOT::|EqualBarGensym| BOOT::|pfReturn| BOOT::|pfSpread|
+            BOOT::|npTypedForm| BOOT::|after|
+            BOOT::|optCatch,changeThrowToGo|
+            BOOT::|optCatch,hasNoThrows|
+            BOOT::|optCatch,changeThrowToExit|
+            BOOT::|optimizeFunctionDef,replaceThrowByReturn|
+            BOOT::|optCallSpecially,lookup| BOOT::|EqualBarGensym,fn|
+            BOOT::|pfLp| BOOT::|optimizeFunctionDef,fn|
+            BOOT::|htpSetRadioButtonAlist| BOOT::|pfWrong|
+            BOOT::|pfForin| BOOT::|pfDefinition| BOOT::|pfReturnTyped|
+            BOOT::|pfLam| BOOT::|pfIfThenOnly| BOOT::|pfExit|
+            BOOT::|printNamedStatsByProperty| BOOT::|Delay|
+            BOOT::|initializeTimedNames| BOOT::|searchTailEnv|
+            BOOT::|searchCurrentEnv| BOOT::|search|
+            BOOT::|e04ycfSolve,fc| BOOT::|insertWOC,fn| BOOT::|mkObj|
+            VMLISP:|union| BOOT::|coerceInt| BOOT::|deleteAssocWOC|
+            BOOT::|e04nafSolve,fa| BOOT::|deleteAssocWOC,fn|
+            BOOT::|e04nafSolve,fb| BOOT::|deleteLassoc| BOOT::REMALIST
+            BOOT::|sublisNQ| BOOT::|BooleanEquality|
+            BOOT::|sublisNQ,fn| BOOT::|modemapsHavingTarget|
+            BOOT::|PPtoFile| BOOT::|positionInVec|
+            BOOT::|e04mbfSolve,fa| BOOT::|e04mbfSolve,fb|
+            BOOT::|mkIterVarSub| BOOT::|lazyOldAxiomDomainDevaluate|
+            BOOT::|lazyOldAxiomDomainHashCode| BOOT::|declare|
+            BOOT::|declareMap| BOOT::|concat1| BOOT::|upfreeWithType|
+            BOOT::|uplocalWithType| BOOT::|deleteAll|
+            BOOT::|oldAxiomCategoryDevaluate| BOOT::|SExprToDName|
+            BOOT::|oldAxiomPreCategoryDevaluate|
+            BOOT::|checkForFreeVariables| BOOT::|f01rdfSolve,fa|
+            BOOT::|f01rdfSolve,ga| BOOT::|oldAxiomDomainDevaluate|
+            BOOT::|newHasCategory| BOOT::|orderedDefaults|
+            BOOT::|f01rdfSolve,fb| BOOT::|attributeNthParent| BOOT:DROP
+            BOOT::|oldAxiomDomainHashCode| BOOT::|attributeHashCode|
+            BOOT::|oldAxiomPreCategoryHashCode|
+            BOOT::|attributeDevaluate| BOOT::|f01refSolve,fa|
+            BOOT::|f01refSolve,ga| BOOT::|oldAxiomCategoryHashCode|
+            BOOT:APPLYR BOOT::|f01qcfSolve,f| BOOT::|evalLET|
+            BOOT::|f01qcfSolve,g| BOOT::|domainEqual| BOOT:STRINGSUFFIX
+            BOOT::|f01qefSolve,fa| BOOT::|compileIs|
+            BOOT::|f01qefSolve,ga| BOOT::|f01rcfSolve,fa|
+            BOOT::|f01rcfSolve,ga| BOOT:CONVERSATION
+            BOOT::|evalLETchangeValue| BOOT::|isPatternMatch|
+            BOOT::|seteltable| BOOT::|intSayKeyedMsg|
+            BOOT::|upLispCall| BOOT::|genIFvalCode| BOOT::|evalLETput|
+            BOOT::|f01qdfSolve,fb| BOOT::|f01qdfSolve,gb|
+            BOOT::|intloopProcessString| BOOT::|ncloopDQlines|
+            BOOT::|intloopInclude1| BOOT::|intloopInclude|
+            BOOT::|upIFgenValue| BOOT::|putPvarModes|
+            BOOT::|ncloopPrefix?| BOOT::|intloopPrefix?|
+            BOOT::|phIntReportMsgs| BOOT::|processMsgList|
+            BOOT::|phParse| BOOT:TAKE BOOT::|isPatMatch|
+            BOOT::|intloopReadConsole| BOOT::|streamChop|
+            BOOT::|inclFname| BOOT::|incDrop| BOOT:SETANDFILE
+            BOOT:PUSH-REDUCTION BOOT::|inclmsgFileCycle|
+            BOOT::|assertCond| BOOT::|incActive?| BOOT:TAILFN
+            BOOT:RPLACW BOOT::|incStream| BOOT::|inclHandleSay|
+            BOOT::|inclHandleWarning| BOOT:FLAGP
+            BOOT::|inclHandleError| BOOT:?ORDER BOOT::|incRenumberLine|
+            BOOT::|incRenumberItem| BOOT::|lnSetGlobalNum| BOOT:S*
+            FOAM::ALLOC-PROG-INFO BOOT::|liftCond,lcAnd|
+            BOOT::|actOnInfo| BOOT::|mkJoin| BOOT::|plural|
+            BOOT::|e04ucfSolve,fb| BOOT:MAKENEWOP BOOT::|has|
+            BOOT::|containedRight| BOOT::|hashTypeForm| BOOT:CONTAINED
+            BOOT::|oldAxiomPreCategoryParents|
+            BOOT::|oldAxiomCategoryDefaultPackage| BOOT:POINTW
+            BOOT::|linearFormatForm| BOOT::|newHasAttribute|
+            BOOT::|oldAxiomCategoryParentCount|
+            BOOT::|findSubstitutionOrder?,fn| BOOT::|app2StringConcat0|
+            BOOT::|formDecl2String| BOOT::|sayLooking1|
+            BOOT::|formJoin1| BOOT::|app2StringWrap| BOOT:S-
+            BOOT::|mkLessOrEqual| BOOT::|formArguments2String|
+            BOOT::|putValueValue| BOOT::|asTupleNew| BOOT::|objSetVal|
+            BOOT::|objNewCode| FOAM-USER::H-ERROR BOOT::|displayRule|
+            BOOT::|coerceInteractive| BOOT::|canMakeTuple|
+            FOAM-USER::H-STRING BOOT:CARCDREXPAND
+            BOOT::|formatOpSymbol| FOAM-USER::H-INTEGER
+            BOOT::|addPatternPred| BOOT::|interpMap| BOOT::|mkLocalVar|
+            BOOT:/EMBED-1 BOOT::|findLocalVars1|
+            BOOT::|queryUserKeyedMsg| BOOT::|mkFreeVar|
+            BOOT::|findLocalVars|)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION NIL FIXNUM) BOOT::HEAPELAPSED
+            BOOT:|OsProcessNumber| BOOT::KCL-OS-PROCESS-NUMBER)) 
+(PROCLAIM
+    '(FTYPE (FUNCTION NIL (VALUES T T)) BOOT::MAKE-CLOSEDFN-NAME
+            BOOT::|genVariable| BOOT::|genSomeVariable|
+            BOOT::|genDomainVar| BOOT:GENVAR)) 
diff --git a/src/interp/intfile.boot b/src/interp/intfile.boot.pamphlet
index 883047da..1dcdcf2d 100644
--- a/src/interp/intfile.boot
+++ b/src/interp/intfile.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp intfile.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 )package "BOOT"
 
@@ -59,3 +75,9 @@ shoeStrings (stream)==
  
 --fetchKeyedMsg(key,b)== GET(key,"MSGS")
 --shoeInternFile '"/usr/local/scratchpad/cur/doc/msgs/co-eng.msgs"
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/intint.lisp b/src/interp/intint.lisp.pamphlet
index 0e53d571..d132ad87 100644
--- a/src/interp/intint.lisp
+++ b/src/interp/intint.lisp.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp intint.lisp}
+\author{Timothy Daly}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 ;; Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 ;; All rights reserved.
 ;;
@@ -29,6 +42,9 @@
 ;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 ;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 (in-package "BOOT")
 
@@ -114,13 +130,13 @@
 
 (defun |setCurrentLine| (s)
   (setq |$currentLine|
-        (cond ((null |$currentLine|) s)
-              ((stringp |$currentLine|)
-               (cons |$currentLine|
-                         (if (stringp s) (cons s nil) s)))
-              (t (rplacd (last |$currentLine|)
-                         (if (stringp s) (cons s nil) s))
-                 |$currentLine|))))
+	(cond ((null |$currentLine|) s)
+	      ((stringp |$currentLine|)
+	       (cons |$currentLine|
+			 (if (stringp s) (cons s nil) s)))
+	      (t (rplacd (last |$currentLine|)
+			 (if (stringp s) (cons s nil) s))
+		 |$currentLine|))))
 
 (defun |intnplisp| (s)
  (setq |$currentLine| s)
@@ -144,3 +160,9 @@
 ;;(defun |readingFile?| ()
 ;;  |$ReadingFile|)
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/iterator.boot b/src/interp/iterator.boot.pamphlet
index bdcea85b..52dae4f7 100644
--- a/src/interp/iterator.boot
+++ b/src/interp/iterator.boot.pamphlet
@@ -1,3 +1,20 @@
+\documentclass{article}
+\usepackage{axiom}
+
+\title{\File{src/interp/iterator.boot} Pamphlet}
+\author{The Axiom Team}
+
+\begin{document}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+
+\section{License}
+
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +46,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 --% ITERATORS
  
@@ -291,3 +311,9 @@ modeIsAggregateOf(ListOrVector,m,e) ==
 --  FIXP x and FIXP y => DIFFERENCE(x,y)
 --  ["DIFFERENCE",x,y]
  
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot.pamphlet
index 4075f572..bffb777e 100644
--- a/src/interp/lisplib.boot
+++ b/src/interp/lisplib.boot.pamphlet
@@ -1,3 +1,20 @@
+\documentclass{article}
+\usepackage{axiom}
+
+\title{\File{src/interp/lisplib.boot} Pamphlet}
+\author{The Axiom Team}
+
+\begin{document}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+
+\section{License}
+
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +46,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 --% Standard Library Creation Functions
  
@@ -237,7 +257,7 @@ systemDependentMkAutoload(fn,cnam) ==
          kind := GETDATABASE(cnam, 'CONSTRUCTORKIND)
          cosig := GETDATABASE(cnam, 'COSIG)
          file := GETDATABASE(cnam, 'OBJECT)
-         SET_-LIB_-FILE_-GETTER(file, cnam)
+	 SET_-LIB_-FILE_-GETTER(file, cnam)
          kind = 'category =>
               ASHARPMKAUTOLOADCATEGORY(file, cnam, asharpName, cosig)
          ASHARPMKAUTOLOADFUNCTOR(file, cnam, asharpName, cosig)
@@ -320,7 +340,7 @@ compDefineLisplib(df:=["DEF",[op,:.],:.],m,e,prefix,fal,fn) ==
   $libFile: local := NIL
   $lisplibVariableAlist: local := NIL
 --  $lisplibRelatedDomains: local := NIL   --from ++ Related Domains: see c-doc
-  $lisplibCategory: local := nil        
+  $lisplibCategory: local := nil	
   --for categories, is rhs of definition; otherwise, is target of functor
   --will eventually become the "constructorCategory" property in lisplib
   --set in compDefineCategory1 if category, otherwise in finalizeLisplib
@@ -340,7 +360,7 @@ compDefineLisplib(df:=["DEF",[op,:.],:.],m,e,prefix,fal,fn) ==
       PROGN(res:= FUNCALL(fn,df,m,e,prefix,fal),
             sayMSG ['"   finalizing ",$spadLibFT,:bright libName],
             finalizeLisplib libName,
-            ok := true),
+	    ok := true),
       RSHUT $libFile)
   if ok then lisplibDoRename(libName)
   filearg := $FILEP(libName,$spadLibFT,$libraryDirectory)
@@ -684,3 +704,9 @@ isFunctor x ==
  
  
  
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/macex.boot b/src/interp/macex.boot.pamphlet
index b638600a..a275c59b 100644
--- a/src/interp/macex.boot
+++ b/src/interp/macex.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp macex.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 )package "BOOT"
 
@@ -187,3 +203,9 @@ mac0InfiniteExpansion(posn, body, active) ==
        [ [:[n,'"==>"] for n in reverse rnames], fname, %pform body ]  )
  
     body
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/match.boot b/src/interp/match.boot.pamphlet
index 95627777..132b99f9 100644
--- a/src/interp/match.boot
+++ b/src/interp/match.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp match.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 SETANDFILEQ($wildCard,char "*")
 
@@ -218,3 +234,9 @@ suffix?(s,t) ==
   substring?(s,t,(n-m))
 
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/modemap.boot b/src/interp/modemap.boot.pamphlet
index 67f7dcee..e5af0fac 100644
--- a/src/interp/modemap.boot
+++ b/src/interp/modemap.boot.pamphlet
@@ -1,3 +1,20 @@
+\documentclass{article}
+\usepackage{axiom}
+
+\title{\$SPAD/src/interp modemap.boot}
+\author{The Axiom Team}
+
+\begin{document}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+
+\section{License}
+
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +46,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 --% EXTERNAL ROUTINES
  
@@ -351,3 +371,9 @@ putDomainsInScope(x,e) ==
   $insideCapsuleFunctionIfTrue => ($CapsuleDomainsInScope:= newValue; e)
   put("$DomainsInScope","special",newValue,e)
  
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/msg.boot b/src/interp/msg.boot.pamphlet
index d800554a..ac311779 100644
--- a/src/interp/msg.boot
+++ b/src/interp/msg.boot.pamphlet
@@ -1,3 +1,20 @@
+\documentclass{article}
+\usepackage{axiom}
+
+\title{\File{src/interp/msg.boot} Pamphlet}
+\author{The Axiom Team}
+
+\begin{document}
+\maketitle
+\begin{abstract}
+\end{abstract}
+
+\tableofcontents
+\eject
+
+\section{License}
+
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +46,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 )package "BOOT"
 
@@ -549,3 +569,9 @@ setMsgText (msg,val) == msg.5 := val
  
 
  
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/nag-c02.boot b/src/interp/nag-c02.boot.pamphlet
index 8e7434c9..ed5821e7 100644
--- a/src/interp/nag-c02.boot
+++ b/src/interp/nag-c02.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp nag-c02.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 c02aff() ==
   htInitPage('"C02AFF - All Zeros of a Complex Polynomial",nil)
@@ -50,7 +66,7 @@ c02aff() ==
     (text . "\newline")
     (text . "\newline \menuitemstyle{} \tab{2} Scale value:")
     (radioButtons scale
-        ("" "  True" true)
+	("" "  True" true)
         ("" "  False" false))
     (text . "\blankline ")
     (text . "\newline \menuitemstyle{} \tab{2} Ifail value:")
@@ -88,7 +104,7 @@ c02affSolve htPage ==
         (isDomain P (Polynomial $EmptyMode))
          (isDomain S (String))
           (isDomain PI (PositiveInteger))),
-            :labelList]
+	    :labelList]
   page := htInitPage("C02AFF - All Zeros of a Complex Polynomial", htpPropertyList htPage)
   htSay '"\menuitemstyle{} \tab{2} Enter the coefficients of the polynomial: "
   htSay '"\blankline "
@@ -149,7 +165,7 @@ c02affDefaultSolve (htPage, scale, ifail) ==
     (bcStrings (10 "1.0" i6 F))
     (text . "\newline ")
     (text . "\blankline"))
-  htMakeDoneButton('"Continue",'c02affGen)      
+  htMakeDoneButton('"Continue",'c02affGen)    	
   htpSetProperty(page,'n,n)
   htpSetProperty(page,'scale,scale)
   htpSetProperty(page,'ifail,ifail)
@@ -194,7 +210,7 @@ c02agf() ==
     (text . "\newline")
     (text . "\newline \menuitemstyle{} \tab{2} Scale value:")
     (radioButtons scale
-        ("" "  True" true)
+	("" "  True" true)
         ("" "  False" false))
     (text . "\blankline ")
     (text . "\newline \menuitemstyle{} \tab{2} Ifail value:")
@@ -228,7 +244,7 @@ c02agfSolve htPage ==
         (isDomain P (Polynomial $EmptyMode))
          (isDomain S (String))
           (isDomain PI (PositiveInteger))),
-            :labelList]
+	    :labelList]
   page := htInitPage("C02AGF - All Zeros of a Real Polynomial", htpPropertyList htPage)
   htSay '"\menuitemstyle{} \tab{2} "
   htSay '"Enter the coefficients of the polynomial: "
@@ -270,7 +286,7 @@ c02agfDefaultSolve (htPage, scale, ifail) ==
     (bcStrings (10 "6.0" r6 F))
     (text . "\newline ")
     (text . "\blankline"))
-  htMakeDoneButton('"Continue",'c02agfGen)      
+  htMakeDoneButton('"Continue",'c02agfGen)    	
   htpSetProperty(page,'n,n)
   htpSetProperty(page,'scale,scale)
   htpSetProperty(page,'ifail,ifail)
@@ -292,3 +308,9 @@ c02agfGen htPage ==
   linkGen STRCONC ('"c02agf([",realstring,"],",STRINGIMAGE n,",",scale,",",STRINGIMAGE ifail,")")
 
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/nag-c05.boot b/src/interp/nag-c05.boot.pamphlet
index ef7f9554..8b49400d 100644
--- a/src/interp/nag-c05.boot
+++ b/src/interp/nag-c05.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp nag-c05.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 c05adf() ==
   htInitPage('"C05ADF - Zero of continuous function in given interval, Bus and Dekker algorithm",nil)
@@ -160,10 +176,10 @@ c05nbfSolve htPage ==
   funcList := [:funcList,middle,:vecList]
   equationPart := [
      '(domainConditions 
-        (isDomain EM $EmptyMode)
+	(isDomain EM $EmptyMode)
           (isDomain F (Float))
-            (isDomain I (Integer))),
-                :funcList]
+	    (isDomain I (Integer))),
+ 		:funcList]
   page := htInitPage("C05NBF - Solution of system of nonlinear equations using function values only", htpPropertyList htPage)
   htSay '"\menuitemstyle{}\tab{2} "
   htSay '"Enter the functions \htbitmap{fi} below in terms of X[1]...X[n]: "
@@ -236,10 +252,10 @@ c05nbfGen htPage ==
   while y repeat
     if i < (n+1) then 
       temp1 := STRCONC ((first y).1," ")
-      temp1list := [temp1,:temp1list]   
+      temp1list := [temp1,:temp1list]	
     else
       temp2 := (first y).1
-      temp2list := [temp2,:temp2list]   
+      temp2list := [temp2,:temp2list]	
     y := rest y
     i := i + 1
   string1 := bcwords2liststring temp1list
@@ -310,10 +326,10 @@ c05pbfSolve htPage ==
   funcList := [:funcList,middle,:vecList]
   equationPart := [
      '(domainConditions 
-        (isDomain EM $EmptyMode)
+	(isDomain EM $EmptyMode)
           (isDomain F (Float))
-            (isDomain I (Integer))),
-                :funcList]
+	    (isDomain I (Integer))),
+ 		:funcList]
   page := htInitPage('"C05PBF - Solution of system of nonlinear equations using first derivatives",htpPropertyList htPage)
   htSay '"\menuitemstyle{}\tab{2} "
   htSay '"Enter the functions \htbitmap{fi} below in terms of X[1]...X[n]: "
@@ -386,10 +402,10 @@ c05pbfGen htPage ==
   while y repeat
     if i < (n+1) then 
       temp1 := STRCONC ((first y).1," ")
-      temp1list := [temp1,:temp1list]   
+      temp1list := [temp1,:temp1list]	
     else
       temp2 := (first y).1
-      temp2list := [temp2,:temp2list]   
+      temp2list := [temp2,:temp2list]	
     y := rest y
     i := i + 1
   string1 := bcwords2liststring temp1list
@@ -400,3 +416,9 @@ c05pbfGen htPage ==
   middle := STRCONC (middle,xtol,",",STRINGIMAGE ifail,",")
   linkGen STRCONC (prefix,middle,"(",string2,"::Vector Expression(Float))::ASP35(FCN))")
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/nag-c06.boot b/src/interp/nag-c06.boot.pamphlet
index 1d7b98ba..6bf1b75b 100644
--- a/src/interp/nag-c06.boot
+++ b/src/interp/nag-c06.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp nag-c06.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 c06eaf() ==
   htInitPage('"C06EAF - Single 1-D real discrete Fourier transform ",nil)
@@ -74,7 +90,7 @@ c06eafSolve htPage ==
   equationPart := [ 
      '(domainConditions 
         (isDomain F (Float))),
-            :labelList]
+	    :labelList]
   page := htInitPage("C06EAF - Single 1-D real discrete Fourier transform ", htpPropertyList htPage)
   htSay '"\menuitemstyle{} \tab{2} "
   htSay '"Enter the sequence to be transformed: "
@@ -117,7 +133,7 @@ c06eafDefaultSolve (htPage, ifail) ==
     (text . "Note : On exit, the transformed sequence is stored ")
     (text . "in Hermitian form ")
     (text . "\blankline "))
-  htMakeDoneButton('"Continue",'c06eafGen)      
+  htMakeDoneButton('"Continue",'c06eafGen)    	
   htpSetProperty(page,'n,n)
   htpSetProperty(page,'ifail,ifail)
   htpSetProperty(page,'inputArea, htpInputAreaAlist htPage)
@@ -179,7 +195,7 @@ c06ebfSolve htPage ==
   equationPart := [ 
      '(domainConditions 
         (isDomain F (Float))),
-            :labelList]
+	    :labelList]
   page := htInitPage("C06EBF - Single 1-D real discrete Fourier transform ", htpPropertyList htPage)
   htSay '"\menuitemstyle{} \tab{2} "
   htSay '"Enter the sequence to be transformed, stored in Hermitian form: "
@@ -220,7 +236,7 @@ c06ebfDefaultSolve (htPage, ifail) ==
     (text . "\blankline ")
     (text . "Note : On exit, the components of the discrete Fourier transform")
     (text . "\blankline "))
-  htMakeDoneButton('"Continue",'c06ebfGen)      
+  htMakeDoneButton('"Continue",'c06ebfGen)    	
   htpSetProperty(page,'n,n)
   htpSetProperty(page,'ifail,ifail)
   htpSetProperty(page,'inputArea, htpInputAreaAlist htPage)
@@ -289,7 +305,7 @@ c06ecfSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
           (isDomain PI (PositiveInteger))),
-            :labelList]
+	    :labelList]
   page := htInitPage("C06ECF - Single 1-D complex discrete Fourier transform ",htpPropertyList htPage)
   htSay '"\menuitemstyle{}\tab{2} Real parts of sequence: \tab{30} "
   htSay '"\menuitemstyle{}\tab{32} Imaginary parts: "
@@ -339,7 +355,7 @@ c06ecfDefaultSolve (htPage, ifail) ==
     (text . "\tab{32} ")
     (bcStrings (10 "0.16298" y7 F))
     (text . "\blankline"))
-  htMakeDoneButton('"Continue",'c06ecfGen)      
+  htMakeDoneButton('"Continue",'c06ecfGen)    	
   htpSetProperty(page,'n,n)
   htpSetProperty(page,'ifail,ifail)
   htpSetProperty(page,'inputArea, htpInputAreaAlist htPage)
@@ -423,7 +439,7 @@ c06ekfSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
           (isDomain PI (PositiveInteger))),
-            :labelList]
+	    :labelList]
   page := htInitPage("C06EKF - Single 1-D complex discrete Fourier transform ",htpPropertyList htPage)
   htSay '"\menuitemstyle{}\tab{2} Elements of period of vector {\em x}: "
   htSay '"\tab{31} "
@@ -483,7 +499,7 @@ c06ekfDefaultSolve (htPage, job, ifail) ==
     (text . "\tab{34} ")
     (bcStrings (10 "0.00" y9 F))
     (text . "\blankline"))
-  htMakeDoneButton('"Continue",'c06ekfGen)      
+  htMakeDoneButton('"Continue",'c06ekfGen)    	
   htpSetProperty(page,'n,n)
   htpSetProperty(page,'ifail,ifail)
   htpSetProperty(page,'job,job)
@@ -582,7 +598,7 @@ c06fpfSolve htPage ==
   equationPart := [ 
      '(domainConditions 
         (isDomain F (Float))),
-            :matList,:trigList]
+	    :matList,:trigList]
   page := htInitPage("C06FPF - Multiple 1-D real discrete Fourier transform ", htpPropertyList htPage)
   htSay '"\menuitemstyle{} \tab{2} "
   htSay '"Enter each sequence to be transformed, {\it x}. "
@@ -660,7 +676,7 @@ c06fpfDefaultSolve (htPage, init,ifail) ==
     (text . "\newline \tab{2} ")
     (bcStrings (6 "0.0" t12 F))
     (text . "\blankline "))
-  htMakeDoneButton('"Continue",'c06fpfGen)      
+  htMakeDoneButton('"Continue",'c06fpfGen)    	
   htpSetProperty(page,'n,n)
   htpSetProperty(page,'m,m)
   htpSetProperty(page,'init,init)
@@ -765,7 +781,7 @@ c06fqfSolve htPage ==
   equationPart := [ 
      '(domainConditions 
         (isDomain F (Float))),
-            :matList,:trigList]
+	    :matList,:trigList]
   page := htInitPage("C06FQF - Multiple 1-D Hermitian discrete Fourier transform ", htpPropertyList htPage)
   htSay '"\menuitemstyle{} \tab{2} "
   htSay '"Enter each sequence to be transformed, {\it x}. "
@@ -843,7 +859,7 @@ c06fqfDefaultSolve (htPage, init,ifail) ==
     (text . "\newline \tab{2} ")
     (bcStrings (6 "0.0" t12 F))
     (text . "\blankline "))
-  htMakeDoneButton('"Continue",'c06fqfGen)      
+  htMakeDoneButton('"Continue",'c06fqfGen)    	
   htpSetProperty(page,'n,n)
   htpSetProperty(page,'m,m)
   htpSetProperty(page,'init,init)
@@ -961,7 +977,7 @@ c06frfSolve htPage ==
   equationPart := [ 
      '(domainConditions 
         (isDomain F (Float))),
-            :xList,:yList,:trigList]
+	    :xList,:yList,:trigList]
   page := htInitPage("C06FRF - Multiple 1-D real discrete Fourier transform ", htpPropertyList htPage)
   htSay '"\menuitemstyle{} \tab{2} "
   htSay '"Enter the real parts of each sequence to be transformed, {\it x}. "
@@ -1069,7 +1085,7 @@ c06frfDefaultSolve (htPage, init,ifail) ==
     (text . "\newline \tab{2} ")
     (bcStrings (6 "0.0" t12 F))
     (text . "\blankline "))
-  htMakeDoneButton('"Continue",'c06frfGen)      
+  htMakeDoneButton('"Continue",'c06frfGen)    	
   htpSetProperty(page,'n,n)
   htpSetProperty(page,'m,m)
   htpSetProperty(page,'init,init)
@@ -1201,7 +1217,7 @@ c06fufSolve htPage ==
   equationPart := [ 
      '(domainConditions 
         (isDomain F (Float))),
-            :xList,:yList,:trigmList,:trignList]
+	    :xList,:yList,:trigmList,:trignList]
   page := htInitPage("C06FUF - 2-D complex discrete Fourier transform ", htpPropertyList htPage)
   htSay '"\menuitemstyle{} \tab{2} "
   htSay '"Enter the real part of each sequence to be transformed, {\it x}. "
@@ -1312,7 +1328,7 @@ c06fufDefaultSolve (htPage, init,ifail) ==
     (text . "\newline \tab{2} ")
     (bcStrings (6 "0.0" tn10 F))
     (text . "\blankline "))
-  htMakeDoneButton('"Continue",'c06fufGen)      
+  htMakeDoneButton('"Continue",'c06fufGen)    	
   htpSetProperty(page,'n,n)
   htpSetProperty(page,'m,m)
   htpSetProperty(page,'init,init)
@@ -1397,7 +1413,7 @@ c06gbfSolve htPage ==
   equationPart := [ 
      '(domainConditions 
         (isDomain F (Float))),
-            :labelList]
+	    :labelList]
   page := htInitPage("C06GBF - Complex conjugate of a Hermitian sequence ", htpPropertyList htPage)
   htSay '"\menuitemstyle{} \tab{2} "
   htSay '"Enter the Hermitian sequence to be transformed stored in Hermitian form: "
@@ -1439,7 +1455,7 @@ c06gbfDefaultSolve (htPage, ifail) ==
     (text . "\blankline ")
     (text . "Note : On exit, the imaginary values are negated ")
     (text . "\blankline "))
-  htMakeDoneButton('"Continue",'c06gbfGen)      
+  htMakeDoneButton('"Continue",'c06gbfGen)    	
   htpSetProperty(page,'n,n)
   htpSetProperty(page,'ifail,ifail)
   htpSetProperty(page,'inputArea, htpInputAreaAlist htPage)
@@ -1503,7 +1519,7 @@ c06gcfSolve htPage ==
   equationPart := [ 
      '(domainConditions 
         (isDomain F (Float))),
-            :labelList]
+	    :labelList]
   page := htInitPage("C06GCF - Complex conjugate of a Hermitian sequence ", htpPropertyList htPage)
   htSay '"\menuitemstyle{} \tab{2} "
   htSay '"Enter the imaginary parts of the sequence: "
@@ -1544,7 +1560,7 @@ c06gcfDefaultSolve (htPage, ifail) ==
     (text . "\blankline ")
     (text . "Note : On exit, these values are negated ")
     (text . "\blankline "))
-  htMakeDoneButton('"Continue",'c06gcfGen)      
+  htMakeDoneButton('"Continue",'c06gcfGen)    	
   htpSetProperty(page,'n,n)
   htpSetProperty(page,'ifail,ifail)
   htpSetProperty(page,'inputArea, htpInputAreaAlist htPage)
@@ -1623,7 +1639,7 @@ c06gqfSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
           (isDomain PI (PositiveInteger))),
-            :newList]
+	    :newList]
   page := htInitPage("C06GQF - Complex conjugate of multiple Hermitian sequences ",htpPropertyList htPage)
   htSay '"\newline "
   htSay '"\menuitemstyle{}\tab{2} Please enter each sequence to be "
@@ -1674,7 +1690,7 @@ c06gqfDefaultSolve (htPage, ifail) ==
     (bcStrings (6 "0.8723" y26 F))
     (bcStrings (6 "0.4815" y36 F))
     (text . "\blankline"))
-  htMakeDoneButton('"Continue",'c06gqfGen)      
+  htMakeDoneButton('"Continue",'c06gqfGen)    	
   htpSetProperty(page,'n,n)
   htpSetProperty(page,'m,m)
   htpSetProperty(page,'ifail,ifail)
@@ -1757,7 +1773,7 @@ c06gsfSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
           (isDomain PI (PositiveInteger))),
-            :newList]
+	    :newList]
   page := htInitPage("C06GSF - Convert Hermitian sequences to general complex sequences ",htpPropertyList htPage)
   htSay '"\newline "
   htSay '"\menuitemstyle{}\tab{2} Please enter each sequence to be "
@@ -1808,7 +1824,7 @@ c06gsfDefaultSolve (htPage, ifail) ==
     (bcStrings (6 "0.8723" y26 F))
     (bcStrings (6 "0.4815" y36 F))
     (text . "\blankline"))
-  htMakeDoneButton('"Continue",'c06gsfGen)      
+  htMakeDoneButton('"Continue",'c06gsfGen)    	
   htpSetProperty(page,'n,n)
   htpSetProperty(page,'m,m)
   htpSetProperty(page,'ifail,ifail)
@@ -1830,3 +1846,9 @@ c06gsfGen htPage ==
   linkGen STRCONC ('"c06gsf(",STRINGIMAGE m,",",STRINGIMAGE n,",[",realstring,"],", STRINGIMAGE ifail,")")
 
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/nag-d01.boot b/src/interp/nag-d01.boot.pamphlet
index bb26e03c..a4b2f373 100644
--- a/src/interp/nag-d01.boot
+++ b/src/interp/nag-d01.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp nag-d01.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,14 +42,17 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 d01ajf() ==
   htInitPage('"D01AJF - 1-D quadrature, adaptive, finite interval, allowing for badly-behaved integrands", nil)
   htMakePage '(
     (domainConditions
-        (isDomain EM $EmptyMode)
-        (isDomain PI (PositiveInteger))
-        (isDomain F (Float)))
+	(isDomain EM $EmptyMode)
+	(isDomain PI (PositiveInteger))
+	(isDomain F (Float)))
     (text . "\windowlink{Manual Page}{manpageXXd01ajf} for this routine ")
     (text . "\newline ")
     (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|d01ajf| '|NagIntegrationPackage|)} for this routine")
@@ -108,9 +124,9 @@ d01akf() ==
   htInitPage('"D01AKF - 1-D quadrature, adaptive, finite interval, method suitable for oscillating functions", nil)
   htMakePage '(
     (domainConditions
-        (isDomain EM $EmptyMode)
-        (isDomain PI (PositiveInteger))
-        (isDomain F (Float)))
+	(isDomain EM $EmptyMode)
+	(isDomain PI (PositiveInteger))
+	(isDomain F (Float)))
     (text . "\windowlink{Manual Page}{manpageXXd01akf} for this routine ")
     (text . "\newline ")
     (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|d01akf| '|NagIntegrationPackage|)} for this routine")
@@ -182,9 +198,9 @@ d01alf() ==
   htInitPage('"D01ALF - 1-D quadrature, adaptive, finite interval, allowing for singularities at user-specified break-points ", nil)
   htMakePage '(
     (domainConditions
-        (isDomain EM $EmptyMode)
-        (isDomain PI (PositiveInteger))
-        (isDomain F (Float)))
+	(isDomain EM $EmptyMode)
+	(isDomain PI (PositiveInteger))
+	(isDomain F (Float)))
     (text . "\windowlink{Manual Page}{manpageXXd01alf} for this routine ")
     (text . "\newline ")
     (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|d01alf| '|NagIntegrationPackage|)} for this routine")
@@ -274,9 +290,9 @@ d01amf() ==
   htInitPage('"D01AMF   1-D quadrature, adaptive, infinite or semi-infinite interval",nil)
   htMakePage '(
     (domainConditions
-        (isDomain EM $EmptyMode)
-        (isDomain PI (PositiveInteger))
-        (isDomain F (Float)))
+	(isDomain EM $EmptyMode)
+	(isDomain PI (PositiveInteger))
+	(isDomain F (Float)))
     (text . "\windowlink{Manual Page}{manpageXXd01amf} for this routine ")
     (text . "\newline ")
     (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|d01amf| '|NagIntegrationPackage|)} for this routine")
@@ -358,9 +374,9 @@ d01anf() ==
   htInitPage('"D01ANF - 1-D quadrature, adaptive, finite interval, weight function cos(\omega x) or sin(\omega x)", nil)
   htMakePage '(
     (domainConditions
-        (isDomain EM $EmptyMode)
-        (isDomain PI (PositiveInteger))
-        (isDomain F (Float)))
+	(isDomain EM $EmptyMode)
+	(isDomain PI (PositiveInteger))
+	(isDomain F (Float)))
     (text . "\windowlink{Manual Page}{manpageXXd01anf} for this routine ")
     (text . "\newline ")
     (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|d01anf| '|NagIntegrationPackage|)} for this routine")
@@ -448,9 +464,9 @@ d01apf() ==
   htInitPage('"D01APF - 1-D quadrature, adaptive, finite interval, weight function with end point singularities of algebraico-logarithmic type", nil)
   htMakePage '(
     (domainConditions
-        (isDomain EM $EmptyMode)
-        (isDomain PI (PositiveInteger))
-        (isDomain F (Float)))
+	(isDomain EM $EmptyMode)
+	(isDomain PI (PositiveInteger))
+	(isDomain F (Float)))
     (text . "\windowlink{Manual Page}{manpageXXd01apf} for this routine ")
     (text . "\newline ")
     (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|d01apf| '|NagIntegrationPackage|)} for this routine")
@@ -549,9 +565,9 @@ d01aqf() ==
   htInitPage('"D01AQF - 1-D quadrature, adaptive, finite interval, weight function 1/(x-c), Cauchy principal value (Hilbert transform)",nil)
   htMakePage '(
     (domainConditions
-        (isDomain EM $EmptyMode)
-        (isDomain PI (PositiveInteger))
-        (isDomain F (Float)))
+	(isDomain EM $EmptyMode)
+	(isDomain PI (PositiveInteger))
+	(isDomain F (Float)))
     (text . "\windowlink{Manual Page}{manpageXXd01aqf} for this routine ")
     (text . "\newline ")
     (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|d01aqf| '|NagIntegrationPackage|)} for this routine")
@@ -629,9 +645,9 @@ d01asf() ==
   htInitPage('"D01ASF - 1-D quadrature, adaptive, semi-infinite interval, weight function cos(\omega x) or sin(\omega x)", nil)
   htMakePage '(
     (domainConditions
-        (isDomain EM $EmptyMode)
-        (isDomain PI (PositiveInteger))
-        (isDomain F (Float)))
+	(isDomain EM $EmptyMode)
+	(isDomain PI (PositiveInteger))
+	(isDomain F (Float)))
     (text . "\windowlink{Manual Page}{manpageXXd01asf} for this routine ")
     (text . "\newline ")
     (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|d01asf| '|NagIntegrationPackage|)} for this routine")
@@ -767,7 +783,7 @@ d01gafSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
           (isDomain PI (PositiveInteger))),
-            :labelList]
+	    :labelList]
   page := htInitPage("D01GAF - 1-D quadrature, integration of function defined by data values", htpPropertyList htPage)
   htSay '"\menuitemstyle{}\tab{2} Enter values for {\em x}: \tab{38} "
   htSay '"\menuitemstyle{}\tab{40} Enter values for {\em y}: "
@@ -877,7 +893,7 @@ d01gafDefaultSolve (htPage, ifail) ==
     (text . "\blankline ")
     (text . "Note:\space{1}{\em x} values in ascending or descending order only ")
     (text . "\blankline"))
-  htMakeDoneButton('"Continue",'d01gafGen)      
+  htMakeDoneButton('"Continue",'d01gafGen)    	
   htpSetProperty(page,'n,n)
   htpSetProperty(page,'ifail,ifail)
   htpSetProperty(page,'inputArea, htpInputAreaAlist htPage)
@@ -904,9 +920,9 @@ d01fcf() ==
   htInitPage('"D01FCF - Multi-dimensional adaptive quadrature over hyper-rectangle",nil)
   htMakePage '(
     (domainConditions
-        (isDomain EM $EmptyMode)
-        (isDomain PI (PositiveInteger))
-        (isDomain F (Float)))
+	(isDomain EM $EmptyMode)
+	(isDomain PI (PositiveInteger))
+	(isDomain F (Float)))
     (text . "\windowlink{Manual Page}{manpageXXd01fcf} for this routine ")
     (text . "\newline ")
     (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|d01fcf| '|NagIntegrationPackage|)} for this routine")
@@ -993,7 +1009,7 @@ d01fcfSolve htPage ==
         (isDomain P (Polynomial $EmptyMode))
          (isDomain S (String))
           (isDomain PI (PositiveInteger))),
-            :labelList]
+	    :labelList]
   page := htInitPage('"D01FCF - Multi-dimensional adaptive quadrature over hyper-rectangle",nil)
   htSay '"Please enter the limits of integration:- "
   htSay '"\blankline "
@@ -1041,7 +1057,7 @@ d01fcfDefaultSolve(htPage,minpts,maxpts,eps,lenwrk,expression,ifail) ==
     (bcStrings (10 "1.0" b4 F))
     (text . "\newline ")
     (text . "\blankline"))
-  htMakeDoneButton('"Continue",'d01fcfGen)      
+  htMakeDoneButton('"Continue",'d01fcfGen)    	
   htpSetProperty(page,'ndim,ndim)
   htpSetProperty(page,'expression,expression)
   htpSetProperty(page,'minpts,minpts)
@@ -1082,9 +1098,9 @@ d01gbf() ==
   htInitPage('"D01GBF - Multi-dimensional quadrature over hyper-rectangle, Monte Carlo method",nil)
   htMakePage '(
     (domainConditions
-        (isDomain EM $EmptyMode)
-        (isDomain PI (PositiveInteger))
-        (isDomain F (Float)))
+	(isDomain EM $EmptyMode)
+	(isDomain PI (PositiveInteger))
+	(isDomain F (Float)))
     (text . "\windowlink{Manual Page}{manpageXXd01gbf} for this routine ")
     (text . "\newline ")
     (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|d01gbf| '|NagIntegrationPackage|)} for this routine")
@@ -1170,7 +1186,7 @@ d01gbfSolve htPage ==
         (isDomain P (Polynomial $EmptyMode))
          (isDomain S (String))
           (isDomain PI (PositiveInteger))),
-            :labelList]
+	    :labelList]
   page := htInitPage('"D01GBF - Multi-dimensional quadrature over hyper-rectangle, Monte Carlo method",nil)
   htSay '"Please enter the limits of integration:- "
   htSay '"\blankline "
@@ -1218,7 +1234,7 @@ d01gbfDefaultSolve(htPage,mincls,maxcls,eps,lenwrk,expression,ifail) ==
     (bcStrings (10 "1.0" b4 F))
     (text . "\newline ")
     (text . "\blankline"))
-  htMakeDoneButton('"Continue",'d01gbfGen)      
+  htMakeDoneButton('"Continue",'d01gbfGen)    	
   htpSetProperty(page,'ndim,ndim)
   htpSetProperty(page,'expression,expression)
   htpSetProperty(page,'mincls,mincls)
@@ -1262,9 +1278,9 @@ d01bbf() ==
   htInitPage('"D01BBF - Weights and abscissae for Gaussian quadrature rules",nil)
   htMakePage '(
     (domainConditions
-        (isDomain EM $EmptyMode)
-        (isDomain PI (PositiveInteger))
-        (isDomain F (Float)))
+	(isDomain EM $EmptyMode)
+	(isDomain PI (PositiveInteger))
+	(isDomain F (Float)))
     (text . "\windowlink{Manual Page}{manpageXXd01bbf} for this routine ")
     (text . "\newline ")
     (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|d01bbf| '|NagIntegrationPackage|)} for this routine")
@@ -1335,3 +1351,9 @@ d01bbfGen htPage ==
   prefix := STRCONC("d01bbf(",a," ,",b," ,",STRINGIMAGE itype," ,")
   end := STRCONC(STRINGIMAGE n," ,",STRINGIMAGE gtype," ,",STRINGIMAGE ifail,")")
   linkGen STRCONC(prefix,end)
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/nag-d02.boot b/src/interp/nag-d02.boot.pamphlet
index 6d8f5924..93edfc46 100644
--- a/src/interp/nag-d02.boot
+++ b/src/interp/nag-d02.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp nag-d02.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 d02bbf() ==
   htInitPage('"D02BBF - ODEs, IVP, Runge-Kutta-Merson method, over a range, intermediate output",nil)
@@ -120,11 +136,11 @@ d02bbfSolve htPage ==
   vList :=  [['text,:mid],:vList]
   equationPart := [
      '(domainConditions 
-        (isDomain EM $EmptyMode)
+	(isDomain EM $EmptyMode)
           (isDomain S (String))
             (isDomain F (Float))
-              (isDomain I (Integer))),
-                :funcList,:yList,:vList]
+	      (isDomain I (Integer))),
+ 		:funcList,:yList,:vList]
   page :=   htInitPage('"D02BBF - ODEs, IVP, Runge-Kutta-Merson method, over a range, intermediate output",nil)
   htSay '"\menuitemstyle{}\tab{2} "
   htSay '"Enter the functions (i.e. the derivatives) below "
@@ -314,11 +330,11 @@ d02bhfSolve htPage ==
   vList :=  [['text,:mid],:vList]
   equationPart := [
      '(domainConditions 
-        (isDomain EM $EmptyMode)
+	(isDomain EM $EmptyMode)
           (isDomain S (String))
             (isDomain F (Float))
-              (isDomain I (Integer))),
-                :funcList,:yList,:vList]
+	      (isDomain I (Integer))),
+ 		:funcList,:yList,:vList]
   page :=   htInitPage('"D02BHF - ODEs, IVP, Runge-Kutta-Merson method, until function of solution is zero",nil)
   htSay '"\menuitemstyle{}\tab{2} "
   htSay '"Enter the functions (i.e. the derivatives) below \htbitmap{fi} "
@@ -501,11 +517,11 @@ d02cjfSolve htPage ==
   uList :=  [['text,:midd],:uList]
   equationPart := [
      '(domainConditions 
-        (isDomain EM $EmptyMode)
+	(isDomain EM $EmptyMode)
           (isDomain S (String))
             (isDomain F (Float))
-              (isDomain I (Integer))),
-                :funcList,:yList,:vList,:uList]
+	      (isDomain I (Integer))),
+ 		:funcList,:yList,:vList,:uList]
   page :=  htInitPage('"D02CJF - ODEs, IVP, Adams method, until function of solution is zero, intermediate output",nil)
   htSay '"\menuitemstyle{}\tab{2} "
   htSay '"Enter the functions (i.e. the derivatives) below \htbitmap{fi} "
@@ -702,11 +718,11 @@ d02ejfSolve htPage ==
   uList :=  [['text,:midd],:uList]
   equationPart := [
      '(domainConditions 
-        (isDomain EM $EmptyMode)
+	(isDomain EM $EmptyMode)
           (isDomain S (String))
             (isDomain F (Float))
-              (isDomain I (Integer))),
-                :funcList,:yList,:vList,:uList]
+	      (isDomain I (Integer))),
+ 		:funcList,:yList,:vList,:uList]
   page := htInitPage('"D02EJF - ODEs, stiff IVP, BDF method, until function of solution is zero, intermediate output",nil)
   htSay '"\menuitemstyle{}\tab{2} "
   htSay '"Enter the functions (i.e. the derivatives) below \htbitmap{fi} "
@@ -954,11 +970,11 @@ d02gafSolve htPage ==
   xList :=  [['text,:end],:xList]
   equationPart := [
      '(domainConditions 
-        (isDomain EM $EmptyMode)
+	(isDomain EM $EmptyMode)
           (isDomain S (String))
             (isDomain F (Float))
-              (isDomain I (Integer))),
-                :funcList,:uList,:vList,:xList]
+	      (isDomain I (Integer))),
+ 		:funcList,:uList,:vList,:xList]
   page := htInitPage('"D02GAF - ODEs, boundary value problem, finite difference technique with deferred correction, simple nonlinear problem", nil)
   htSay '"\menuitemstyle{}\tab{2} "
   htSay '"Enter the functions (i.e. the derivatives) below as functions of "
@@ -1303,11 +1319,11 @@ d02gbfSolve htPage ==
   xList :=  [['text,:end],:xList]
   equationPart := [
      '(domainConditions 
-        (isDomain EM $EmptyMode)
+	(isDomain EM $EmptyMode)
           (isDomain S (String))
             (isDomain F (Float))
-              (isDomain I (Integer))),
-                :cList,:dList,:gamList,:fList,:gList,:xList]
+	      (isDomain I (Integer))),
+ 		:cList,:dList,:gamList,:fList,:gList,:xList]
   page := htInitPage('"D02GBF - ODEs, boundary value problem, finite difference technique with deferred correction, general nonlinear problem", nil)
   htSay '"\menuitemstyle{}\tab{2} "
   htSay '"Enter the matrix {\it C} form the equation {\it Cy(a) + Dy(b)} "
@@ -1649,11 +1665,11 @@ d02kefSolve htPage ==
   hList := [['text,:middle],:hList]
   equationPart := [
      '(domainConditions 
-        (isDomain EM $EmptyMode)
+	(isDomain EM $EmptyMode)
           (isDomain S (String))
             (isDomain F (Float))
-              (isDomain I (Integer))),
-                :xpList,:cList,:ylList,:yrList,:hList]
+	      (isDomain I (Integer))),
+ 		:xpList,:cList,:ylList,:yrList,:hList]
   page := htInitPage('"D02KEF - 2nd order Sturm-Liouville problem, regular/singular system, finite/infinite range, eigenvalue and eigenfunction, user-specified break-points", nil)
   htSay '"\menuitemstyle{}\tab{2} Enter points where boundary "
   htSay '"conditions are to be imposed {\it xpoint}: \newline "
@@ -1968,11 +1984,11 @@ d02rafSolve htPage ==
   xList :=  [['text,:mid],:xList]
   equationPart := [
      '(domainConditions 
-        (isDomain EM $EmptyMode)
+	(isDomain EM $EmptyMode)
           (isDomain S (String))
             (isDomain F (Float))
-              (isDomain I (Integer))),
-                :funcList,:gList,:xList]
+	      (isDomain I (Integer))),
+ 		:funcList,:gList,:xList]
   page := htInitPage('"D02RAF - ODEs, general nonlinear boundary value problem, finite difference technique with deferred correction, continuation facility",nil)
   htSay '"\menuitemstyle{}\tab{2} "
   htSay '"Enter the functions \htbitmap{fi} (i.e. the derivatives) below "
@@ -2144,3 +2160,9 @@ d02rafCopOut() ==
     (text . "{\center{\em Please use the command line.}}"))
   htMakeDoneButton('"Continue",'d02raf)
   htShowPage()
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/nag-d03.boot b/src/interp/nag-d03.boot.pamphlet
index b8e727b9..19717651 100644
--- a/src/interp/nag-d03.boot
+++ b/src/interp/nag-d03.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp nag-d03.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 d03edf() ==
   htInitPage('"D03EDF - Elliptic PDE, solution of finite difference equations by a multigrid technique ",nil)
@@ -186,11 +202,11 @@ d03edfSolve htPage ==
   uList :=  [['text,:mid],:uList]
   equationPart := [
      '(domainConditions 
-        (isDomain EM $EmptyMode)
+	(isDomain EM $EmptyMode)
           (isDomain S (String))
             (isDomain F (Float))
-              (isDomain I (Integer))),
-                :aList,:rList,:uList]
+	      (isDomain I (Integer))),
+ 		:aList,:rList,:uList]
   page := htInitPage('"D03EDF - Elliptic PDE, solution of finite difference equations by a multigrid technique ",nil)
   htSay '"\menuitemstyle{}\tab{2} "
   htSay '"Enter the matrix {\it a(lda,7)}: "
@@ -637,3 +653,9 @@ d03faf() ==
     (text . "\menuitemstyle{}\tab{2} ")
     (text . "\spadcommand{)read d03faf \bound{s0}} "))
   htShowPage()
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/nag-e01.boot b/src/interp/nag-e01.boot.pamphlet
index 4cc2edad..227dabde 100644
--- a/src/interp/nag-e01.boot
+++ b/src/interp/nag-e01.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp nag-e01.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 e01baf() ==
   htInitPage('"E01BAF - Interpolating functions, cubic spline interpolant, one variable", nil)
@@ -82,7 +98,7 @@ e01bafSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
           (isDomain PI (PositiveInteger))),
-            :labelList]
+	    :labelList]
   page := htInitPage("E01BAF - Interpolating functions, cubic spline interpolant, one variable",htpPropertyList htPage)
   htSay '"\menuitemstyle{}\tab{2} Values of x: \tab{30} "
   htSay '"\menuitemstyle{}\tab{32} Corresponding values of y: "
@@ -132,7 +148,7 @@ e01bafDefaultSolve (htPage, ifail) ==
     (text . "\tab{32} ")
     (bcStrings (10 "2.7183" y7 F))
     (text . "\blankline"))
-  htMakeDoneButton('"Continue",'e01bafGen)      
+  htMakeDoneButton('"Continue",'e01bafGen)    	
   htpSetProperty(page,'m,m)
   htpSetProperty(page,'ifail,ifail)
   htpSetProperty(page,'inputArea, htpInputAreaAlist htPage)
@@ -214,7 +230,7 @@ e01befSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
           (isDomain PI (PositiveInteger))),
-            :labelList]
+	    :labelList]
   page := htInitPage("E01BEF - Interpolating functions, monoticity preserving, piecewise cubic Hermite, one variable",htpPropertyList htPage)
   htSay '"\menuitemstyle{}\tab{2} Values of \space{1} "
   htSay '"\htbitmap{xr}: \tab{30} "
@@ -275,7 +291,7 @@ e01befDefaultSolve (htPage, ifail) ==
     (text . "\tab{32} ")
     (bcStrings (10 "0.99999" y9 F))
     (text . "\blankline"))
-  htMakeDoneButton('"Continue",'e01befGen)      
+  htMakeDoneButton('"Continue",'e01befGen)    	
   htpSetProperty(page,'n,n)
   htpSetProperty(page,'ifail,ifail)
   htpSetProperty(page,'inputArea, htpInputAreaAlist htPage)
@@ -373,7 +389,7 @@ e01bffSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :labelList]
+	    :labelList]
   page := htInitPage("E01BFF - Interpolated values, interpolant computed by E01BEF, function only, one variable",htpPropertyList htPage)
   htSay '"\menuitemstyle{}\tab{2} Values of \space{1} "
   htSay '"\htbitmap{xr}: \tab{20} \menuitemstyle{}\tab{22} "
@@ -482,7 +498,7 @@ e01bffDefaultSolve (htPage, ifail) ==
     (text . "\newline \tab{2} ")
     (bcStrings (10 "20.0" px11 F))
     (text . "\blankline"))
-  htMakeDoneButton('"Continue",'e01bffGen)      
+  htMakeDoneButton('"Continue",'e01bffGen)    	
   htpSetProperty(page,'n,n)
   htpSetProperty(page,'m,m)
   htpSetProperty(page,'ifail,ifail)
@@ -593,7 +609,7 @@ e01bgfSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :labelList]
+	    :labelList]
   page := htInitPage("E01BGF - Interpolated values, interpolant computed by E01BEF, function and 1st derivative, one variable",htpPropertyList htPage)
   htSay '"\menuitemstyle{}\tab{2} Values of \space{1} "
   htSay '"\htbitmap{xr}: \tab{20} \menuitemstyle{}\tab{22} "
@@ -701,7 +717,7 @@ e01bgfDefaultSolve (htPage, ifail) ==
     (text . "\newline \tab{2} ")
     (bcStrings (10 "20.0" px11 F))
     (text . "\blankline"))
-  htMakeDoneButton('"Continue",'e01bgfGen)      
+  htMakeDoneButton('"Continue",'e01bgfGen)    	
   htpSetProperty(page,'n,n)
   htpSetProperty(page,'m,m)
   htpSetProperty(page,'ifail,ifail)
@@ -805,7 +821,7 @@ e01bhfSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :labelList]
+	    :labelList]
   page := htInitPage("E01BHF - Interpolated values, interpolant computed by E01BEF, definite integral, one variable",htpPropertyList htPage)
   htSay '"\menuitemstyle{}\tab{2} Values of \space{1} "
   htSay '"\htbitmap{xr}: \tab{20} \menuitemstyle{}\tab{22} "
@@ -888,7 +904,7 @@ e01bhfDefaultSolve (htPage,a,b,ifail) ==
     (text . "\tab{42} ")
     (bcStrings (10 "0.00000" z9 F))
     (text . "\blankline"))
-  htMakeDoneButton('"Continue",'e01bhfGen)      
+  htMakeDoneButton('"Continue",'e01bhfGen)    	
   htpSetProperty(page,'n,n)
   htpSetProperty(page,'a,a)
   htpSetProperty(page,'b,b)
@@ -1094,7 +1110,7 @@ e01dafDefaultSolve (htPage,ifail) ==
     (bcStrings (6 "4.90" z57 F))
     (bcStrings (6 "5.00" z67 F))
     (text . "\blankline"))
-  htMakeDoneButton('"Continue",'e01dafGen)      
+  htMakeDoneButton('"Continue",'e01dafGen)    	
   htpSetProperty(page,'mx,mx)
   htpSetProperty(page,'my,my)
   htpSetProperty(page,'ifail,ifail)
@@ -1182,7 +1198,7 @@ e01safSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :labelList]
+	    :labelList]
   page := htInitPage("E01SAF - Interpolating functions, method of Renka and Cline,two variables",htpPropertyList htPage)
   htSay '"\menuitemstyle{}\tab{2} Values of \space{1} "
   htSay '"\htbitmap{xr}: \tab{20} \menuitemstyle{}\tab{22} "
@@ -1390,7 +1406,7 @@ e01safDefaultSolve  (htPage, ifail) ==
     (text . "\tab{42} ")
     (bcStrings (10 "44.08" z30 F))
     (text . "\blankline"))
-  htMakeDoneButton('"Continue",'e01safGen)      
+  htMakeDoneButton('"Continue",'e01safGen)    	
   htpSetProperty(page,'m,m)
   htpSetProperty(page,'ifail,ifail)
   htpSetProperty(page,'inputArea, htpInputAreaAlist htPage)
@@ -1508,7 +1524,7 @@ e01sefSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :labelList]
+	    :labelList]
   page := htInitPage("E01SEF - Interpolating functions, modified Shepard's method, two variables",htpPropertyList htPage)
   htSay '"\menuitemstyle{}\tab{2} Values of \space{1} "
   htSay '"\htbitmap{xr}: \tab{20} \menuitemstyle{}\tab{22} "
@@ -1720,7 +1736,7 @@ e01sefDefaultSolve  (htPage,rnq,rnw,nq,nw,ifail) ==
     (text . "\tab{42} ")
     (bcStrings (10 "44.08" z30 F))
     (text . "\blankline"))
-  htMakeDoneButton('"Continue",'e01sefGen)      
+  htMakeDoneButton('"Continue",'e01sefGen)    	
   htpSetProperty(page,'m,m)
   htpSetProperty(page,'rnq,rnq)
   htpSetProperty(page,'rnw,rnw)
@@ -1756,3 +1772,9 @@ e01sefGen htPage ==
   prefix := STRCONC(prefix,dstring,"],",STRINGIMAGE nw,", ",STRINGIMAGE nq)
   prefix := STRCONC(prefix,", ",rnw,", ",rnq,", ",STRINGIMAGE ifail,")")
   linkGen prefix
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/nag-e02.boot b/src/interp/nag-e02.boot.pamphlet
index 8c661a60..3d738dd1 100644
--- a/src/interp/nag-e02.boot
+++ b/src/interp/nag-e02.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp nag-e02.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 e02adf() ==
   htInitPage('"E02ADF - Least-squares curve fit, by polynomials, arbitrary data points", nil)
@@ -112,7 +128,7 @@ e02adfSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :labelList]
+	    :labelList]
   page := htInitPage("E02ADF - Least-squares curve fit, by polynomials, arbitrary data points", htpPropertyList htPage)
   htSay '"\menuitemstyle{}\tab{2} Values of \space{1} "
   htSay '"\htbitmap{xr}: \tab{20} \menuitemstyle{}\tab{22} "
@@ -209,7 +225,7 @@ e02adfDefaultSolve  (htPage,k,nrows,ifail) ==
     (text . "\tab{42} ")
     (bcStrings (10 "0.20" z11 F))
     (text . "\blankline"))
-  htMakeDoneButton('"Continue",'e02adfGen)      
+  htMakeDoneButton('"Continue",'e02adfGen)    	
   htpSetProperty(page,'m,m)
   htpSetProperty(page,'k,k)
   htpSetProperty(page,'nrows,nrows)
@@ -298,7 +314,7 @@ e02aefSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :labelList]
+	    :labelList]
   page := htInitPage("E02AEF - Evaluation of fitted polynomial in one variable from Chebyshev series from", nil)
   htSay '"\menuitemstyle{}\tab{2} Enter the coefficients of {\it a(n+1)}:"
   htSay '"\blankline "
@@ -333,7 +349,7 @@ e02aefDefaultSolve  (htPage,xcap,ifail) ==
     (text . "\newline \tab{15} ")
     (bcStrings (10 "0.0625" a5 F))
     (text . "\blankline "))
-  htMakeDoneButton('"Continue",'e02aefGen)      
+  htMakeDoneButton('"Continue",'e02aefGen)    	
   htpSetProperty(page,'n,n)
   htpSetProperty(page,'xcap,xcap)
   htpSetProperty(page,'ifail,ifail)
@@ -492,7 +508,7 @@ e02agfSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :labelList,:xfList,:ipList,:yfList]
+	    :labelList,:xfList,:ipList,:yfList]
   page := htInitPage("E02AGF - Least-squares polynomial fit, values and derivatives may be constrained, arbitrary data values",nil)
   htSay '"\menuitemstyle{}\tab{2} Values of \space{1} "
   htSay '"\htbitmap{xr}: \tab{20} \menuitemstyle{}\tab{22} "
@@ -604,7 +620,7 @@ e02agfDefaultSolve  (htPage,nrows,xmin,xmax,ifail) ==
     (bcStrings (10 "0.0" lyf14 F))
     (text . "\newline \tab{2} ")
     (bcStrings (10 "0.0" lyf15 F)))
-  htMakeDoneButton('"Continue",'e02agfGen)      
+  htMakeDoneButton('"Continue",'e02agfGen)    	
   htpSetProperty(page,'m,m)
   htpSetProperty(page,'k,k)
   htpSetProperty(page,'nrows,nrows)
@@ -777,7 +793,7 @@ e02ahfSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :labelList]
+	    :labelList]
   page := htInitPage("E02AHF - Derivative of fitted polynomial in Chebyshev series",nil)
   htSay '"\menuitemstyle{}\tab{2} Coefficients of {\it a(la)}:"
   htMakePage equationPart
@@ -821,7 +837,7 @@ e02ahfDefaultSolve  (htPage,xmin,xmax,iaone,ladifone,ifail) ==
     (text . "\newline \tab{15}")
     (bcStrings (10 "0.00004" a7 F))
     (text . "\blankline"))
-  htMakeDoneButton('"Continue",'e02ahfGen)      
+  htMakeDoneButton('"Continue",'e02ahfGen)    	
   htpSetProperty(page,'n,n)
   htpSetProperty(page,'la,la)
   htpSetProperty(page,'ladif,ladif)
@@ -960,7 +976,7 @@ e02ajfSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :labelList]
+	    :labelList]
   page := htInitPage("E02AJF - Integral of fitted polynomial in Chebyshev series form",nil)
   htSay '"\menuitemstyle{}\tab{2} Coefficients of {\it a(la)}: "
   htMakePage equationPart
@@ -1005,7 +1021,7 @@ e02ajfDefaultSolve  (htPage,xmin,xmax,iaone,iaintone,qatmone,ifail) ==
     (text . "\newline \tab{15}")
     (bcStrings (10 "0.00004" a7 F))
     (text . "\blankline"))
-  htMakeDoneButton('"Continue",'e02ajfGen)      
+  htMakeDoneButton('"Continue",'e02ajfGen)    	
   htpSetProperty(page,'n,n)
   htpSetProperty(page,'la,la)
   htpSetProperty(page,'laint,laint)
@@ -1128,7 +1144,7 @@ e02akfSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :labelList]
+	    :labelList]
   page := htInitPage("E02AKF - Evaluation of fitted polynomial in one variable, from Chebyshev series form",nil)
   htSay '"\menuitemstyle{}\tab{2} Coefficients of {\it a(la)}:"
   htMakePage equationPart
@@ -1170,7 +1186,7 @@ e02akfDefaultSolve  (htPage,xmin,xmax,x,iaone,ifail) ==
     (text . "\newline \tab{15}")
     (bcStrings (10 "0.00004" a7 F))
     (text . "\blankline"))
-  htMakeDoneButton('"Continue",'e02akfGen)      
+  htMakeDoneButton('"Continue",'e02akfGen)    	
   htpSetProperty(page,'n,n)
   htpSetProperty(page,'la,la)
   htpSetProperty(page,'x,x)
@@ -1281,7 +1297,7 @@ e02bafSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :labelList,:lamdaList]
+	    :labelList,:lamdaList]
   page := htInitPage("E02BAF - Least-squares curve cubic spline fit",nil)
   htSay '"\menuitemstyle{}\tab{2} Values of \space{1} "
   htSay '"\htbitmap{xr}: \tab{20} \menuitemstyle{}\tab{22} "
@@ -1403,7 +1419,7 @@ e02bafDefaultSolve (htPage,ifail) ==
     (bcStrings (6 "4.00" l3 F))
     (bcStrings (6 "8.00" l4 F))
     (text . "\blankline"))
-  htMakeDoneButton('"Continue",'e02bafGen)      
+  htMakeDoneButton('"Continue",'e02bafGen)    	
   htpSetProperty(page,'m,m)
   htpSetProperty(page,'ncap,ncap)
   htpSetProperty(page,'ifail,ifail)
@@ -1508,7 +1524,7 @@ e02bbfSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :labelList]
+	    :labelList]
   page := htInitPage("E02BBF - Evaluation of fitted cubic spline, function only",nil)
   htSay '"\menuitemstyle{}\tab{2} Knots \htbitmap{lamdai}: "
   htSay '"\tab{20} \menuitemstyle{}\tab{22} "
@@ -1578,7 +1594,7 @@ e02bbfDefaultSolve (htPage,x,ifail) ==
     (text . "\tab{22} ")
     (bcStrings (10 "0.00" c11 F))
     (text . "\blankline"))
-  htMakeDoneButton('"Continue",'e02bbfGen)      
+  htMakeDoneButton('"Continue",'e02bbfGen)    	
   htpSetProperty(page,'ncap,ncap)
   htpSetProperty(page,'x,x)
   htpSetProperty(page,'ifail,ifail)
@@ -1679,7 +1695,7 @@ e02bcfSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :labelList]
+	    :labelList]
   page := htInitPage("E02BCF - Evaluation of fitted cubic spline, function and derivatives",nil)
   htSay '"\menuitemstyle{}\tab{2} Knots \htbitmap{lamdai}: "
   htSay '"\tab{20} \menuitemstyle{}\tab{22} "
@@ -1761,7 +1777,7 @@ e02bcfDefaultSolve (htPage,x,deriv,ifail) ==
     (text . "\tab{22} ")
     (bcStrings (10 "0.00" c14 F))
     (text . "\blankline"))
-  htMakeDoneButton('"Continue",'e02bcfGen)      
+  htMakeDoneButton('"Continue",'e02bcfGen)    	
   htpSetProperty(page,'ncap,ncap)
   htpSetProperty(page,'x,x)
   htpSetProperty(page,'deriv,deriv)
@@ -1848,7 +1864,7 @@ e02bdfSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :labelList]
+	    :labelList]
   page := htInitPage("E02BDF - Evaluation of fitted cubic spline, definite integral",nil)
   htSay '"\menuitemstyle{}\tab{2} Knots \htbitmap{lamdai}: "
   htSay '"\tab{20} \menuitemstyle{}\tab{22} "
@@ -1932,7 +1948,7 @@ e02bdfDefaultSolve(htPage,ifail) ==
     (bcStrings (10 "0.00" c14 F)))
   htpSetProperty(page,'ncap,ncap)
   htpSetProperty(page,'ifail,ifail)
-  htMakeDoneButton('"Continue",'e02bdfGen)      
+  htMakeDoneButton('"Continue",'e02bdfGen)    	
   htpSetProperty(page,'inputArea, htpInputAreaAlist htPage)
   htShowPage()
 
@@ -2065,7 +2081,7 @@ e02befColdSolve(htPage,m,nest,lwrk,s,ifail) ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :labelList]
+	    :labelList]
   page := htInitPage('"E02BEF - Least-squares curve cubic spline fit, automatic knot placement",nil)
   htSay '"\menuitemstyle{}\tab{2} Values of \space{1} "
   htSay '"\htbitmap{xr}: \tab{20} \menuitemstyle{}\tab{22} "
@@ -2187,7 +2203,7 @@ e02befDefaultSolve (htPage,nest,lwrk,s,ifail) ==
     (text . "\tab{42} ")
     (bcStrings (10 "1.00" z15 F))
     (text . "\blankline"))
-  htMakeDoneButton('"Continue",'e02befColdGen)          
+  htMakeDoneButton('"Continue",'e02befColdGen)    	
   htpSetProperty(page,'m,m)
   htpSetProperty(page,'nest,nest)
   htpSetProperty(page,'lwrk,lwrk)
@@ -2322,7 +2338,7 @@ e02defSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :labelList,:lamList,:muList,:cList]
+	    :labelList,:lamList,:muList,:cList]
   page := htInitPage('"E02DEF - Evaluation of a fitted bicubic spline at a vector of points",nil)
   htSay '"\menuitemstyle{}\tab{2} Values of \htbitmap{xr}: "
   htSay '"\tab{20} \menuitemstyle{}\tab{22} Values of \htbitmap{yr}:"
@@ -2407,50 +2423,50 @@ e02defDefaultSolve (htPage,ifail) ==
     (text . "\blankline \menuitemstyle{}\tab{2} ")
     (text . "Enter values for {\it c((nxest-4)*(nyest-4))}:")
     (text . "\newline ")
-    (bcStrings (8 "1" c1 F))    
-    (bcStrings (8 "1.1333" c2 F))       
-    (bcStrings (8 "1.3667" c3 F))       
-    (bcStrings (8 "1.7" c4 F))  
-    (bcStrings (8 "1.9" c5 F))  
-    (bcStrings (8 "2" c6 F))    
-    (bcStrings (8 "1.2" c7 F))  
-    (bcStrings (8 "1.3333" c8 F))       
-    (bcStrings (8 "1.5667" c9 F))       
-    (bcStrings (8 "1.9" c10 F)) 
-    (bcStrings (8 "2.1" c11 F)) 
-    (bcStrings (8 "2.2" c12 F)) 
-    (bcStrings (8 "1.5833" c13 F))      
-    (bcStrings (8 "1.7167" c14 F))      
-    (bcStrings (8 "1.95" c15 F))        
-    (bcStrings (8 "2.2833" c16 F))      
-    (bcStrings (8 "2.4833" c17 F))      
-    (bcStrings (8 "2.5833" c18 F))      
-    (bcStrings (8 "2.1433" c19 F))      
-    (bcStrings (8 "2.2767" c20 F))      
-    (bcStrings (8 "2.51" c21 F))        
-    (bcStrings (8 "2.8433" c22 F))      
-    (bcStrings (8 "3.0433" c23 F))      
-    (bcStrings (8 "3.1433" c24 F))      
-    (bcStrings (8 "2.8667" c25 F))      
-    (bcStrings (8 "3" c26 F))   
-    (bcStrings (8 "3.2333" c27 F))      
-    (bcStrings (8 "3.5667" c28 F))      
-    (bcStrings (8 "3.7667" c29 F))      
-    (bcStrings (8 "3.8667" c30 F))      
-    (bcStrings (8 "3.4667" c31 F))      
-    (bcStrings (8 "3.6" c32 F)) 
-    (bcStrings (8 "3.8333" c33 F))      
-    (bcStrings (8 "4.1667" c34 F))      
-    (bcStrings (8 "4.3667" c35 F))      
-    (bcStrings (8 "4.4667" c36 F))      
-    (bcStrings (8 "4" c37 F))   
-    (bcStrings (8 "4.1333" c38 F))      
-    (bcStrings (8 "4.3667" c39 F))      
-    (bcStrings (8 "4.7" c40 F)) 
-    (bcStrings (8 "4.9" c41 F)) 
-    (bcStrings (8 "5" c42 F))   
+    (bcStrings (8 "1" c1 F))	
+    (bcStrings (8 "1.1333" c2 F))	
+    (bcStrings (8 "1.3667" c3 F))	
+    (bcStrings (8 "1.7" c4 F))	
+    (bcStrings (8 "1.9" c5 F))	
+    (bcStrings (8 "2" c6 F))	
+    (bcStrings (8 "1.2" c7 F))	
+    (bcStrings (8 "1.3333" c8 F))	
+    (bcStrings (8 "1.5667" c9 F))	
+    (bcStrings (8 "1.9" c10 F))	
+    (bcStrings (8 "2.1" c11 F))	
+    (bcStrings (8 "2.2" c12 F))	
+    (bcStrings (8 "1.5833" c13 F))	
+    (bcStrings (8 "1.7167" c14 F))	
+    (bcStrings (8 "1.95" c15 F))	
+    (bcStrings (8 "2.2833" c16 F))	
+    (bcStrings (8 "2.4833" c17 F))	
+    (bcStrings (8 "2.5833" c18 F))	
+    (bcStrings (8 "2.1433" c19 F))	
+    (bcStrings (8 "2.2767" c20 F))	
+    (bcStrings (8 "2.51" c21 F))	
+    (bcStrings (8 "2.8433" c22 F))	
+    (bcStrings (8 "3.0433" c23 F))	
+    (bcStrings (8 "3.1433" c24 F))	
+    (bcStrings (8 "2.8667" c25 F))	
+    (bcStrings (8 "3" c26 F))	
+    (bcStrings (8 "3.2333" c27 F))	
+    (bcStrings (8 "3.5667" c28 F))	
+    (bcStrings (8 "3.7667" c29 F))	
+    (bcStrings (8 "3.8667" c30 F))	
+    (bcStrings (8 "3.4667" c31 F))	
+    (bcStrings (8 "3.6" c32 F))	
+    (bcStrings (8 "3.8333" c33 F))	
+    (bcStrings (8 "4.1667" c34 F))	
+    (bcStrings (8 "4.3667" c35 F))	
+    (bcStrings (8 "4.4667" c36 F))	
+    (bcStrings (8 "4" c37 F))	
+    (bcStrings (8 "4.1333" c38 F))	
+    (bcStrings (8 "4.3667" c39 F))	
+    (bcStrings (8 "4.7" c40 F))	
+    (bcStrings (8 "4.9" c41 F))	
+    (bcStrings (8 "5" c42 F))	
     (text . "\blankline "))
-  htMakeDoneButton('"Continue",'e02defGen)      
+  htMakeDoneButton('"Continue",'e02defGen)    	
   htpSetProperty(page,'m,m)
   htpSetProperty(page,'px,px)
   htpSetProperty(page,'py,py)
@@ -2609,7 +2625,7 @@ e02dffSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :xList,:yList,:lamList,:muList,:cList]
+	    :xList,:yList,:lamList,:muList,:cList]
   page := htInitPage('"E02DFF - Evaluation of a fitted bicubic spline at a mesh of points",nil)
   htSay '"\menuitemstyle{}\tab{2} Values of \htbitmap{xr}:\newline "
   htMakePage equationPart
@@ -2684,50 +2700,50 @@ e02dffDefaultSolve (htPage,lwrk,liwrk,ifail) ==
     (text . "\blankline ")
     (text . "\menuitemstyle{}\tab{2} Enter values of {\it c((px-4)*(py-4))}:")
     (text . "\newline ")
-    (bcStrings (8 "1" c1 F))    
-    (bcStrings (8 "1.1333" c2 F))       
-    (bcStrings (8 "1.3667" c3 F))       
-    (bcStrings (8 "1.7" c4 F))  
-    (bcStrings (8 "1.9" c5 F))  
-    (bcStrings (8 "2" c6 F))    
-    (bcStrings (8 "1.2" c7 F))  
-    (bcStrings (8 "1.3333" c8 F))       
-    (bcStrings (8 "1.5667" c9 F))       
-    (bcStrings (8 "1.9" c10 F)) 
-    (bcStrings (8 "2.1" c11 F)) 
-    (bcStrings (8 "2.2" c12 F)) 
-    (bcStrings (8 "1.5833" c13 F))      
-    (bcStrings (8 "1.7167" c14 F))      
-    (bcStrings (8 "1.95" c15 F))        
-    (bcStrings (8 "2.2833" c16 F))      
-    (bcStrings (8 "2.4833" c17 F))      
-    (bcStrings (8 "2.5833" c18 F))      
-    (bcStrings (8 "2.1433" c19 F))      
-    (bcStrings (8 "2.2767" c20 F))      
-    (bcStrings (8 "2.51" c21 F))        
-    (bcStrings (8 "2.8433" c22 F))      
-    (bcStrings (8 "3.0433" c23 F))      
-    (bcStrings (8 "3.1433" c24 F))      
-    (bcStrings (8 "2.8667" c25 F))      
-    (bcStrings (8 "3" c26 F))   
-    (bcStrings (8 "3.2333" c27 F))      
-    (bcStrings (8 "3.5667" c28 F))      
-    (bcStrings (8 "3.7667" c29 F))      
-    (bcStrings (8 "3.8667" c30 F))      
-    (bcStrings (8 "3.4667" c31 F))      
-    (bcStrings (8 "3.6" c32 F)) 
-    (bcStrings (8 "3.8333" c33 F))      
-    (bcStrings (8 "4.1667" c34 F))      
-    (bcStrings (8 "4.3667" c35 F))      
-    (bcStrings (8 "4.4667" c36 F))      
-    (bcStrings (8 "4" c37 F))   
-    (bcStrings (8 "4.1333" c38 F))      
-    (bcStrings (8 "4.3667" c39 F))      
-    (bcStrings (8 "4.7" c40 F)) 
-    (bcStrings (8 "4.9" c41 F)) 
-    (bcStrings (8 "5" c42 F))   
+    (bcStrings (8 "1" c1 F))	
+    (bcStrings (8 "1.1333" c2 F))	
+    (bcStrings (8 "1.3667" c3 F))	
+    (bcStrings (8 "1.7" c4 F))	
+    (bcStrings (8 "1.9" c5 F))	
+    (bcStrings (8 "2" c6 F))	
+    (bcStrings (8 "1.2" c7 F))	
+    (bcStrings (8 "1.3333" c8 F))	
+    (bcStrings (8 "1.5667" c9 F))	
+    (bcStrings (8 "1.9" c10 F))	
+    (bcStrings (8 "2.1" c11 F))	
+    (bcStrings (8 "2.2" c12 F))	
+    (bcStrings (8 "1.5833" c13 F))	
+    (bcStrings (8 "1.7167" c14 F))	
+    (bcStrings (8 "1.95" c15 F))	
+    (bcStrings (8 "2.2833" c16 F))	
+    (bcStrings (8 "2.4833" c17 F))	
+    (bcStrings (8 "2.5833" c18 F))	
+    (bcStrings (8 "2.1433" c19 F))	
+    (bcStrings (8 "2.2767" c20 F))	
+    (bcStrings (8 "2.51" c21 F))	
+    (bcStrings (8 "2.8433" c22 F))	
+    (bcStrings (8 "3.0433" c23 F))	
+    (bcStrings (8 "3.1433" c24 F))	
+    (bcStrings (8 "2.8667" c25 F))	
+    (bcStrings (8 "3" c26 F))	
+    (bcStrings (8 "3.2333" c27 F))	
+    (bcStrings (8 "3.5667" c28 F))	
+    (bcStrings (8 "3.7667" c29 F))	
+    (bcStrings (8 "3.8667" c30 F))	
+    (bcStrings (8 "3.4667" c31 F))	
+    (bcStrings (8 "3.6" c32 F))	
+    (bcStrings (8 "3.8333" c33 F))	
+    (bcStrings (8 "4.1667" c34 F))	
+    (bcStrings (8 "4.3667" c35 F))	
+    (bcStrings (8 "4.4667" c36 F))	
+    (bcStrings (8 "4" c37 F))	
+    (bcStrings (8 "4.1333" c38 F))	
+    (bcStrings (8 "4.3667" c39 F))	
+    (bcStrings (8 "4.7" c40 F))	
+    (bcStrings (8 "4.9" c41 F))	
+    (bcStrings (8 "5" c42 F))	
     (text . "\blankline"))
-  htMakeDoneButton('"Continue",'e02dffGen)      
+  htMakeDoneButton('"Continue",'e02dffGen)    	
   htpSetProperty(page,'mx,mx)
   htpSetProperty(page,'my,my)
   htpSetProperty(page,'px,px)
@@ -2865,7 +2881,7 @@ e02gafSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :labelList,:bList]
+	    :labelList,:bList]
   page := htInitPage('"E02GAF - \htbitmap{l1}-approximation by general linear function",nil)
   htSay '"\menuitemstyle{}\tab{2} Values of {\it A(la,n+2)}:"
   htMakePage equationPart
@@ -2940,7 +2956,7 @@ e02gafDefaultSolve (htPage,toler,ifail) ==
     (bcStrings (9 "4.333" b3 F))  
     (bcStrings (9 "4.418" b4 F))  
     (bcStrings (9 "4.625" b5 F)))  
-  htMakeDoneButton('"Continue",'e02gafGen)      
+  htMakeDoneButton('"Continue",'e02gafGen)    	
   htpSetProperty(page,'m,m)
   htpSetProperty(page,'n,n)
   htpSetProperty(page,'toler,toler)
@@ -3101,7 +3117,7 @@ e02dafSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :labelList,:lamList,:muList,:pList]
+	    :labelList,:lamList,:muList,:pList]
   page := htInitPage('"E02DAF - Least-squares surface fit, bicubic splines",nil)
   htSay '"\menuitemstyle{}\tab{2} Values of \htbitmap{xr}: "
   htSay '"\tab{15} \menuitemstyle{}\tab{17} Values of \htbitmap{yr}:"
@@ -3383,93 +3399,93 @@ e02dafDefaultSolve (htPage,eps,nws,npoint,ifail) ==
     (text . "\blankline ")
     (text . "\menuitemstyle{}\tab{2} Enter values for point:")
     (text . "\newline \tab{2}")
-    (bcStrings (6 3 p1 PI))     
+    (bcStrings (6 3 p1 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 6 p2 PI))     
+    (bcStrings (6 6 p2 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 4 p3 PI))     
+    (bcStrings (6 4 p3 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 5 p4 PI))     
+    (bcStrings (6 5 p4 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 7 p5 PI))     
+    (bcStrings (6 7 p5 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 10 p6 PI))    
+    (bcStrings (6 10 p6 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 8 p7 PI))     
+    (bcStrings (6 8 p7 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 9 p8 PI))     
+    (bcStrings (6 9 p8 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 11 p9 PI))    
+    (bcStrings (6 11 p9 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 13 p10 PI))   
+    (bcStrings (6 13 p10 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 12 p11 PI))   
+    (bcStrings (6 12 p11 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 15 p12 PI))   
+    (bcStrings (6 15 p12 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 14 p13 PI))   
+    (bcStrings (6 14 p13 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 18 p14 PI))   
+    (bcStrings (6 18 p14 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 16 p15 PI))   
+    (bcStrings (6 16 p15 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 17 p16 PI))   
+    (bcStrings (6 17 p16 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 19 p17 PI))   
+    (bcStrings (6 19 p17 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 20 p18 PI))   
+    (bcStrings (6 20 p18 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 21 p19 PI))   
+    (bcStrings (6 21 p19 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 30 p20 PI))   
+    (bcStrings (6 30 p20 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 23 p21 PI))   
+    (bcStrings (6 23 p21 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 26 p22 PI))   
+    (bcStrings (6 26 p22 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 24 p23 PI))   
+    (bcStrings (6 24 p23 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 25 p24 PI))   
+    (bcStrings (6 25 p24 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 27 p25 PI))   
+    (bcStrings (6 27 p25 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 28 p26 PI))   
+    (bcStrings (6 28 p26 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 0 p27 PI))    
+    (bcStrings (6 0 p27 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 29 p28 PI))   
+    (bcStrings (6 29 p28 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 0 p29 PI))    
+    (bcStrings (6 0 p29 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 0 p30 PI))    
+    (bcStrings (6 0 p30 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 2 p31 PI))    
+    (bcStrings (6 2 p31 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 22 p32 PI))   
+    (bcStrings (6 22 p32 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 1 p33 PI))    
+    (bcStrings (6 1 p33 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 0 p34 PI))    
+    (bcStrings (6 0 p34 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 0 p35 PI))    
+    (bcStrings (6 0 p35 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 0 p36 PI))    
+    (bcStrings (6 0 p36 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 0 p37 PI))    
+    (bcStrings (6 0 p37 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 0 p38 PI))    
+    (bcStrings (6 0 p38 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 0 p39 PI))    
+    (bcStrings (6 0 p39 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 0 p40 PI))    
+    (bcStrings (6 0 p40 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 0 p41 PI))    
+    (bcStrings (6 0 p41 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 0 p42 PI))    
+    (bcStrings (6 0 p42 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 0 p43 PI))    
+    (bcStrings (6 0 p43 PI))	
     (text . "\blankline"))
-  htMakeDoneButton('"Continue",'e02dafGen)      
+  htMakeDoneButton('"Continue",'e02dafGen)    	
   htpSetProperty(page,'m,m)
   htpSetProperty(page,'px,px)
   htpSetProperty(page,'py,py)
@@ -3636,7 +3652,7 @@ e02dcfSolve htPage ==
     error = 'one => '1
     '-1
   ((mx = 11 and my = 9) and start = 1) => 
-                e02dcfDefaultSolve (htPage,nxest,nyest,lwrk,liwrk,s,ifail)
+		e02dcfDefaultSolve (htPage,nxest,nyest,lwrk,liwrk,s,ifail)
   start = 1 => e02dcfColdSolve (htPage,mx,my,nxest,nyest,lwrk,liwrk,s,ifail)
   -- warm start not really possible from hyperdoc
   -- as inputing a workspace array of dimension 592 is asking too much
@@ -3678,7 +3694,7 @@ e02dcfColdSolve(htPage,mx,my,nxest,nyest,lwrk,liwrk,s,ifail) ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :xList,:yList,:fList]
+	    :xList,:yList,:fList]
   page := htInitPage('"E02DCF - Least-squares curve by bicubic splines with automatic knot placement, data on a rectangular grid",nil)
   htSay '"\menuitemstyle{}\tab{2} Values of {\it x(mx)}: \newline "
   htMakePage equationPart
@@ -3831,7 +3847,7 @@ e02dcfDefaultSolve (htPage,nxest,nyest,lwrk,liwrk,s,ifail) ==
     (bcStrings (8 "-5.93" f97 F))
     (bcStrings (8 "-5.6387" f98 F))
     (bcStrings (8 "-3.9319" f99 F)))
-  htMakeDoneButton('"Continue",'e02dcfColdGen)          
+  htMakeDoneButton('"Continue",'e02dcfColdGen)    	
   htpSetProperty(page,'mx,mx)
   htpSetProperty(page,'my,my)
   htpSetProperty(page,'nxest,nxest)
@@ -4008,7 +4024,7 @@ e02ddfSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :labelList,:lamdaList,:muList,:nxList,:nyList,:wList]
+	    :labelList,:lamdaList,:muList,:nxList,:nyList,:wList]
   page := htInitPage('"E02DDF - Least-squares surface fit by bicubic splines with automatic knot placement, scattered data",nil)
   htSay '"\menuitemstyle{}\tab{2} Values of \space{1} "
   htSay '"\htbitmap{xr}: \tab{15} \menuitemstyle{}\tab{17} "
@@ -4053,7 +4069,7 @@ e02ddfColdSolve(htPage,m,nxest,nyest,lwrk,liwrk,s,ifail)  ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :labelList]
+	    :labelList]
   page := htInitPage('"E02DDF - Least-squares surface fit by bicubic splines with automatic knot placement, scattered data",nil)
   htSay '"\menuitemstyle{}\tab{2} Values of \space{1} "
   htSay '"\htbitmap{xr}: \tab{15} \menuitemstyle{}\tab{17} "
@@ -4328,7 +4344,7 @@ e02ddfDefaultSolve (htPage,nxest,nyest,lwrk,liwrk,s,ifail) ==
     (text . "\tab{47}")
     (bcStrings (8 "1" w30 F))    
     (text . "\blankline"))
-  htMakeDoneButton('"Continue",'e02ddfColdGen)          
+  htMakeDoneButton('"Continue",'e02ddfColdGen)    	
   htpSetProperty(page,'m,m)
   htpSetProperty(page,'nxest,nxest)
   htpSetProperty(page,'nyest,nyest)
@@ -4536,7 +4552,7 @@ e02zafSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :labelList,:lamList,:muList]
+	    :labelList,:lamList,:muList]
   page := htInitPage('"E02ZAF - Sort 2-D sata into panels for fitting bicubic splines",nil)
   htSay '"\menuitemstyle{}\tab{2} {\it x(m)}: "
   htSay '"\tab{30} \menuitemstyle{}\tab{32} {\it y(m)}: "
@@ -4613,7 +4629,7 @@ e02zafDefaultSolve (htPage,npoint,ifail) ==
     (bcStrings (8 "0.80" mu5 F))
     (bcStrings (8 "1.20" mu6 F))
     (text . "\blankline "))
-  htMakeDoneButton('"Continue",'e02zafGen)      
+  htMakeDoneButton('"Continue",'e02zafGen)    	
   htpSetProperty(page,'m,m)
   htpSetProperty(page,'px,px)
   htpSetProperty(page,'py,py)
@@ -4669,3 +4685,9 @@ e02zafGen htPage ==
 
 
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/nag-e02b.boot b/src/interp/nag-e02b.boot.pamphlet
index 7a22ba63..d9874717 100644
--- a/src/interp/nag-e02b.boot
+++ b/src/interp/nag-e02b.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp nag-e02b.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 -- READ THIS NOW!
 --
@@ -165,7 +181,7 @@ e02dafSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :labelList,:lamList,:muList,:pList]
+	    :labelList,:lamList,:muList,:pList]
   page := htInitPage('"E02DAF - Least-squares surface fit, bicubic splines",nil)
   htSay '"\menuitemstyle{}\tab{2} Values of \htbitmap{xr}: "
   htSay '"\tab{15} \menuitemstyle{}\tab{17} Values of \htbitmap{yr}:"
@@ -447,93 +463,93 @@ e02dafDefaultSolve (htPage,eps,nws,npoint,ifail) ==
     (text . "\blankline ")
     (text . "\menuitemstyle{}\tab{2} Enter values for point:")
     (text . "\newline \tab{2}")
-    (bcStrings (6 3 p1 PI))     
+    (bcStrings (6 3 p1 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 6 p2 PI))     
+    (bcStrings (6 6 p2 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 4 p3 PI))     
+    (bcStrings (6 4 p3 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 5 p4 PI))     
+    (bcStrings (6 5 p4 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 7 p5 PI))     
+    (bcStrings (6 7 p5 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 10 p6 PI))    
+    (bcStrings (6 10 p6 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 8 p7 PI))     
+    (bcStrings (6 8 p7 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 9 p8 PI))     
+    (bcStrings (6 9 p8 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 11 p9 PI))    
+    (bcStrings (6 11 p9 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 13 p10 PI))   
+    (bcStrings (6 13 p10 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 12 p11 PI))   
+    (bcStrings (6 12 p11 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 15 p12 PI))   
+    (bcStrings (6 15 p12 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 14 p13 PI))   
+    (bcStrings (6 14 p13 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 18 p14 PI))   
+    (bcStrings (6 18 p14 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 16 p15 PI))   
+    (bcStrings (6 16 p15 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 17 p16 PI))   
+    (bcStrings (6 17 p16 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 19 p17 PI))   
+    (bcStrings (6 19 p17 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 20 p18 PI))   
+    (bcStrings (6 20 p18 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 21 p19 PI))   
+    (bcStrings (6 21 p19 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 30 p20 PI))   
+    (bcStrings (6 30 p20 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 23 p21 PI))   
+    (bcStrings (6 23 p21 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 26 p22 PI))   
+    (bcStrings (6 26 p22 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 24 p23 PI))   
+    (bcStrings (6 24 p23 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 25 p24 PI))   
+    (bcStrings (6 25 p24 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 27 p25 PI))   
+    (bcStrings (6 27 p25 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 28 p26 PI))   
+    (bcStrings (6 28 p26 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 0 p27 PI))    
+    (bcStrings (6 0 p27 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 29 p28 PI))   
+    (bcStrings (6 29 p28 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 0 p29 PI))    
+    (bcStrings (6 0 p29 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 0 p30 PI))    
+    (bcStrings (6 0 p30 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 2 p31 PI))    
+    (bcStrings (6 2 p31 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 22 p32 PI))   
+    (bcStrings (6 22 p32 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 1 p33 PI))    
+    (bcStrings (6 1 p33 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 0 p34 PI))    
+    (bcStrings (6 0 p34 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 0 p35 PI))    
+    (bcStrings (6 0 p35 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 0 p36 PI))    
+    (bcStrings (6 0 p36 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 0 p37 PI))    
+    (bcStrings (6 0 p37 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 0 p38 PI))    
+    (bcStrings (6 0 p38 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 0 p39 PI))    
+    (bcStrings (6 0 p39 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 0 p40 PI))    
+    (bcStrings (6 0 p40 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 0 p41 PI))    
+    (bcStrings (6 0 p41 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 0 p42 PI))    
+    (bcStrings (6 0 p42 PI))	
     (text . "\newline \tab{2}")
-    (bcStrings (6 0 p43 PI))    
+    (bcStrings (6 0 p43 PI))	
     (text . "\blankline"))
-  htMakeDoneButton('"Continue",'e02dafGen)      
+  htMakeDoneButton('"Continue",'e02dafGen)    	
   htpSetProperty(page,'m,m)
   htpSetProperty(page,'px,px)
   htpSetProperty(page,'py,py)
@@ -700,7 +716,7 @@ e02dcfSolve htPage ==
     error = 'one => '1
     '-1
   ((mx = 11 and my = 9) and start = 1) => 
-                e02dcfDefaultSolve (htPage,nxest,nyest,lwrk,liwrk,s,ifail)
+		e02dcfDefaultSolve (htPage,nxest,nyest,lwrk,liwrk,s,ifail)
   start = 1 => e02dcfColdSolve (htPage,mx,my,nxest,nyest,lwrk,liwrk,s,ifail)
   -- warm start not really possible from hyperdoc
   -- as inputing a workspace array of dimension 592 is asking too much
@@ -742,7 +758,7 @@ e02dcfColdSolve(htPage,mx,my,nxest,nyest,lwrk,liwrk,s,ifail) ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :xList,:yList,:fList]
+	    :xList,:yList,:fList]
   page := htInitPage('"E02DCF - Least-squares curve by bicubic splines with automatic knot placement, data on a rectangular grid",nil)
   htSay '"\menuitemstyle{}\tab{2} Values of {\it x(mx)}: \newline "
   htMakePage equationPart
@@ -895,7 +911,7 @@ e02dcfDefaultSolve (htPage,nxest,nyest,lwrk,liwrk,s,ifail) ==
     (bcStrings (8 "-5.93" f97 F))
     (bcStrings (8 "-5.6387" f98 F))
     (bcStrings (8 "-3.9319" f99 F)))
-  htMakeDoneButton('"Continue",'e02dcfColdGen)          
+  htMakeDoneButton('"Continue",'e02dcfColdGen)    	
   htpSetProperty(page,'mx,mx)
   htpSetProperty(page,'my,my)
   htpSetProperty(page,'nxest,nxest)
@@ -1072,7 +1088,7 @@ e02ddfSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :labelList,:lamdaList,:muList,:nxList,:nyList,:wList]
+	    :labelList,:lamdaList,:muList,:nxList,:nyList,:wList]
   page := htInitPage('"E02DDF - Least-squares surface fit by bicubic splines with automatic knot placement, scattered data",nil)
   htSay '"\menuitemstyle{}\tab{2} Values of \space{1} "
   htSay '"\htbitmap{xr}: \tab{15} \menuitemstyle{}\tab{17} "
@@ -1117,7 +1133,7 @@ e02ddfColdSolve(htPage,m,nxest,nyest,lwrk,liwrk,s,ifail)  ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :labelList]
+	    :labelList]
   page := htInitPage('"E02DDF - Least-squares surface fit by bicubic splines with automatic knot placement, scattered data",nil)
   htSay '"\menuitemstyle{}\tab{2} Values of \space{1} "
   htSay '"\htbitmap{xr}: \tab{15} \menuitemstyle{}\tab{17} "
@@ -1392,7 +1408,7 @@ e02ddfDefaultSolve (htPage,nxest,nyest,lwrk,liwrk,s,ifail) ==
     (text . "\tab{47}")
     (bcStrings (8 "1" w30 F))    
     (text . "\blankline"))
-  htMakeDoneButton('"Continue",'e02ddfColdGen)          
+  htMakeDoneButton('"Continue",'e02ddfColdGen)    	
   htpSetProperty(page,'m,m)
   htpSetProperty(page,'nxest,nxest)
   htpSetProperty(page,'nyest,nyest)
@@ -1600,7 +1616,7 @@ e02zafSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :labelList,:lamList,:muList]
+	    :labelList,:lamList,:muList]
   page := htInitPage('"E02ZAF - Sort 2-D sata into panels for fitting bicubic splines",nil)
   htSay '"\menuitemstyle{}\tab{2} {\it x(m)}: "
   htSay '"\tab{30} \menuitemstyle{}\tab{32} {\it y(m)}: "
@@ -1677,7 +1693,7 @@ e02zafDefaultSolve (htPage,npoint,ifail) ==
     (bcStrings (8 "0.80" mu5 F))
     (bcStrings (8 "1.20" mu6 F))
     (text . "\blankline "))
-  htMakeDoneButton('"Continue",'e02zafGen)      
+  htMakeDoneButton('"Continue",'e02zafGen)    	
   htpSetProperty(page,'m,m)
   htpSetProperty(page,'px,px)
   htpSetProperty(page,'py,py)
@@ -1733,3 +1749,9 @@ e02zafGen htPage ==
 
 
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/nag-e04.boot b/src/interp/nag-e04.boot.pamphlet
index a3553cdf..7a63d8e1 100644
--- a/src/interp/nag-e04.boot
+++ b/src/interp/nag-e04.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp nag-e04.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 e04dgf() ==
   htInitPage('"E04DGF - Unconstrained minimum, pre-conditioned conjugate gradient algorithm, function of several variables using 1st derivatives",nil)
@@ -139,9 +155,9 @@ e04dgfSolve(htPage) ==
      '(domainConditions 
          (isDomain EM $EmptyMode)
           (isDomain F (Float))
-            (isDomain I (Integer))),
-                :funcList,
-                  :optList]
+	    (isDomain I (Integer))),
+ 		:funcList,
+		  :optList]
   page := htInitPage('"E04DGF - Unconstrained minimum, pre-conditioned conjugate gradient algorithm, function of several variables using 1st derivatives",nil)
   htSay '"\menuitemstyle{}\tab{2} "
   htSay '"Enter the objective function, {\it F(x)} in terms of X[1]...X[n]: "
@@ -200,7 +216,7 @@ e04dgfGen htPage ==
     lis := '"true"
     for i in 1..n repeat
       temp := STRCONC ((first y).1," ")
-      xlist := [temp,:xlist]    
+      xlist := [temp,:xlist]	
       y := rest y
     xstring := bcwords2liststring xlist
     f := (first y).1
@@ -234,7 +250,7 @@ e04dgfGen htPage ==
     y := rest y
     for i in 1..n repeat
       temp := STRCONC ((first y).1," ")
-      xlist := [temp,:xlist]    
+      xlist := [temp,:xlist]	
       y := rest y
     xstring := bcwords2liststring xlist
     f := (first y).1
@@ -332,7 +348,7 @@ e04fdfSolve htPage ==
         (isDomain EM $EmptyMode)
           (isDomain F (Float))
            (isDomain I (Integer))),
-                :funcList]
+ 		:funcList]
   page:= htInitPage('"E04FDF - Unconstrained minimum of a sum of squares, combined Gauss-Newton and modified Newton algorithm using function values only",nil)
   htSay '"\menuitemstyle{}\tab{2} "
   htSay '"Enter the functions \htbitmap{fi} below in terms XC[1]...XC[n]: "
@@ -417,12 +433,12 @@ e04fdfGen htPage ==
   y := alist
   for i in 1..n repeat
     temp := STRCONC ((first y).1," ")
-    xlist := [temp,:xlist]      
+    xlist := [temp,:xlist]	
     y := rest y
   xstring := bcwords2liststring xlist    
   for i in 1..m repeat
     temp := STRCONC ((first y).1," ")
-    ulist := [temp,:ulist]      
+    ulist := [temp,:ulist]	
     y := rest y
   ustring := bcwords2liststring ulist    
   prefix := STRCONC("e04fdf(",STRINGIMAGE m,",",STRINGIMAGE n,", ")
@@ -518,7 +534,7 @@ e04gcfSolve htPage ==
         (isDomain EM $EmptyMode)
           (isDomain F (Float))
             (isDomain I (Integer))),
-                :funcList]
+ 		:funcList]
   page:= htInitPage('"E04GCF - Unconstrained minimum of a sum of squares, combined Gauss-Newton and modified Newton algorithm using 1st derivatives",nil)
   htSay '"\menuitemstyle{}\tab{2} "
   htSay '"Enter the functions \htbitmap{fi} below in terms of XC[1]...XC[n]: "
@@ -603,12 +619,12 @@ e04gcfGen htPage ==
   y := alist
   for i in 1..n repeat
     temp := STRCONC ((first y).1," ")
-    xlist := [temp,:xlist]      
+    xlist := [temp,:xlist]	
     y := rest y
   xstring := bcwords2liststring xlist    
   for i in 1..m repeat
     temp := STRCONC ((first y).1," ")
-    ulist := [temp,:ulist]      
+    ulist := [temp,:ulist]	
     y := rest y
   ustring := bcwords2liststring ulist    
   prefix := STRCONC("e04gcf(",STRINGIMAGE m,",",STRINGIMAGE n,", ")
@@ -720,7 +736,7 @@ e04jafSolve htPage ==
         (isDomain EM $EmptyMode)
           (isDomain F (Float))
             (isDomain I (Integer))),
-                :funcList,:blList,:buList,:xList]
+ 		:funcList,:blList,:buList,:xList]
   page:= htInitPage('"E04JAF - Minimum, function of several variables, quasi-Newton algorithm, simple bounds, using function values only",nil)
   htSay '"\menuitemstyle{}\tab{2} "
   htSay '"Enter the function {\it F(x)} below in terms of XC[1]...XC[n]: "
@@ -789,17 +805,17 @@ e04jafGen htPage ==
   y := alist
   for i in 1..n repeat
     temp := STRCONC ((first y).1," ")
-    xlist := [temp,:xlist]      
+    xlist := [temp,:xlist]	
     y := rest y
   xstring := bcwords2liststring xlist    
   for i in 1..n repeat
     temp := STRCONC ((first y).1," ")
-    bulist := [temp,:bulist]    
+    bulist := [temp,:bulist]	
     y := rest y
   bustring := bcwords2liststring bulist    
   for i in 1..n repeat
     temp := STRCONC ((first y).1," ")
-    bllist := [temp,:bllist]    
+    bllist := [temp,:bllist]	
     y := rest y
   blstring := bcwords2liststring bllist    
   f := (first y).1
@@ -814,7 +830,7 @@ e04mbf() ==
   htInitPage('"E04MBF - Linear programming problem",nil)
   htMakePage '(
     (domainConditions 
-        (isDomain EM $EmptyMode)
+  	(isDomain EM $EmptyMode)
         (isDomain PI (PositiveInteger))
         (isDomain F (Float)))
     (text . "\windowlink{Manual Page}{manpageXXe04mbf} for this routine ")
@@ -957,7 +973,7 @@ e04mbfSolve htPage ==
         (isDomain EM $EmptyMode)
           (isDomain F (Float))
             (isDomain I (Integer))),
-                :aList,:blList,:buList,:cList,:xList]
+ 		:aList,:blList,:buList,:cList,:xList]
   page:= htInitPage('"E04MBF - Linear programming problem",nil)
   htSay '"\menuitemstyle{}\tab{2} "
   htSay '"Enter the elements of the array {\it a(nrowa,n)}: \newline "
@@ -1127,22 +1143,22 @@ e04mbfGen htPage ==
   y := alist
   for i in 1..n repeat
     temp := STRCONC ((first y).1," ")
-    xlist := [temp,:xlist]      
+    xlist := [temp,:xlist]	
     y := rest y
   xstring := bcwords2liststring xlist    
   for i in 1..n repeat
     temp := STRCONC ((first y).1," ")
-    clist := [temp,:clist]      
+    clist := [temp,:clist]	
     y := rest y
   cstring := bcwords2liststring clist    
   for i in 1..(n+nclin) repeat
     temp := STRCONC ((first y).1," ")
-    bulist := [temp,:bulist]    
+    bulist := [temp,:bulist]	
     y := rest y
   bustring := bcwords2liststring bulist    
   for i in 1..(n+nclin) repeat
     temp := STRCONC ((first y).1," ")
-    bllist := [temp,:bllist]    
+    bllist := [temp,:bllist]	
     y := rest y
   blstring := bcwords2liststring bllist    
   for i in 1..nrowa repeat -- matrix A
@@ -1171,7 +1187,7 @@ e04naf() ==
   htInitPage('"E04NAF - Quadratic programming problem",nil)
   htMakePage '(
     (domainConditions 
-        (isDomain EM $EmptyMode)
+  	(isDomain EM $EmptyMode)
         (isDomain PI (PositiveInteger))
         (isDomain F (Float)))
     (text . "\windowlink{Manual Page}{manpageXXe04naf} for this routine ")
@@ -1401,7 +1417,7 @@ e04nafSolve htPage ==
         (isDomain EM $EmptyMode)
           (isDomain F (Float))
             (isDomain I (Integer))),
-                :aList,:blList,:buList,:cList,:fList,:hList,:xList,:iList]
+ 		:aList,:blList,:buList,:cList,:fList,:hList,:xList,:iList]
   page:= htInitPage('"E04NAF - Quadratic programming problem",nil)
   htSay '"\menuitemstyle{}\tab{2} "
   htSay '"Enter the elements of the array {\it a(nrowa,n)}: \newline "
@@ -1683,12 +1699,12 @@ e04nafGen htPage ==
   y := alist
   for i in 1..(n+nclin) repeat
     temp := STRCONC ((first y).1," ")
-    ilist := [temp,:ilist]      
+    ilist := [temp,:ilist]	
     y := rest y
   istring := bcwords2liststring ilist    
   for i in 1..n repeat
     temp := STRCONC ((first y).1," ")
-    xlist := [temp,:xlist]      
+    xlist := [temp,:xlist]	
     y := rest y
   xstring := bcwords2liststring xlist    
   for i in 1..nrowh repeat -- matrix H
@@ -1702,22 +1718,22 @@ e04nafGen htPage ==
   hmatstr := bcwords2liststring [bcwords2liststring x for x in hmatlist]  
   for i in 1..(n+nclin) repeat
     temp := STRCONC ((first y).1," ")
-    flist := [temp,:flist]      
+    flist := [temp,:flist]	
     y := rest y
   fstring := bcwords2liststring flist    
   for i in 1..n repeat
     temp := STRCONC ((first y).1," ")
-    clist := [temp,:clist]      
+    clist := [temp,:clist]	
     y := rest y
   cstring := bcwords2liststring clist    
   for i in 1..(n+nclin) repeat
     temp := STRCONC ((first y).1," ")
-    bulist := [temp,:bulist]    
+    bulist := [temp,:bulist]	
     y := rest y
   bustring := bcwords2liststring bulist    
   for i in 1..(n+nclin) repeat
     temp := STRCONC ((first y).1," ")
-    bllist := [temp,:bllist]    
+    bllist := [temp,:bllist]	
     y := rest y
   blstring := bcwords2liststring bllist    
   for i in 1..nrowa repeat -- matrix A
@@ -1748,7 +1764,7 @@ e04ucf() ==
   htInitPage('"E04UCF - Minimum, function of several variables, sequential QP method, nonlinear constraints, using function values and optionally 1st derivatives", nil)
   htMakePage '(
     (domainConditions 
-        (isDomain EM $EmptyMode)
+  	(isDomain EM $EmptyMode)
         (isDomain PI (PositiveInteger))
         (isDomain F (Float)))
     (text . "\windowlink{Manual Page}{manpageXXe04ucf} for this routine ")
@@ -1896,7 +1912,7 @@ e04ucfSolve(htPage) ==
         (isDomain EM $EmptyMode)
           (isDomain F (Float))
             (isDomain I (Integer))),
-                :aList,:blList,:buList,:cList,:funcList,:xList,
+ 		:aList,:blList,:buList,:cList,:funcList,:xList,
                   :'(
     (text . "\blankline ")
     (text . "\newline ")
@@ -2086,16 +2102,16 @@ e04ucfDefaultSolve(htPage,nclin,ncnln,nrowa,nrowj,nrowr,liwork,lwork,ifail) ==
     (text . "\menuitemstyle{}\tab{2}")
     (text . "Enter the nonlinear constraint functions, {\it c(ncnln)} ")
     (text . "in terms of X[1]...X[n]: ")
-    (text . "\newline ")        
+    (text . "\newline ")	
     (bcStrings (55 "X[1]**2 + X[2]**2 + X[3]**2 + X[4]**2" cx1 EM))
-    (text . "\newline ")        
+    (text . "\newline ")	
     (bcStrings (55 "X[1]*X[2]*X[3]*X[4]" cx2 EM))
-    (text . "\newline ")        
+    (text . "\newline ")	
     (text . "\blankline ")
     (text . "\menuitemstyle{}\tab{2}")
     (text . "Enter the objective function, {\it F(x)} ")
     (text . "in terms of X[1]...X[n]: ")
-    (text . "\newline ")        
+    (text . "\newline ")	
     (bcStrings (55 "X[1]*X[4]*(X[1] + X[2] + X[3]) + X[3]" of  EM))
     (text . "\blankline ")
     (text . "\menuitemstyle{}\tab{2}")
@@ -2161,24 +2177,24 @@ e04ucfGen htPage ==
     ver := 3
     for i in 1..n repeat
       temp := STRCONC ((first y).1," ")
-      xlist := [temp,:xlist]    
+      xlist := [temp,:xlist]	
       y := rest y
     xstring := bcwords2liststring xlist
     f := (first y).1
     y := rest y
     for i in 1..ncnln repeat
       temp := STRCONC ((first y).1," ")
-      cxlist := [temp,:cxlist]  
+      cxlist := [temp,:cxlist]	
       y := rest y
     cxstring := bcwords2liststring cxlist
     for i in 1..(n+nclin+ncnln) repeat
       temp := STRCONC ((first y).1," ")
-      bulist := [temp,:bulist]  
+      bulist := [temp,:bulist]	
       y := rest y
     buu := bcwords2liststring bulist
     for i in 1..(n+nclin+ncnln) repeat
       temp := STRCONC ((first y).1," ")
-      bllist := [temp,:bllist]  
+      bllist := [temp,:bllist]	
       y := rest y
     bll := bcwords2liststring bllist
     for i in 1..nrowa repeat -- matrix A
@@ -2249,24 +2265,24 @@ e04ucfGen htPage ==
     y := rest y
     for i in 1..n repeat
       temp := STRCONC ((first y).1," ")
-      xlist := [temp,:xlist]    
+      xlist := [temp,:xlist]	
       y := rest y
     xstring := bcwords2liststring xlist
     f := (first y).1
     y := rest y
     for i in 1..ncnln repeat
       temp := STRCONC ((first y).1," ")
-      cxlist := [temp,:cxlist]  
+      cxlist := [temp,:cxlist]	
       y := rest y
     cxstring := bcwords2liststring cxlist
     for i in 1..(n+nclin+ncnln) repeat
       temp := STRCONC ((first y).1," ")
-      bulist := [temp,:bulist]  
+      bulist := [temp,:bulist]	
       y := rest y
     buu := bcwords2liststring bulist
     for i in 1..(n+nclin+ncnln) repeat
       temp := STRCONC ((first y).1," ")
-      bllist := [temp,:bllist]  
+      bllist := [temp,:bllist]	
       y := rest y
     bll := bcwords2liststring bllist
     for i in 1..nrowa repeat -- matrix A
@@ -2318,7 +2334,7 @@ e04ycf() ==
   htInitPage('"E04YCF - Covariance matrix for non-linear least-squares problem", nil)
   htMakePage '(
     (domainConditions 
-        (isDomain EM $EmptyMode)
+  	(isDomain EM $EmptyMode)
         (isDomain PI (PositiveInteger))
         (isDomain F (Float)))
     (text . "\windowlink{Manual Page}{manpageXXe04ycf} for this routine ")
@@ -2413,7 +2429,7 @@ e04ycfSolve htPage ==
         (isDomain EM $EmptyMode)
           (isDomain F (Float))
             (isDomain I (Integer))),
-                :sList,:vList]
+ 		:sList,:vList]
   page:= htInitPage('"E04YCF - Covariance matrix for non-linear least-squares problem", nil)
   htSay '"\menuitemstyle{}\tab{2} "
   htSay '"Enter the elements of the array {\it s(n)}: \newline "
@@ -2480,12 +2496,12 @@ e04ycfGen htPage ==
   y := alist
   for i in 1..(lv*n) repeat
     temp := STRCONC ((first y).1," ")
-    vlist := [temp,:vlist]      
+    vlist := [temp,:vlist]	
     y := rest y
   vstring := bcwords2liststring vlist    
   for i in 1..n repeat
     temp := STRCONC ((first y).1," ")
-    slist := [temp,:slist]      
+    slist := [temp,:slist]	
     y := rest y
   sstring := bcwords2liststring slist    
   prefix := STRCONC("e04ycf(",STRINGIMAGE job,",", STRINGIMAGE m,", ")
@@ -2496,3 +2512,9 @@ e04ycfGen htPage ==
 
 
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/nag-f01.boot b/src/interp/nag-f01.boot.pamphlet
index e3deaf9a..7751874b 100644
--- a/src/interp/nag-f01.boot
+++ b/src/interp/nag-f01.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp nag-f01.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 f01brf() ==
   htInitPage("F01BRF - LU factorization of real sparse matrix",nil)
@@ -73,12 +89,12 @@ f01brf() ==
     (text . "\blankline")
     (text . "\menuitemstyle{}\tab{2} Grow value:")
     (radioButtons grow
-        ("" "  True" gr_true)
+	("" "  True" gr_true)
         ("" "  False" gr_false))
     (text . "\blankline")
     (text . "\menuitemstyle{}\tab{2} Lblock value:")
     (radioButtons lblock
-        ("" "  True" lb_true)
+	("" "  True" lb_true)
         ("" "  False" lb_false))
     (text . "\blankline ")
     (text . "\newline \tab{2} ")
@@ -140,7 +156,7 @@ f01brfSolve htPage ==
     '0
   ifail := 100*cfail + 10*bfail + afail
   ((n = '6 and nz = '15) and (licn = '150 and lirn = '75))
-                => f01brfDefaultSolve(htPage,pivot,grow,lblock,ifail)
+		=> f01brfDefaultSolve(htPage,pivot,grow,lblock,ifail)
   labelList :=
     "append"/[f(i) for i in 1..nz] where f(i) ==
       prefix := ('"\newline \tab{2} ")
@@ -166,7 +182,7 @@ f01brfSolve htPage ==
           (isDomain EM ($EmptyMode))
            (isDomain F (Float))
             (isDomain PI (PositiveInteger))),
-             :labelList,:abortList]
+	     :labelList,:abortList]
   page :=  htInitPage("F01BRF - LU factorization of real sparse matrix",nil)
   htSay '"\menuitemstyle{}\tab{2} Non-zero elements of A: "
   htSay '"\tab{30} \menuitemstyle{}\tab{32} Row: "
@@ -297,7 +313,7 @@ f01brfDefaultSolve(htPage,pivot,grow,lblock,ifail) ==
     (bcStrings (8 "true" abort_two EM))
     (bcStrings (8 "false" abort_three EM))
     (bcStrings (8 "true" abort_four EM)))
-  htMakeDoneButton('"Continue",'f01brfGen)      
+  htMakeDoneButton('"Continue",'f01brfGen)    	
   htpSetProperty(page,'n,n)
   htpSetProperty(page,'nz,nz)
   htpSetProperty(page,'licn,licn)
@@ -465,7 +481,7 @@ f01mafSolve htPage ==
   droptl := htpLabelInputString(htPage, 'droptl)
   densw := htpLabelInputString(htPage, 'densw)
   ((n = '16 and nz = '40) and (licn = '90 and lirn = '50))
-                => f01mafDefaultSolve(htPage,droptl,densw,ifail)
+		=> f01mafDefaultSolve(htPage,droptl,densw,ifail)
   labelList :=
     "append"/[f(i) for i in 1..nz] where f(i) ==
       prefix := ('"\newline \tab{2} ")
@@ -490,7 +506,7 @@ f01mafSolve htPage ==
           (isDomain EM ($EmptyMode))
            (isDomain F (Float))
             (isDomain PI (PositiveInteger))),
-             :labelList,:abortList]
+	     :labelList,:abortList]
   page :=  htInitPage("F01MAF - \htbitmap{llt} factorization of real sparse symmetric positive-definite matrix",nil)
   htSay '"\menuitemstyle{}\tab{2} Non-zero elements of A: "
   htSay '"\tab{30} \menuitemstyle{}\tab{32} Row: "
@@ -770,7 +786,7 @@ f01mafDefaultSolve(htPage,droptl,densw,ifail) ==
     (bcStrings (8 "true" abort_one EM))
     (bcStrings (8 "true" abort_two EM))
     (bcStrings (8 "true" abort_three EM)))
-  htMakeDoneButton('"Continue",'f01mafGen)      
+  htMakeDoneButton('"Continue",'f01mafGen)    	
   htpSetProperty(page,'n,n)
   htpSetProperty(page,'nz,nz)
   htpSetProperty(page,'licn,licn)
@@ -888,7 +904,7 @@ f01mcfSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :labelList,:nrowList]
+	    :labelList,:nrowList]
   page := htInitPage("F01MCF - \htbitmap{ldlt} factorization of real symmetric positive-definite variable-bandwidth matrix",nil)
   htSay '"\menuitemstyle{}\tab{2} Elements of matrix {\it A} in row by row "
   htSay '"order: \newline \tab{2} "
@@ -939,7 +955,7 @@ f01mcfDefaultSolve  (htPage,ifail) ==
     (bcStrings (6 5 n5 PI))
     (bcStrings (6 3 n6 PI))
     (text . "\blankline "))
-  htMakeDoneButton('"Continue",'f01mcfGen)      
+  htMakeDoneButton('"Continue",'f01mcfGen)    	
   htpSetProperty(page,'n,n)
   htpSetProperty(page,'lal,lal)
   htpSetProperty(page,'ifail,ifail)
@@ -1037,7 +1053,7 @@ f01qcfSolve htPage ==
   matList :=
     "append"/[f(i,n) for i in 1..lda] where f(i,n) ==
        labelList := 
-         "append"/[g(i,j) for j in 1..n] where g(i,j) ==
+	 "append"/[g(i,j) for j in 1..n] where g(i,j) ==
             anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
             [['bcStrings,[6, "0.0", anam, 'F]]]
        prefix := ('"\newline \tab{2} ")
@@ -1048,7 +1064,7 @@ f01qcfSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :matList]
+	    :matList]
   page := htInitPage("F01QCF - QR factorization or real m by n matrix (m \htbitmap{great=} n)",nil)
   htSay '"\newline \menuitemstyle{}\tab{2} Enter values of {\it A}: "
   htSay '"\newline \tab{2} "
@@ -1233,7 +1249,7 @@ f01qdfSolve htPage ==
   matList :=
     "append"/[fa(i,n) for i in 1..lda] where fa(i,n) ==
        labelList := 
-         "append"/[ga(i,j) for j in 1..n] where ga(i,j) ==
+	 "append"/[ga(i,j) for j in 1..n] where ga(i,j) ==
             anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
             [['bcStrings,[6, "0.0", anam, 'F]]]
        prefix := ('"\newline \tab{2} ")
@@ -1241,7 +1257,7 @@ f01qdfSolve htPage ==
   bList :=
     "append"/[fb(i,ncolb) for i in 1..ldb] where fb(i,ncolb) ==
        labelList := 
-         "append"/[gb(i,j) for j in 1..ncolb] where gb(i,j) ==
+	 "append"/[gb(i,j) for j in 1..ncolb] where gb(i,j) ==
             bnam := INTERN STRCONC ('"b",STRINGIMAGE i, STRINGIMAGE j)
             [['bcStrings,[6, "0.0", bnam, 'F]]]
        prefix := ('"\newline \tab{2} ")
@@ -1261,7 +1277,7 @@ f01qdfSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :matList,:bList,:zList]
+	    :matList,:bList,:zList]
   page := htInitPage('"F01QDF - Operations with orthogonal matrices, compute {\it QB} or \htbitmap{f01qdf} after factorization by F01QCF or F01QDF",nil)
   htSay '"\newline \menuitemstyle{}\tab{2} Enter values of {\it A}: "
   htSay '"\newline \tab{2} "
@@ -1475,7 +1491,7 @@ f01qefSolve htPage ==
   matList :=
     "append"/[fa(i,ncolq) for i in 1..lda] where fa(i,ncolq) ==
        labelList := 
-         "append"/[ga(i,j) for j in 1..ncolq] where ga(i,j) ==
+	 "append"/[ga(i,j) for j in 1..ncolq] where ga(i,j) ==
             anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
             [['bcStrings,[7, "0.0", anam, 'F]]]
        prefix := ('"\newline ")
@@ -1493,7 +1509,7 @@ f01qefSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :matList,:zList]
+	    :matList,:zList]
   page := htInitPage('"F01QEF - Operations with orthogonal matrices, form columns of {\it Q} after factorization by F01QCF or F01QFF",nil)
   htSay '"\newline \menuitemstyle{}\tab{2} Enter values of {\it Q}: "
   htSay '"\newline  "
@@ -1670,7 +1686,7 @@ f01rcfSolve htPage ==
   matList :=
     "append"/[fa(i,n) for i in 1..lda] where fa(i,n) ==
        labelList := 
-         "append"/[ga(i,j) for j in 1..n] where ga(i,j) ==
+	 "append"/[ga(i,j) for j in 1..n] where ga(i,j) ==
             anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
             [['bcStrings,[16, "0.0 + 0.0*%i", anam, 'F]]]
        prefix := ('"\newline \tab{2} ")
@@ -1681,7 +1697,7 @@ f01rcfSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :matList]
+	    :matList]
   page := htInitPage('"F01RCF - {\it QR} factorization of complex {\it m} by {\it n} matrix (m \htbitmap{great=} n)",nil)
   htSay '"\newline \menuitemstyle{}\tab{2} Enter values of {\it A}: "
   htSay '"\newline \tab{2} "
@@ -1867,7 +1883,7 @@ f01rdfSolve htPage ==
   matList :=
     "append"/[fa(i,n) for i in 1..lda] where fa(i,n) ==
        labelList := 
-         "append"/[ga(i,j) for j in 1..n] where ga(i,j) ==
+	 "append"/[ga(i,j) for j in 1..n] where ga(i,j) ==
             anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
             [['bcStrings,[16, "0.0 + 0.0*%i", anam, 'F]]]
        prefix := ('"\newline \tab{2} ")
@@ -1875,7 +1891,7 @@ f01rdfSolve htPage ==
   bList :=
     "append"/[fb(i,ncolb) for i in 1..ldb] where fb(i,ncolb) ==
        labelList := 
-         "append"/[gb(i,j) for j in 1..ncolb] where gb(i,j) ==
+	 "append"/[gb(i,j) for j in 1..ncolb] where gb(i,j) ==
             bnam := INTERN STRCONC ('"b",STRINGIMAGE i, STRINGIMAGE j)
             [['bcStrings,[16, "0.0 + 0.0*%i", bnam, 'F]]]
        prefix := ('"\newline \tab{2} ")
@@ -1895,7 +1911,7 @@ f01rdfSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :matList,:bList,:zList]
+	    :matList,:bList,:zList]
   page := htInitPage('"F01RDF - Operations with orthogonal matrices, compute {\it QB} or \htbitmap{f01rdf} after factorization by F01QCF or F01RDF",nil)
   htSay '"\newline \menuitemstyle{}\tab{2} Enter values of {\it A}: "
   htSay '"\newline \tab{2} "
@@ -2114,7 +2130,7 @@ f01refSolve htPage ==
   matList :=
     "append"/[fa(i,n) for i in 1..lda] where fa(i,n) ==
        labelList := 
-         "append"/[ga(i,j) for j in 1..n] where ga(i,j) ==
+	 "append"/[ga(i,j) for j in 1..n] where ga(i,j) ==
             anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
             [['bcStrings,[20, "0.0 + 0.0*%i", anam, 'F]]]
        prefix := ('"\newline \tab{2} ")
@@ -2132,7 +2148,7 @@ f01refSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :matList,:zList]
+	    :matList,:zList]
   page := htInitPage('"F01REF - Operations with unitary matrices, form columns of {\it Q} after factorization by F01RCF",nil)
   htSay '"\newline \menuitemstyle{}\tab{2} Enter values of {\it A}: "
   htSay '"\newline \tab{2} "
@@ -2228,3 +2244,9 @@ f01refGen htPage ==
   prefix := STRCONC(prefix,matstring,", ",STRINGIMAGE ifail,")")
   linkGen prefix
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/nag-f02.boot b/src/interp/nag-f02.boot.pamphlet
index d532b389..ccbd74f5 100644
--- a/src/interp/nag-f02.boot
+++ b/src/interp/nag-f02.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp nag-f02.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 f02aaf() ==
   htInitPage('"F02AAF - All eigenvalues of real symmetric matrix (Black box)",nil)
@@ -82,7 +98,7 @@ f02aafSolve htPage ==
   matList :=
     "append"/[f(i,n) for i in 1..ia] where f(i,n) ==
        labelList := 
-         "append"/[g(i,j) for j in 1..n] where g(i,j) ==
+	 "append"/[g(i,j) for j in 1..n] where g(i,j) ==
             anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
             [['bcStrings,[6, "0.0", anam, 'F]]]
        prefix := ('"\newline \tab{2} ")
@@ -93,7 +109,7 @@ f02aafSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :matList]
+	    :matList]
   page := htInitPage("F02AAF - All eigenvalues of real symmetric matrix (Black box)",nil)
   htSay '"\newline \menuitemstyle{}\tab{2} Enter values of {\it A}: "
   htSay '"\newline \tab{2} "
@@ -226,7 +242,7 @@ f02abfSolve htPage ==
   matList :=
     "append"/[f(i,n) for i in 1..ia] where f(i,n) ==
        labelList := 
-         "append"/[g(i,j) for j in 1..n] where g(i,j) ==
+	 "append"/[g(i,j) for j in 1..n] where g(i,j) ==
             anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
             [['bcStrings,[6, "0.0", anam, 'F]]]
        prefix := ('"\newline \tab{2} ")
@@ -237,7 +253,7 @@ f02abfSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :matList]
+	    :matList]
   page := htInitPage("F02ABF - All eigenvalues and eigenvectors of real symmetric matrix (Black box)",nil)
   htSay '"\newline \menuitemstyle{}\tab{2} Enter values of {\it A}: "
   htSay '"\newline \tab{2} "
@@ -371,7 +387,7 @@ f02adfSolve htPage ==
   matList :=
     "append"/[f(i,n) for i in 1..ia] where f(i,n) ==
        labelList := 
-         "append"/[g(i,j) for j in 1..n] where g(i,j) ==
+	 "append"/[g(i,j) for j in 1..n] where g(i,j) ==
             anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
             [['bcStrings,[6, "0.0", anam, 'F]]]
        prefix := ('"\newline \tab{2} ")
@@ -392,7 +408,7 @@ f02adfSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :matList,:bmatList]
+	    :matList,:bmatList]
   page := htInitPage("F02ADF - All eigenvalues of generalized real eigenproblem of the form Ax = \lambda Bx where A and B are symmetric and B is positive definite",nil)
   htSay '"\newline \menuitemstyle{}\tab{2} Enter values of {\it A}: "
   htSay '"\newline \tab{2} "
@@ -566,7 +582,7 @@ f02aefSolve htPage ==
   matList :=
     "append"/[f(i,n) for i in 1..ia] where f(i,n) ==
        labelList := 
-         "append"/[g(i,j) for j in 1..n] where g(i,j) ==
+	 "append"/[g(i,j) for j in 1..n] where g(i,j) ==
             anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
             [['bcStrings,[6, "0.0", anam, 'F]]]
        prefix := ('"\newline \tab{2} ")
@@ -587,7 +603,7 @@ f02aefSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :matList,:bmatList]
+	    :matList,:bmatList]
   page := htInitPage("F02AEF - All eigenvalues and eigenvectors of generalized real eigenproblem of the form Ax = \lambda Bx where A and B are symmetric and B is positive definite",nil)
   htSay '"\newline \menuitemstyle{}\tab{2} Enter values of {\it A}: "
   htSay '"\newline \tab{2} "
@@ -751,7 +767,7 @@ f02affSolve htPage ==
   matList :=
     "append"/[f(i,n) for i in 1..ia] where f(i,n) ==
        labelList := 
-         "append"/[g(i,j) for j in 1..n] where g(i,j) ==
+	 "append"/[g(i,j) for j in 1..n] where g(i,j) ==
             anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
             [['bcStrings,[6, "0.0", anam, 'F]]]
        prefix := ('"\newline \tab{2} ")
@@ -762,7 +778,7 @@ f02affSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :matList]
+	    :matList]
   page := htInitPage("F02AFF - All eigenvalues of real matrix (Black box)",nil)
   htSay '"\newline \menuitemstyle{}\tab{2} Enter values of {\it A}: "
   htSay '"\newline \tab{2} "
@@ -904,7 +920,7 @@ f02agfSolve htPage ==
   matList :=
     "append"/[f(i,n) for i in 1..ia] where f(i,n) ==
        labelList := 
-         "append"/[g(i,j) for j in 1..n] where g(i,j) ==
+	 "append"/[g(i,j) for j in 1..n] where g(i,j) ==
             anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
             [['bcStrings,[6, "0.0", anam, 'F]]]
        prefix := ('"\newline \tab{2} ")
@@ -915,7 +931,7 @@ f02agfSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :matList]
+	    :matList]
   page := htInitPage("F02AGF - All eigenvalues and eigenvectors of real matrix (Black box)",nil)
   htSay '"\newline \menuitemstyle{}\tab{2} Enter values of {\it A}: "
   htSay '"\newline \tab{2} "
@@ -1055,7 +1071,7 @@ f02ajfSolve htPage ==
   matList :=
     "append"/[f(i,n) for i in 1..iar] where f(i,n) ==
        labelList := 
-         "append"/[g(i,j) for j in 1..n] where g(i,j) ==
+	 "append"/[g(i,j) for j in 1..n] where g(i,j) ==
             anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
             [['bcStrings,[6, "0.0", anam, 'F]]]
        prefix := ('"\newline \tab{2} ")
@@ -1076,7 +1092,7 @@ f02ajfSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :matList,:bmatList]
+	    :matList,:bmatList]
   page := htInitPage("F02AJF - All eigenvalues of complex matrix (Black box)",nil)
   htSay '"\newline \menuitemstyle{}\tab{2} Enter real values of {\it A}: "
   htSay '"\newline \tab{2} "
@@ -1260,7 +1276,7 @@ f02akfSolve htPage ==
   matList :=
     "append"/[f(i,n) for i in 1..iar] where f(i,n) ==
        labelList := 
-         "append"/[g(i,j) for j in 1..n] where g(i,j) ==
+	 "append"/[g(i,j) for j in 1..n] where g(i,j) ==
             anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
             [['bcStrings,[6, "0.0", anam, 'F]]]
        prefix := ('"\newline \tab{2} ")
@@ -1281,7 +1297,7 @@ f02akfSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :matList,:bmatList]
+	    :matList,:bmatList]
   page := htInitPage("F02AKF - All eigenvalues and eigenvectors of complex matrix (Black box)",nil)
   htSay '"\newline \menuitemstyle{}\tab{2} Enter real values of {\it A}: "
   htSay '"\newline \tab{2} "
@@ -1456,7 +1472,7 @@ f02awfSolve htPage ==
   matList :=
     "append"/[f(i,n) for i in 1..iar] where f(i,n) ==
        labelList := 
-         "append"/[g(i,j) for j in 1..n] where g(i,j) ==
+	 "append"/[g(i,j) for j in 1..n] where g(i,j) ==
             anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
             [['bcStrings,[6, "0.0", anam, 'F]]]
        prefix := ('"\newline \tab{2} ")
@@ -1477,7 +1493,7 @@ f02awfSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :matList,:bmatList]
+	    :matList,:bmatList]
   page := htInitPage("F02AWF - All eigenvalues of complex Hermitian matrix (Black box)",nil)
   htSay '"\newline \menuitemstyle{}\tab{2} Enter real values of {\it AR}: "
   htSay '"\newline \tab{2} "
@@ -1661,7 +1677,7 @@ f02axfSolve htPage ==
   matList :=
     "append"/[f(i,n) for i in 1..iar] where f(i,n) ==
        labelList := 
-         "append"/[g(i,j) for j in 1..n] where g(i,j) ==
+	 "append"/[g(i,j) for j in 1..n] where g(i,j) ==
             anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
             [['bcStrings,[6, "0.0", anam, 'F]]]
        prefix := ('"\newline \tab{2} ")
@@ -1682,7 +1698,7 @@ f02axfSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :matList,:bmatList]
+	    :matList,:bmatList]
   page := htInitPage("F02AXF - All eigenvalues and eigenvectors of complex Hermitian matrix (Black box)",nil)
   htSay '"\newline \menuitemstyle{}\tab{2} Enter real values of {\it A}: "
   htSay '"\newline \tab{2} "
@@ -1878,7 +1894,7 @@ f02bbfSolve htPage ==
   matList :=
     "append"/[f(i,n) for i in 1..ia] where f(i,n) ==
        labelList := 
-         "append"/[g(i,j) for j in 1..n] where g(i,j) ==
+	 "append"/[g(i,j) for j in 1..n] where g(i,j) ==
             anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
             [['bcStrings,[6, "0.0", anam, 'F]]]
        prefix := ('"\newline \tab{2} ")
@@ -1889,7 +1905,7 @@ f02bbfSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :matList]
+	    :matList]
   page := htInitPage('"F02BBF - Selected eigenvalues and eigenvectors of real symmetric matrix (Black box)",nil)
   htSay '"\newline \menuitemstyle{}\tab{2} Enter values of {\it A}: "
   htSay '"\newline \tab{2} "
@@ -2068,7 +2084,7 @@ f02bjfSolve htPage ==
   matList :=
     "append"/[f(i,n) for i in 1..ia] where f(i,n) ==
        labelList := 
-         "append"/[g(i,j) for j in 1..n] where g(i,j) ==
+	 "append"/[g(i,j) for j in 1..n] where g(i,j) ==
             anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
             [['bcStrings,[6, "0.0", anam, 'F]]]
        prefix := ('"\newline \tab{2} ")
@@ -2089,7 +2105,7 @@ f02bjfSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :matList,:bmatList]
+	    :matList,:bmatList]
   page := htInitPage('"F02BJF - All eigenvalues and optionally eigenvectors of generalized eigenproblem by {\it QZ} algorithm, real matrices (Black box)",nil)
   htSay '"\newline \menuitemstyle{}\tab{2} Enter values of {\it A}: "
   htSay '"\newline \tab{2} "
@@ -2343,11 +2359,11 @@ f02wefSolve htPage ==
     error = 'one => '1
     '-1
   ((m = '5 and n = '3) and ncolb = '1)  => 
-        f02wefDefaultSolve(htPage,lda,ldb,wantq,ldq,ldpt,wantp,ifail)
+	f02wefDefaultSolve(htPage,lda,ldb,wantq,ldq,ldpt,wantp,ifail)
   matList :=
     "append"/[fa(i,n) for i in 1..lda] where fa(i,n) ==
        labelList := 
-         "append"/[ga(i,j) for j in 1..n] where ga(i,j) ==
+	 "append"/[ga(i,j) for j in 1..n] where ga(i,j) ==
             anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
             [['bcStrings,[10, "0.0", anam, 'F]]]
        prefix := ('"\newline \tab{2} ")
@@ -2368,7 +2384,7 @@ f02wefSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :matList,:bList]
+	    :matList,:bList]
   page := htInitPage('"F02WEF - SVD of real matrix",nil)
   htSay '"\newline \menuitemstyle{}\tab{2} Enter values of {\it A}: "
   htSay '"\newline \tab{2} "
@@ -2590,11 +2606,11 @@ f02xefSolve htPage ==
     error = 'one => '1
     '-1
   ((m = '5 and n = '3) and ncolb = '1)  => 
-        f02xefDefaultSolve(htPage,lda,ldb,wantq,ldq,ldph,wantp,ifail)
+	f02xefDefaultSolve(htPage,lda,ldb,wantq,ldq,ldph,wantp,ifail)
   matList :=
     "append"/[fa(i,n) for i in 1..lda] where fa(i,n) ==
        labelList := 
-         "append"/[ga(i,j) for j in 1..n] where ga(i,j) ==
+	 "append"/[ga(i,j) for j in 1..n] where ga(i,j) ==
             anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
             [['bcStrings,[15, "0.0", anam, 'F]]]
        prefix := ('"\newline \tab{2} ")
@@ -2615,7 +2631,7 @@ f02xefSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :matList,:bList]
+	    :matList,:bList]
   page := htInitPage('"F02XEF - SVD of complex matrix",nil)
   htSay '"\newline \menuitemstyle{}\tab{2} Enter values of {\it A}: "
   htSay '"\newline \tab{2} "
@@ -2731,3 +2747,9 @@ f02xefGen htPage ==
   linkGen STRCONC(prefix,STRINGIMAGE ifail,")")
 
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/nag-f04.boot b/src/interp/nag-f04.boot.pamphlet
index 31950c8a..da36ae78 100644
--- a/src/interp/nag-f04.boot
+++ b/src/interp/nag-f04.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp nag-f04.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 f04adf() ==
   htInitPage("F04ADF - Solution of complex simultaneous linear equations, with multiple right-hand sides (Black box)",nil)
@@ -101,7 +117,7 @@ f04adfSolve htPage ==
   matList :=
     "append"/[f(i,n) for i in 1..ia] where f(i,n) ==
        labelList := 
-         "append"/[g(i,j) for j in 1..n] where g(i,j) ==
+	 "append"/[g(i,j) for j in 1..n] where g(i,j) ==
             ianam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
             [['bcStrings,[12, "0.0 + 0.0*%i", ianam, 'F]]]
        prefix := ('"\newline \tab{2} ")
@@ -109,7 +125,7 @@ f04adfSolve htPage ==
   bmatList :=
     "append"/[fb(i,m) for i in 1..ib] where fb(i,m) ==
        blabelList := 
-         "append"/[gb(i,j) for j in 1..m] where gb(i,j) ==
+	 "append"/[gb(i,j) for j in 1..m] where gb(i,j) ==
             bnam := INTERN STRCONC ('"b",STRINGIMAGE i, STRINGIMAGE j)
             [['bcStrings,[12, "0.0 + 0.0*%i", bnam, 'F]]]
        prefix := ('"\newline \tab{2} ")
@@ -264,7 +280,7 @@ f04arfSolve htPage ==
   matList :=
     "append"/[f(i,n) for i in 1..ia] where f(i,n) ==
        labelList := 
-         "append"/[g(i,j) for j in 1..n] where g(i,j) ==
+	 "append"/[g(i,j) for j in 1..n] where g(i,j) ==
             ianam := INTERN STRCONC ('"ia",STRINGIMAGE i, STRINGIMAGE j)
             [['bcStrings,[6, "0.0", ianam, 'F]]]
        prefix := ('"\newline \tab{2} ")
@@ -425,7 +441,7 @@ f04asfSolve htPage ==
   matList :=
     "append"/[f(i,n) for i in 1..ia] where f(i,n) ==
        labelList := 
-         "append"/[g(i,j) for j in 1..n] where g(i,j) ==
+	 "append"/[g(i,j) for j in 1..n] where g(i,j) ==
             ianam := INTERN STRCONC ('"ia",STRINGIMAGE i, STRINGIMAGE j)
             [['bcStrings,[6, "0.0", ianam, 'F]]]
        prefix := ('"\newline \tab{2} ")
@@ -604,7 +620,7 @@ f04atfSolve htPage ==
   matList :=
     "append"/[f(i,n) for i in 1..ia] where f(i,n) ==
        labelList := 
-         "append"/[g(i,j) for j in 1..n] where g(i,j) ==
+	 "append"/[g(i,j) for j in 1..n] where g(i,j) ==
             ianam := INTERN STRCONC ('"ia",STRINGIMAGE i, STRINGIMAGE j)
             [['bcStrings,[6, "0.0", ianam, 'F]]]
        prefix := ('"\newline \tab{2} ")
@@ -808,7 +824,7 @@ f04fafSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :dList,:eList,:bList]
+	    :dList,:eList,:bList]
   page := htInitPage("F04FAF - Solution of real symmetric positive-definite tridiagonal simultaneous linear equations, one right-hand side (Black box)",nil)
   htMakePage equationPart
   htMakeDoneButton('"Continue",'f04fafGen)
@@ -864,7 +880,7 @@ f04fafDefaultSolve  (htPage,job,ifail) ==
     (bcStrings (10 14 b4 F))
     (text . "\newline \tab{2} ")
     (bcStrings (10 7 b5 F)))
-  htMakeDoneButton('"Continue",'f04fafGen)      
+  htMakeDoneButton('"Continue",'f04fafGen)    	
   htpSetProperty(page,'n,n)
   htpSetProperty(page,'job,job)
   htpSetProperty(page,'ifail,ifail)
@@ -973,7 +989,7 @@ f04jgfSolve htPage ==
   matList :=
     "append"/[f(i,n) for i in 1..m] where f(i,n) ==
        labelList := 
-         "append"/[g(i,j) for j in 1..n] where g(i,j) ==
+	 "append"/[g(i,j) for j in 1..n] where g(i,j) ==
             anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
             [['bcStrings,[6, "0.0", anam, 'F]]]
        prefix := ('"\newline \tab{2} ")
@@ -991,7 +1007,7 @@ f04jgfSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :matList,:bmatList]
+	    :matList,:bmatList]
   page := htInitPage("F04JGF - Least-squares (if rank = {\it n}) or minimal least-squares (if rank < {\it n}) solution of {\it m} real equations in {\it n} unknowns, rank \inputbitmap{\htbmdir{}/less=.bitmap} {\it n}, {\it m} \inputbitmap{\htbmdir{}/great=.bitmap} {\it n}",nil)
   htSay '"\newline \menuitemstyle{}\tab{2} Enter values of {\it A}: "
   htSay '"\newline \tab{2} "
@@ -1223,7 +1239,7 @@ f04mcfSolve htPage ==
   bList :=
     "append"/[f(i,ir) for i in 1..nrb] where f(i,ir) ==
        labelList := 
-         "append"/[g(i,j) for j in 1..ir] where g(i,j) ==
+	 "append"/[g(i,j) for j in 1..ir] where g(i,j) ==
             bnam := INTERN STRCONC ('"b",STRINGIMAGE i, STRINGIMAGE j)
             [['bcStrings,[6, "0.0", bnam, 'F]]]
        prefix := ('"\newline ")
@@ -1237,7 +1253,7 @@ f04mcfSolve htPage ==
          (isDomain S (String))
           (isDomain F (Float))
            (isDomain PI (PositiveInteger))),
-            :labelList,:dList,:nrowList,:bList]
+	    :labelList,:dList,:nrowList,:bList]
   page := htInitPage("F04MCF - Approximate solution of real symmetric positive-definite variable-bandwidth simultaneous linear equations (coefficient matrix already factorized)",nil)
   htSay '"\menuitemstyle{}\tab{2} Elements of matrix {\it AL} in row by row "
   htSay '"order as returned by F01MCF: \newline "
@@ -1331,7 +1347,7 @@ f04mcfDefaultSolve  (htPage,iselct,ifail) ==
     (text . "\tab{10} ")
     (bcStrings (6 "67" b62 PI))
     (text . "\blankline "))
-  htMakeDoneButton('"Continue",'f04mcfGen)      
+  htMakeDoneButton('"Continue",'f04mcfGen)    	
   htpSetProperty(page,'n,n)
   htpSetProperty(page,'lal,lal)
   htpSetProperty(page,'ir,ir)
@@ -2307,3 +2323,9 @@ f04qafGen htPage ==
 
 
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/nag-f07.boot b/src/interp/nag-f07.boot.pamphlet
index a0551786..3de2bb32 100644
--- a/src/interp/nag-f07.boot
+++ b/src/interp/nag-f07.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp nag-f07.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 f07adf() ==
   htInitPage('"F07ADF - {\it LU} factorization of real {\it m} by {\it n} matrix",nil)
@@ -80,11 +96,11 @@ f07adfSolve htPage ==
        labelList := [['text,:prefix],:labelList]
   equationPart := [
      '(domainConditions 
-        (isDomain EM $EmptyMode)
+	(isDomain EM $EmptyMode)
           (isDomain S (String))
             (isDomain F (Float))
-              (isDomain I (Integer))),
-                :aList]
+	      (isDomain I (Integer))),
+ 		:aList]
   page := htInitPage('"F07ADF - {\it LU} factorization of real {\it m} by {\it n} matrix",nil)
   htSay '"\menuitemstyle{}\tab{2} "
   htSay '"Enter the array {\it A}:"
@@ -255,7 +271,7 @@ f07aefSolve htPage ==
          (isDomain S (String))
          (isDomain F (Float))
          (isDomain I (Integer)))
-             ,:aList,:ipList,:bList]
+	     ,:aList,:ipList,:bList]
   page := htInitPage('"F07AEF - Solution of a real system of linear equations with multiple right-hand sides after factorization by F07ADF",nil)
   htSay '"\menuitemstyle{}\tab{2} "
   htSay '"Enter the matrix {\it A}:"
@@ -596,7 +612,7 @@ f07fefSolve htPage ==
          (isDomain S (String))
          (isDomain F (Float))
          (isDomain I (Integer)))
-             ,:aList,:bList]
+	     ,:aList,:bList]
   page := htInitPage('"F07FEF - Solution of a real symmetric positive-definite system of linear equations with multiple right-hand sides after factorization by F07FDF",nil)
   htSay '"\menuitemstyle{}\tab{2} "
   htSay '"Enter the matrix {\it A}:"
@@ -702,3 +718,9 @@ f07fefGen htPage ==
   prefix := STRCONC(prefix,STRINGIMAGE ldb,", ",bstring,"::Matrix DoubleFloat)")
   linkGen prefix
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/nag-s.boot b/src/interp/nag-s.boot.pamphlet
index 21017e3a..1e2d0486 100644
--- a/src/interp/nag-s.boot
+++ b/src/interp/nag-s.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp nag-s.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 s01eaf() ==
   page := htInitPage("S01EAF - Complex exponential {\em exp(z)} ",nil)
@@ -1580,3 +1596,9 @@ sGen htPage ==
     -1
   linkGen STRCONC(routine,"(",x,'",",STRINGIMAGE ifail,'")")
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/newfort.boot b/src/interp/newfort.boot.pamphlet
index f5af06f2..b5720292 100644
--- a/src/interp/newfort.boot
+++ b/src/interp/newfort.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp newfort.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 --% Translation of Expression to FORTRAN
 assignment2Fortran1(name,e) ==
@@ -943,3 +959,9 @@ segment2(e,topSize) ==
   newVar := newFortranTempVar()
   [newVar,['"=",newVar,newE],:exprs]
  
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/nhyper.boot b/src/interp/nhyper.boot.pamphlet
index ad10f860..d0fb8051 100644
--- a/src/interp/nhyper.boot
+++ b/src/interp/nhyper.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp nhyper.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 -- HyperTex Spad interface
 
@@ -117,3 +133,9 @@ HTKillPage w ==
    
 HTErrorSignal() ==
   sockSendInt($MenuServer, $SpadError)
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot.pamphlet
index 71bb7b77..fbc94289 100644
--- a/src/interp/nruncomp.boot
+++ b/src/interp/nruncomp.boot.pamphlet
@@ -1,3 +1,20 @@
+\documentclass{article}
+\usepackage{axiom}
+
+\title{\$SPAD/src/interp nruncomp.boot}
+\author{The Axiom Team}
+
+\begin{document}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+
+\section{License}
+
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +46,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 -----------------------------NEW buildFunctor CODE-----------------------------
 NRTaddDeltaCode() ==
@@ -142,7 +162,7 @@ optDeltaEntry(op,sig,dc,eltOrConst) ==
          not(IDENTP x) => x
          get(x,'value,$e) => x
          x='$ => x
-         MKQ x
+	 MKQ x
      fn := compiledLookup(op,nsig,dcval)
      if null fn then return nil
   eltOrConst="CONST" => ['XLAM,'ignore,MKQ SPADCALL fn]
@@ -741,3 +761,9 @@ NRTputInTail x ==
 
 
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/nrunfast.boot b/src/interp/nrunfast.boot.pamphlet
index db9136af..e6a29b12 100644
--- a/src/interp/nrunfast.boot
+++ b/src/interp/nrunfast.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp nrunfast.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 --=======================================================================
 --                     Basic Functions
@@ -532,7 +548,7 @@ newExpandLocalTypeForm([functorName,:argl],dollar,domain) ==
     [functorName,:[['_:,tag,newExpandLocalTypeArgs(dom,dollar,domain,true)]
                                  for [.,tag,dom] in argl]]
   MEMQ(functorName, '(Union Mapping)) =>
-          [functorName,:[newExpandLocalTypeArgs(a,dollar,domain,true) for a in argl]]
+	  [functorName,:[newExpandLocalTypeArgs(a,dollar,domain,true) for a in argl]]
   functorName = 'QUOTE => [functorName,:argl]
   coSig := GETDATABASE(functorName,'COSIG)
   NULL coSig => error ["bad functorName", functorName]
@@ -612,7 +628,7 @@ newHasTest(domform,catOrAtt) ==
       for [aCat,:cond] in [:ancestorsOf(domform,NIL),:SUBLISLIS (rest domform,$FormalMapVariableList,GETDATABASE(opOf domform,'ATTRIBUTES))] |  aCat = catOrAtt  repeat
          return evalCond cond where
            evalCond x ==
-             ATOM x => x
+	     ATOM x => x
              [pred,:l] := x
              pred = 'has => 
                   l is [ w1,['ATTRIBUTE,w2]] => newHasTest(w1,w2) 
@@ -668,3 +684,9 @@ sayLooking1(prefix,dom) ==
 cc() == -- don't remove this function
   clearConstructorCaches()
   clearClams()
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/nrungo.boot b/src/interp/nrungo.boot.pamphlet
index 379b511a..72a8e153 100644
--- a/src/interp/nrungo.boot
+++ b/src/interp/nrungo.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp nrungo.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 --=======================================================
 --             Lookup From Interpreter
@@ -393,3 +409,9 @@ mkDiffAssoc(op,body,k,sharpPosition,sharpArg,diffSlot,vecname) ==
           ['$failed]
     "union"/[mkDiffAssoc(op,x,k,sharpPosition,sharpArg,diffSlot,vecname) for x in argl]
   systemErrorHere '"mkDiffAssoc"
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/nrunopt.boot b/src/interp/nrunopt.boot.pamphlet
index 7bdba59a..672131fc 100644
--- a/src/interp/nrunopt.boot
+++ b/src/interp/nrunopt.boot.pamphlet
@@ -1,3 +1,20 @@
+\documentclass{article}
+\usepackage{axiom}
+
+\title{\File{src/interp/nrunopt.boot} Pamphlet}
+\author{The Axiom Team}
+
+\begin{document}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+
+\section{License}
+
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +46,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 --=======================================================================
 --            Generate Code to Create Infovec
@@ -901,3 +921,9 @@ templateVal(template,domform,index) ==
   index = 0 => harhar() --template
   template.index
    
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/nruntime.boot b/src/interp/nruntime.boot.pamphlet
index 23606999..c2d809d1 100644
--- a/src/interp/nruntime.boot
+++ b/src/interp/nruntime.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp nruntime.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 unloadOneConstructor(cnam,fn) ==
     REMPROP(cnam,'LOADED)
@@ -56,3 +72,9 @@ isCategoryPackageName nam ==
   p.(MAXINDEX p) = char '_&
 
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/osyscmd.boot b/src/interp/osyscmd.boot.pamphlet
index 996d53f8..c1afede2 100644
--- a/src/interp/osyscmd.boot
+++ b/src/interp/osyscmd.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp osyscmd.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 )package "BOOT"
 
@@ -51,3 +67,9 @@ parseFromString(s) ==
    StreamNull s => nil
    pf2Sex macroExpanded first rest first s
  
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/package.boot b/src/interp/package.boot.pamphlet
index 399838ef..f97f86ac 100644
--- a/src/interp/package.boot
+++ b/src/interp/package.boot.pamphlet
@@ -1,3 +1,20 @@
+\documentclass{article}
+\usepackage{axiom}
+
+\title{\File{src/interp/package.boot} Pamphlet}
+\author{The Axiom Team}
+
+\begin{document}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+
+\section{License}
+
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +46,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 )package "BOOT"
 
@@ -272,3 +292,9 @@ addSuffix(n,u) ==
   INTERNL STRCONC(s,STRINGIMAGE ";",STRINGIMAGE n)
  
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/packtran.boot b/src/interp/packtran.boot.pamphlet
index 9634b9b6..b1814ddf 100644
--- a/src/interp/packtran.boot
+++ b/src/interp/packtran.boot.pamphlet
@@ -1,3 +1,20 @@
+\documentclass{article}
+\usepackage{axiom}
+
+\title{\$SPAD/src/interp packtran.boot}
+\author{The Axiom Team}
+
+\begin{document}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+
+\section{License}
+
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +46,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 )package "BOOT"
 
@@ -58,3 +78,9 @@ zeroOneTran sex ==
   NSUBST("$EmptyMode", "?", sex)
   sex
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/pathname.boot b/src/interp/pathname.boot.pamphlet
index f10cf327..300d2c41 100644
--- a/src/interp/pathname.boot
+++ b/src/interp/pathname.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp pathname.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 )package "BOOT"
 
@@ -141,3 +157,9 @@ updateSourceFiles p ==
   if MAKE_-INPUT_-FILENAME p and pathnameTypeId p in '(BOOT LISP META) then
     $sourceFiles := insert(p, $sourceFiles)
   p
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/pf2atree.boot b/src/interp/pf2atree.boot.pamphlet
index 0ea1cf7f..29e85ad1 100644
--- a/src/interp/pf2atree.boot
+++ b/src/interp/pf2atree.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp pf2atree.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 -- not hooked in yet
 
@@ -551,3 +567,9 @@ pfCollect2Atree pf ==
 --    rhsSex := pf2Atree CADR argList
 --    $predicateList := [[name, lhsSex, :rhsSex], :$predicateList]
 --    name
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/pf2sex.boot b/src/interp/pf2sex.boot.pamphlet
index da4c7b19..a5ea9b6e 100644
--- a/src/interp/pf2sex.boot
+++ b/src/interp/pf2sex.boot.pamphlet
@@ -1,3 +1,59 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp pf2sex.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{Changes}
+In the function [[float2Sex]] we need to special case the return value
+if the global variable [[$useBFasDefault]] is set to true. This variable
+allows ``big'' floating point values.
+
+The change can be seen from this email from Greg Vanuxem:
+\begin{verbatim}
+Attached is the patch (pf2sex.patch) that allows the use 
+of DoubleFloat by default in the interpreter. Test it.
+
+(1) -> 1.7+7.2
+
+   (1)  8.9
+                               Type: Float
+(2) -> 1.7-7.2
+
+   (2)  - 5.5
+                               Type: Float
+(3) -> -1.7-7.2
+
+   (3)  - 8.9
+                               Type: Float
+(4) -> )boot $useBFasDefault:=false
+
+(SPADLET |$useBFasDefault| NIL)
+Value = NIL
+
+(4) -> 1.7+7.2
+
+   (4)  8.9000000000000004
+                               Type: DoubleFloat
+(5) -> 1.7-7.2
+
+   (5)  - 5.5
+                               Type: DoubleFloat
+(6) -> -1.7-7.2
+
+   (6)  - 8.9000000000000004
+                               Type: DoubleFloat
+
+
+
+\end{verbatim}
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +85,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 )package "BOOT"
 
@@ -459,3 +518,9 @@ pfSuchThat2Sex args ==
 
 
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/postpar.boot b/src/interp/postpar.boot.pamphlet
index c5a3619d..67cf814a 100644
--- a/src/interp/postpar.boot
+++ b/src/interp/postpar.boot.pamphlet
@@ -1,3 +1,19 @@
+\documentclass{article}
+\usepackage{axiom}
+
+\title{\$SPAD/src/interp postpar.boot}
+\author{The Axiom Team}
+
+\begin{document}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +45,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 import '"postprop"
 )package "BOOT"
@@ -527,3 +546,10 @@ hasAplExtension argl ==
 deepestExpression x ==
   x is ["_!",y] => deepestExpression y
   x
+@
+
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/profile.boot b/src/interp/profile.boot.pamphlet
index b5cb25a1..e3b83f66 100644
--- a/src/interp/profile.boot
+++ b/src/interp/profile.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp profile.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 --$profileCompiler := true
 $profileAlist := nil
@@ -87,3 +103,9 @@ profileDisplayOp(op,alist1) ==
     for [op1,:sig] in MSORT alist2 repeat
       sayBrightly ['"    ",:formatOpSignature(op1,sig)]
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/pspad1.boot b/src/interp/pspad1.boot.pamphlet
index b936eb77..408ff6f5 100644
--- a/src/interp/pspad1.boot
+++ b/src/interp/pspad1.boot.pamphlet
@@ -1,3 +1,20 @@
+\documentclass{article}
+\usepackage{axiom}
+
+\title{\File{src/interp/pspad1.boot} Pamphlet}
+\author{The Axiom Team}
+
+\begin{document}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+
+\section{License}
+
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +46,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 )package "BOOT"
 
@@ -739,3 +759,9 @@ formatLocal1 a ==
   $insideTypeExpression: local := true
   format a
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/pspad2.boot b/src/interp/pspad2.boot.pamphlet
index d97d4cea..54e9a584 100644
--- a/src/interp/pspad2.boot
+++ b/src/interp/pspad2.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp pspad2.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 )package "BOOT"
 
@@ -659,3 +675,9 @@ formatRB(originalC) == --called only by restoreC
   $pileStyle => $m
   newLine() and format "}" and $m    --==> brace
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/redefs.boot.pamphlet b/src/interp/redefs.boot.pamphlet
new file mode 100644
index 00000000..519c3fbb
--- /dev/null
+++ b/src/interp/redefs.boot.pamphlet
@@ -0,0 +1,92 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp redefs.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
+-- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
+-- All rights reserved.
+--
+-- Redistribution and use in source and binary forms, with or without
+-- modification, are permitted provided that the following conditions are
+-- met:
+--
+--     - Redistributions of source code must retain the above copyright
+--       notice, this list of conditions and the following disclaimer.
+--
+--     - Redistributions in binary form must reproduce the above copyright
+--       notice, this list of conditions and the following disclaimer in
+--       the documentation and/or other materials provided with the
+--       distribution.
+--
+--     - Neither the name of The Numerical ALgorithms Group Ltd. nor the
+--       names of its contributors may be used to endorse or promote products
+--       derived from this software without specific prior written permission.
+--
+-- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
+-- IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
+-- TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
+-- PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
+-- OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+-- EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+-- PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+-- PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+-- LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+-- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+-- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+@
+<<*>>=
+<<license>>
+
+)package "BOOT"
+
+BLANKS n== MAKE_-FULL_-CVEC (n)
+
+object2String x==
+   STRINGP x=>x
+   IDENTP x=> PNAME x
+   STRINGIMAGE x
+ 
+sayMSG x== shoeConsole x
+sayBrightly x==
+       brightPrint x
+       TERPRI()
+;;char x==CHAR(PNAME x,0)
+pathname x==CONCAT(PNAME(x.0),'".",PNAME(x.1))
+CVECP x== STRINGP x
+concat(:l) == concatList l
+ 
+concatList [x,:y] ==
+  null y => x
+  null x => concatList y
+  concat1(x,concatList y)
+ 
+concat1(x,y) ==
+  null x => y
+  atom x => (null y => x; atom y => [x,y]; [x,:y])
+  null y => x
+  atom y => [:x,y]
+  [:x,:y]
+ 
+--$FILESIZE x==
+--     a:=OPEN MAKE_-INPUT_-FILENAME x
+--     b:=FILE_-LENGTH a
+--     CLOSE a
+--     b
+SPADCATCH(x,y)==CATCH(x,y)
+SPADTHROW(x,y)==THROW(x,y)
+listSort(f,l)== SORT(l,f)
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/rulesets.boot b/src/interp/rulesets.boot.pamphlet
index 66f79f7b..b2ceefa6 100644
--- a/src/interp/rulesets.boot
+++ b/src/interp/rulesets.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp rulesets.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 --% Mode and Type Resolution Rule Data and Ruleset Creation
 
@@ -301,3 +317,9 @@ initializeRuleSets() ==
   createTypeEquivRules()
   $ruleSetsInitialized := true
   true
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/server.boot b/src/interp/server.boot.pamphlet
index 01a4a073..3af5ccdb 100644
--- a/src/interp/server.boot
+++ b/src/interp/server.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp server.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 -- Scratchpad-II server
 
@@ -216,3 +232,9 @@ protectedEVAL x ==
   UNWIND_-PROTECT((val := EVAL x; error := NIL),
                    error => (resetStackLimits(); sendHTErrorSignal()))
   val
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/setq.lisp b/src/interp/setq.lisp.pamphlet
index 6d80b7c4..ae3011b7 100644
--- a/src/interp/setq.lisp
+++ b/src/interp/setq.lisp.pamphlet
@@ -1,3 +1,22 @@
+%% Oh Emacs, this is a -*- Lisp -*- file despite apperance.
+\documentclass{article}
+\usepackage{axiom}
+
+\title{\File{src/interp/setq.lisp} Pamphlet}
+\author{Timothy Daly}
+
+\begin{document}
+
+\maketitle
+\begin{abstract}
+\end{abstract}
+
+\tableofcontents
+\eject
+
+\section{License}
+
+<<license>>=
 ;; Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 ;; All rights reserved.
 ;;
@@ -29,6 +48,9 @@
 ;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 ;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 (setq copyrights '(
  "Copyright The Numerical Algorithms Group Limited 1991-94."
@@ -74,8 +96,8 @@
 (SETQ |$compileOnlyCertainItems| NIL)
 (SETQ |$devaluateList| NIL)
 (SETQ |$doNotCompressHashTableIfTrue| NIL)
-(SETQ |$mutableChecking| NIL)    ; used in DEFINE BOOT
-(SETQ |$mutableDomains| NIL)     ; checked in DEFINE BOOT
+(SETQ |$mutableChecking| NIL)	 ; used in DEFINE BOOT
+(SETQ |$mutableDomains| NIL)	 ; checked in DEFINE BOOT
 (SETQ |$functionLocations| NIL)
 (SETQ |$functorLocalParameters| NIL) ; used in compSymbol
 (SETQ /RELEASE '"UNKNOWN")
@@ -107,8 +129,8 @@
 (SETQ INITCOLUMN 0)
 (SETQ |$functionTable| NIL)
 (SETQ |$spaddefs| NIL)
-(SETQ |$xeditIsConsole|  NIL)
-(SETQ |$echoInputLines|  NIL)       ;; This is in SETVART also
+(SETQ |$xeditIsConsole|	 NIL)
+(SETQ |$echoInputLines|	 NIL)	    ;; This is in SETVART also
 (SETQ |$Slot1DataBase| (MAKE-HASHTABLE 'ID))  ;; See NRUNTIME BOOT
 (SETQ |$pfKeysForBrowse|  NIL)
 (SETQ MARG 0)
@@ -140,12 +162,12 @@
 
 (SETQ |$InterpreterMacroAlist|
       '((|%i| . (|complex| 0 1))
-        (|%e| . (|exp| 1))
-        (|%pi| . (|pi|))
-        (|SF| . (|DoubleFloat|))
-        (|%infinity| . (|infinity|))
-        (|%plusInfinity| . (|plusInfinity|))
-        (|%minusInfinity| . (|minusInfinity|))))
+	(|%e| . (|exp| 1))
+	(|%pi| . (|pi|))
+	(|SF| . (|DoubleFloat|))
+	(|%infinity| . (|infinity|))
+	(|%plusInfinity| . (|plusInfinity|))
+	(|%minusInfinity| . (|minusInfinity|))))
 
 ;; variables controlling companion pages (see copage.boot)
 (SETQ |$HTCompanionWindowID| nil)
@@ -164,7 +186,7 @@
 (SETQ RLGENSYMLST NIL)
 (SETQ XTOKENREADER 'SPADTOK)
 (SETQ |$delimiterTokenList|
-  '(| |  |)| |(| |{| |}| |[| |]| ENDOFLINECHR EOI EOL |END_LINE|))
+  '(| |	 |)| |(| |{| |}| |[| |]| ENDOFLINECHR EOI EOL |END_LINE|))
 (SETQ |$generalTokenIfTrue| NIL)
 (SETQ OPASSOC NIL)
 (SETQ SPADSYSKEY '(EOI EOL))
@@ -193,60 +215,60 @@
 
 ;; These were originally in INIT LISP
 
-(SETQ |$dependeeClosureAlist|       NIL)
+(SETQ |$dependeeClosureAlist|	    NIL)
 (SETQ |$userModemaps| NIL)
 (SETQ |$functorForm| NIL)
 
 (SETQ |$InitialCommandSynonymAlist| '(
-       (|?|          . "what commands")
-       (|ap|         . "what things")
-       (|apr|        . "what things")
+       (|?|	     . "what commands")
+       (|ap|	     . "what things")
+       (|apr|	     . "what things")
        (|apropos|    . "what things")
-       (|cache|      . "set functions cache")
-       (|cl|         . "clear")
-       (|cls|        . "zsystemdevelopment )cls")
-       (|cms|        . "system")
-       (|co|         . "compiler")
-       (|d|          . "display")
-       (|dep|        . "display dependents")
+       (|cache|	     . "set functions cache")
+       (|cl|	     . "clear")
+       (|cls|	     . "zsystemdevelopment )cls")
+       (|cms|	     . "system")
+       (|co|	     . "compiler")
+       (|d|	     . "display")
+       (|dep|	     . "display dependents")
        (|dependents| . "display dependents")
-       (|e|          . "edit")
+       (|e|	     . "edit")
        (|expose|     . "set expose add constructor")
-       (|fc|         . "zsystemdevelopment )c")
-       (|fd|         . "zsystemdevelopment )d")
-       (|fdt|        . "zsystemdevelopment )dt")
-       (|fct|        . "zsystemdevelopment )ct")
-       (|fctl|       . "zsystemdevelopment )ctl")
-       (|fe|         . "zsystemdevelopment )e")
-       (|fec|        . "zsystemdevelopment )ec")
-       (|fect|       . "zsystemdevelopment )ect")
-       (|fns|        . "exec spadfn")
+       (|fc|	     . "zsystemdevelopment )c")
+       (|fd|	     . "zsystemdevelopment )d")
+       (|fdt|	     . "zsystemdevelopment )dt")
+       (|fct|	     . "zsystemdevelopment )ct")
+       (|fctl|	     . "zsystemdevelopment )ctl")
+       (|fe|	     . "zsystemdevelopment )e")
+       (|fec|	     . "zsystemdevelopment )ec")
+       (|fect|	     . "zsystemdevelopment )ect")
+       (|fns|	     . "exec spadfn")
        (|fortran|    . "set output fortran")
-       (|h|          . "help")
-       (|hd|         . "system hypertex &")
-       (|kclam|      . "boot clearClams ( )")
+       (|h|	     . "help")
+       (|hd|	     . "system hypertex &")
+       (|kclam|	     . "boot clearClams ( )")
        (|killcaches| . "boot clearConstructorAndLisplibCaches ( )")
-       (|patch|      . "zsystemdevelopment )patch")
-       (|pause|      . "zsystemdevelopment )pause")
+       (|patch|	     . "zsystemdevelopment )patch")
+       (|pause|	     . "zsystemdevelopment )pause")
        (|prompt|     . "set message prompt")
        (|recurrence| . "set functions recurrence")
        (|restore|    . "history )restore")
-       (|save|       . "history )save")
+       (|save|	     . "history )save")
        (|startGraphics|    .  "system $AXIOM/lib/viewman &")
        (|startNAGLink|     .  "system $AXIOM/lib/nagman &")
        (|stopGraphics|     .  "lisp (|sockSendSignal| 2 15)")
        (|stopNAGLink|      .  "lisp (|sockSendSignal| 8 15)")
-       (|time|       . "set message time")
-       (|type|       . "set message type")
+       (|time|	     . "set message time")
+       (|type|	     . "set message type")
        (|unexpose|   . "set expose drop constructor")
-       (|up|         . "zsystemdevelopment )update")
+       (|up|	     . "zsystemdevelopment )update")
        (|version|    . "lisp *yearweek*")
-       (|w|          . "what")
-       (|wc|         . "what categories")
-       (|wd|         . "what domains")
+       (|w|	     . "what")
+       (|wc|	     . "what categories")
+       (|wd|	     . "what domains")
        (|who|        . "lisp (pprint credits)")
-       (|wp|         . "what packages")
-       (|ws|         . "what synonyms")
+       (|wp|	     . "what packages")
+       (|ws|	     . "what synonyms")
 ))
 
 (SETQ |$CommandSynonymAlist| (COPY |$InitialCommandSynonymAlist|))
@@ -282,7 +304,7 @@
 
 (SETQ |$tracedMapSignatures| ())
 (SETQ |$highlightAllowed| 'T)
-         ;" used in BRIGHTPRINT and is a )set variable"
+	 ;" used in BRIGHTPRINT and is a )set variable"
 
 (SETQ |$printStorageIfTrue| NIL) ;; storage info disabled in common lisp
 
@@ -328,44 +350,44 @@
 
 ;; Following were originally in EXPLORE BOOT
 
-(SETQ |$xdatabase|         NIL)
+(SETQ |$xdatabase|	   NIL)
 (SETQ |$CatOfCatDatabase|  NIL)
 (SETQ |$DomOfCatDatabase|  NIL)
 (SETQ |$JoinOfDomDatabase| NIL)
 (SETQ |$JoinOfCatDatabase| NIL)
-(SETQ |$attributeDb|       NIL)
+(SETQ |$attributeDb|	   NIL)
 
 (SETQ |$abbreviateIfTrue|  NIL)
-(SETQ |$deltax|  0)
-(SETQ |$deltay|  0)
-(SETQ |$displayDomains|  'T)
-(SETQ |$displayTowardAncestors|  NIL)
-(SETQ |$focus|  NIL)
+(SETQ |$deltax|	 0)
+(SETQ |$deltay|	 0)
+(SETQ |$displayDomains|	 'T)
+(SETQ |$displayTowardAncestors|	 NIL)
+(SETQ |$focus|	NIL)
 (SETQ |$focusAccessPath|  NIL)
 (SETQ |$minimumSeparation|  3)
-(SETQ |$origMaxColumn|  80)
+(SETQ |$origMaxColumn|	80)
 (SETQ |$origMaxRow|  20)
-(SETQ |$origMinColumn|  1)
+(SETQ |$origMinColumn|	1)
 (SETQ |$origMinRow|  1)
 
 ;; ---- start of initial settings for variables used in test.boot
 
 (SETQ |$testOutputLineFlag| NIL)   ;; referenced by charyTop, prnd
-                                   ;; to stash lines
+				   ;; to stash lines
 (SETQ |$testOutputLineStack| NIL)  ;; saves lines to be printed
-                                   ;; (needed to convert lines for use
-                                   ;; in hypertex)
-(SETQ |$runTestFlag| NIL)          ;; referenced by maPrin to stash
-                                   ;; output by recordAndPrint to not
-                                   ;; print type/time
-(SETQ |$mkTestFlag| NIL)           ;; referenced by READLN to stash input
-                                   ;; by maPrin to stash output
-                                   ;; by recordAndPrint to write i/o
-                                   ;; onto $testStream
-(SETQ |$mkTestInputStack| NIL)     ;; saves input for $testStream
-                                   ;; (see READLN)
-(SETQ |$mkTestOutputStack| NIL)    ;; saves output for $testStream
-                                   ;; (see maPrin)
+				   ;; (needed to convert lines for use
+				   ;; in hypertex)
+(SETQ |$runTestFlag| NIL)	   ;; referenced by maPrin to stash
+				   ;; output by recordAndPrint to not
+				   ;; print type/time
+(SETQ |$mkTestFlag| NIL)	   ;; referenced by READLN to stash input
+				   ;; by maPrin to stash output
+				   ;; by recordAndPrint to write i/o
+				   ;; onto $testStream
+(SETQ |$mkTestInputStack| NIL)	   ;; saves input for $testStream
+				   ;; (see READLN)
+(SETQ |$mkTestOutputStack| NIL)	   ;; saves output for $testStream
+				   ;; (see maPrin)
 
 ;; ---- end of initial settings for variables used in test.boot
 
@@ -466,3 +488,9 @@
 "Dan Zwillinger"
 ))
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/sfsfun-l.lisp b/src/interp/sfsfun-l.lisp.pamphlet
index 2a15752a..c7c992e0 100644
--- a/src/interp/sfsfun-l.lisp
+++ b/src/interp/sfsfun-l.lisp.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp sfsfun-l.lisp}
+\author{Timothy Daly}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 ;; Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 ;; All rights reserved.
 ;;
@@ -29,6 +42,9 @@
 ;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 ;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 (in-package "BOOT")
 
@@ -46,8 +62,8 @@
 (defun c-to-r (c)
     (let ((r (realpart c)) (i (imagpart c)))
       (if (or (zerop i) (< (abs i) (* 1.0E-10 (abs r))))
-          r
-        (|error| "Result is not real.")) ))
+	  r
+	(|error| "Result is not real.")) ))
 
 ;; Wrappers for functions in the special function package
 (defun rlngamma  (x)           (|lnrgamma| x) )
@@ -67,3 +83,9 @@
 (defun cbesseli  (v z) (c-to-s (|BesselI| (s-to-c v) (s-to-c z)) ))
 
 (defun chyper0f1 (a z) (c-to-s (|chebf01| (s-to-c a) (s-to-c z)) ))
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/showimp.boot b/src/interp/showimp.boot.pamphlet
index 94daf168..49b72338 100644
--- a/src/interp/showimp.boot
+++ b/src/interp/showimp.boot.pamphlet
@@ -1,3 +1,20 @@
+\documentclass{article}
+\usepackage{axiom}
+
+\title{\File{src/interp/showimp.boot} Pamphlet}
+\author{The Axiom Team}
+
+\begin{document}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+
+\section{License}
+
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +46,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 )package "BOOT"
 
@@ -169,7 +189,7 @@ getCategoriesOfDomain domain ==
        devaluateSlotDomain(x,domain)
 
 getInheritanceByDoc(D,op,sig,:options) ==
---gets inheritance and documentation information by looking in the LISPLIB      
+--gets inheritance and documentation information by looking in the LISPLIB 	
 --for each ancestor of the domain
   catList := KAR options or getExtensionsOfDomain D
   getDocDomainForOpSig(op,sig,devaluate D,D) or
@@ -250,3 +270,9 @@ formatLazyDomainForm(dom,x) ==
  
 
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/simpbool.boot b/src/interp/simpbool.boot.pamphlet
index 12455d20..88021ab9 100644
--- a/src/interp/simpbool.boot
+++ b/src/interp/simpbool.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp simpbool.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 )package "BOOT"
 
@@ -201,3 +217,9 @@ testPredList u ==
     pp x
     pp '"==========>"
     pp y
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/slam.boot b/src/interp/slam.boot.pamphlet
index 8427e698..4b080f02 100644
--- a/src/interp/slam.boot
+++ b/src/interp/slam.boot.pamphlet
@@ -1,3 +1,17 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\File{src/interp/slam.boot} Pamphlet}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +43,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 )package "BOOT"
 
@@ -333,3 +350,10 @@ clearAllSlams x ==
 clearSlam("functor")==
   id:= mkCacheName functor
   SET(id,nil)
+@
+
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/sockio.lisp b/src/interp/sockio.lisp.pamphlet
index d20205d1..2a585267 100644
--- a/src/interp/sockio.lisp
+++ b/src/interp/sockio.lisp.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp sockio.lisp}
+\author{Timothy Daly}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 ;; Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 ;; All rights reserved.
 ;;
@@ -29,6 +42,9 @@
 ;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 ;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 ;; load C socket functions
 
@@ -164,10 +180,10 @@
 (defconstant SessionIO          4)
 (defconstant MessageServer      5)
 (defconstant InterpWindow       6)
-(defconstant KillSpad           7)
-(defconstant DebugWindow        8)
+(defconstant KillSpad		7)
+(defconstant DebugWindow	8)
 (defconstant NAGLinkServer      8)
-(defconstant Forker             9)
+(defconstant Forker		9)
 
 ;; same constants for use in BOOT
 (defconstant |$SessionManager|  SessionManager)
@@ -176,10 +192,10 @@
 (defconstant |$SessionIO|       SessionIO)
 (defconstant |$MessageServer|   MessageServer)
 (defconstant |$InterpWindow|    InterpWindow)
-(defconstant |$KillSpad|        KillSpad)
+(defconstant |$KillSpad|	KillSpad)
 (defconstant |$DebugWindow|     DebugWindow)
 (defconstant |$NAGLinkServer|   NAGLinkServer)
-(defconstant |$Forker|          Forker)
+(defconstant |$Forker|		Forker)
 
 ;; Session Manager action requests
 
@@ -194,8 +210,8 @@
 (defconstant QuietSpadCommand   9)
 (defconstant CloseClient        10)
 (defconstant QueryClients       11)
-(defconstant QuerySpad          12)
-(defconstant NonSmanSession     13)
+(defconstant QuerySpad		12)
+(defconstant NonSmanSession	13)
 (defconstant KillLispSystem     14)
 
 (defconstant |$CreateFrame|     CreateFrame)
@@ -209,27 +225,27 @@
 (defconstant |$QuietSpadCommand| QuietSpadCommand)
 (defconstant |$CloseClient|     CloseClient)
 (defconstant |$QueryClients|    QueryClients)
-(defconstant |$QuerySpad|       QuerySpad)
-(defconstant |$NonSmanSession|  NonSmanSession)
+(defconstant |$QuerySpad|	QuerySpad)
+(defconstant |$NonSmanSession|	NonSmanSession)
 (defconstant |$KillLispSystem|  KillLispSystem)
 
 ;; signal types (from /usr/include/sys/signal.h)
 #+(and :Lucid (not :ibm/370))
 (progn 
-  (defconstant  SIGUSR1 16)     ;; user defined signal 1
-  (defconstant  SIGUSR2 17)     ;; user defined signal 2
+  (defconstant	SIGUSR1	16)	;; user defined signal 1
+  (defconstant	SIGUSR2	17)	;; user defined signal 2
   )
 
 #+:RIOS
 (progn 
-  (defconstant  SIGUSR1 30)     ;; user defined signal 1
-  (defconstant  SIGUSR2 31)     ;; user defined signal 2
+  (defconstant	SIGUSR1	30)	;; user defined signal 1
+  (defconstant	SIGUSR2	31)	;; user defined signal 2
   )
 
 #+:IBMPS2
 (progn
-  (defconstant  SIGUSR1 30)     ;; user defined signal 1
-  (defconstant  SIGUSR2 31)     ;; user defined signal 2
+  (defconstant	SIGUSR1	30)	;; user defined signal 1
+  (defconstant	SIGUSR2	31)	;; user defined signal 2
   )
 
 (setq |$NaNvalue| (NANQ))
@@ -239,3 +255,9 @@
   (setq |$plusInfinity| MOST-POSITIVE-LONG-FLOAT)
 (setq |$minusInfinity| (- |$plusInfinity|))
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/spad.lisp b/src/interp/spad.lisp.pamphlet
index dedfa3e0..010aa043 100644
--- a/src/interp/spad.lisp
+++ b/src/interp/spad.lisp.pamphlet
@@ -1,3 +1,23 @@
+%% Oh Emacs, this is a -*- Lisp -*- file despite apperance.
+
+\documentclass{article}
+\usepackage{axiom}
+
+\title{\File{src/interp/spad.lisp} Pamphlet}
+\author{Timothy Daly}
+
+\begin{document}
+\maketitle
+
+\begin{abstract}
+\end{abstract}
+
+\tableofcontents
+\eject
+
+\section{License}
+
+<<license>>=
 ;; Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 ;; All rights reserved.
 ;;
@@ -29,8 +49,12 @@
 ;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 ;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+
+<<*>>=
+<<license>>
 
-; NAME:    Scratchpad Package
+; NAME:	   Scratchpad Package
 ; PURPOSE: This is an initialization and system-building file for Scratchpad.
 
 (IMPORT-MODULE "bootlex")
@@ -112,14 +136,14 @@
 
 (DEFUN /TRANSPAD (X)
   (PROG (proplist)
-        (setq proplist (LIST '(FLUID . |true|)
-                             (CONS '|special|
-                                   (COPY-TREE |$InitialDomainsInScope|))))
-        (SETQ |$InteractiveFrame|
-              (|addBinding| '|$DomainsInScope| proplist
-                          (|addBinding| '|$Information| NIL
-                                      (COPY-TREE |$InitialModemapFrame|))))
-        (RETURN (PROGN (S-PROCESS X) NIL))))
+	(setq proplist (LIST '(FLUID . |true|)
+			     (CONS '|special|
+				   (COPY-TREE |$InitialDomainsInScope|))))
+	(SETQ |$InteractiveFrame|
+	      (|addBinding| '|$DomainsInScope| proplist
+			  (|addBinding| '|$Information| NIL
+				      (COPY-TREE |$InitialModemapFrame|))))
+	(RETURN (PROGN (S-PROCESS X) NIL))))
 
  ;; NIL needed below since END\_UNIT is not generated by current parser
 
@@ -127,26 +151,26 @@
   (SETQ |$compCount| 0)
   (EMBED '|comp|
      '(LAMBDA (X Y Z)
-         (PROG (U)
-               (SETQ |$compCount| (1+ |$compCount|))
-               (SETQ |yesOrNo| (if (SETQ U (|comp| X Y Z))
-                                   (if (EQUAL (SECOND U) Y) '|yes| (SECOND U))
-                                 ('T '|no|)))
-               (|sayBrightly| (CONS (MAKE-FULL-CVEC |$compCount| " ")
-                                    (LIST X " --> " Y '|%b| |yesOrNo| '|%d|)))
-               (SETQ |$compCount| (1- |$compCount|))
-               (RETURN U)  )))
+	 (PROG (U)
+	       (SETQ |$compCount| (1+ |$compCount|))
+	       (SETQ |yesOrNo| (if (SETQ U (|comp| X Y Z))
+				   (if (EQUAL (SECOND U) Y) '|yes| (SECOND U))
+				 ('T '|no|)))
+	       (|sayBrightly| (CONS (MAKE-FULL-CVEC |$compCount| " ")
+				    (LIST X " --> " Y '|%b| |yesOrNo| '|%d|)))
+	       (SETQ |$compCount| (1- |$compCount|))
+	       (RETURN U)  )))
   (|comp| $x $m $f)
   (UNEMBED '|comp|))
 
 (defun READ-SPAD (FN FM TO)
   (LET ((proplist
-          (LIST '(FLUID . |true|)
-                (CONS '|special| (COPY-TREE |$InitialDomainsInScope|)))))
+	  (LIST '(FLUID . |true|)
+		(CONS '|special| (COPY-TREE |$InitialDomainsInScope|)))))
     (SETQ |$InteractiveFrame|
-          (|addBinding| '|$DomainsInScope| proplist
-                      (|addBinding| '|$Information| NIL
-                                  (|makeInitialModemapFrame|))))
+	  (|addBinding| '|$DomainsInScope| proplist
+		      (|addBinding| '|$Information| NIL
+				  (|makeInitialModemapFrame|))))
     (READ-SPAD0 FN 'SPAD FM TO)))
 
 (defun READ-INPUT (FN FM TO) (READ-SPAD0 FN 'INPUT FM TO))
@@ -158,8 +182,8 @@
 
 (defun UNCONS (X)
   (COND ((ATOM X) X)
-        ((EQCAR X 'CONS) (CONS (SECOND X) (UNCONS (THIRD X))))
-        (T (ERROR "UNCONS"))))
+	((EQCAR X 'CONS) (CONS (SECOND X) (UNCONS (THIRD X))))
+	(T (ERROR "UNCONS"))))
 
 (defun OPTIMIZE\&PRINT (X) (PRETTYPRINT (/MDEF X)))
 
@@ -167,17 +191,17 @@
   (let (c msg)
     (setq C (+ A B))
     (setq MSG (STRCONC "(" (STRINGIMAGE A) " + " (STRINGIMAGE B)
-                       " = " (STRINGIMAGE C) " MS.)"))
+		       " = " (STRINGIMAGE C) " MS.)"))
     (PRINT (STRCONC (STRINGPAD "" (DIFFERENCE 80 (SIZE MSG))) MSG))))
 
 (defun SPAD-MODETRAN (X) (D-TRAN X))
 
 (defun SPAD-EVAL (X)
   (COND ((ATOM X) (EVAL X))
-        ((CONS (FIRST X) (MAPCAR #'SPAD-EVAL (CDR X))))))
+	((CONS (FIRST X) (MAPCAR #'SPAD-EVAL (CDR X))))))
 
 ;************************************************************************
-;         SYSTEM COMMANDS
+;	  SYSTEM COMMANDS
 ;************************************************************************
 
 (defun CLEARDATABASE () (OBEY "ERASE MODEMAP DATABASE"))
@@ -188,9 +212,9 @@
 (defun READLISP (UPPER_CASE_FG)
   (let (v expr val )
     (setq EXPR (READ-FROM-STRING
-                  (IF UPPER_CASE_FG (string-upcase (line-buffer CURRENT-LINE))
-                      (line-buffer CURRENT-LINE))
-                  t nil :start (Line-CURRENT-INDEX CURRENT-LINE)))
+		  (IF UPPER_CASE_FG (string-upcase (line-buffer CURRENT-LINE))
+		      (line-buffer CURRENT-LINE))
+		  t nil :start (Line-CURRENT-INDEX CURRENT-LINE)))
     (VMPRINT EXPR)
     (setq VAL ((LAMBDA (|$InteractiveMode|)  (EVAL EXPR)) NIL))
     (FORMAT t "~&VALUE = ~S" VAL)
@@ -209,7 +233,7 @@
 ;  (SETQ /EDITFILE (LIST /EDIT-FN /EDIT-FT /EDIT-FM))
   (SETQ /EDITFILE L)
   (COND
-    (Q  (/RQ))
+    (Q	(/RQ))
     ('T (/RF)) )
   (FLAG |boot-NewKEY| 'KEY)
   (|terminateSystemCommand|)
@@ -224,8 +248,8 @@
 (defun /COMPINTERP (L OPTS)
   (SETQ /EDITFILE (/MKINFILENAM L))
   (COND ((EQUAL OPTS "rf") (/RF))
-        ((EQUAL OPTS "rq") (/RQ))
-        ('T (/RQ-LIB)))
+	((EQUAL OPTS "rq") (/RQ))
+	('T (/RQ-LIB)))
   (|terminateSystemCommand|)
   (|spadPrompt|))
 
@@ -257,18 +281,18 @@
 
 (defun GP2COND (L)
   (COND ((NOT L) (ERROR "GP2COND"))
-        ((NOT (CDR L))
-         (COND ((EQCAR (FIRST L) 'COLON)
-                (CONS (SECOND L) (LIST (LIST T 'FAIL))))
-               (T (LIST (LIST T (FIRST L)))) ))
-        ((EQCAR (FIRST L) 'COLON) (CONS (CDAR L) (GP2COND (CDR L))))
-        (T (ERROR "GP2COND"))))
+	((NOT (CDR L))
+	 (COND ((EQCAR (FIRST L) 'COLON)
+		(CONS (SECOND L) (LIST (LIST T 'FAIL))))
+	       (T (LIST (LIST T (FIRST L)))) ))
+	((EQCAR (FIRST L) 'COLON) (CONS (CDAR L) (GP2COND (CDR L))))
+	(T (ERROR "GP2COND"))))
 
 (FLAG JUNKTOKLIST 'KEY)
 
 (defmacro |report| (L)
   (SUBST (SECOND L) 'x
-         '(COND ($reportFlag (sayBrightly x)) ((QUOTE T) NIL))))
+	 '(COND ($reportFlag (sayBrightly x)) ((QUOTE T) NIL))))
 
 (defmacro |DomainSubstitutionMacro| (&rest L)
   (|DomainSubstitutionFunction| (first L) (second L)))
@@ -319,54 +343,54 @@
 
 (defun S-PROCESS (X)
   (let ((|$Index| 0)
-        (*print-pretty* t)
-        ($MACROASSOC ())
-        ($NEWSPAD T)
-        (|$compUniquelyIfTrue| nil)
-        |$currentFunction|
-        |$topOp|
-        (|$semanticErrorStack| ())
-        (|$warningStack| ())
-        (|$returnMode| |$EmptyMode|)
-        (|$leaveLevelStack| ())
-        $TOP_LEVEL |$insideFunctorIfTrue| |$insideExpressionIfTrue|
-        |$insideCoerceInteractiveHardIfTrue| |$insideWhereIfTrue|
-        |$insideCategoryIfTrue| |$insideCapsuleFunctionIfTrue| |$form|
-        (|$e| |$EmptyEnvironment|)
-        (|$genSDVar| 0)
-        (|$VariableCount| 0)
-        (|$previousTime| (TEMPUS-FUGIT)))
+	(*print-pretty* t)
+	($MACROASSOC ())
+	($NEWSPAD T)
+	(|$compUniquelyIfTrue| nil)
+	|$currentFunction|
+	|$topOp|
+	(|$semanticErrorStack| ())
+	(|$warningStack| ())
+	(|$returnMode| |$EmptyMode|)
+	(|$leaveLevelStack| ())
+	$TOP_LEVEL |$insideFunctorIfTrue| |$insideExpressionIfTrue|
+	|$insideCoerceInteractiveHardIfTrue| |$insideWhereIfTrue|
+	|$insideCategoryIfTrue| |$insideCapsuleFunctionIfTrue| |$form|
+	(|$e| |$EmptyEnvironment|)
+	(|$genSDVar| 0)
+	(|$VariableCount| 0)
+	(|$previousTime| (TEMPUS-FUGIT)))
     (prog ((CURSTRM CUROUTSTREAM) |$s| |$x| |$m| u)
-          (declare (special CURSTRM |$s| |$x| |$m| CUROUTSTREAM))
-          (SETQ |$exitModeStack| ())
-          (SETQ |$postStack| nil)
-          (SETQ |$TraceFlag| T)
-          (if (NOT X) (RETURN NIL))
-          (setq X (if $BOOT (DEF-RENAME (|new2OldLisp| X))
-                    (|parseTransform| (|postTransform| X))))
-          ;; (if |$TranslateOnly| (RETURN (SETQ |$Translation| X)))
-          (when |$postStack| (|displayPreCompilationErrors|) (RETURN NIL))
-          (COND (|$PrintOnly|
-                 (format t "~S   =====>~%" |$currentLine|)
-                 (RETURN (PRETTYPRINT X))))
-          (if (NOT $BOOT)
-              (if |$InteractiveMode|
-                  (|processInteractive| X NIL)
-                (if (setq U (|compTopLevel|      X |$EmptyMode|
-                             |$InteractiveFrame|))
-                    (SETQ |$InteractiveFrame| (third U))))
-            (DEF-PROCESS X))
-          (if |$semanticErrorStack| (|displaySemanticErrors|))
-          (TERPRI))))
+	  (declare (special CURSTRM |$s| |$x| |$m| CUROUTSTREAM))
+	  (SETQ |$exitModeStack| ())
+	  (SETQ |$postStack| nil)
+	  (SETQ |$TraceFlag| T)
+	  (if (NOT X) (RETURN NIL))
+	  (setq X (if $BOOT (DEF-RENAME (|new2OldLisp| X))
+		    (|parseTransform| (|postTransform| X))))
+	  ;; (if |$TranslateOnly| (RETURN (SETQ |$Translation| X)))
+	  (when |$postStack| (|displayPreCompilationErrors|) (RETURN NIL))
+	  (COND (|$PrintOnly|
+		 (format t "~S   =====>~%" |$currentLine|)
+		 (RETURN (PRETTYPRINT X))))
+	  (if (NOT $BOOT)
+	      (if |$InteractiveMode|
+		  (|processInteractive| X NIL)
+		(if (setq U (|compTopLevel|	 X |$EmptyMode|
+			     |$InteractiveFrame|))
+		    (SETQ |$InteractiveFrame| (third U))))
+	    (DEF-PROCESS X))
+	  (if |$semanticErrorStack| (|displaySemanticErrors|))
+	  (TERPRI))))
 
 (MAKEPROP 'END_UNIT 'KEY T)
 
 (defun |process| (x)
   (COND ((NOT (EQ TOK 'END_UNIT))
-         (SETQ DEBUGMODE 'NO)
-         (SPAD_SYNTAX_ERROR)
-         (if |$InteractiveMode| (|spadThrow|))
-         (S-PROCESS x))))
+	 (SETQ DEBUGMODE 'NO)
+	 (SPAD_SYNTAX_ERROR)
+	 (if |$InteractiveMode| (|spadThrow|))
+	 (S-PROCESS x))))
 
 (defun |evalSharpOne| (x \#1) (declare (special \#1)) (EVAL x))
 
@@ -374,12 +398,12 @@
 
 (defun |New,ENTRY,1| ()
     (let (ZZ str N RLGENSYMFG RLGENSYMLST |NewFLAG| XCAPE *PROMPT*
-          SINGLELINEMODE OK ISID NBLNK COUNT CHR ULCASEFG ($LINESTACK 'BEGIN_UNIT)
-          $TOKSTACK COMMENTCHR TOK LINE BACK INPUTSTREAM XTRANS
-          XTOKENREADER STACK STACKX TRAPFLAG)
+	  SINGLELINEMODE OK ISID NBLNK COUNT CHR ULCASEFG ($LINESTACK 'BEGIN_UNIT)
+	  $TOKSTACK COMMENTCHR TOK LINE BACK INPUTSTREAM XTRANS
+	  XTOKENREADER STACK STACKX TRAPFLAG)
       (SETQ XTRANS '|boot-New|
-            XTOKENREADER 'NewSYSTOK
-            SYNTAX_ERROR 'SPAD_SYNTAX_ERROR)
+	    XTOKENREADER 'NewSYSTOK
+	    SYNTAX_ERROR 'SPAD_SYNTAX_ERROR)
       (FLAG |boot-NewKEY| 'KEY)
       (SETQ *PROMPT* 'Scratchpad-II)
       (PROMPT)
@@ -391,8 +415,8 @@
       (SETQ ULCASEFG T)
       (setq STR (|New,ENTRY,2| '|PARSE-NewEXPR| '|process| curinstream))
       (if (/= 0 (setq N (NOTE STR)))
-          (progn  (SETQ CURINSTREAM (POINTW N CURINSTREAM)))
-          )
+	  (progn  (SETQ CURINSTREAM (POINTW N CURINSTREAM)))
+	  )
       '|END_OF_New|))
 
 (defun |New,ENTRY,2| (RULE FN INPUTSTREAM) (declare (special INPUTSTREAM))
@@ -409,35 +433,35 @@
 
 (defmacro try (X)
   `(LET ((|$autoLine|))
-        (declare (special |$autoLine|))
-        (|tryToFit| (|saveState|) ,X)))
+	(declare (special |$autoLine|))
+	(|tryToFit| (|saveState|) ,X)))
 
 (mapcar #'(lambda (X) (MAKEPROP (CAR X) 'format (CADR X)))
-        '((COMMENT |formatCOMMENT|)
-          (SEQ |formatSEQ|)
-          (DEF |formatDEF|)
-          (LET |formatLET|)
-          (\: |formatColon|)
-          (ELT |formatELT|)
-          (SEGMENT |formatSEGMENT|)
-          (COND |formatCOND|)
-          (SCOND |formatSCOND|)
-          (QUOTE |formatQUOTE|)
-          (CONS |formatCONS|)
-          (|where| |formatWHERE|)
-          (APPEND |formatAPPEND|)
-          (REPEAT |formatREPEAT|)
-          (COLLECT |formatCOLLECT|)
-          (REDUCE |formatREDUCE|)))
+	'((COMMENT |formatCOMMENT|)
+	  (SEQ |formatSEQ|)
+	  (DEF |formatDEF|)
+	  (LET |formatLET|)
+	  (\: |formatColon|)
+	  (ELT |formatELT|)
+	  (SEGMENT |formatSEGMENT|)
+	  (COND |formatCOND|)
+	  (SCOND |formatSCOND|)
+	  (QUOTE |formatQUOTE|)
+	  (CONS |formatCONS|)
+	  (|where| |formatWHERE|)
+	  (APPEND |formatAPPEND|)
+	  (REPEAT |formatREPEAT|)
+	  (COLLECT |formatCOLLECT|)
+	  (REDUCE |formatREDUCE|)))
 
 (defmacro |incTimeSum| (a b)
   (if (not |$InteractiveTimingStatsIfTrue|) a
       (let ((key  b) (oldkey (gensym)) (val (gensym)))
-        `(prog (,oldkey ,val)
-               (setq ,oldkey (|incrementTimeSum| ,key))
-               (setq ,val ,a)
-               (|incrementTimeSum| ,oldkey)
-               (return ,val)))))
+	`(prog (,oldkey ,val)
+	       (setq ,oldkey (|incrementTimeSum| ,key))
+	       (setq ,val ,a)
+	       (|incrementTimeSum| ,oldkey)
+	       (return ,val)))))
 
 (defun GLESSEQP (X Y) (NOT (GGREATERP X Y)))
 
@@ -452,34 +476,34 @@
     (cond
       ((EQCAR (SETQ A (CAR L)) 'ELT)
        (COND ((AND (INTEGERP (SETQ B (CADDR A))) (>= B 0))
-              (SETQ S "CA")
-              (do ((i 1 (1+ i))) ((> i b)) (SETQ S (STRCONC S "D")))
-              (LIST 'RPLAC (LIST (INTERN (STRCONC S "R")) (CADR A)) (CADR L)))
-             ((ERROR "rplac"))))
+	      (SETQ S "CA")
+	      (do ((i 1 (1+ i))) ((> i b)) (SETQ S (STRCONC S "D")))
+	      (LIST 'RPLAC (LIST (INTERN (STRCONC S "R")) (CADR A)) (CADR L)))
+	     ((ERROR "rplac"))))
       ((PROGN
-         (SETQ A (CARCDREXPAND (CAR L) NIL))
-         (SETQ B (CADR L))
-         (COND
-           ((CDDR L) (ERROR 'RPLAC))
-           ((EQCAR A 'CAR) (LIST 'RPLACA (CADR A) B))
-           ((EQCAR A 'CDR) (LIST 'RPLACD (CADR A) B))
-           ((ERROR 'RPLAC))))))))
+	 (SETQ A (CARCDREXPAND (CAR L) NIL))
+	 (SETQ B (CADR L))
+	 (COND
+	   ((CDDR L) (ERROR 'RPLAC))
+	   ((EQCAR A 'CAR) (LIST 'RPLACA (CADR A) B))
+	   ((EQCAR A 'CDR) (LIST 'RPLACD (CADR A) B))
+	   ((ERROR 'RPLAC))))))))
 
 (DEFUN ASSOCIATER (FN LST)
   (COND ((NULL LST) NIL)
-        ((NULL (CDR LST)) (CAR LST))
-        ((LIST FN (CAR LST) (ASSOCIATER FN (CDR LST))))))
+	((NULL (CDR LST)) (CAR LST))
+	((LIST FN (CAR LST) (ASSOCIATER FN (CDR LST))))))
 
 (defun ISLOCALOP-1 (IND)
   "Curindex points at character after '.'"
   (prog (selector buf termtok (NEWCHR (NEXTCHARACTER)))
     (if (TERMINATOR NEWCHR) (RETURN NIL))
     (setq SELECTOR
-          (do ((x nil))
-              (nil)
-            (if (terminator newchr)
-                (reverse x)
-                (push (setq newchr (nextcharacter)) x))))
+	  (do ((x nil))
+	      (nil)
+	    (if (terminator newchr)
+		(reverse x)
+		(push (setq newchr (nextcharacter)) x))))
     (if (EQUAL NEWCHR '\.) (RETURN (ISLOCALOP-1 IND)))
     (setq BUF (GETSTR (LENGTH SELECTOR)))
     (mapc #'(lambda (x) (suffix x buf)) selector)
@@ -487,7 +511,7 @@
     (setq TERMTOK (INTERN BUF))
     (if (NOT (GET TERMTOK 'GENERIC)) (RETURN NIL))
     (if (OR (GET TERMTOK '|Led|) (GET TERMTOK '|Nud|))
-        (GET TERMTOK IND))
+	(GET TERMTOK IND))
     (return TERMTOK)))
 ; **** X. Random tables
 
@@ -536,7 +560,7 @@
 
 (DEFUN DECIMAL-LENGTH (X)
    (LET* ((K (FIX (* #.(LOG 2.0 10.) (INTEGER-LENGTH X))))
-          (X (TRUNCATE (ABS X) (EXPT 10 (1- K)))))
+	  (X (TRUNCATE (ABS X) (EXPT 10 (1- K)))))
      (IF (LESSP X 10) K (1+ K))))
 
 ;(DEFUN DECIMAL-LENGTH2 (X)
@@ -575,9 +599,9 @@
 
 (defun |hashable| (dom)
   (memq (|knownEqualPred| dom)
-        #-Lucid '(EQ EQL EQUAL)
-        #+Lucid '(EQ EQL EQUAL EQUALP)
-        ))
+	#-Lucid '(EQ EQL EQUAL)
+	#+Lucid '(EQ EQL EQUAL EQUALP)
+	))
 
 ;; simpler interpface to RDEFIOSTREAM
 (defun RDEFINSTREAM (&rest fn)
@@ -594,3 +618,9 @@
  `(spadcall (svref ,dollar (the fixnum ,n))))
 
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/spaderror.lisp b/src/interp/spaderror.lisp.pamphlet
index da5bd161..618a94e4 100644
--- a/src/interp/spaderror.lisp
+++ b/src/interp/spaderror.lisp.pamphlet
@@ -1,3 +1,22 @@
+%% Oh Emacs, this is a -*- Lisp -*- file despite apperance.
+\documentclass{article}
+\usepackage{axiom}
+
+\title{\File{src/interp/spaderroor.lisp} Pamphlet}
+\author{Timothy Daly}
+
+\begin{document}
+\maketitle
+
+\begin{abstract}
+\end{abstract}
+
+\tableofcontents
+\eject
+
+\section{License}
+
+<<license>>=
 ;; Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 ;; All rights reserved.
 ;;
@@ -29,6 +48,9 @@
 ;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 ;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 ;; this files contains basic routines for error handling
 (in-package "BOOT")
@@ -58,8 +80,8 @@
 
 (defmacro |trapNumericErrors| (form)
   `(let ((|$oldBreakMode| |$BreakMode|)
-         (|$BreakMode| '|trapNumerics|)
-         (val))
+	 (|$BreakMode| '|trapNumerics|)
+	 (val))
      (setq val (catch '|trapNumerics| ,form))
      (if (eq val |$numericFailure|) val
        (cons 0 val))))
@@ -76,31 +98,31 @@
  (load eval)
  (unembed 'system:universal-error-handler)
  (embed 'system:universal-error-handler
-            '(lambda (type correctable? op
-                           continue-string error-string &rest args)
-               (block
-                nil
-                (setq |$NeedToSignalSessionManager| T)
-                (if (and (boundp '|$inLispVM|) (boundp '|$BreakMode|))
-                    (cond ((eq |$BreakMode| '|validate|)
-                           (|systemError| (error-format error-string args)))
-                          ((and (eq |$BreakMode| '|trapNumerics|)
-                                (eq type :ERROR))
-                           (setq |$BreakMode| nil)                         (throw '|trapNumerics| |$numericFailure|))
+	    '(lambda (type correctable? op
+			   continue-string error-string &rest args)
+	       (block
+		nil
+		(setq |$NeedToSignalSessionManager| T)
+		(if (and (boundp '|$inLispVM|) (boundp '|$BreakMode|))
+		    (cond ((eq |$BreakMode| '|validate|)
+			   (|systemError| (error-format error-string args)))
+			  ((and (eq |$BreakMode| '|trapNumerics|)
+				(eq type :ERROR))
+			   (setq |$BreakMode| nil)			   (throw '|trapNumerics| |$numericFailure|))
                           ((and (eq |$BreakMode| '|trapNumerics|)
-                                (boundp '|$oldBreakMode|)
-                                (setq |$BreakMode| |$oldBreakMode|)
-                                nil)) ;; resets error handler
-                          ((and (null |$inLispVM|)
-                                (memq |$BreakMode| '(|nobreak| |query| |resume|)))
-                           (let ((|$inLispVM| T)) ;; turn off handler
-                             (return
-                              (|systemError| (error-format error-string args)))))
-                          ((eq |$BreakMode| '|letPrint2|)
-                           (setq |$BreakMode| nil)
-                           (throw '|letPrint2| nil))))
-                (apply system:universal-error-handler type correctable? op
-                       continue-string error-string args )))))
+				(boundp '|$oldBreakMode|)
+				(setq |$BreakMode| |$oldBreakMode|)
+				nil)) ;; resets error handler
+			  ((and (null |$inLispVM|)
+				(memq |$BreakMode| '(|nobreak| |query| |resume|)))
+			   (let ((|$inLispVM| T)) ;; turn off handler
+			     (return
+			      (|systemError| (error-format error-string args)))))
+			  ((eq |$BreakMode| '|letPrint2|)
+			   (setq |$BreakMode| nil)
+			   (throw '|letPrint2| nil))))
+		(apply system:universal-error-handler type correctable? op
+		       continue-string error-string args )))))
 
 
 
@@ -111,3 +133,9 @@
 
 
 
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/topics.boot b/src/interp/topics.boot
index 18e06e35..32a7d7bf 100644
--- a/src/interp/topics.boot
+++ b/src/interp/topics.boot
@@ -29,9 +29,10 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+)package "BOOT"
 
 $topicsDefaults := '(
-  (basic elt setelt qelt qsetelt eval xRange yRange zRange map map! qsetelt!)
+  (basic elt setelt qelt qsetelt eval xRange yRange zRange map map_! qsetelt_!)
   (conversion coerce convert retract)
   (hidden retractIfCan Zero One)
   (predicate _< _=)
@@ -40,7 +41,7 @@ $topicsDefaults := '(
   (hyperbolic acosh acoth acsch asech asinh atanh cosh coth csch sech sinh tanh)
   (destructive setelt qsetelt)
   (extraction xRange yRange zRange elt qelt)
-  (transformation map map!))
+  (transformation map map_!))
 
 $topicSynonyms := '(
   (b . basic)
@@ -138,7 +139,7 @@ skipBlanks(u,i,m) ==
 --           Compute Topic Code for Operation
 --=======================================================================
 topicCode lst ==
-  u := [y for x in lst] where y ==
+  u := [y for x in lst] where y() ==
     rename := LASSOC(x,$topicSynonyms) => rename
     x
   if null intersection('(basic extended hidden),u) then u := ['extended,:u]
@@ -156,7 +157,7 @@ topicCode lst ==
 --called to modify DOCUMENTATION property for each "con"
 addTopic2Documentation(con,docAlist) ==
   alist := HGET($conTopicHash,con) or return docAlist
-  [y for x in docAlist] where y ==
+  [y for x in docAlist] where y() ==
     [op,:pairlist] := x
     code := LASSOC(op,alist) or 0
     for sigDoc in pairlist repeat 
diff --git a/src/interp/topics.boot.pamphlet b/src/interp/topics.boot.pamphlet
new file mode 100644
index 00000000..a269b18c
--- /dev/null
+++ b/src/interp/topics.boot.pamphlet
@@ -0,0 +1,263 @@
+\documentclass{article}
+\usepackage{axiom}
+
+\title{\File{src/interp/topics.boot} Pamphlet}
+\author{The Axiom Team}
+
+\begin{document}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
+-- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
+-- All rights reserved.
+--
+-- Redistribution and use in source and binary forms, with or without
+-- modification, are permitted provided that the following conditions are
+-- met:
+--
+--     - Redistributions of source code must retain the above copyright
+--       notice, this list of conditions and the following disclaimer.
+--
+--     - Redistributions in binary form must reproduce the above copyright
+--       notice, this list of conditions and the following disclaimer in
+--       the documentation and/or other materials provided with the
+--       distribution.
+--
+--     - Neither the name of The Numerical ALgorithms Group Ltd. nor the
+--       names of its contributors may be used to endorse or promote products
+--       derived from this software without specific prior written permission.
+--
+-- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
+-- IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
+-- TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
+-- PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
+-- OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+-- EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+-- PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+-- PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+-- LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+-- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+-- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+@
+<<*>>=
+<<license>>
+
+$topicsDefaults := '(
+  (basic elt setelt qelt qsetelt eval xRange yRange zRange map map! qsetelt!)
+  (conversion coerce convert retract)
+  (hidden retractIfCan Zero One)
+  (predicate _< _=)
+  (algebraic _+ _- _* _*_* _/ quo rem exquo)
+  (trignometric acos acot acsc asec asin atan cos cot csc sec sin tan)
+  (hyperbolic acosh acoth acsch asech asinh atanh cosh coth csch sech sinh tanh)
+  (destructive setelt qsetelt)
+  (extraction xRange yRange zRange elt qelt)
+  (transformation map map!))
+
+$topicSynonyms := '(
+  (b . basic)
+  (h . hidden)
+  (e . extended)
+  (a . algebraic)
+  (g . algebraic)
+  (c . construct)
+  (d . destructive)
+  (v . conversion)
+  (m . miscellaneous)
+  (x . extraction)
+  (p . predicate)
+  (tg . trignometric)
+  (hy . hyperbolic)
+  (t . transformation))
+
+$groupAssoc := '((extended . 1) (basic . 2) (hidden . 4))
+
+--=======================================================================
+--           Create Hashtable of Operation Properties
+--=======================================================================
+--called at build-time before making DOCUMENTATION property
+mkTopicHashTable() ==                         --given $groupAssoc = ((extended . 1)(basic . 2)(xx . 4)..)
+  $defaultsHash := MAKE_-HASHTABLE 'ID        --keys are ops, value is list of topic names
+  for [kind,:items] in $topicsDefaults repeat --$topicsDefaults is ((<topic> op ...) ..)
+    for item in items repeat 
+      HPUT($defaultsHash,item,[kind,:HGET($defaultsHash,item)])
+  $conTopicHash  := MAKE_-HASHTABLE 'EQL      --key is constructor name; value is
+  instream := OPEN '"topics.data"           
+  while not EOFP instream repeat
+    line := READLINE instream
+    while blankLine? line repeat line := READLINE instream
+    m := MAXINDEX line                        --file "topics.data" has form:
+    m = -1 => 'skip                           --1   ConstructorName:
+    line.0 = char '_- => 'skip                --2      constructorName or operation name
+    line := trimString line                   --3-n    ...
+    m := MAXINDEX line                        --     (blank line) ...
+    line.m ^= (char '_:) => systemError('"wrong heading")
+    con := INTERN SUBSTRING(line,0,m)
+    alist := [lst while not EOFP instream and 
+       not (blankLine? (line := READLINE instream)) and
+         line.0 ^= char '_- for i in 1..
+           | lst := string2OpAlist line]
+    alist => HPUT($conTopicHash,con,alist)
+  --initialize table of topic classes
+  $topicHash := MAKE_-HASHTABLE 'ID           --$topicHash has keys: topic and value: index
+  for [x,:c] in $groupAssoc repeat HPUT($topicHash,x,c)
+  $topicIndex := CDR LAST $groupAssoc
+
+  --replace each property list by a topic code
+  --store under each construct an OR of all codes
+  for con in HKEYS $conTopicHash repeat
+    conCode := 0
+    for pair in HGET($conTopicHash,con) repeat 
+      RPLACD(pair,code := topicCode CDR pair)
+      conCode := LOGIOR(conCode,code)
+    HPUT($conTopicHash,con,
+      [['constructor,:conCode],:HGET($conTopicHash,con)])      
+  SHUT instream
+
+--reduce integers stored under names to 1 + its power of 2
+  for key in HKEYS $topicHash repeat 
+    HPUT($topicHash,key,INTEGER_-LENGTH HGET($topicHash,key))
+
+  $conTopicHash   --keys are ops or 'constructor', values are codes
+
+blankLine? line ==
+  MAXINDEX line = -1 or and/[line . j = (char '_ ) for j in 0..MAXINDEX line]
+
+string2OpAlist s ==
+  m := #s
+  k := skipBlanks(s,0,m) or return nil
+  UPPER_-CASE_-P s.k => nil       --skip constructor names
+  k := 0
+  while (k := skipBlanks(s,k,m)) repeat
+    acc := [INTERN SUBSTRING(s,k,-k + (k := charPosition(char '_ ,s,k + 1))),:acc]
+  acc := NREVERSE acc
+  --now add defaults 
+  if u := getDefaultProps first acc then acc := [first acc,:u,:rest acc]
+  acc
+
+getDefaultProps name ==
+  u := HGET($defaultsHash,name)
+  if (s := PNAME name).(m := MAXINDEX s) = char '? then u := ['p,:u]
+  if s.m = char '_! then u := ['destructive,:u]
+  u
+  
+skipBlanks(u,i,m) ==
+  while i < m and u.i = $charBlank repeat i := i + 1
+  i >= m => nil
+  i
+
+--=======================================================================
+--           Compute Topic Code for Operation
+--=======================================================================
+topicCode lst ==
+  u := [y for x in lst] where y ==
+    rename := LASSOC(x,$topicSynonyms) => rename
+    x
+  if null intersection('(basic extended hidden),u) then u := ['extended,:u]
+  bitIndexList := nil
+  for x in REMDUP u repeat
+    bitIndexList := [fn x,:bitIndexList] where fn x ==
+      k := HGET($topicHash,x) => k
+      HPUT($topicHash,x,$topicIndex := $topicIndex * 2)
+      $topicIndex
+  code := +/[i for i in bitIndexList]
+
+--=======================================================================
+--           Add Codes to Documentation Property
+--=======================================================================
+--called to modify DOCUMENTATION property for each "con"
+addTopic2Documentation(con,docAlist) ==
+  alist := HGET($conTopicHash,con) or return docAlist
+  [y for x in docAlist] where y ==
+    [op,:pairlist] := x
+    code := LASSOC(op,alist) or 0
+    for sigDoc in pairlist repeat 
+      sigDoc is [.,.] => RPLACD(rest sigDoc,code)
+      systemError sigDoc
+  docAlist
+    
+--=======================================================================
+--           Test: Display Topics for a given constructor
+--=======================================================================
+td con ==
+  $topicClasses := ASSOCRIGHT mySort
+      [[HGET($topicHash,key),:key] for key in HKEYS $topicHash]      
+  hash := MAKE_-HASHTABLE 'ID
+  tdAdd(con,hash)
+  tdPrint hash 
+
+tdAdd(con,hash) ==
+  v := HGET($conTopicHash,con)
+  u := addTopic2Documentation(con,v)
+--u := GETDATABASE(con,'DOCUMENTATION) 
+  for pair in u | FIXP (code := myLastAtom pair) and (op := CAR pair) ^= 'construct repeat
+    for x in (names := code2Classes code) repeat HPUT(hash,x,insert(op,HGET(hash,x)))
+
+tdPrint hash ==
+  for key in mySort HKEYS hash repeat 
+    sayBrightly [key,'":"]
+    sayBrightlyNT '"   "
+    for x in HGET(hash,key) repeat sayBrightlyNT ['" ",x]
+    TERPRI()
+
+topics con ==
+  --assumes that DOCUMENTATION property already has #s added
+  $topicClasses := ASSOCRIGHT mySort
+      [[HGET($topicHash,key),:key] for key in HKEYS $topicHash]      
+  hash := MAKE_-HASHTABLE 'ID
+  tdAdd(con,hash)
+  for x in REMDUP [CAAR y for y in ancestorsOf(getConstructorForm con,nil)] repeat
+    tdAdd(x,hash)
+  for x in HKEYS hash repeat HPUT(hash,x,mySort HGET(hash,x))
+  tdPrint hash 
+
+code2Classes cc ==
+  cc := 2*cc
+  [x while cc ^= 0 for x in $topicClasses | ODDP (cc := QUOTIENT(cc,2))]
+  
+myLastAtom x == 
+  while x is [.,:x] repeat nil
+  x
+
+--=======================================================================
+--           Transfer Codes to opAlist 
+--=======================================================================
+
+transferClassCodes(conform,opAlist) ==
+  transferCodeCon(opOf conform,opAlist)
+  for x in ancestorsOf(conform,nil) repeat
+    transferCodeCon(CAAR x,opAlist)
+
+transferCodeCon(con,opAlist) ==
+  for pair in GETDATABASE(con,'DOCUMENTATION) 
+    | FIXP (code := myLastAtom pair) repeat
+      u := ASSOC(QCAR pair,opAlist) => RPLACD(LASTNODE u,code)
+
+--=======================================================================
+--           Filter Operation by Topic
+--=======================================================================
+
+filterByTopic(opAlist,topic) ==
+  bitNumber := HGET($topicHash,topic)
+  [x for x in opAlist 
+    | FIXP (code := myLastAtom x) and LOGBITP(bitNumber,code)]
+
+listOfTopics(conname) ==
+  doc := GETDATABASE(conname,'DOCUMENTATION)
+  u := ASSOC('constructor,doc) or return nil
+  code := myLastAtom u
+--null FIXP code => nil
+  mySort [key for key in HKEYS($topicHash) | LOGBITP(HGET($topicHash,key),code)]
+
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/util.lisp.pamphlet b/src/interp/util.lisp.pamphlet
index d938ea93..80d2443e 100644
--- a/src/interp/util.lisp.pamphlet
+++ b/src/interp/util.lisp.pamphlet
@@ -820,16 +820,19 @@ because of {\bf *print-level*} or {\bf *print-length*}.
 <<boottocl>>=
 (in-package "OLD-BOOT") 
 
-(defun boot (in-file out-file) ;; translates a single boot file
+(defun boot (file) ;; translates a single boot file
 #+:CCL
   (setq *package* (find-package "BOOT"))
 #+:AKCL
   (in-package "BOOT")
   (let (*print-level* 
 	*print-length* 
+	(fn (pathname-name file))
 	(*print-pretty* t))
     (declare (special *print-level* *print-length*))
-    (boot::boot in-file out-file)))
+    (boot::boot
+      file
+      (merge-pathnames (make-pathname :type "clisp") file))))
 
 @
 
diff --git a/src/interp/wi1.boot b/src/interp/wi1.boot.pamphlet
index e6eb3ef2..a86a7da2 100644
--- a/src/interp/wi1.boot
+++ b/src/interp/wi1.boot.pamphlet
@@ -1,3 +1,20 @@
+\documentclass{article}
+\usepackage{axiom}
+
+\title{\File{src/interp/wi1.boot} Pamphlet}
+\author{The Axiom Team}
+
+\begin{document}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+
+\section{License}
+
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +46,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 )package "BOOT"
 
@@ -75,7 +95,7 @@ put(x,prop,val,e) ==
     SAY ["**** modemap PUT on CapsuleModemapFrame: ",val]
     $CapsuleModemapFrame:=
       addBinding(x,augProplistOf(x,"modemap",val,$CapsuleModemapFrame),
-        $CapsuleModemapFrame)
+	$CapsuleModemapFrame)
     e
   addBinding(x,newProplist,e)
 
@@ -84,11 +104,11 @@ addBinding(var,proplist,e is [[curContour,:tailContour],:tailEnv]) ==
   EQ(proplist,getProplist(var,e)) => e
   $InteractiveMode => addBindingInteractive(var,proplist,e)
   if curContour is [[ =var,:.],:.] then curContour:= rest curContour
-                 --Previous line should save some space
+		 --Previous line should save some space
   [[[lx,:curContour],:tailContour],:tailEnv] where lx:= [var,:proplist]
 
 --======================================================================
---                    From define.boot
+--		      From define.boot
 --======================================================================
 compJoin(["Join",:argl],m,e) ==
   catList:= [(compForMode(x,$Category,e) or return 'failed).expr for x in argl]
@@ -138,12 +158,12 @@ compDefineLisplib(df,m,e,prefix,fal,fn) ==
   $lisplibKind: local := NIL
   $lisplibModemap: local := NIL
   $lisplibModemapAlist: local := NIL
-  $lisplibSlot1 : local := NIL   -- used by NRT mechanisms
+  $lisplibSlot1 : local := NIL	 -- used by NRT mechanisms
   $lisplibOperationAlist: local := NIL
   $lisplibSuperDomain: local := NIL
   $libFile: local := NIL
   $lisplibVariableAlist: local := NIL
-  $lisplibRelatedDomains: local := NIL   --from ++ Related Domains: see c-doc
+  $lisplibRelatedDomains: local := NIL	 --from ++ Related Domains: see c-doc
   $lisplibCategory: local := nil
   --for categories, is rhs of definition; otherwise, is target of functor
   --will eventually become the "constructorCategory" property in lisplib
@@ -184,7 +204,7 @@ compTopLevel(x,m,e) ==
     'sorry
   x is ["DEF",:.] or x is ["where",["DEF",:.],:.] =>
     ([val,mode,.]:= FUNCALL(compFun,x,m,e); [val,mode,e])
-        --keep old environment after top level function defs
+	--keep old environment after top level function defs
   FUNCALL(compFun,x,m,e)
 
 markWhereTran ["where",["DEF",form,sig,clist,body],:tail] ==
@@ -199,24 +219,24 @@ markWhereTran ["where",["DEF",form,sig,clist,body],:tail] ==
   for x in items repeat
     x is [":",a,b] =>
       a is ['LISTOF,:r] =>
-        for y in r repeat decls := [[":",y,b],:decls]
+	for y in r repeat decls := [[":",y,b],:decls]
       decls := [x,:decls]
     x is [key,fn,p,q,bd] and MEMQ(key,'(DEF MDEF)) and p='(NIL) and q='(NIL) =>
       fn = target or fn is [=target] => ttype := bd
-      fn = body   or fn is [=body]   => body  := bd
+      fn = body	  or fn is [=body]   => body  := bd
       macros := [x,:macros]
     systemError ['"unexpected WHERE item: ",x]
   nargtypes := [p for arg in argl |
-                  p := or/[t for d in decls | d is [.,=arg,t]] or
-                    systemError ['"Missing WHERE declaration for :", arg]]
+		  p := or/[t for d in decls | d is [.,=arg,t]] or
+		    systemError ['"Missing WHERE declaration for :", arg]]
   nform := form
   ntarget := ttype or target
   ndef := ['DEF,nform,[ntarget,:nargtypes],clist,body]
   result :=
     REVERSE macros is [:m,e] =>
       mpart :=
-        m => ['SEQ,:m,['exit,1,e]]
-        e
+	m => ['SEQ,:m,['exit,1,e]]
+	e
       ['where,ndef,mpart]
     ndef
   result
@@ -289,9 +309,9 @@ compNoStacking01(x,m,e) ==
   T:= comp2(x,m,e) =>
     (m=$EmptyMode and T.mode=IFCAR(get('Rep,'value,e)) => 
        [T.expr,"Rep",T.env]; qt(12,T))
-         --$Representation is bound in compDefineFunctor, set by doIt
-         --this hack says that when something is undeclared, $ is
-         --preferred to the underlying representation -- RDJ 9/12/83
+	 --$Representation is bound in compDefineFunctor, set by doIt
+	 --this hack says that when something is undeclared, $ is
+	 --preferred to the underlying representation -- RDJ 9/12/83
   T := compNoStacking1(x,m,e,$compStack)
   qt(13,T)
 
@@ -317,7 +337,7 @@ compWithMappingMode(x,m,oldE) ==
   isFunctor x =>
     if get(x,"modemap",$CategoryFrame) is [[[.,target,:argModeList],.],:.] and
       (and/[extendsCategoryForm("$",s,mode) for mode in argModeList for s in sl]
-        ) and extendsCategoryForm("$",target,m') then return [x,m,e]
+	) and extendsCategoryForm("$",target,m') then return [x,m,e]
   if STRINGP x then x:= INTERN x
   for m in sl for v in (vl:= take(#sl,$FormalMapVariableList)) repeat
     [.,.,e]:= compMakeDeclaration([":",v,m],$EmptyMode,e)
@@ -374,8 +394,8 @@ compSymbol(s,m,e) ==
   v:= get(s,"value",e) =>
 --+
     MEMQ(s,$functorLocalParameters) =>
-        NRTgetLocalIndex s
-        [s,v.mode,e] --s will be replaced by an ELT form in beforeCompile
+	NRTgetLocalIndex s
+	[s,v.mode,e] --s will be replaced by an ELT form in beforeCompile
     [s,v.mode,e] --s has been SETQd
   m':= getmode(s,e) =>
     if not member(s,$formalArgList) and not MEMQ(s,$FormalMapVariableList) and
@@ -418,8 +438,8 @@ compForm1(form,m,e) ==
 -------> new <-------------
     domain= 'Rep and
       (ans := compForm2([op',:argl],SUBST('Rep,'_$,m),e:= addDomain(domain,e),
-        [SUBST('Rep,'_$,x) for x in getFormModemaps([op',:argl],e)
-          | x is [[ =domain,:.],:.]])) => ans
+	[SUBST('Rep,'_$,x) for x in getFormModemaps([op',:argl],e)
+	  | x is [[ =domain,:.],:.]])) => ans
 -------> new <-------------
     ans := compForm2([op',:argl],m,e:= addDomain(domain,e),
       [x for x in getFormModemaps([op',:argl],e) | x is [[ =domain,:.],:.]]) => ans
@@ -440,7 +460,7 @@ compForm3(form is [op,:argl],m,e,modemapList) ==
   T:=
     or/
       [compFormWithModemap(form,m,e,first (mml:= ml))
-        for ml in tails modemapList] or return nil
+	for ml in tails modemapList] or return nil
   qt(14,T)
   result := 
     $compUniquelyIfTrue =>
@@ -478,11 +498,11 @@ compWhere([.,form,:exprList],m,eInit) ==
 --  if not $insideFunctorIfTrue then
 --   $originalTarget :=
 --    form is ['DEF,a,osig,:.] and osig is [otarget,:.] =>
---      exprList is [['SEQ,:l,['exit,n,y]]] and (u := [:l,y]) and
---        (ntarget := or/[def for x in u | x is [op,a',:.,def] and ([op,a',otarget]) and
---          MEMQ(op,'(DEF MDEF)) and (a' = otarget or a' is [=otarget])]) =>
---            [ntarget,:rest osig]
---      osig
+--	exprList is [['SEQ,:l,['exit,n,y]]] and (u := [:l,y]) and
+--	  (ntarget := or/[def for x in u | x is [op,a',:.,def] and ([op,a',otarget]) and
+--	    MEMQ(op,'(DEF MDEF)) and (a' = otarget or a' is [=otarget])]) =>
+--	      [ntarget,:rest osig]
+--	osig
 --    nil
 --  foobum exprList
   e:= eInit
@@ -504,9 +524,9 @@ compMacro(form,m,e) ==
   markMacro(first lhs,rhs)
   rhs :=
     rhs is ['CATEGORY,:.] => ['"-- the constructor category"]
-    rhs is ['Join,:.]     => ['"-- the constructor category"]
+    rhs is ['Join,:.]	  => ['"-- the constructor category"]
     rhs is ['CAPSULE,:.]  => ['"-- the constructor capsule"]
-    rhs is ['add,:.]      => ['"-- the constructor capsule"]
+    rhs is ['add,:.]	  => ['"-- the constructor capsule"]
     formatUnabbreviated rhs
   sayBrightly ['"   processing macro definition",'%b,
     :formatUnabbreviated lhs,'" ==> ",:rhs,'%d]
@@ -519,9 +539,9 @@ compMacro(form,m,e) ==
 --  ["MDEF",lhs,signature,specialCases,rhs]:= form
 --  rhs :=
 --    rhs is ['CATEGORY,:.] => ['"-- the constructor category"]
---    rhs is ['Join,:.]     => ['"-- the constructor category"]
+--    rhs is ['Join,:.]	    => ['"-- the constructor category"]
 --    rhs is ['CAPSULE,:.]  => ['"-- the constructor capsule"]
---    rhs is ['add,:.]      => ['"-- the constructor capsule"]
+--    rhs is ['add,:.]	    => ['"-- the constructor capsule"]
 --    formatUnabbreviated rhs
 --  sayBrightly ['"   processing macro definition",'%b,
 --    :formatUnabbreviated lhs,'" ==> ",:rhs,'%d]
@@ -563,11 +583,11 @@ setqSingle(id,val,m,E) ==
   T:=
     (trialT and coerce(trialT,m'')) or eval or return nil where
       eval() ==
-        T:= comp(val,m'',E) => T
-        not get(id,"mode",E) and m'' ^= (maxm'':=maxSuperType(m'',E)) and
-           (T:=comp(val,maxm'',E)) => T
-        (T:= comp(val,$EmptyMode,E)) and getmode(T.mode,E) =>
-          assignError(val,T.mode,id,m'')
+	T:= comp(val,m'',E) => T
+	not get(id,"mode",E) and m'' ^= (maxm'':=maxSuperType(m'',E)) and
+	   (T:=comp(val,maxm'',E)) => T
+	(T:= comp(val,$EmptyMode,E)) and getmode(T.mode,E) =>
+	  assignError(val,T.mode,id,m'')
   T':= [x,m',e']:= convert(T,m) or return nil
   if $profileCompiler = true then
     null IDENTP id => nil
@@ -581,7 +601,7 @@ setqSingle(id,val,m,E) ==
   if isDomainForm(x1,e') then
     if isDomainInScope(id,e') then
       stackWarning ["domain valued variable","%b",id,"%d",
-        "has been reassigned within its scope"]
+	"has been reassigned within its scope"]
     e':= augModemapsFromDomain1(id,x1,e')
       --all we do now is to allocate a slot number for lhs
       --e.g. the LET form below will be changed by putInLocalDomainReferences
@@ -591,9 +611,9 @@ setqSingle(id,val,m,E) ==
        $markFreeStack := [id,:$markFreeStack]
        form:=['SETELT,"$",k,x]
      else form:=
-         $QuickLet => ["LET",id,x]
-         ["LET",id,x,
-            (isDomainForm(x,e') => ['ELT,id,0];CAR outputComp(id,e'))]
+	 $QuickLet => ["LET",id,x]
+	 ["LET",id,x,
+	    (isDomainForm(x,e') => ['ELT,id,0];CAR outputComp(id,e'))]
   [form,m',e']
 
 setqMultiple(nameList,val,m,e) ==
@@ -612,13 +632,13 @@ setqMultiple(nameList,val,m,e) ==
     convert([["PROGN",x,["LET",nameList,g],g],m',e],m)
   --2. verify that the #nameList = number of parts of right-hand-side
   selectorModePairs:=
-                                                --list of modes
+						--list of modes
     decompose(m1,#nameList,e) or return nil where
       decompose(t,length,e) ==
-        t is ["Record",:l] => [[name,:mode] for [":",name,mode] in l]
-        comp(t,$EmptyMode,e) is [.,["RecordCategory",:l],.] =>
-          [[name,:mode] for [":",name,mode] in l]
-        stackMessage ["no multiple assigns to mode: ",t]
+	t is ["Record",:l] => [[name,:mode] for [":",name,mode] in l]
+	comp(t,$EmptyMode,e) is [.,["RecordCategory",:l],.] =>
+	  [[name,:mode] for [":",name,mode] in l]
+	stackMessage ["no multiple assigns to mode: ",t]
   #nameList^=#selectorModePairs =>
     stackMessage [val," must decompose into ",#nameList," components"]
   -- 3.generate code; return
@@ -636,7 +656,7 @@ setqMultipleExplicit(nameList,valList,m,e) ==
   for g in gensymList for name in nameList repeat
     e := put(g,"mode",get(name,"mode",e),e)
   assignList:=
-             --should be fixed to declare genVar when possible
+	     --should be fixed to declare genVar when possible
     [[.,.,e]:= compSetq1(g,val,$EmptyMode,e) or return "failed"
       for g in gensymList for val in valList for name in nameList]
   assignList="failed" => nil
@@ -661,18 +681,18 @@ canReturn(expr,level,exitCount,ValueFlag) ==  --SPAD: exit and friends
     [.,gs,data]:= expr
     (findThrow(gs,data,level,exitCount,ValueFlag) => true) where
       findThrow(gs,expr,level,exitCount,ValueFlag) ==
-        atom expr => nil
-        expr is ["THROW", =gs,data] => true
-            --this is pessimistic, but I know of no more accurate idea
-        expr is ["SEQ",:l] =>
-          or/[findThrow(gs,u,level+1,exitCount,ValueFlag) for u in l]
-        or/[findThrow(gs,u,level,exitCount,ValueFlag) for u in rest expr]
+	atom expr => nil
+	expr is ["THROW", =gs,data] => true
+	    --this is pessimistic, but I know of no more accurate idea
+	expr is ["SEQ",:l] =>
+	  or/[findThrow(gs,u,level+1,exitCount,ValueFlag) for u in l]
+	or/[findThrow(gs,u,level,exitCount,ValueFlag) for u in rest expr]
     canReturn(data,level,exitCount,ValueFlag)
   op = "COND" =>
     level = exitCount =>
       or/[canReturn(last u,level,exitCount,ValueFlag) for u in rest expr]
     or/[or/[canReturn(u,level,exitCount,ValueFlag) for u in v]
-                for v in rest expr]
+		for v in rest expr]
   op="IF" =>
     expr is [.,a,b,c]
     if not canReturn(a,0,0,true) and not (BOUNDP '$convert2NewCompiler and $convert2NewCompiler) then
@@ -724,16 +744,16 @@ compColon([":",f,t],m,e) ==
     f is [op,:argl] and not (t is ["Mapping",:.]) =>
       --for MPOLY--replace parameters by formal arguments: RDJ 3/83
       newTarget:= EQSUBSTLIST(take(#argl,$FormalMapVariableList),
-        [(x is [":",a,m] => a; x) for x in argl],t)
+	[(x is [":",a,m] => a; x) for x in argl],t)
       signature:=
-        ["Mapping",newTarget,:
-          [(x is [":",a,m] => m;
-              getmode(x,e) or systemErrorHere '"compColonOld") for x in argl]]
+	["Mapping",newTarget,:
+	  [(x is [":",a,m] => m;
+	      getmode(x,e) or systemErrorHere '"compColonOld") for x in argl]]
       put(op,"mode",signature,e)
     put(f,"mode",t,e)
   if not $bootStrapMode and $insideFunctorIfTrue and
     makeCategoryForm(t,e) is [catform,e] then
-        e:= put(f,"value",[genSomeVariable(),t,$noEnv],e)
+	e:= put(f,"value",[genSomeVariable(),t,$noEnv],e)
   ["/throwAway",getmode(f,e),e]
 
 compConstruct(form,m,e) == (T := compConstruct1(form,m,e)) and markConstruct(form,T) 
@@ -820,7 +840,7 @@ coerce(T,m) ==
 coerce0(T,m) ==
   T':= coerceEasy(T,m) => T'
   T':= coerceSubset(T,m) => markCoerce(T,T','AUTOSUBSET)
-  T':= coerceHard(T,m)   => markCoerce(T,T','AUTOHARD)
+  T':= coerceHard(T,m)	 => markCoerce(T,T','AUTOHARD)
   T':= coerceExtraHard(T,m) => T'
   T.expr = "$fromCoerceable$" or isSomeDomainVariable m => nil
   T' := coerceRep(T,m) => markCoerce(T,T','AUTOREP)
@@ -829,7 +849,7 @@ coerce0(T,m) ==
       -- from compFormWithModemap to filter through the modemaps
     fn(x,m1,m2) ==
       ["Cannot coerce","%b",x,"%d","%l","      of mode","%b",m1,"%d","%l",
-        "      to mode","%b",m2,"%d"]
+	"      to mode","%b",m2,"%d"]
 
 coerceSubset(T := [x,m,e],m') ==
   m = $SmallInteger =>
@@ -856,18 +876,18 @@ coerceRep(T,m) ==
 
 --- GET rid of XLAMs
 spadCompileOrSetq form ==
-        --bizarre hack to take account of the existence of "known" functions
-        --good for performance (LISPLLIB size, BPI size, NILSEC)
+	--bizarre hack to take account of the existence of "known" functions
+	--good for performance (LISPLLIB size, BPI size, NILSEC)
   [nam,[lam,vl,body]] := form
   CONTAINED("",body) => sayBrightly ['"  ",:bright nam,'" not compiled"]
   if vl is [:vl',E] and body is [nam',: =vl'] then
       LAM_,EVALANDFILEACTQ ['PUT,MKQ nam,MKQ 'SPADreplace,MKQ nam']
       sayBrightly ['"     ",:bright nam,'"is replaced by",:bright nam']
   else if (ATOM body or and/[ATOM x for x in body])
-         and vl is [:vl',E] and not CONTAINED(E,body) then
-           macform := ['XLAM,vl',body]
-           LAM_,EVALANDFILEACTQ ['PUT,MKQ nam,MKQ 'SPADreplace,MKQ macform]
-           sayBrightly ['"     ",:bright nam,'"is replaced by",:bright body]
+	 and vl is [:vl',E] and not CONTAINED(E,body) then
+	   macform := ['XLAM,vl',body]
+	   LAM_,EVALANDFILEACTQ ['PUT,MKQ nam,MKQ 'SPADreplace,MKQ macform]
+	   sayBrightly ['"     ",:bright nam,'"is replaced by",:bright body]
   $insideCapsuleFunctionIfTrue => first COMP LIST form
   compileConstructor form
 
@@ -950,7 +970,7 @@ autoCoerceByModemap([x,source,e],target) ==
   markCoerceByModemap(x,source,target,[["call",fn,x],target,e],true)
 
 --======================================================================
---                    From compiler.boot
+--		      From compiler.boot
 --======================================================================
 --comp3x(x,m,$e) ==
 
@@ -1050,7 +1070,7 @@ compBoolean(p,pWas,m,Einit) ==
     T := comp(p,m,Einit) or return nil
     markAny('compBoolean,pWas,T) 
   [p',m,getSuccessEnvironment(markKillAll p,E),
-        getInverseEnvironment(markKillAll p,E)]
+	getInverseEnvironment(markKillAll p,E)]
 
 compAnd([op,:args], pWas, m, e) ==
 --called ONLY from compBoolean
@@ -1102,7 +1122,7 @@ compDefine1(form,m,e) ==
 --  the modemap by a declaration, then strip off declarations and recurse
   e := compDefineAddSignature(lhs,signature,e)
 -- 2. if signature list for arguments is not empty, replace ('DEF,..) by
---       ('where,('DEF,..),..) with an empty signature list;
+--	 ('where,('DEF,..),..) with an empty signature list;
 --     otherwise, fill in all NILs in the signature
   not (and/[null x for x in rest signature]) => compDefWhereClause(form,m,e)
   signature.target=$Category =>
@@ -1110,7 +1130,7 @@ compDefine1(form,m,e) ==
   isDomainForm(rhs,e) and not $insideFunctorIfTrue =>
     if null signature.target then signature:=
       [getTargetFromRhs(lhs,rhs,giveFormalParametersValues(rest lhs,e)),:
-          rest signature]
+	  rest signature]
     rhs:= addEmptyCapsuleIfNecessary(signature.target,rhs)
     compDefineFunctor(['DEF,lhs,signature,specialCases,rhs],m,e,nil,
       $formalArgList)
@@ -1128,19 +1148,19 @@ compDefineCategory(df,m,e,prefix,fal) ==
   compDefineCategory1(df,m,e,prefix,fal)
 
 compDefineCategory1(df,m,e,prefix,fal) ==
-  $DEFdepth     : local := 0            --for conversion to new compiler 3/93
-  $capsuleStack : local := nil          --for conversion to new compiler 3/93
+  $DEFdepth     : local := 0		--for conversion to new compiler 3/93
+  $capsuleStack : local := nil		--for conversion to new compiler 3/93
   $predicateStack:local := nil          --for conversion to new compiler 3/93
   $signatureStack:local := nil          --for conversion to new compiler 3/93
-  $importStack  : local := nil          --for conversion to new compiler 3/93
-  $globalImportStack  : local := nil    --for conversion to new compiler 3/93
+  $importStack	: local := nil		--for conversion to new compiler 3/93
+  $globalImportStack  : local := nil	--for conversion to new compiler 3/93
   $catAddForm  : local := nil           --for conversion to new compiler 2/95
   $globalDeclareStack : local := nil
   $globalImportDefAlist: local:= nil
-  $localMacroStack  : local := nil      --for conversion to new compiler 3/93
-  $freeStack   : local := nil           --for conversion to new compiler 3/93
+  $localMacroStack  : local := nil	--for conversion to new compiler 3/93
+  $freeStack   : local := nil		--for conversion to new compiler 3/93
   $domainLevelVariableList: local := nil--for conversion to new compiler 3/93
-  $categoryTranForm : local := nil      --for conversion to new compiler 10/93
+  $categoryTranForm : local := nil	--for conversion to new compiler 10/93
   ['DEF,form,sig,sc,body] := df
   body := markKillAll body --these parts will be replaced by compDefineLisplib
   categoryCapsule :=
@@ -1157,7 +1177,7 @@ compDefineCategory1(df,m,e,prefix,fal) ==
     [.,.,e] :=
       $insideCategoryPackageIfTrue: local := true  --see NRTmakeSlot1
       $categoryPredicateList: local :=
-          makeCategoryPredicates(form,$lisplibCategory)
+	  makeCategoryPredicates(form,$lisplibCategory)
       defform := mkCategoryPackage(form,cat,categoryCapsule)
       ['DEF,[.,arg,:.],:.] := defform
       $categoryNameForDollar :local := arg
@@ -1174,12 +1194,12 @@ compDefineCategory2(form,signature,specialCases,body,m,e,
     $insideCategoryIfTrue: local:= true
     $TOP__LEVEL: local
     $definition: local
-                 --used by DomainSubstitutionFunction
+		 --used by DomainSubstitutionFunction
     $form: local
     $op: local
     $extraParms: local
-             --Set in DomainSubstitutionFunction, used further down
---  1.1  augment e to add declaration $: <form>
+	     --Set in DomainSubstitutionFunction, used further down
+--  1.1	 augment e to add declaration $: <form>
     [$op,:argl]:= $definition:= form
     e:= addBinding("$",[['mode,:$definition]],e)
 
@@ -1209,7 +1229,7 @@ compDefineCategory2(form,signature,specialCases,body,m,e,
     op':= $op
     -- following line causes cats with no with or Join to be fresh copies
     if opOf(formalBody)^='Join and opOf(formalBody)^='mkCategory then
-           formalBody := ['Join, formalBody]
+	   formalBody := ['Join, formalBody]
     T := compOrCroak(formalBody,signature'.target,e)
 --------------------> new <-------------------
     $catAddForm :=
@@ -1221,12 +1241,12 @@ compDefineCategory2(form,signature,specialCases,body,m,e,
     if $extraParms then
       formals:=actuals:=nil
       for u in $extraParms repeat
-        formals:=[CAR u,:formals]
-        actuals:=[MKQ CDR u,:actuals]
+	formals:=[CAR u,:formals]
+	actuals:=[MKQ CDR u,:actuals]
       body := ['sublisV,['PAIR,['QUOTE,formals],['LIST,:actuals]],body]
-    if argl then body:=  -- always subst for args after extraparms
-        ['sublisV,['PAIR,['QUOTE,sargl],['LIST,:
-          [['devaluate,u] for u in sargl]]],body]
+    if argl then body:=	 -- always subst for args after extraparms
+	['sublisV,['PAIR,['QUOTE,sargl],['LIST,:
+	  [['devaluate,u] for u in sargl]]],body]
     body:=
       ['PROG1,['LET,g:= GENSYM(),body],['SETELT,g,0,mkConstructor $functorForm]]
     fun:= compile [op',['LAM,sargl,body]]
@@ -1235,27 +1255,33 @@ compDefineCategory2(form,signature,specialCases,body,m,e,
     pairlis:= [[a,:v] for a in argl for v in $FormalMapVariableList]
     parSignature:= SUBLIS(pairlis,signature')
     parForm:= SUBLIS(pairlis,form)
-----    lisplibWrite('"compilerInfo",
-----      ['SETQ,'$CategoryFrame,
-----       ['put,['QUOTE,op'],'
-----        (QUOTE isCategory),true,['addModemap,MKQ op',MKQ parForm,
-----          MKQ parSignature,true,MKQ fun,'$CategoryFrame]]],$libFile)
+----	lisplibWrite('"compilerInfo",
+----	  ['SETQ,'$CategoryFrame,
+----	   ['put,['QUOTE,op'],'
+----	    (QUOTE isCategory),true,['addModemap,MKQ op',MKQ parForm,
+----	      MKQ parSignature,true,MKQ fun,'$CategoryFrame]]],$libFile)
     --Equivalent to the following two lines, we hope
     if null sargl then
       evalAndRwriteLispForm('NILADIC,
-            ['MAKEPROP,['QUOTE,op'],'(QUOTE NILADIC),true])
+	    ['MAKEPROP,['QUOTE,op'],'(QUOTE NILADIC),true])
 
 --   6. put modemaps into InteractiveModemapFrame
     $domainShell :=
       BOUNDP '$convertingSpadFile and $convertingSpadFile => nil
       eval [op',:MAPCAR('MKQ,sargl)]
     $lisplibCategory:= formalBody
-----    if $LISPLIB then
-----      $lisplibForm:= form
-----      $lisplibKind:= 'category
-----      modemap:= [[parForm,:parSignature],[true,op']]
-----      $lisplibModemap:= modemap
-----      $lisplibCategory:= formalBody
-----      form':=[op',:sargl]
-----      augLisplibModemapsFromCategory(form',formalBody,signature')
+----	if $LISPLIB then
+----	  $lisplibForm:= form
+----	  $lisplibKind:= 'category
+----	  modemap:= [[parForm,:parSignature],[true,op']]
+----	  $lisplibModemap:= modemap
+----	  $lisplibCategory:= formalBody
+----	  form':=[op',:sargl]
+----	  augLisplibModemapsFromCategory(form',formalBody,signature')
     [fun,'(Category),e]
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/wi2.boot b/src/interp/wi2.boot.pamphlet
index 3842101e..e4dd5a8a 100644
--- a/src/interp/wi2.boot
+++ b/src/interp/wi2.boot.pamphlet
@@ -1,3 +1,20 @@
+\documentclass{article}
+\usepackage{axiom}
+
+\title{\File{src/interp/wi2.boot} Pamphlet}
+\author{The Axiom Team}
+
+\begin{document}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+
+\section{License}
+
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +46,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 )package "BOOT"
 
@@ -729,7 +749,7 @@ optDeltaEntry(op,sig,dc,eltOrConst) ==
          not(IDENTP x) => x
          get(x,'value,$e) => x
          x='$ => x
-         MKQ x
+	 MKQ x
      fn := compiledLookup(op,nsig,dcval)
      if null fn then return nil
   eltOrConst="CONST" => 
@@ -1227,3 +1247,9 @@ chk(x,key) == fn(x,0,key) where fn(x,cnt,key) ==
   for y in x repeat cnt := fn(y, cnt + 1, key)
   cnt
  
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}
diff --git a/src/interp/word.boot b/src/interp/word.boot.pamphlet
index 95dfc7a1..ac76dca3 100644
--- a/src/interp/word.boot
+++ b/src/interp/word.boot.pamphlet
@@ -1,3 +1,16 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/interp word.boot}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
 -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
 -- All rights reserved.
 --
@@ -29,6 +42,9 @@
 -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
+@
+<<*>>=
+<<license>>
 
 --=======================================================================
 --                        Build Directories
@@ -398,3 +414,9 @@ obSearch x ==
   [y for i in 0..MAXINDEX OBARRAY() |
     (IDENTP (y := vec.i) or CVEC y) and match?(pattern,COPY y)]
  
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}