;;; -*-mode:lisp; package:user; base:10.; fonts:(cptfontb) -*-
;;;
;;;$Header: /ct/ctlisp/filemaps/filemap.l,v 1.133 85/06/27 09:54:17 bill Exp $
;;; 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;				FILEMAP
;;;  This is the C*T default filemap for the installed version of
;;;  all files pertaining to Ada*Tutor, Interpreter, and Debugger.
;;;  Please maintain alphabetical order.  NB:  Please note that
;;;  this file must compile in a very bare environment and that
;;;  only things primitive to LISP (like "#+") or defined in
;;;  ctload per se (like "!") are safe to use.  That is, this
;;;  file is written in the "bare" intersection of Franz and
;;;  Zeta, NOT in (ahem) CTLISP.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Begin CTLoad Definitions.

(ct_load_def 25fr3
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax://ct//lmfonts//25fr3.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax://ct//lmfonts//25fr3.OB"
	     #+LMI "CT: LMFONTS; 25fr3.qfasl"
	     #+(and cadr (not rel45))
	     "ctvax://ct//lmfonts//25fr3.qb"
	     #+(and cadr rel45)
	     "nil"  ;;already defined on lm2s
	     #+franz "nil" ;;irrelevant
	     #+local_build "local:>ct>lmfonts>25fr3.bin")

(ct_load_def adabugger
	     #+(and unix (not LMI))   "/ct/debug/adabugger.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/debug!/adabugger.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/debug!/adabugger.OB"
	     #+LMI "CT: DEBUG; adabugger.qfasl"
	     #+local_build "local:>ct>debug>adabugger.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/debug!/adabugger.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/debug!/adabugger.oq")


(ct_load_def adabe		  
	     #+(and unix (not LMI))	"/ct/interp/adabe.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/adabe.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/adabe.OB"
	     #+LMI "CT: INTERP; adabe.qfasl"
	     #+local_build "local:>ct>interp>adabe.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/adabe.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/adabe.oq")

(ct_load_def adas
	     #+(and unix (not LMI))	"/ct/interp/adas.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/adas.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/adas.OB"
	     #+LMI "CT: INTERP; adas.qfasl"
	     #+local_build "local:>ct>interp>adas.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/adas.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/adas.oq")

; These next file maps, all of the form adas# were added to cope
; with paul's division of adas into smaller manageable sections.
; adas will eventually be changed to load these files instead. this
; should be transparent.

(ct_load_def adas100
	     #+(and unix (not LMI))	"/ct/interp/adas100.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/adas100.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/adas100.OB"
	     #+LMI "CT: INTERP; adas100.qfasl"
	     #+local_build "local:>ct>interp>adas100.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/adas100.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/adas100.oq")

(ct_load_def adas120
	     #+(and unix (not LMI))	"/ct/interp/adas120.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/adas120.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/adas120.OB"
	     #+LMI "CT: INTERP; adas120.qfasl"
	     #+local_build "local:>ct>interp>adas120.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/adas120.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/adas120.oq")

(ct_load_def adas130
	     #+(and unix (not LMI))	"/ct/interp/adas130.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/adas130.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/adas130.OB"
	     #+LMI "CT: INTERP; adas130.qfasl"
	     #+local_build "local:>ct>interp>adas130.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/adas130.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/adas130.oq")

(ct_load_def adas150
	     #+(and unix (not LMI))	"/ct/interp/adas150.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/adas150.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/adas150.OB"
	     #+LMI "CT: INTERP; adas150.qfasl"
	     #+local_build "local:>ct>interp>adas150.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/adas150.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/adas150.oq")

(ct_load_def adas36
	     #+(and unix (not LMI))	"/ct/interp/adas36.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/adas36.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/adas36.OB"
	     #+LMI "CT: INTERP; adas36.qfasl"
	     #+local_build "local:>ct>interp>adas36.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/adas36.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/adas36.oq")

(ct_load_def adas39
	     #+(and unix (not LMI))	"/ct/interp/adas39.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/adas39.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/adas39.OB"
	     #+LMI "CT: INTERP; adas39.qfasl"
	     #+local_build "local:>ct>interp>adas39.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/adas39.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/adas39.oq")

(ct_load_def adas39a
	     #+(and unix (not LMI))	"/ct/interp/adas39a.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/adas39a.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/adas39a.OB"
	     #+LMI "CT: INTERP; adas39a.qfasl"
	     #+local_build "local:>ct>interp>adas39a.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/adas39a.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/adas39a.oq")

(ct_load_def adas40
	     #+(and unix (not LMI))	"/ct/interp/adas40.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/adas40.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/adas40.OB"
	     #+LMI "CT: INTERP; adas40.qfasl"
	     #+local_build "local:>ct>interp>adas40.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/adas40.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/adas40.oq")

(ct_load_def adas42
	     #+(and unix (not LMI))	"/ct/interp/adas42.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/adas42.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/adas42.OB"
	     #+LMI "CT: INTERP; adas42.qfasl"
	     #+local_build "local:>ct>interp>adas42.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/adas42.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/adas42.oq")

(ct_load_def adas44
	     #+(and unix (not LMI))	"/ct/interp/adas44.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/adas44.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/adas44.OB"
	     #+LMI "CT: INTERP; adas44.qfasl"
	     #+local_build "local:>ct>interp>adas44.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/adas44.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/adas44.oq")

(ct_load_def adas50
	     #+(and unix (not LMI))	"/ct/interp/adas50.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/adas50.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/adas50.OB"
	     #+LMI "CT: INTERP; adas50.qfasl"
	     #+local_build "local:>ct>interp>adas50.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/adas50.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/adas50.oq")

(ct_load_def adas60
	     #+(and unix (not LMI))	"/ct/interp/adas60.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/adas60.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/adas60.OB"
	     #+LMI "CT: INTERP; adas60.qfasl"
	     #+local_build "local:>ct>interp>adas60.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/adas60.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/adas60.oq")

(ct_load_def adas70
	     #+(and unix (not LMI))	"/ct/interp/adas70.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/adas70.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/adas70.OB"
	     #+LMI "CT: INTERP; adas70.qfasl"
	     #+local_build "local:>ct>interp>adas70.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/adas70.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/adas70.oq")

(ct_load_def adamode			  ;note the switch to NEWADA!!
	     #+(and unix (not LMI))	"nil"		  ;Gosling, sigh ...
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/editor!/adamode.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/editor!/adamode.OB"
	     #+LMI "CT: EDITOR; adamode.qfasl"
	     #+local_build "local:>ct>editor>adamode.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/editor!/adamode.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/editor!/adamode.oq")

(ct_load_def adatst01
	     #+(and unix (not LMI))   "/ct/ada/adatst01.ada"
	     #+(and 3600 (not local_build))
	     "ctvax:!/ct!/ada!/adatst01.ada"
	     #+LMI "CT: ADA; adatst01.ada"
	     #+local_build "local:>ct>ada>adatst01.ada"
             #+cadr
	     "ctvax:!/ct!/ada!/adatst01.ada")

(ct_load_def adatst03
	     #+(and unix (not LMI))   "/ct/ada/adatst03.ada"
	     #+(and 3600 (not local_build))
	     "ctvax:!/ct!/ada!/adatst03.ada"
	     #+LMI "CT: ADA; adatst03.ada"
	     #+local_build "local:>ct>ada>adatst03.ada"
             #+cadr
	     "ctvax:!/ct!/ada!/adatst03.ada")

(ct_load_def adatst05
	     #+(and unix (not LMI))   "/ct/ada/adatst05.ada"
	     #+(and 3600 (not local_build))
	     "ctvax:!/ct!/ada!/adatst05.ada"
	     #+LMI "CT: ADA; adatst05.ada"
	     #+local_build "local:>ct>ada>adatst05.ada"
             #+cadr
	     "ctvax:!/ct!/ada!/adatst05.ada")

(ct_load_def adaqwabl			  ;Word abbrevs REQ'D for Ada Mode
	     #+(and unix (not LMI))	"nil"		  ;Doubt if it would work...
	     #+(and 3600 (not local_build) (not rel45))	  ;bugs in 3600 spec "fixed":
	     "ctvax:!/ct!/editor!/ada.qwabl"	  ;jrm, 7/6/84
	     #+(and 3600 (not local_build) rel45)	  ;bugs in 3600 spec "fixed":
	     "ctvax:!/ct!/editor!/ada.qwabl"	  ;jrm, 7/6/84
	     #+LMI "CT: EDITOR; ada.qwabl"
	     #+local_build "local:>ct>editor>ada.qwabl"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/editor!/ada.qwabl"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/editor!/ada.qwabl")

(ct_load_def aip
	     #+(and unix (not LMI))	"/ct/ctlisp/aip.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ctlisp!/aip.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ctlisp!/aip.OB"
	     #+LMI "CT: CTLISP; aip.qfasl"
	     #+local_build "local:>ct>ctlisp>aip.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/ctlisp!/aip.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ctlisp!/aip.oq")

(ct_load_def aggies	;aggregates used to be in sema
	     #+(and unix (not LMI))	"/ct/interp/aggies.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/aggies.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/aggies.OB"
	     #+LMI "CT: INTERP; aggies.qfasl"
	     #+local_build "local:>ct>interp>aggies.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/aggies.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/aggies.oq")


;;array display manager
(ct_load_def arraydm
             #+(and unix (not LMI))     "/ct/tutor/arraydm.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/arraydm.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/arraydm.OB"
	     #+LMI "CT: TUTOR; arraydm.qfasl"
	     #+local_build "local:>ct>tutor>arraydm.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/arraydm.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/arraydm.oq")

(ct_load_def attribute
	     #+(and unix (not LMI))	"/ct/interp/attribute.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/attribute.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/attribute.OB"
	     #+LMI "CT: INTERP; attribute.qfasl"
	     #+local_build "local:>ct>interp>attribute.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/attribute.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/attribute.oq")

(ct_load_def auxfile
             #+(and unix (not LMI))     "/ct/et/auxfile.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/et!/auxfile.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/et!/auxfile.OB"
	     #+LMI "CT: ET; auxfile.qfasl"
	     #+local_build "local:>ct>et>auxfile.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/et!/auxfile.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/et!/auxfile.oq")

(ct_load_def badaba	           ;Chapter(s) from Barnes
             #+(and unix (not LMI))     "/ct/ctlisp/filemaps/badaba.l"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ctlisp!/filemaps!/badaba.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ctlisp!/filemaps!/badaba.OB"
	     #+LMI "CT: CTLISP; FILEMAPS; badaba.qfasl"
	     #+local_build "local:>ct>ctlisp>filemaps>badaba.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/ctlisp!/filemaps!/badaba.l"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ctlisp!/filemaps!/badaba.l")

(ct_load_def band
             #+(and unix (not LMI))     "/ct/ctlisp/band.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ctlisp!/band.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ctlisp!/band.OB"
	     #+LMI "CT: CTLISP; band.qfasl"
	     #+local_build "local:>ct>ctlisp>band.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/ctlisp!/band.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ctlisp!/band.oq")

(ct_load_def bargra
	     #+(and unix (not LMI))	"!/ct!/window!/bargra.l" ; only load on LM
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/window!/bargra.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/window!/bargra.OB"
	     #+LMI "CT: WINDOW; bargra.qfasl"
	     #+local_build "local:>ct>window>bargra.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/window!/bargra.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/window!/bargra.oq")

;;;database--translations of the Barnes entries
(ct_load_def barnestr
             #+(and unix (not LMI))    "/ct/tutordbs/manuals/barnes/barnestr.l"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutordbs!/manuals!/barnes!/barnestr.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutordbs!/manuals!/barnes!/barnestr.OB"
	     #+LMI "CT: TUTORDBS; MANUALS; BARNES; barnestr.qfasl"
	     #+local_build "local:>ct>tutordbs>manuals>barnes>barnestr.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutordbs!/manuals!/barnes!/barnestr.l"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutordbs!/manuals!/barnes!/barnestr.l")

(ct_load_def bifmacs
	     #+(and unix (not LMI))	"/ct/interp/bifmacs.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/bifmacs.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/bifmacs.OB"
	     #+LMI "CT: INTERP; bifmacs.qfasl"
	     #+local_build "local:>ct>interp>bifmacs.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/bifmacs.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/bifmacs.oq")

;;bldbrowser: loads the browser and installs the two basic documents: the
;;interpreter//debugger and browser user manuals.

(ct_load_def bldbrowser
             #+(and unix (not LMI))     "!/ct!/browser!/bldbrowser.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/browser!/bldbrowser.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/browser!/bldbrowser.OB"
	     #+LMI "CT: BROWSER; bldbrowser.qfasl"
	     #+local_build "local:>ct>browser>bldbrowser.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/browser!/bldbrowser.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/browser!/bldbrowser.oq")

;;loads the interpreter, runs the front end, and loads the debugger--
;;used to build an interpreter/debugger band
(ct_load_def bldsys
	     #+(and unix (not LMI))     "nil"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/build!/bldsys.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/build!/bldsys.OB"
	     #+LMI "CT: BUILD; bldsys.qfasl"
	     #+local_build "local:>ct>build>bldsys.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/build!/bldsys.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/build!/bldsys.oq")

;;;database--translations of the Booch entries
(ct_load_def boochtr
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutordbs!/manuals!/booch!/boochtr.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutordbs!/manuals!/booch!/boochtr.OB"
	     #+LMI "CT: TUTORDBS; MANUALS; BOOCH; boochtr.qfasl"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutordbs!/manuals!/booch!/boochtr.l"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutordbs!/manuals!/booch!/boochtr.l"
	     #+local_build "local:>ct>tutordbs>manuals>booch>boochtr.bin"
             #+(and unix (not LMI))    "/ct/tutordbs/manuals/booch/boochtr.l")

;;;diana template for original bubble max exercise
(ct_load_def bmdiana
             #+(and unix (not LMI))     "!/ct!/tutordbs!/exercises!/bmdiana.qb"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutordbs!/exercises!/bmdiana.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutordbs!/exercises!/bmdiana.OB"
	     #+LMI "CT: TUTORDBS; EXERCISES; bmdiana.qfasl"
	     #+local_build "local:>ct>tutordbs>exercises>bmdiana.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutordbs!/exercises!/bmdiana.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutordbs!/exercises!/bmdiana.oq")

;;bubble max demo-debug code environment
(ct_load_def bmcodenv
             #+(and unix (not LMI))     "!/ct!/tutor!/bmcodenv.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/bmcodenv.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/bmcodenv.OB"
	     #+LMI "CT: TUTOR; bmcodenv.qfasl"
	     #+local_build "local:>ct>tutor>bmcodenv.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/bmcodenv.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/bmcodenv.oq")

;;environment template for original bubble sort exercise
(ct_load_def bmenv
             #+(and unix (not LMI))     "!/ct!/tutordbs!/exercises!/bmenv.ada"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutordbs!/exercises!/bmenv.ada"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutordbs!/exercises!/bmenv.ada"
	     #+LMI "CT: TUTORDBS; EXERCISES; bmenv.ada"
	     #+local_build "local:>ct>tutordbs>exercises>bmenv.ada"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutordbs!/exercises!/bmenv.ada"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutordbs!/exercises!/bmenv.ada")

;;browser/view window fonts

(ct_load_def brchars
	     #+(and cadr (not rel45))
	     "ctvax://ct//lmfonts//brchars.qb"
	     #+(and cadr rel45)
	     "ctvax://ct//lmfonts//brchars.oq"
	     #+franz "nil"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax://ct//lmfonts//brchars.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax://ct//lmfonts//brchars.OB"
	     #+LMI "CT: LMFONTS; brchars.qfasl"
	     #+local_build "local:>ct>lmfonts>brchars.bin")

;;;Name of the host and directory on which the browser user
;;;manual can be found.
(ct_load_def brmandir
	     #+(and unix (not LMI))     "ctvax://ct//doc//browser//"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax://ct//doc//browser//"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax://ct//doc//browser//"
	     #+LMI "CT: DOC; BROWSER;"
	     #+local_build "local:>ct>doc>browser>"
	     #+(and cadr (not rel45))
	     "ctvax://ct//doc//browser//"
	     #+(and cadr rel45)
	     "ctvax://ct//doc//browser//")

;;Standalone documentation browser
(ct_load_def browser
             #+(and unix (not LMI))     "!/ct!/browser!/browser.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/browser!/browser.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/browser!/browser.OB"
	     #+LMI "CT: BROWSER; browser.qfasl"
	     #+local_build "local:>ct>browser>browser.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/browser!/browser.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/browser!/browser.oq")

(ct_load_def browtext
	     #+(and unix (not LMI))   "/ct/doc/browser/document.txt"
	     #+(and 3600 (not local_build))
	     "ctvax:!/ct!/doc!/browser!/document.txt"
	     #+LMI "CT: DOC; BROWSER; document.txt"
	     #+local_build "local:>ct>doc>browser>document.text"
             #+cadr
	     "ctvax:!/ct!/doc!/browser!>document.txt")

(ct_load_def brownodes
	     #+(and unix (not LMI))   "/ct/doc/browser/nodedefs.l"
	     #+(and 3600 (not local_build))
	     "ctvax:!/ct!/doc!/browser!/nodedefs.l"
	     #+LMI "CT: DOC; BROWSER; nodedefs.lisp"
	     #+local_build "local:>ct>doc>browser>nodedefs.l"
             #+cadr
	     "ctvax:!/ct!/doc!/browser!/nodedefs.l")

;;bubble sort demo-debug code environment
(ct_load_def bscodenv
             #+(and unix (not LMI))     "!/ct!/tutor!/bscodenv.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/bscodenv.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/bscodenv.OB"
	     #+LMI "CT: TUTOR; bscodenv.qfasl"
	     #+local_build "local:>ct>tutor>bscodenv.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/bscodenv.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/bscodenv.oq")


;;;bubble sort display manager
(ct_load_def bsdm
             #+(and unix (not LMI))    "!/ct!/tutor!/bsdm.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/bsdm.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/bsdm.OB"
	     #+LMI "CT: TUTOR; bsdm.qfasl"
	     #+local_build "local:>ct>tutor>bsdm.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/bsdm.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/bsdm.oq")

;;;environment template for original bubble sort exercise
(ct_load_def bsenv
             #+(and unix (not LMI))    "!/ct!/tutordbs!/exercises!/bsenv.ada"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutordbs!/exercises!/bsenv.ada"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutordbs!/exercises!/bsenv.ada"
	     #+LMI "CT: TUTORDBS; EXERCISES; bsenv.ada"
	     #+local_build "local:>ct>tutordbs>exercises>bsenv.ada"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutordbs!/exercises!/bsenv.ada"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutordbs!/exercises!/bsenv.ada")


;;;ipnet for the original bubble sort exercise
(ct_load_def bsipnet
            #+(and unix (not LMI))     "ctvax:!/ct!/tutordbs!/exercises!/bsipnet.qb"
	    #+(and 3600 (not local_build) (not rel45))
	    "ctvax:!/ct!/tutordbs!/exercises!/bsipnet.bn"
	    #+(and 3600 (not local_build) rel45)
	    "ctvax:!/ct!/tutordbs!/exercises!/bsipnet.OB"
	    #+LMI "CT: TUTORDBS; EXERCISES; bsipnet.qfasl"
	    #+local_build "local:>ct>tutordbs>exercises>bsipnet.bin"
            #+(and cadr (not rel45))
	    "ctvax:!/ct!/tutordbs!/exercises!/bsipnet.qb"
	    #+(and cadr rel45)
	    "ctvax:!/ct!/tutordbs!/exercises!/bsipnet.oq")

;;;graphics file for the original bubble sort exercise
(ct_load_def bsgraphic
             #+(and unix (not LMI))   "ctvax:!/ct!/tutordbs!/exercises!/bsgraphic.qb"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutordbs!/exercises!/bsgraphic.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutordbs!/exercises!/bsgraphic.OB"
	     #+LMI "CT: TUTORDBS; EXERCISES; bsgraphic.qfasl"
	     #+local_build "local:>ct>tutordbs>exercises>bsgraphic.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutordbs!/exercises!/bsgraphic.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutordbs!/exercises!/bsgraphic.oq")

(ct_load_def bsnoio
	     #+(and unix (not LMI))   "/ct/ada/bsnoio.ada"
	     #+(and 3600 (not local_build))
	     "ctvax:!/ct!/ada!/bsnoio.ada"
	     #+LMI "CT: ADA; bsnoio.ada"
	     #+local_build "local:>ct>ada>bsnoio.ada"
             #+cadr
	     "ctvax:!/ct!/ada!/bsnoio.ada")

;;;text file for the original bubble sort exercise
(ct_load_def bstext
             #+(and unix (not LMI))    "ctvax:!/ct!/tutordbs!/exercises!/bstext.qb"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutordbs!/exercises!/bstext.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutordbs!/exercises!/bstext.OB"
	     #+LMI "CT: TUTORDBS; EXERCISES; bstext.qfasl"
	     #+local_build "local:>ct>tutordbs>exercises>bstext.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutordbs!/exercises!/bstext.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutordbs!/exercises!/bstext.oq")

;;;environment template for copy queue exercise
(ct_load_def cqenv
             #+(and unix (not LMI))    "!/ct!/tutordbs!/exercises!/cqenv.ada"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutordbs!/exercises!/cqenv.ada"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutordbs!/exercises!/cqenv.ada"
	     #+LMI "CT: TUTORDBS; EXERCISES; cqenv.ada"
	     #+local_build "local:>ct>tutordbs>exercises>cqenv.ada"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutordbs!/exercises!/cqenv.ada"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutordbs!/exercises!/cqenv.ada")

;;;database--descriptions of the Barnes entries
(ct_load_def barnes
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutordbs!/manuals!/barnes!/barnes.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutordbs!/manuals!/barnes!/barnes.OB"
	     #+LMI "CT: TUTORDBS; MANUALS; BARNES; barnes.qfasl"
	     #+local_build "local:>ct>tutordbs>manuals>barnes>barnes.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutordbs!/manuals!/barnes!/barnes.l"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutordbs!/manuals!/barnes!/barnes.l"
             #+(and unix (not LMI))     "/ct/tutordbs/manuals/barnes/barnes.l")

(ct_load_def bodaba	           ;Chapter(s) from Booch
             #+(and unix (not LMI))     "/ct/ctlisp/filemaps/bodaba.l"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ctlisp!/filemaps!/bodada.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ctlisp!/filemaps!/bodada.OB"
	     #+LMI "CT: CTLISP; FILEMAPS; bodada.qfasl"
	     #+local_build "local:>ct>ctlisp>filemaps>bodaba.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/ctlisp!/filemaps!/bodaba.l"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ctlisp!/filemaps!/bodaba.l")

;;;database--description of the Booch entries
(ct_load_def booch
             #+(and unix (not LMI))     "/ct/tutordbs/manuals/booch/booch.l"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutordbs!/manuals!/booch!/booch.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutordbs!/manuals!/booch!/booch.OB"
	     #+LMI "CT: TUTORDBS; MANUALS; BOOCH; booch.qfasl"
	     #+local_build "local:>ct>tutordbs>manuals>booch>booch.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutordbs!/manuals!/booch!/booch.l"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutordbs!/manuals!/booch!/booch.l")

(ct_load_def bufship            ;external editor interface
             #+(and unix (not LMI))     "!/ct!/editor!/bufship.l"  ;not good for vax
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/editor!/bufship.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/editor!/bufship.OB"
	     #+LMI "CT: EDITOR; bufship.qfasl"
	     #+local_build "local:>ct>editor>bufship.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/editor!/bufship.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/editor!/bufship.oq")

(ct_load_def buildfun
	     #+(and unix (not LMI))	"/ct/interp/buildfun.l"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/buildfun.l"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/buildfun.l"
	     #+LMI "CT: INTERP; buildfun.lisp"
	     #+local_build "local:>ct>interp>buildfun.lisp"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/buildfun.l"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/buildfun.l")

;;; Paul's new cache
(ct_load_def cache
	     #+(and unix (not LMI))	"/ct/interp/cache.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/cache.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/cache.OB"
	     #+LMI "CT: INTERP; cache.qfasl"
	     #+local_build "local:>ct>interp>cache.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/cache.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/cache.oq")


(ct_load_def calendl
	     #+(and unix (not LMI))	"!/ct!/interp!/calendl.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/calendl.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/calendl.OB"
	     #+LMI "CT: INTERP; calendl.qfasl"
	     #+local_build "local:>ct>interp>calendl.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/calendl.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/calendl.oq")

(ct_load_def calendp
	     #+(and unix (not LMI))	"!/ct!/interp!/calendp.ada"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/calendp.ada"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/calendp.ada"
	     #+LMI "CT: INTERP; calendp.ada"
	     #+local_build "local:>ct>interp>calendp.ada"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/calendp.ada"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/calendp.ada")

;;;  Formerly CHARSET --> /mnt/john/lisp.charset ;;;
;;;  Entry deleted.

(ct_load_def charmac
	     #+(and unix (not LMI))	"/ct/ctlisp/charmac.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ctlisp!/charmac.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ctlisp!/charmac.OB"
	     #+LMI "CT: CTLISP; charmac.qfasl"
	     #+local_build "local:>ct>ctlisp>charmac.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/ctlisp!/charmac.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ctlisp!/charmac.oq")

(ct_load_def chkfile
	     #+(and unix (not LMI))	"/ct/interp/chkfile.ada"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/chkfile.ada"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/chkfile.ada"
	     #+LMI "CT: INTERP; chkfile.ada"
	     #+local_build "local:>ct>interp>chkfile.ada"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/chkfile.ada"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/chkfile.ada")

(ct_load_def chunks
	     #+(and unix (not LMI))	"/ct/ctlisp/chunks.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ctlisp!/chunks.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ctlisp!/chunks.OB"
	     #+LMI "CT: CTLISP; chunks.qfasl"
	     #+local_build "local:>ct>ctlisp>chunks.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/ctlisp!/chunks.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ctlisp!/chunks.oq")

;;;database--pulls in all code translations
(ct_load_def code				
             #+(and unix (not LMI))     "/ct/tutordbs/code.l"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutordbs!/code.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutordbs!/code.OB"
	     #+LMI "CT: TUTORDBS; code.qfasl"
	     #+local_build "local:>ct>tutordbs>code.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutordbs!/code.l"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutordbs!/code.l")

(ct_load_def codeenv
             #+(and unix (not LMI))     "!/ct!/tutor!/codeenv.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/codeenv.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/codeenv.OB"
	     #+LMI "CT: TUTOR; codeenv.qfasl"
	     #+local_build "local:>ct>tutor>codeenv.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/codeenv.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/codeenv.oq")                       

;;;code interface between demo debug and ada
(ct_load_def codeinter
             #+(and unix (not LMI))     "!/ct!/tutor!/codeinter.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/codeinter.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/codeinter.OB"
	     #+LMI "CT: TUTOR; odeinter.qfasl"
	     #+local_build "local:>ct>tutor>codeinter.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/codeinter.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/codeinter.oq")

(ct_load_def codemon
	     #+(and unix (not LMI))   "/ct/debug/codemon.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/debug!/codemon.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/debug!/codemon.OB"
	     #+LMI "CT: DEBUG; codemon.qfasl"
	     #+local_build "local:>ct>debug>codemon.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/debug!/codemon.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/debug!/codemon.oq")

(ct_load_def compat
             #+(and unix (not LMI))	"/ct/ctlisp/compat.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ctlisp!/compat.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ctlisp!/compat.OB"
	     #+LMI "CT: CTLISP; compat.qfasl"
	     #+local_build "local:>ct>ctlisp>compat.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/ctlisp!/compat.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ctlisp!/compat.oq")

(ct_load_def compatklu
             #+(and unix (not LMI))	"/ct/ctlisp/compatklu.l"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ctlisp!/compatklu.l"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ctlisp!/compatklu.l"
	     #+LMI "CT: CTLISP; compatklu.lisp"
	     #+local_build "local:>ct>ctlisp>compatklu.lisp"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/ctlisp!/compatklu.l"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ctlisp!/compatklu.l")

;;;database--description of the concept entries
(ct_load_def con
             #+(and unix (not LMI))     "ctvax:/ct/tutordbs/concepts/con.l"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutordbs!/concepts!/con.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutordbs!/concepts!/con.OB"
	     #+LMI "CT: TUTORDBS; CONCEPTS; con.qfasl"
	     #+local_build "local:>ct>tutordbs>concepts>con.lisp"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutordbs!/concepts!/con.l"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutordbs!/concepts!/con.l")

(ct_load_def condaba
             #+(and unix (not LMI))     "!/ct!/ctlisp!/filemaps!/condaba.l"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ctlisp!/filemaps!/condaba.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ctlisp!/filemaps!/condaba.OB"
	     #+LMI "CT: CTLISP; FILEMAPS; condaba.qfasl"
	     #+local_build "local:>ct>ctlisp>filemaps>condaba.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/ctlisp!/filemaps!/condaba.l"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ctlisp!/filemaps!/condaba.l")

;;;database--translations of the concept entries
(ct_load_def contr
             #+(and unix (not LMI))     "/ct/tutordbs/concepts/contr.l"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutordbs!/concepts!/contr.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutordbs!/concepts!/contr.OB"
	     #+LMI "CT: TUTORDBS; concepts; contr.qfasl"
	     #+local_build "local:>ct>tutordbs>concepts>contr.lisp"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutordbs!/concepts!/contr.l"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutordbs!/concepts!/contr.l")

(ct_load_def ctadadb
             #+(and unix (not LMI)) nil
	     #+(and 3600 (not local_build))
	     "ctvax:!/ct!/build!/ctadadb.bn"
	     #+LMI "CT: BUILD; ctadadb.qfasl"
	     #+local_build "local:>ct>build>ctadadb.bin"
             #+cadr
	     "ctvax:!/ct!/build!/ctadadb.bn")

(ct_load_def ctadautil
             #+(and unix (not LMI)) nil
	     #+(and 3600 (not local_build))
	     "ctvax:!/ct!/build!/ctadautil.bn"
	     #+LMI "CT: BUILD; ctadautil.qfasl"
	     #+local_build "local:>ct>build>ctadautil.bin"
             #+cadr
	     "ctvax:!/ct!/build!/ctadautil.bn")

(ct_load_def ctdb
             #+(and unix (not LMI)) nil
	     #+(and 3600 (not local_build))
	     "ctvax:!/ct!/build!/ctdb.bn"
	     #+LMI "CT: BUILD; ctdb.qfasl"
	     #+local_build "local:>ct>build>ctdb.bin"
             #+cadr
	     "ctvax:!/ct!/build!/ctdb.bn")

(ct_load_def ctbasio
	     #+(and unix (not LMI))	"/ct/interp/ctbasio.ada"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/ctbasio.ada"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/ctbasio.ada"
	     #+LMI "CT: INTERP; ctbasio.ada"
	     #+local_build "local:>ct>interp>ctbasio.ada"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/ctbasio.ada"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/ctbasio.ada")

(ct_load_def ct25fr3
             #+(and unix (not LMI))      "nil"       ;;fonts
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/lmfonts!/ct25fr3.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/lmfonts!/ct25fr3.OB"
	     #+LMI "CT: LMFONTS; ct25fr3.qfasl"
	     #+local_build "local:>ct>lmfonts>ct25fr3.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/lmfonts!/ct25fr3.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/lmfonts!/ct25fr3.oq")

(ct_load_def ctio
             #+(and unix (not LMI))	"/ct/ctlisp/ctio.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ctlisp!/ctio.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ctlisp!/ctio.OB"
	     #+LMI "CT: CTLISP; ctio.qfasl"
	     #+local_build "local:>ct>ctlisp>ctio.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/ctlisp!/ctio.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ctlisp!/ctio.oq")

(ct_load_def ctpatches
	     #+(and unix (not LMI))     "nil"
	     #+(and 3600 (not local_build) (not rel45))
	     "local:>ct>ctpatches.bn"
	     #+(and 3600 (not local_build) rel45)
	     "local:>ct>ctpatches.OB"
	     #+LMI "CT: CT; ctpatches.qfasl"
	     #+local_build "nil"
	     #+(and cadr (not rel45))
	     "local:>ct>ctpatches.qbin"
	     #+(and cadr rel45)
	     "local:>ct>ctpatches.qbin")

;;;   new STRING package.  Added 6-Oct-83
(ct_load_def ctstrl
	     #+(and unix (not LMI))     "!/ct!/ctlisp!/ctstrl.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ctlisp!/ctstrl.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ctlisp!/ctstrl.OB"
	     #+LMI "CT: CTLISP; ctstrl.qfasl"
	     #+local_build "local:>ct>ctlisp>ctstrl.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/ctlisp!/ctstrl.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ctlisp!/ctstrl.oq")

; The interface to the c code string functions
#+(and unix (not LMI))
(ct_load_def ctstrlc "!/ct!/ctlisp!/ctstrlc.o")

; The c coded string functions. Note that the souce is in c.
#+(and unix (not LMI))
(ct_load_def ctstrc "!/ct!/ctc!/ctstrc.o")

(ct_load_def cttr10b
             #+(and unix (not LMI))      "nil"       ;;fonts
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/lmfonts!/cttr10b.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/lmfonts!/cttr10b.OB"
	     #+LMI "CT: LMFONTS; cttr10b.qfasl"
	     #+local_build "local:>ct>lmfonts>cttr10b.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/lmfonts!/cttr10b.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/lmfonts!/cttr10b.oq")


(ct_load_def cttr12
             #+(and unix (not LMI))      "nil"       ;;fonts
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/lmfonts!/cttr12.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/lmfonts!/cttr12.OB"
	     #+LMI "CT: LMFONTS; cttr12.qfasl"
	     #+local_build "local:>ct>lmfonts>cttr12.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/lmfonts!/cttr12.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/lmfonts!/cttr12.oq")

(ct_load_def cttr12b
             #+(and unix (not LMI))      "nil"       ;;fonts
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/lmfonts!/cttr12b.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/lmfonts!/cttr12b.OB"
	     #+LMI "CT: LMFONTS; cttr12b.qfasl"
	     #+local_build "local:>ct>lmfonts>cttr12b.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/lmfonts!/cttr12b.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/lmfonts!/cttr12b.oq")

(ct_load_def cttr12i
             #+(and unix (not LMI))      "nil"       ;;fonts
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/lmfonts!/cttr12i.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/lmfonts!/cttr12i.OB"
	     #+LMI "CT: LMFONTS; cttr12i.qfasl"
	     #+local_build "local:>ct>lmfonts>cttr12i.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/lmfonts!/cttr12i.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/lmfonts!/cttr12i.oq")

(ct_load_def cttr18
             #+(and unix (not LMI))      "nil"       ;;fonts
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/lmfonts!/cttr18.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/lmfonts!/cttr18.OB"
	     #+LMI "CT: LMFONTS; cttr18.qfasl"
	     #+local_build "local:>ct>lmfonts>cttr18.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/lmfonts!/cttr18.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/lmfonts!/cttr18.oq")

(ct_load_def cttr18b
             #+(and unix (not LMI))      "nil"       ;;fonts
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/lmfonts!/cttr18b.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/lmfonts!/cttr18b.OB"
	     #+LMI "CT: LMFONTS; cttr18b.qfasl"
	     #+local_build "local:>ct>lmfonts>cttr18b.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/lmfonts!/cttr18b.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/lmfonts!/cttr18b.oq")

(ct_load_def cthl12
             #+(and unix (not LMI))      "nil"       ;;fonts
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/lmfonts!/cthl12.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/lmfonts!/cthl12.OB"
	     #+LMI "CT: LMFONTS; cthl12.qfasl"
	     #+local_build "local:>ct>lmfonts>cthl12.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/lmfonts!/cthl12.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/lmfonts!/cthl12.oq")

(ct_load_def cthl12b
             #+(and unix (not LMI))      "nil"       ;;fonts
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/lmfonts!/cthl12b.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/lmfonts!/cthl12b.OB"
	     #+LMI "CT: LMFONTS; cthl12b.qfasl"
	     #+local_build "local:>ct>lmfonts>cthl12b.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/lmfonts!/cthl12b.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/lmfonts!/cthl12b.oq")

(ct_load_def cthl12i
             #+(and unix (not LMI))      "nil"       ;;fonts
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/lmfonts!/cthl12i.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/lmfonts!/cthl12i.OB"
	     #+LMI "CT: LMFONTS; cthl12i.qfasl"
	     #+local_build "local:>ct>lmfonts>cthl12i.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/lmfonts!/cthl12i.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/lmfonts!/cthl12i.oq")

(ct_load_def cthl12bi
             #+(and unix (not LMI))      "nil"       ;;fonts
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/lmfonts!/cthl12bi.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/lmfonts!/cthl12bi.OB"
	     #+LMI "CT: LMFONTS; cthl12bi.qfasl"
	     #+local_build "local:>ct>lmfonts>cthl12bi.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/lmfonts!/cthl12bi.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/lmfonts!/cthl12bi.oq")

(ct_load_def ctmetsi
             #+(and unix (not LMI))      "nil"       ;;fonts
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/lmfonts!/ctmetsi.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/lmfonts!/ctmetsi.OB"
	     #+LMI "CT: LMFONTS; ctmetsi.qfasl"
	     #+local_build "local:>ct>lmfonts>ctmetsi.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/lmfonts!/ctmetsi.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/lmfonts!/ctmetsi.oq")

(ct_load_def ct16fg
             #+(and unix (not LMI))      "nil"       ;;fonts
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/lmfonts!/ct16fg.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/lmfonts!/ct16fg.OB"
	     #+LMI "CT: LMFONTS; ct16fg.qfasl"
	     #+local_build "local:>ct>lmfonts>ct16fg.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/lmfonts!/ct16fg.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/lmfonts!/ct16fg.oq")

(ct_load_def ct18
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax://ct//lmfonts//ct18.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax://ct//lmfonts//ct18.OB"
	     #+LMI "CT: LMFONTS; ct18.qfasl"
	     #+franz nil
	     #+(and cadr (not rel45))
	     "ctvax://ct//lmfonts//ct18.qb"
	     #+(and cadr rel45)
	     "ctvax://ct//lmfonts//ct18.oq"
	     #+local_build "local:>ct>lmfonts>ct18.bin")

(ct_load_def ct18b
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax://ct//lmfonts//ct18b.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax://ct//lmfonts//ct18b.OB"
	     #+LMI "CT: LMFONTS; ct18b.qfasl"
	     #+franz nil
	     #+(and cadr (not rel45))
	     "ctvax://ct//lmfonts//ct18b.qb"
	     #+(and cadr rel45)
	     "ctvax://ct//lmfonts//ct18b.oq"
	     #+local_build "local:>ct>lmfonts>ct18b.bin")

(ct_load_def ct18fg
             #+(and unix (not LMI))      "nil"       ;;fonts
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/lmfonts!/ct18fg.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/lmfonts!/ct18fg.OB"
	     #+LMI "CT: LMFONTS; ct18fg.qfasl"
	     #+local_build "local:>ct>lmfonts>ct18fg.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/lmfonts!/ct18fg.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/lmfonts!/ct18fg.oq")

(ct_load_def ctcptfont
             #+(and unix (not LMI))      "nil"       ;;fonts
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/lmfonts!/ctcptfont.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/lmfonts!/ctcptfont.OB"
	     #+LMI "CT: LMFONTS; ctcptfont.qfasl"
	     #+local_build "local:>ct>lmfonts>ctcptfont.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/lmfonts!/ctcptfont.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/lmfonts!/ctcptfont.oq")

(ct_load_def ct40vr
             #+(and unix (not LMI))      "nil"       ;;fonts
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/lmfonts!/ct40vr.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/lmfonts!/ct40vr.OB"
	     #+LMI "CT: LMFONTS; ct40vr.qfasl"
	     #+local_build "local:>ct>lmfonts>ct40vr.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/lmfonts!/ct40vr.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/lmfonts!/ct40vr.oq")

(ct_load_def ct40ctc
             #+(and unix (not LMI))      "nil"       ;;fonts
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/lmfonts!/ct40ctc.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/lmfonts!/ct40ctc.OB"
	     #+LMI "CT: LMFONTS; ct40ctc.qfasl"
	     #+local_build "local:>ct>lmfonts>ct40ctc.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/lmfonts!/ct40ctc.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/lmfonts!/ct40ctc.oq")

(ct_load_def ctadadt
	     #+(and unix (not LMI))	"/ct/interp/ctadadt.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/ctadadt.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/ctadadt.OB"
	     #+LMI "CT: INTERP; ctadadt.qfasl"
	     #+local_build "local:>ct>interp>ctadadt.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/ctadadt.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/ctadadt.oq")

(ct_load_def ctflav
	     #+(and unix (not LMI))	"/ct/ctlisp/ctflav.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ctlisp!/ctflav.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ctlisp!/ctflav.OB"
	     #+LMI "CT: CTLISP; ctflav.qfasl"
	     #+local_build "local:>ct>ctlisp>ctflav.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/ctlisp!/ctflav.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ctlisp!/ctflav.oq")

(ct_load_def ctcompile
	     #+(and unix (not LMI))     "/ct/ctlisp/ctcompile.o"
	     #+(and 3600 (not local_build) (not rel45))	"nil"
	     #+local_build "nil"
	     #+(and 3600 (not local_build) rel45)	"nil"
	     #+LMI "nil"
	     #+(and cadr (not rel45))
	     "nil"
	     #+(and cadr rel45)
	     "nil")

;;;  Compatible hash function utilities (used by direct_io).  JS, MM.
(ct_load_def cthash
	     #+(and unix (not LMI))	"!/ct!/ctlisp!/cthash.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ctlisp!/cthash.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ctlisp!/cthash.OB"
	     #+LMI "CT: CTLISP; cthash.qfasl"
	     #+local_build "local:>ct>ctlisp>cthash.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/ctlisp!/cthash.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ctlisp!/cthash.oq")

(ct_load_def ctload	;; Location of the loader driven by this filemap.
             #+(and unix (not LMI))	"/ct/ctlisp/ctload.o"
    	     #+vms	"nil"               ;; Just a reminder.
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ctlisp!/ctload.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ctlisp!/ctload.OB"
	     #+LMI "CT: CTLISP; ctload.qfasl"
	     #+local_build "local:>ct>ctlisp>ctload.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/ctlisp!/ctload.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ctlisp!/ctload.oq")

;;;curric--helps run the ipnets
(ct_load_def curric
             #+(and unix (not LMI))     "!/ct!/tutor!/curric.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/curric.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/curric.OB"
	     #+LMI "CT: TUTOR; curric.qfasl"
	     #+local_build "local:>ct>tutor>curric.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/curric.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/curric.oq")

(ct_load_def curricdb
             #+(and unix (not LMI))     "!/ct!/tutor!/curricdb.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/curricdb.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/curricdb.OB"
	     #+LMI "CT: TUTOR; curricdb.qfasl"
	     #+local_build "local:>ct>tutor>curricdb.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/curricdb.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/curricdb.oq")

(ct_load_def curricfr
             #+(and unix (not LMI))     "!/ct!/tutor!/curricfr.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/curricfr.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/curricfr.OB"
	     #+LMI "CT: TUTOR; curricfr.qfasl"
	     #+local_build "local:>ct>tutor>curricfr.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/curricfr.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/curricfr.oq")


(ct_load_def datades
	     #+(and unix (not LMI))   "/ct/debug/datades.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/debug!/datades.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/debug!/datades.OB"
	     #+LMI "CT: DEBUG; datades.qfasl"
	     #+local_build "local:>ct>debug>datades.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/debug!/datades.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/debug!/datades.oq")

(ct_load_def datamon
	     #+(and unix (not LMI))   "/ct/debug/datamon.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/debug!/datamon.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/debug!/datamon.OB"
	     #+LMI "CT: DEBUG; datamon.qfasl"
	     #+local_build "local:>ct>debug>datamon.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/debug!/datamon.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/debug!/datamon.oq")

(ct_load_def dbaccess	;; Need for exercise (etc.) translator.
	     #+(and unix (not LMI))	"/ct/tutor/dbaccess.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/dbaccess.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/dbaccess.OB"
	     #+LMI "CT: TUTOR; dbaccess.qfasl"
	     #+local_build "local:>ct>tutor>dbaccess.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/dbaccess.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/dbaccess.oq")

;;cfasls for the debugger to improve curses
(ct_load_def dbcfasls
	     #+(and unix (not LMI))   "/ct/debug/dbcfasls.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "nil"
	     #+(and 3600 (not local_build) rel45)
	     "nil"
	     #+LMI "nil"
	     #+local_build "nil"
	     #+(and cadr (not rel45))
	     "nil"
	     #+(and cadr rel45)
	     "nil")
	     
(ct_load_def dbmap
	     #+(and unix (not LMI))   "/ct/debug/dbmap.l"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/debug!/dbmap.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/debug!/dbmap.OB"
	     #+LMI "CT: DEBUG; dbmap.qfasl"
	     #+local_build "local:>ct>debug>dbmap.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/debug!/dbmap.l"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/debug!/dbmap.l")

(ct_load_def dbedit
	     #+(and unix (not LMI))	"/ct/tutor/dbedit.qb" ;;++don't load
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/dbedit.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/dbedit.OB"
	     #+LMI "CT: TUTOR; dbedit.qfasl"
	     #+local_build "local:>ct>tutor>dbedit.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/dbedit.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/dbedit.oq")

;;; Note the inconsistent spellings...  ++mlm
(ct_load_def dbfacil    ;; Paul's DataBase Facility (Folders etc.)
	     #+(and unix (not LMI))	"!/ct!/ctlisp!/dbfacil.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ctlisp!/dbfacil.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ctlisp!/dbfacil.OB"
	     #+LMI "CT: CTLISP; dbfacil.qfasl"
	     #+local_build "local:>ct>ctlisp>dbfacil.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/ctlisp!/dbfacil.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ctlisp!/dbfacil.oq")

;;;GeneC's database viewer
(ct_load_def dbinspect
             #+(and unix (not LMI))     "nil" #+LMI "nil" ; ????? LMI ?????
	     #+(and 3600 (not local_build) (not rel45))
	     "lm3:>lmlib>zmacs-show-folder.bn"
	     #+(and 3600 (not local_build) rel45)
	     "lm3:>lmlib>zmacs-show-folder.OB"
	     #+local_build "nil"
             #+(and cadr (not rel45))
	     "lm3:>lmlib>zmacs-show-folder.qbin"
	     #+(and cadr rel45)
	     "lm3:>lmlib>zmacs-show-folder.qbin")

(ct_load_def dbutil
             #+(and unix (not LMI))     "!/ct!/tutor!/dbutil.o" 
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/dbutil.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/dbutil.OB"
	     #+LMI "CT: TUTOR; dbutil.qfasl"
	     #+local_build "local:>ct>tutor>dbutil.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/dbutil.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/dbutil.oq")

;;get rid of the following after everyone has changed to db_util 
(ct_load_def dbutil
             #+(and unix (not LMI))     "!/ct!/tutor!/dbutil.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/dbtil.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/dbtil.OB"
	     #+LMI "CT: TUTOR; dbtil.qfasl"
	     #+local_build "local:>ct>tutor>dbtil.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/dbtil.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/dbtil.oq")

(ct_load_def dbwalk	;; Part of INFO stuff.
             #+(and unix (not LMI))	"!/ct!/tutor!/dbwalk.l"   ;; but lm only
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/dbwalk.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/dbwalk.OB"
	     #+LMI "CT: TUTOR; dbwalk.qfasl"
	     #+local_build "local:>ct>tutor>dbwalk.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/dbwalk.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/dbwalk.oq")

;;;get rid of the following after everyone has changed to using db_walk
(ct_load_def dbwalk	;; Part of INFO stuff.
             #+(and unix (not LMI))	"!/ct!/tutor!/dbwalk.l"   ;; but lm only
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/dbwalk.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/dbwalk.OB"
	     #+LMI "CT: TUTOR; dbwalk.qfasl"
	     #+local_build "local:>ct>tutor>dbwalk.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/dbwalk.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/dbwalk.oq")

(ct_load_def dbwalker
             #+(and unix (not LMI))     "!/ct!/ctlisp!/dbwalker.hlp"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ctlisp!/dbwalker.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ctlisp!/dbwalker.OB"
	     #+LMI "CT: CTLISP; dbwalker.qfasl"
	     #+local_build "local:>ct>ctlisp>dbwalker.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/ctlisp!/dbwalker.hlp"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ctlisp!/dbwalker.hlp")

;;; Debugger Windows
(ct_load_def dbwindow
	     #+(and unix (not LMI))     "!/ct!/debug!/dbwindow.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/debug!/dbwindow.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/debug!/dbwindow.OB"
	     #+LMI "CT: DEBUG; dbwindow.qfasl"
	     #+local_build "local:>ct>debug>dbwindow.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/debug!/dbwindow.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/debug!/dbwindow.oq")

;;; Ada Debugger Utilities
(ct_load_def dbutils
	     #+(and unix (not LMI))     "!/ct!/debug!/dbutils.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/debug!/dbutils.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/debug!/dbutils.OB"
	     #+LMI "CT: DEBUG; dbutils.qfasl"
	     #+local_build "local:>ct>debug>dbutils.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/debug!/dbutils.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/debug!/dbutils.oq")

;;;demo_debug auxiliary process handling
(ct_load_def ddauxprc
             #+(and unix (not LMI))     "!/ct!/tutor!/ddauxprc.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/ddauxprc.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/ddauxprc.OB"
	     #+LMI "CT: TUTOR; ddauxprc.qfasl"
	     #+local_build "local:>ct>tutor>ddauxprc.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/ddauxprc.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/ddauxprc.oq")

;;;demo_debug breakpoint handling
(ct_load_def ddbreaks
             #+(and unix (not LMI))     "!/ct!/tutor!/ddbreaks.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/ddbreaks.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/ddbreaks.OB"
	     #+LMI "CT: TUTOR; ddbreaks.qfasl"
	     #+local_build "local:>ct>tutor>ddbreaks.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/ddbreaks.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/ddbreaks.oq")

;;;demo_debug database accessing
(ct_load_def dddatab
             #+(and unix (not LMI))     "!/ct!/tutor!/dddatab.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/dddatab.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/dddatab.OB"
	     #+LMI "CT: TUTOR; dddatab.qfasl"
	     #+local_build "local:>ct>tutor>dddatab.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/dddatab.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/dddatab.oq")

;;;demo_debug frame handling
(ct_load_def ddframes
             #+(and unix (not LMI))     "!/ct!/tutor!/ddframes.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/ddframes.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/ddframes.OB"
	     #+LMI "CT: TUTOR; ddframes.qfasl"
	     #+local_build "local:>ct>tutor>ddframes.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/ddframes.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/ddframes.oq")

;;; The next is for versions of the Diana stuff that are
;;; compiled in #+diana_debugging mode.  This is probably
;;; temporary until we establish a /debugging subdir scheme.
;(ct_load_def ddiana
;	     #+(and unix (not LMI))	"/ct/interp/ddiana.o"
;	     #+(and cadr (not rel45))
;"ctvax:!/ct!/interp!/ddiana.qb"
;	     #+(and cadr rel45)
;"ctvax:!/ct!/interp!/ddiana.oq"
;#+local_build "local:>ct>interp>ddiana.qb")


;;; #+diana_debugging mode version of dianatts
;(ct_load_def ddianatts
;	     #+(and unix (not LMI))	"/ct/interp/ddianatts.o"
;	     #+(and cadr (not rel45))
;"ctvax:!/ct!/interp!/ddianatts.qb"
;	     #+(and cadr rel45)
;"ctvax:!/ct!/interp!/ddianatts.oq")

;;; #+diana_debugging mode version of dianods
;(ct_load_def ddianods
;	     #+(and unix (not LMI))	"/ct/interp/ddianods.o"
;	     #+(and cadr (not rel45))
;"ctvax:!/ct!/interp!/ddianods.qb"
;	     #+(and cadr rel45)
;"ctvax:!/ct!/interp!/ddianods.oq")

;;;demo_debug menus
(ct_load_def ddmenu
             #+(and unix (not LMI))     "!/ct!/tutor!/ddmenu.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/ddmenu.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/ddmenu.OB"
	     #+LMI "CT: TUTOR; ddmenu.qfasl"
	     #+local_build "local:>ct>tutor>ddmenu.bn"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/ddmenu.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/ddmenu.oq")

(ct_load_def debugcmds
	     #+(and unix (not LMI))   "/ct/debug/debugcmds.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/debug!/debugcmds.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/debug!/debugcmds.OB"
	     #+LMI "CT: DEBUG; debugcmds.qfasl"
	     #+local_build "local:>ct>debug>debugcmds.bn"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/debug!/debugcmds.l"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/debug!/debugcmds.l")

(ct_load_def debugger
	     #+(and unix (not LMI))   "/ct/debug/debugger.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/debug!/debugger.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/debug!/debugger.OB"
	     #+LMI "CT: DEBUG; debugger.qfasl"
	     #+local_build "local:>ct>debug>debugger.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/debug!/debugger.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/debug!/debugger.oq")

(ct_load_def dfind
	     #+(and unix (not LMI))   "/ct/debug/dfind.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/debug!/dfind.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/debug!/dfind.OB"
	     #+LMI "CT: DEBUG; dfind.qfasl"
	     #+local_build "local:>ct>debug>dfind.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/debug!/dfind.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/debug!/dfind.oq")

;;demo_debug
(ct_load_def demodebug
             #+(and unix (not LMI))     "!/ct!/tutor!/demodebug.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/demodebug.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/demodebug.OB"
	     #+LMI "CT: TUTOR; demodebug.qfasl"
	     #+local_build "local:>ct>tutor>demodebug.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/demodebug.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/demodebug.oq")

(ct_load_def diana
	     #+(and unix (not LMI))	"/ct/interp/diana.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/diana.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/diana.OB"
	     #+LMI "CT: INTERP; diana.qfasl"
	     #+LOCAL_BUILD "local:>ct>interp>diana.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/diana.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/diana.oq")

(ct_load_def dianaids
	     #+(and unix (not LMI))	"/ct/interp/dianaids.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/dianaids.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/dianaids.OB"
	     #+LMI "CT: INTERP; dianaids.qfasl"
	     #+local_build "local:>ct>interp>dianaids.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/dianaids.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/dianaids.oq")

(ct_load_def dianades
	     #+(and unix (not LMI))   "/ct/debug/dianades.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/debug!/dianades.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/debug!/dianades.OB"
	     #+LMI "CT: DEBUG; dianades.qfasl"
	     #+local_build "local:>ct>debug>dianades.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/debug!/dianades.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/debug!/dianades.oq")

(ct_load_def diangraf
	     #+(and unix (not LMI))	"/ct/interp/diangraf.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/diangraf.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/diangraf.OB"
	     #+LMI "CT: INTERP; diangraf.qfasl"
	     #+local_build "local:>ct>interp>diangraf.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/diangraf.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/diangraf.oq")

(ct_load_def dianaio	;; Jim's hack for saving/read diana to files.
    	     #+(and unix (not LMI))	"!/ct!/interp!/dianaio.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/dianaio.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/dianaio.OB"
	     #+LMI "CT: INTERP; dianaio.qfasl"
	     #+local_build "local:>ct>interp>dianaio.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/dianaio.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/dianaio.oq")

(ct_load_def dianapos   ;; Computes attr. pos. assignments using gcolor.
             #+(and unix (not LMI))     "!/ct!/interp!/dianapos.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/dianapos.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/dianapos.OB"
	     #+LMI "CT: INTERP; dianapos.qfasl"
	     #+local_build "local:>ct>interp>dianapos.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/dianapos.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/dianapos.oq")

(ct_load_def dianinsp ;;To inspect diananodes
             #+(and unix (not LMI))     "!/ct!/interp!/dianinsp.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/dianinsp.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/dianinsp.OB"
	     #+LMI "CT: INTERP; dianinsp.qfasl"
	     #+local_build "local:>ct>interp>dianinsp.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/dianinsp.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/dianinsp.oq")

(ct_load_def dianasum   ;; Temp output file for summary of Diana data.
             #+(and unix (not LMI))     "!/ct!/interp!/dianasum.out"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/dianasum.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/dianasum.OB"
	     #+LMI "CT: INTERP; dianasum.qfasl"
	     #+local_build "local:>ct>interp>dianasum.bn"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/dianasum.ouit"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/dianasum.ouit")

(ct_load_def dianatags
	     #+(and unix (not LMI))   "/ct/debug/dianatags.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/debug!/dianatags.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/debug!/dianatags.OB"
	     #+LMI "CT: DEBUG; dianatags.qfasl"
	     #+local_build "local:>ct>debug>dianatags.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/debug!/dianatags.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/debug!/dianatags.oq")

(ct_load_def dianatts
	     #+(and unix (not LMI))	"/ct/interp/dianatts.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/dianatts.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/dianatts.OB"
	     #+LMI "CT: INTERP; dianatts.qfasl"
	     #+local_build "local:>ct>interp>dianatts.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/dianatts.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/dianatts.oq")

;;; Currently not in use --
;(ct_load_def dianoddat
  ;;; ct_includef-able data file written by dianods during
  ;;; compilation for use at compile-time by other files in the
  ;;; Diana package.  Not to be editted by hand!  Not to be
  ;;; compiled.  -- mlm
;	     #+(and unix (not LMI))	"/ct/interp/dianoddat.l"
;	     #+(and cadr (not rel45))
;"ctvax:!/ct!/interp!/dianoddat.l"
;	     #+(and cadr rel45)
;"ctvax:!/ct!/interp!/dianoddat.l")

(ct_load_def dianods
	     #+(and unix (not LMI))	"/ct/interp/dianods.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/dianods.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/dianods.OB"
	     #+LMI "CT: INTERP; dianods.qfasl"
	     #+local_build "local:>ct>interp>dianods.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/dianods.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/dianods.oq")

;;; Currently not in use --
;(ct_load_def diattdat
  ;;; ct_includef-able data file written by dianatts during
  ;;; compilation for use at compile-time by other files in the
  ;;; Diana package.  Not to be editted by hand!  Not to be
  ;;; compiled.  -- mlm
;	     #+(and unix (not LMI))	"/ct/interp/diattdat.l"
;	     #+(and cadr (not rel45))
;"ctvax:!/ct!/interp!/diattdat.l"
;	     #+(and cadr rel45)
;"ctvax:!/ct!/interp!/diattdat.l")

;;; Currently not in use --
;(ct_load_def diaposdat
  ;;; ct_includef-able data file written by dianapos during
  ;;; compilation for use at compile-time by other files in the
  ;;; Diana package.  Not to be editted by hand!  Not to be
  ;;; compiled.  This stores previously computed positions and
  ;;; must be used with care, as opposed to recomputing each time
  ;;; which is safer.  If unsure, recompute.  -- mlm
;             #+(and unix (not LMI))     "!/ct!/interp!/diaposdat.l"
;             #+(and cadr (not rel45))
;"ctvax:!/ct!/interp!/diaposdat.l"
;             #+(and cadr rel45)
;"ctvax:!/ct!/interp!/diaposdat.l")

;;; Code for direct i/o.  Ada I/O.  JS,MM.
(ct_load_def directio
	     #+(and unix (not LMI))	"!/ct!/interp!/directio.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/directio.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/directio.OB"
	     #+LMI "CT: INTERP; directio.qfasl"
	     #+local_build "local:>ct>interp>directio.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/directio.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/directio.oq")

(ct_load_def diriol
	     #+(and unix (not LMI))	"!/ct!/interp!/diriol.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/diriol.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/diriol.OB"
	     #+LMI "CT: INTERP; diriol.qfasl"
	     #+local_build "local:>ct>interp>diriol.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/diriol.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/diriol.oq")

(ct_load_def diriop   ;; package text_io written in ada
	     #+(and unix (not LMI))	"!/ct!/interp!/diriop.ada"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/diriop.ada"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/diriop.ada"
	     #+LMI "CT: INTERP; diriop.ada"
	     #+local_build "local:>ct>interp>diriop.ada"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/diriop.ada"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/diriop.ada")

;;;display flavors for demo_debug
(ct_load_def display
             #+(and unix (not LMI))     "!/ct!/tutor!/display.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/display.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/display.OB"
	     #+LMI "CT: TUTOR; display.qfasl"
	     #+local_build "local:>ct>tutor>display.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/display.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/display.oq")


(ct_load_def dlist
	     #+(and unix (not LMI))   "/ct/ctlisp/dlist.o" 
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ctlisp!/dlist.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ctlisp!/dlist.OB"
	     #+LMI "CT: CTLISP; dlist.qfasl"
	     #+local_build "local:>ct>ctlisp>dlist.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/ctlisp!/dlist.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ctlisp!/dlist.oq")


;;;Document file name -- something like DOCUMENT.TXT
(ct_load_def docfilname "document.txt")

;;;database--descriptions of the display managers
(ct_load_def dms
             #+(and unix (not LMI))    "/ct/tutordbs/exercises/dms.l"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutordbs!/exercises!/dms.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutordbs!/exercises!/dms.OB"
	     #+LMI "CT: TUTORDBS; EXERCISES; dms.qfasl"
             #+local_build "local:>ct>tutordbs>exercises>dms.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutordbs!/exercises!/dms.l"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutordbs!/exercises!/dms.l")

;;;draw components for demo_debug
(ct_load_def drawcomp
             #+(and unix (not LMI))     "!/ct!/tutor!/drawcomp.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/drawcomp.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/drawcomp.OB"
	     #+LMI "CT: TUTOR; drawcomp.qfasl"
	     #+local_build "local:>ct>tutor>drawcomp.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/drawcomp.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/drawcomp.oq")

(ct_load_def driver
	     #+(and unix (not LMI))	"/ct/interp/driver.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/driver.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/driver.OB"
	     #+LMI "CT: INTERP; driver.qfasl"
	     #+local_build "local:>ct>interp>driver.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/driver.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/driver.oq")

(ct_load_def dsmacs
             #+(and unix (not LMI))	"/ct/interp/dsmacs.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/dsmacs.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/dsmacs.OB"
	     #+LMI "CT: INTERP; dsmacs.qfasl"
	     #+local_build "local:>ct>interp>dsmacs.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/dsmacs.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/dsmacs.oq")

(ct_load_def dumpscrint
	     #+(and unix (not LMI))   "/ct/debug/dumpscrint.l"
	     #+(and 3600 (not local_build) (not rel45))
	     "nil"
	     #+(and 3600 (not local_build) rel45)
	     "nil"
	     #+LMI "nil"
	     #+local_build "nil"
             #+(and cadr (not rel45))
	     "nil"
	     #+(and cadr rel45)
	     "nil")

(ct_load_def dynsem
             #+(and unix (not LMI))	"/ct/interp/dynsem.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/dynsem.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/dynsem.OB"
	     #+LMI "CT: INTERP; dynsem.qfasl"
	     #+local_build "local:>ct>interp>dynsem.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/dynsem.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/dynsem.oq")

(ct_load_def editortext
	     #+(and unix (not LMI))   "/ct/troff/editor/document.txt"
	     #+(and 3600 (not local_build))
	     "ctvax:!/ct!/troff!/editor!/document.txt"
	     #+LMI "CT: TROFF; EDITOR; document.txt"
	     #+local_build "local:>ct>troff>editor>document.text"
             #+cadr
	     "ctvax:!/ct!/troff!/editor!>document.txt")

(ct_load_def editornodes
	     #+(and unix (not LMI))   "/ct/troff/editor/nodedefs.l"
	     #+(and 3600 (not local_build))
	     "ctvax:!/ct!/troff!/editor!/nodedefs.l"
	     #+LMI "CT: TROFF; EDITOR; nodedefs.lisp"
	     #+local_build "local:>ct>troff>editor>nodedefs.l"
             #+cadr
	     "ctvax:!/ct!/troff!/editor!/nodedefs.l")

(ct_load_def edmenu
	     #+(and unix (not LMI))	"!/ct!/editor!/edmenu.l"  ;;; LM only for now
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/editor!/edmenu.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/editor!/edmenu.OB"
	     #+LMI "CT: EDITOR; edmenu.qfasl"
	     #+local_build "local:>ct>editor>edmenu.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/editor!/edmenu.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/editor!/edmenu.oq")

(ct_load_def edlair
             #+(and unix (not LMI))	"!/ct!/tutor!/edlair.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/edlair.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/edlair.OB"
	     #+LMI "CT: TUTOR; edlair.qfasl"
	     #+local_build "local:>ct>tutor>edlair.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/edlair.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/edlair.oq")

(ct_load_def edlmac
             #+(and unix (not LMI))	"!/ct!/tutor!/edlmac.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/edlmac.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/edlmac.OB"
	     #+LMI "CT: TUTOR; edlmac.qfasl"
	     #+local_build "local:>ct>tutor>edlmac.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/edlmac.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/edlmac.oq")

(ct_load_def edlreg
             #+(and unix (not LMI))	"!/ct!/tutor!/edlreg.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/edlreg.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/edlreg.OB"
	     #+LMI "CT: TUTOR; edlreg.qfasl"
	     #+local_build "local:>ct>tutor>edlreg.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/edlreg.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/edlreg.oq")

;;;specification of the translated database files to be loaded
;;;into the tutor
(ct_load_def edscrstr
             #+(and unix (not LMI))     "/ct/tutordbs/exercises/edscrstr.l"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutordbs!/exercises!/edscrstr.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutordbs!/exercises!/edscrstr.OB"
	     #+LMI "CT: TUTORDBS; EXERCISES; edscrstr.qfasl"
	     #+local_build "local:>ct>tutordbs>exercises>edscrstr.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutordbs!/exercises!/edscrstr.l"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutordbs!/exercises!/edscrstr.l")

(ct_load_def envirwalk
	     #+(and unix (not LMI))   "/ct/debug/envirwalk.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/debug!/envirwalk.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/debug!/envirwalk.OB"
	     #+LMI "CT: DEBUG; envirwalk.qfasl"
	     #+local_build "local:>ct>debug>envirwalk.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/debug!/envirwalk.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/debug!/envirwalk.oq")

(ct_load_def eror
	     #+(and unix (not LMI))	"/ct/interp/eror.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/eror.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/eror.OB"
	     #+LMI "CT: INTERP; eror.qfasl"
	     #+local_build "local:>ct>interp>eror.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/eror.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/eror.oq")

(ct_load_def except
	     #+(and unix (not LMI))   "/ct/ada/except.ada"
	     #+(and 3600 (not local_build))
	     "ctvax:!/ct!/ada!/except.ada"
	     #+LMI "CT: ADA; except.ada"
	     #+local_build "local:>ct>ada>except.ada"
             #+cadr
	     "ctvax:!/ct!/ada!/except.ada")

(ct_load_def exceptn
	     #+(and unix (not LMI))   "/ct/ada/exceptn.ada"
	     #+(and 3600 (not local_build))
	     "ctvax:!/ct!/ada!/exceptn.ada"
	     #+LMI "CT: ADA; exceptn.ada"
	     #+local_build "local:>ct>ada>exceptn.ada"
             #+cadr
	     "ctvax:!/ct!/ada!/exceptn.ada")

(ct_load_def exrevise
	     #+(and unix (not LMI))   "/ct/ada/exrevise.ada"
	     #+(and 3600 (not local_build))
	     "ctvax:!/ct!/ada!/exrevise.ada"
	     #+LMI "CT: ADA; exrevise.ada"
	     #+local_build "local:>ct>ada>exrevise.ada"
             #+cadr
	     "ctvax:!/ct!/ada!/exrevise.ada")

;;;  Executable Binary File.  This should point to some executable
;;; file that IS NOT READABLE.  In the customer's env., it will be
;;; the real file (we don't want copying.)  For now, it is a dummy
;;; file.  See PROTECT.L for details.
(ct_load_def exebin
             #+(and unix (not LMI))     "!/ct!/ctlisp!/exebin.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "nil"
	     #+(and 3600 (not local_build) rel45)
	     "nil"
	     #+LMI "nil"
	     #+local_build "nil"
	     #+(and cadr (not rel45))
	     "nil"
	     #+(and cadr rel45)
	     "nil")

;;;database--description of the exercises
(ct_load_def exers
             #+(and unix (not LMI))    "/ct/tutordbs/exercises/exers.l"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutordbs!/exercises!/exers.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutordbs!/exercises!/exers.OB"
	     #+LMI "CT: TUTORDBS; EXERCISES; exers.qfasl"
	     #+local_build "local:>ct>tutordbs>exercises>exers.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutordbs!/exercises!/exers.l"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutordbs!/exercises!/exers.l")

;;;hopefully, all exers_daba files have been added to this system-wide 
;;;file       13/7  sr
;;;(ct_load_def exersdaba
;;;	     #+(and unix (not LMI))	"!/ct!/ctlisp!/filemaps!/exersdaba.l"
;;;	     #+(and cadr (not rel45))
"ctvax:!/ct!/ctlisp!/filemaps!/exersdaba.l"
;;;	     #+(and cadr rel45)
"ctvax:!/ct!/ctlisp!/filemaps!/exersdaba.l"
;;;          #+local_build "local:>ct>ctlisp>filemaps>exersdaba")

(ct_load_def feintfc
	     #+(and unix (not LMI))	"/ct/interp/feintfc.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/feintfc.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/feintfc.OB"
	     #+LMI "CT: INTERP; feintfc.qfasl"
	     #+local_build "local:>ct>interp>feintfc.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/feintfc.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/feintfc.oq")

(ct_load_def ferec
	     #+(and unix (not LMI))	"/ct/interp/ferec.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/ferec.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/ferec.OB"
	     #+LMI "CT: INTERP; ferec.qfasl"
	     #+local_build "local:>ct>interp>ferec.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/ferec.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/ferec.oq")


(ct_load_def filemap
             #+(and unix (not LMI)) "!/ct!/ctlisp!/filemaps!/filemap.o"
	     #+(and 3600 (not local_build))
	     "ctvax:!/ct!/ctlisp!/filemaps!/filemap.bn"
	     #+LMI "CT: CTLISP; FILEMAPS; filemap.qfasl"
	     #+local_build "local:>ct>ctlisp>filemaps>filmap.bin"
             #+cadr
	     "ctvax:!/ct!/ctlisp!/filemaps!/filemap.qb")


(ct_load_def fileutil
	     #+(and unix (not LMI)) nil
	     #+(and 3600 (not local_build))
	     "ctvax:!/ct!/build!/fileutil.bn"
	     #+LMI "CT: BUILD; fileutil.qfasl"
	     #+local_build "local:>ct>build>fileutil.bin"
	     #+cadr
	     "ctvax:!/ct!/build!/fileutil.qb")

(ct_load_def fix				;Unix debugger
             #+(and unix (not LMI))     "/ct/ctlisp/fix.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "nil"
	     #+(and 3600 (not local_build) rel45)
	     "nil"
	     #+LMI "nil"
	     #+local_build "nil"
             #+(and cadr (not rel45))
	     "nil"
	     #+(and cadr rel45)
	     "nil")

(ct_load_def flavtools
	     #+(and unix (not LMI))	"/ct/ctlisp/flavtools.o"
	     		;; Next isn't needed on LM, so no qb.
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ctlisp!/flavtools.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ctlisp!/flavtools.OB"
	     #+LMI "CT: CTLISP; flavtools.qfasl"
	     #+local_build "local:>ct>ctlisp>flavtools.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/ctlisp!/flavtools.l"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ctlisp!/flavtools.l")

(ct_load_def fmapadax  ;; Interpreter group filemap for Ada test programs
	     #+(and unix (not LMI))	"!/ct!/ctlisp!/filemaps!/fmapadax.l"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ctlisp!/filemaps!/fmapadax.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ctlisp!/filemaps!/fmapadax.OB"
	     #+LMI "CT: CTLISP; FILEMAPS; fmapadax.qfasl"
	     #+local_build "local:>ct>ctlisp>filemaps>fmapadax.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/ctlisp!/filemaps!/fmapadax.l"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ctlisp!/filemaps!/fmapadax.l")

;;; Defines tv:following-mixin and tv:following-menu
(ct_load_def follow
	     #+(and unix (not LMI))	"!/ct!/window!/follow.l"  ;don't load in franz.
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/window!/follow.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/window!/follow.OB"
	     #+LMI "CT: WINDOW; follow.qfasl"
	     #+local_build "local:>ct>window>follow.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/window!/follow.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/window!/follow.oq")

(ct_load_def format
	     #+(and unix (not LMI))	"/ct/ctlisp/format.o"
	     		;; Next isn't needed on LM, so no qb.
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ctlisp!/format.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ctlisp!/format.OB"
	     #+LMI "CT: CTLISP; format.qfasl"
	     #+local_build "nil"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/ctlisp!/format.l"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ctlisp!/format.l")

(ct_load_def foursea
	     #+(and unix (not LMI))   "/ct/ada/foursea.ada"
	     #+(and 3600 (not local_build))
	     "ctvax:!/ct!/ada!/foursea.ada"
	     #+LMI "CT: ADA; foursea.ada"
	     #+local_build "local:>ct>ada>foursea.ada"
             #+cadr
	     "ctvax:!/ct!/ada!/foursea.ada")

;;; the graph coloring algorithm.
(ct_load_def gcolor
	     #+(and unix (not LMI))	"/ct/ctlisp/gcolor.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ctlisp!/gcolor.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ctlisp!/gcolor.OB"
	     #+LMI "CT: CTLISP; gcolor.qfasl"
	     #+local_build "local:>ct>ctlisp>gcolor.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/ctlisp!/gcolor.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ctlisp!/gcolor.oq")

;;tuning for gc on franz
(ct_load_def gctune
	     #+(and unix (not LMI))     "/ct/ctlisp/gctune.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "nil"
	     #+(and 3600 (not local_build) rel45)
	     "nil"
	     #+LMI "nil"
	     #+local_build "nil"
	     #+(and cadr (not rel45))
	     "nil"
	     #+(and cadr rel45)
	     "nil")

(ct_load_def generics	;generics,used to be in sema
	     #+(and unix (not LMI))	"/ct/interp/generics.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/generics.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/generics.OB"
	     #+LMI "CT: INTERP; generics.qfasl"
	     #+local_build "local:>ct>interp>generics.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/generics.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/generics.oq")

;;;  The Graphics editor for lm only.
(ct_load_def graphic
             #+(and unix (not LMI))	"!/ct!/window!/graphic.l" ;; but don't load
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/window!/graphic.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/window!/graphic.OB"
	     #+LMI "CT: WINDOW; graphic.qfasl"
	     #+local_build "local:>ct>window>graphic.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/window!/graphic.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/window!/graphic.oq")


;;;get rid of this definition eventually
(ct_load_def graphic
             #+(and unix (not LMI))	"!/ct!/window!/graphic.l" ;; but don't load
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/window!/graphic.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/window!/graphic.OB"
	     #+LMI "CT: WINDOW; graphic.qfasl"
	     #+local_build "local:>ct>window>graphic.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/window!/graphic.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/window!/graphic.oq")

(ct_load_def graphicm
             #+(and unix (not LMI))     "nil"          ;;;fonts
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/lmfonts!/graphicm.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/lmfonts!/graphicm.OB"
	     #+LMI "CT: LMFONTS; graphicm.qfasl"
	     #+local_build "local:>ct>lmfonts>graphicm.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/lmfonts!/graphicm.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/lmfonts!/graphicm.oq")

;;;grid manager for demo_debug
(ct_load_def gridframe
             #+(and unix (not LMI))     "!/ct!/tutor!/gridframe.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/gridframe.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/gridframe.OB"
	     #+LMI "CT: TUTOR; gridframe.qfasl"
	     #+local_build "local:>ct>tutor>gridframe.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/gridframe.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/gridframe.oq")

;;; Recovered from old (late June '83) filemap.70.l, seemed to
;;; be left out as an oversight.  ++double-check this entry --mlm
(ct_load_def hackscrol
	     #+(and unix (not LMI))     "nil"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/window!/hackscrol.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/window!/hackscrol.OB"
	     #+LMI "CT: WINDOW; hackscrol.qfasl"
	     #+local_build "local:>ct>window>hckscrol.bin"
	     #+(and cadr (not rel45))
	     "vax:!/ct!/window!/hackscrol.qb"
	     #+(and cadr rel45)
	     "vax:!/ct!/window!/hackscrol.oq")

;;;database--description of the help entries
(ct_load_def helpdb
             #+(and unix (not LMI))    "/ct/tutordbs/help/helpdb.l"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutordbs!/help!/helpdb.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutordbs!/help!/helpdb.OB"
	     #+LMI "CT: TUTORDBS; HELP; helpdb.qfasl"
	     #+local_build "local:>ct>tutordbs>help>helpdb.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutordbs!/help!/helpdb.l"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutordbs!/help!/helpdb.l")


(ct_load_def helpdaba
	     #+(and unix (not LMI))     "/ct/ctlisp/filemaps/helpdaba.l"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ctlisp!/filemaps!/helpdaba.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ctlisp!/filemaps!/helpdaba.OB"
	     #+LMI "CT: CTLISP; FILEMAPS; helpdaba.qfasl"
	     #+local_build "local:>ct>ctlisp>filemaps>helpdaba.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/ctlisp!/filemaps!/helpdaba.l"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ctlisp!/filemaps!/helpdaba.l")

;;;database--description of the hints entries
(ct_load_def hints
             #+(and unix (not LMI))    "/ct/tutordbs/hints/hints.l"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutordbs!/hints!/hints.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutordbs!/hints!/hints.OB"
	     #+LMI "CT: TUTORDBS; HINTS; hints.qfasl"
	     #+local_build "local:>ct>tutordbs>hints>hints.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutordbs!/hints!/hints.l"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutordbs!/hints!/hints.l")

(ct_load_def hintsdaba
             #+(and unix (not LMI))     "!/ct!/ctlisp!/filemaps!/hintsdaba.l"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ctlisp!/filemaps!/hintsdaba.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ctlisp!/filemaps!/hintsdaba.OB"
	     #+LMI "CT: CTLISP; FILEMAPS; hintsdaba.qfasl"
	     #+local_build "local:>ct>ctlisp>filemaps>hintsdaba.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/ctlisp!/filemaps!/hintsdaba.l"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ctlisp!/filemaps!/hintsdaba.l")

(ct_load_def hl18b
             #+(and unix (not LMI))      "nil"       ;;fonts
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/lmfonts!/hl18b.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/lmfonts!/hl18b.OB"
	     #+LMI "CT: LMFONTS; hl18b.qfasl"
	     #+local_build "local:>ct>lmfonts>hl18b.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/lmfonts!/hl18b.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/lmfonts!/hl18b.oq")

;;;Name of the host and directory on which the interpreter-debugger user
;;;manual can be found.
(ct_load_def idmandir
	     #+(and unix (not LMI))     "ctvax://ct//doc//manual//"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax://ct//doc//manual//"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax://ct//doc//manual//"
	     #+LMI "CT: DOC; MANUAL;"
	     #+local_build "local:>ct>doc>manual>"
	     #+(and cadr (not rel45))
	     "ctvax://ct//doc//manual//"
	     #+(and cadr rel45)
	     "ctvax://ct//doc//manual//")

(ct_load_def image
             #+(and unix (not LMI))      "nil"       ;;no dumping on unix
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/lmcode!/image.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/lmcode!/image.OB"
	     #+LMI "CT: LMCODE; image.qfasl"
	     #+local_build "local:>ct>lmcode>image.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/lmcode!/image.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/lmcode!/image.oq")

(ct_load_def initial
	     #+(and unix (not LMI))     "!/ct!/interp!/initial.ada"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/initial.ada"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/initial.ada"
	     #+LMI "CT: INTERP; initial.ada"
	     #+local_build "local:>ct>interp>initial.ada"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/initial.ada"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/initial.ada")

(ct_load_def inspector
	     #+(and unix (not LMI))   "/ct/debug/inspector.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/debug!/inspector.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/debug!/inspector.OB"
	     #+LMI "CT: DEBUG; inspector.qfasl"
	     #+local_build "local:>ct>debug>inspector.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/debug!/inspector.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/debug!/inspector.oq")


;;;  Improved Choose Variable Value ONLY for PWS.
(ct_load_def menutv
	     #+(and unix (not LMI))     "nil"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/window!/menutv.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/window!/menutv.OB"
	     #+LMI "CT: WINDOW; menutv.qfasl"
	     #+local_build "local:>ct>window>menutv.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/window!/menutv.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/window!/menutv.oq")

(ct_load_def incd
             #+(and unix (not LMI))	"!/ct!/interp!/incd.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/incd.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/incd.OB"
	     #+LMI "CT: INTERP; incd.qfasl"
	     #+local_build "local:>ct>interp>incd.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/incd.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/incd.oq")

(ct_load_def intdtext
	     #+(and unix (not LMI))   "/ct/doc/manual/document.txt"
	     #+(and 3600 (not local_build))
	     "ctvax:!/ct!/doc!/manual!/document.txt"
	     #+LMI "CT: DOC; MANUAL; document.txt"
	     #+local_build "local:>ct>doc>manual>document.text"
             #+cadr
	     "ctvax:!/ct!/doc!/manual!>document.txt")

(ct_load_def intdnodes
	     #+(and unix (not LMI))   "/ct/doc/manual/nodedefs.l"
	     #+(and 3600 (not local_build))
	     "ctvax:!/ct!/doc!/manual!/nodedefs.l"
	     #+LMI "CT: DOC; MANUAL; nodedefs.lisp"
	     #+local_build "local:>ct>doc>manual>nodedefs.l"
             #+cadr
	     "ctvax:!/ct!/doc!/manual!/nodedefs.l")

(ct_load_def interp
	     #+(and unix (not LMI))	"/ct/interp/interp.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/interp.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/interp.OB"
	     #+LMI "CT: INTERP; interp.qfasl"
	     #+local_build "local:>ct>interp>interp.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/interp.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/interp.oq")

;;; Loader and dumper for an Ada interpretter/debugger
(ct_load_def interpdb
	     #+(and unix (not LMI))     "!/ct!/debug!/interpdb.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/debug!/interpdb.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/debug!/interpdb.OB"
	     #+LMI "CT: DEBUG; interpdb.qfasl"
	     #+local_build "local:>ct>debug>interpdb.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/debug!/interpdb.l"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/debug!/interpdb.l")

(ct_load_def intrpdcl	;; ct_includef file of declarations for ada*interpreter
	     #+(and unix (not LMI))	"!/ct!/interp!/intrpdcl.l"  ;;; Do Not Compile.
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/intrpdcl.l"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/intrpdcl.l"
	     #+LMI "CT: INTERP; intrpdcl.lisp"
	     #+local_build "local:>ct>interp>intrpdcl.lisp"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/intrpdcl.l"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/intrpdcl.l")

(ct_load_def iocompat	;; compat stuff specific to generic ada io
	     #+(and unix (not LMI))	"!/ct!/interp!/iocompat.o"
	     #+(and 3600 (not local_build) (not rel45))	
	     "ctvax:!/ct!/interp!/iocompat.bn"
	     #+(and 3600 (not local_build) rel45)	
	     "ctvax:!/ct!/interp!/iocompat.OB"
	     #+LMI "CT: INTERP; iocompat.qfasl"
	     #+local_build "local:>ct>interp>iocompat.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/iocompat.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/iocompat.oq")

(ct_load_def ioexpkg	;; io_exception package
	     #+(and unix (not LMI))	"!/ct!/interp!/ioexpkg.ada"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/ioexpkg.ada"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/ioexpkg.ada"
	     #+LMI "CT: INTERP; ioexpkg.ada"
	     #+local_build "local:>ct>interp>pkg.ada"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/ioexpkg.ada"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/ioexpkg.ada")

;;;  Flavor and message definitions for text_io.  Ada I/O.  JS, MM.
(ct_load_def ioflav
	     #+(and unix (not LMI))	"!/ct!/interp!/ioflav.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/ioflav.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/ioflav.OB"
	     #+LMI "CT: INTERP; ioflav.qfasl"
	     #+local_build "local:>ct>interp>ioflav.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/ioflav.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/ioflav.oq")

;;;ipnet macro expansions, etc.
(ct_load_def ipnet
             #+(and unix (not LMI))     "!/ct!/tutor!/ipnet.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/ipnet.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/ipnet.OB"
	     #+LMI "CT: TUTOR; ipnet.qfasl"
	     #+local_build "local:>ct>tutor>ipnet.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/ipnet.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/ipnet.oq")

(ct_load_def lana
	     #+(and unix (not LMI))	"/ct/interp/lana.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/lana.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/lana.OB"
	     #+LMI "CT: INTERP; lana.qfasl"
	     #+local_build "local:>ct>interp>lana.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/lana.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/lana.oq")

(ct_load_def latcomp ;setq of files to compile in the right order
	     #+(and unix (not LMI))	"/ct/interp/latcomp"
	     #+3600     "ctvax:!/ct!/interp!/latcomp"
	     #+LMI      "CT: INTERP; latcomp"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/latcomp"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/latcomp")

(ct_load_def leftmenu
    	     #+(and unix (not LMI))	"!/ct!/window!/leftmenu.l" ;; Don't load
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/window!/leftmenu.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/window!/leftmenu.OB"
	     #+LMI "CT: WINDOW; leftmenu.qfasl"
	     #+local_build "local:>ct>window>leftmenu.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/window!/leftmenu.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/window!/leftmenu.oq")

;;;lisp/ada interface flavors
(ct_load_def lispinter
             #+(and unix (not LMI))     "!/ct!/tutor!/lispinter.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/lispinter.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/lispinter.OB"
	     #+LMI "CT: TUTOR; lispinter.qfasl"
	     #+local_build "local:>ct>tutor>lispinter.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/lispinter.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/lispinter.oq")

(ct_load_def littleada
	     #+(and unix (not LMI))	"nil"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ctlisp!/littleada.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ctlisp!/littleada.OB"
	     #+LMI "CT: CTLISP; littleada.qfasl"
	     #+local_build "local:>ct>ctlisp>littleada.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/ctlisp!/littleada.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ctlisp!/littleada.oq")

(ct_load_def lispmloop
	     #+(and unix (not LMI))	"/ct/ctlisp/lispmloop.o"
	     		 ;; Next not compiled since not needed on LM.
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ctlisp!/lispmloop.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ctlisp!/lispmloop.OB"
	     #+LMI "CT: CTLISP; lispmloop.qfasl"
	     #+local_build "local:>ct>ctlisp>lispmloop.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/ctlisp!/lispmloop.l"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ctlisp!/lispmloop.l")

(ct_load_def lmdbcmds
	     #+(and unix (not LMI))     "nil"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/debug!/lmdbcmds.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/debug!/lmdbcmds.OB"
	     #+LMI "CT: DEBUG; lmdbcmds.qfasl"
	     #+local_build "local:>ct>debug>lmdbcmds.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/debug!/lmdbcmds.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/debug!/lmdbcmds.oq")

(ct_load_def lmhose
	     #+(and unix (not LMI))	"/ct/interp/lmhose.l"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/lmhose.l"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/lmhose.l"
	     #+LMI "CT: INTERP; lmhose.qfasl"
	     #+local_build "local:>ct>interp>lmhose.lisp"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/lmhose.l"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/lmhose.l")

(ct_load_def lmruntests ;for qa
	     #+(and unix (not LMI))     "nil"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/quality!/acvc!/src!/lmruntests.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/quality!/acvc!/src!/lmruntests.OB"
	     #+LMI "CT: QUALITY; ACVC; SRC; lmruntests.qfasl"
	     #+local_build "local:>ct>quality>acvc>src>lmruntests.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/quality!/acvc!/src!/lmruntests.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/quality!/acvc!/src!/lmruntests.oq")

(ct_load_def lmscreens
	     #+(and unix (not LMI))     "nil"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/debug!/lmscreens.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/debug!/lmscreens.OB"
	     #+LMI "CT: DEBUG; lmscreens.qfasl"
	     #+local_build "local:>ct>debug>lmscreens.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/debug!/lmscreens.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/debug!/lmscreens.oq")

(ct_load_def lrmtext
	     #+(and unix (not LMI))   "/ct/doc/lrm/document.txt"
	     #+(and 3600 (not local_build))
	     "ctvax:!/ct!/doc!/lrm!/document.txt"
	     #+LMI "CT: DOC; LRM; document.txt"
	     #+local_build "local:>ct>doc>lrm>document.text"
             #+cadr
	     "ctvax:!/ct!/doc!/lrm!>document.txt")

(ct_load_def lrmnodes
	     #+(and unix (not LMI))   "/ct/doc/lrm/nodedefs.l"
	     #+(and 3600 (not local_build))
	     "ctvax:!/ct!/doc!/lrm!/nodedefs.l"
	     #+LMI "CT: DOC; LRM; nodedefs.lisp"
	     #+local_build "local:>ct>doc>lrm>nodedefs.l"
             #+cadr
	     "ctvax:!/ct!/doc!/lrm!/nodedefs.l")

(ct_load_def makepwd ;for making passwords
    	     #+(and unix (not LMI))	"!/ct!/ctlisp!/menuq.qb"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ctlisp!/makepwd.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ctlisp!/makepwd.OB"
	     #+LMI "CT: CTLISP; makepwd.qfasl"
	     #+local_build
	     "local:>ct>ctlisp>makepwd.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/ctlisp!/makepwd.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ctlisp!/makepwd.oq")

(ct_load_def maketape ;for making a password
	     #+(and unix (not LMI))	"nil"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax://ct//build//maketape.bn"
	     #+LMI "CT: BUILD; maketape.qfasl"
	     #+local_build "local:>ct>build>maketape.bin"
	     #+(and 3600 (not local_build) rel45) "nil"
	     #+(and cadr (not rel45))
	     "ctvax://ct//build//maketape.bn"
	     #+(and cadr rel45)
	     "nil")



;;;  Patch to make multi-font menus work right on lisp machine.
(ct_load_def menufix
    	     #+(and unix (not LMI))	"!/ct!/window!/menufix.l" ;; but don't load
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/window!/menufix.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/window!/menufix.OB"
	     #+LMI "CT: WINDOW; menufix.qfasl"
	     #+local_build "local:>ct>window>menufix.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/window!/menufix.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/window!/menufix.oq")

(ct_load_def menuq
    	     #+(and unix (not LMI))	"!/ct!/ctlisp!/menuq.qb"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ctlisp!/menuq.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ctlisp!/menuq.OB"
	     #+LMI "CT: CTLISP; menuq.qfasl"
	     #+local_build "local:>ct>ctlisp>menuq.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/ctlisp!/menuq.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ctlisp!/menuq.oq")

;;;  Software to meter time used on Lisp Machine
(ct_load_def meter
	     #+(and unix (not LMI))     "Don't load this file in unix."
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/lmcode!/meter.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/lmcode!/meter.OB"
	     #+LMI "CT: LMCODE; meter.qfasl"
	     #+local_build "nil"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/lmcode!/meter.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/lmcode!/meter.oq")

(ct_load_def moby100
    	     #+(and unix (not LMI))     "!/ct!/lmfonts!/moby100.qb"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/lmfonts!/moby100.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/lmfonts!/moby100.OB"
	     #+LMI "CT: LMFONTS; moby100.qfasl"
	     #+local_build "local:>ct>lmfonts>moby100.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/lmfonts!/moby100.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/lmfonts!/moby100.oq")

(ct_load_def mousect
             #+(and unix (not LMI))     "nil"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/lmfonts!/mousect.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/lmfonts!/mousect.OB"
	     #+LMI "CT: LMFONTS; mousect.qfasl"
	     #+local_build "local:>ct>lmfonts>mousect.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/lmfonts!/mousect.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/lmfonts!/mousect.oq")

(ct_load_def multline
             #+(and unix (not LMI))     "nil-o-roonie"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/window!/multline.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/window!/multline.OB"
	     #+LMI "CT: WINDOW; multline.qfasl"
	     #+local_build "local:>ct>window>multline.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/window!/multline.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/window!/multline.oq")

(ct_load_def msgswt
	     #+(and unix (not LMI))   "/ct/ada/msgswt.ada"
	     #+(and 3600 (not local_build))
	     "ctvax:!/ct!/ada!/msgswt.ada"
	     #+LMI "CT: ADA; msgswt.ada"
	     #+local_build "local:>ct>ada>msgswt.ada"
             #+cadr
	     "ctvax:!/ct!/ada!/msgswt.ada")

(ct_load_def nestgen
	     #+(and unix (not LMI))   "/ct/ada/nestgen.ada"
	     #+(and 3600 (not local_build))
	     "ctvax:!/ct!/ada!/nestgen.ada"
	     #+LMI "CT: ADA; nestgen.ada"
	     #+local_build "local:>ct>ada>nestgen.ada"
             #+cadr
	     "ctvax:!/ct!/ada!/nestgen.ada")

(ct_load_def newprime
	     #+(and unix (not LMI))   "/ct/ada/newprime.ada"
	     #+(and 3600 (not local_build))
	     "ctvax:!/ct!/ada!/newprime.ada"
	     #+LMI "CT: ADA; newprime.ada"
	     #+local_build "local:>ct>ada>newprime.ada"
             #+cadr
	     "ctvax:!/ct!/ada!/newprime.ada")

(ct_load_def null
	     #+(and unix (not LMI))   "/ct/ada/null.ada"
	     #+(and 3600 (not local_build))
	     "ctvax:!/ct!/ada!/null.ada"
	     #+LMI "CT: ADA; null.ada"
	     #+local_build "local:>ct>ada>null.ada"
             #+cadr
	     "ctvax:!/ct!/ada!/null.ada")

(ct_load_def newchoose			  ;SteveA's new ChooseVarVal
	     #+(and unix (not LMI))	"!/ct!/ctlisp!/newchoose.qb"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ctlisp!/newchoose.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ctlisp!/newchoose.OB"
	     #+LMI "CT: CTLISP; newchoose.qfasl"
	     #+local_build "local:>ct>ctlisp>newchoose.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/ctlisp!/newchoose.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ctlisp!/newchoose.oq")


(ct_load_def newmore			  ;new more_processing message
             #+(and unix (not LMI))     "!/ct!/tutor!/newmore.qb"  ;;;don't load
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/newmore.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/newmore.OB"
	     #+LMI "CT: TUTOR; newmore.qfasl"
	     #+local_build "local:>ct>tutor>newmore.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/newmore.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/newmore.oq" )

;;;Jim's revision of John's viewing window

(ct_load_def user:newview
	       #+(and cadr (not rel45))
	       "ctvax://ct//browser//newview.qb"
	       #+(and cadr rel45)
	       "ctvax://ct//browser//newview.oq"
	       #+franz "nil"
	       #+(and 3600 (not local_build) (not rel45))
	       "ctvax://ct//browser//newview.bn"
	       #+LMI "CT: BROWSER; newview.qfasl"
	       #+(and 3600 (not local_build) rel45)
	       "ctvax://ct//browser//newview.OB"
	       #+local_build  "local:>ct>browser>newview.bin")


;;; John's new, improved FORMAT package for franz Lisp.
(ct_load_def nfmt
             #+(and unix (not LMI))     "!/ct!/debug!/nfmt.o"
	     #+(and 3600 (not local_build) (not rel45))	"nil"
	     #+local_build "nil"
	     #+LMI "nil"
	     #+(and 3600 (not local_build) rel45)	"nil"
	     #+(and cadr (not rel45))
	     "nil"
	     #+(and cadr rel45)
	     "nil")


;;;Browser node definition file name -- something like NODEDEFS.L
(ct_load_def nodedefname
             #+(and unix (not LMI))    "nodedefs.l"
	     #+(and 3600 (not local_build) (not rel45))
	     "nodedefs.l"
	     #+(and 3600 (not local_build) rel45)
	     "nodedefs.l"
	     #+LMI "nodedefs.lisp"
             #+local_build "nodedefs.lisp"
	     #+(and cadr (not rel45))
	     "nodedefs.l"
	     #+(and cadr rel45)
	     "nodedefs.l")

(ct_load_def nodenum
	     #+(and unix (not LMI))   "/ct/debug/nodenum.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/debug!/nodenum.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/debug!/nodenum.OB"
	     #+LMI "CT: DEBUG; nodenum.qfasl"
	     #+local_build "local:>ct>debug>nodenum.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/debug!/nodenum.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/debug!/nodenum.oq")

(ct_load_def openpatch
	     #+(and unix (not LMI))     "!/ct!/ctlisp!/openpatch.qb"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ctlisp!/openpatch.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ctlisp!/openpatch.OB"
	     #+LMI "CT: CTLISP; openpatch.qfasl"
	     #+local_build "local:>ct>ctlisp>openpatch.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/ctlisp!/openpatch.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ctlisp!/openpatch.oq")

(ct_load_def operators                    ;standard operator functions
             #+(and unix (not LMI))     "/ct/interp/operators.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/operators.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/operators.OB"
	     #+LMI "CT: INTERP; operators.qfasl"
	     #+local_build "local:>ct>interp>operators.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/operators.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/operators.oq")

(ct_load_def passwdutil
             #+(and unix (not LMI)) nil
	     #+(and 3600 (not local_build))
	     "ctvax:!/ct!/build!/passwdutil.bn"
	     #+LMI "CT: BUILD; passwdutil.qfasl"
	     #+local_build "local:>ct>build>passwdutil.bin"
             #+cadr
	     "ctvax:!/ct!/build!/passwdutil.bn")

(ct_load_def percent
    	     #+(and unix (not LMI))	"!/ct!/window!/percent.l" ;; but don't load
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/window!/percent.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/window!/percent.OB"
	     #+LMI "CT: WINDOW; percent.qfasl"
	     #+local_build "local:>ct>window>percent.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/window!/percent.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/window!/percent.oq")

(ct_load_def pnorms
	     #+(and unix (not LMI))	"/ct/interp/pnorms.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/pnorms.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/pnorms.OB"
	     #+LMI "CT: INTERP; pnorms.qfasl"
	     #+local_build "local:>ct>interp>pnorms.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/pnorms.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/pnorms.oq")

(ct_load_def point            ; Debugger code pointing utilities
	     #+(and unix (not LMI))	"/ct/debug/point.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/debug!/point.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/debug!/point.OB"
	     #+LMI "CT: DEBUG; point.qfasl"
	     #+local_build "local:>ct>debug>point.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/debug!/point.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/debug!/point.oq")

;;;  Sweet Polly Purebred pure consing package.
(ct_load_def polly
	     #+(and unix (not LMI))     "!/ct!/ctlisp!/polly.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ctlisp!/polly.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ctlisp!/polly.OB"
	     #+LMI "CT: CTLISP; polly.qfasl"
	     #+local_build "local:>ct>ctlisp>polly.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/ctlisp!/polly.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ctlisp!/polly.oq")

;;;lisp/ada pragmas
(ct_load_def pragma
             #+(and unix (not LMI))     "!/ct!/tutor!/pragma.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/pragma.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/pragma.OB"
	     #+LMI "CT: TUTOR; pragma.qfasl"
	     #+local_build "local:>ct>tutor>pragma.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/pragma.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/pragma.oq")

;;;database--description of the exercise presentations
(ct_load_def pres
             #+(and unix (not LMI))    "/ct/tutordbs/exercises/pres.l"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutordbs!/exercises!/pres.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutordbs!/exercises!/pres.OB"
	     #+LMI "CT: TUTORDBS; EXERCISES; pres.qfasl"
	     #+local_build "local:>ct>tutordbs>exercises>pres.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutordbs!/exercises!/pres.l"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutordbs!/exercises!/pres.l")

(ct_load_def primes
	     #+(and unix (not LMI))   "/ct/ada/primes.ada"
	     #+(and 3600 (not local_build))
	     "ctvax:!/ct!/ada!/primes.ada"
	     #+LMI "CT: ADA; primes.ada"
	     #+local_build "local:>ct>ada>primes.ada"
             #+cadr
	     "ctvax:!/ct!/ada!/primes.ada")

;;;program testing
(ct_load_def progtest
             #+(and unix (not LMI))     "!/ct!/tutor!/progtest.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/progtest.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/progtest.OB"
	     #+LMI "CT: TUTOR; progtest.qfasl"
	     #+local_build "local:>ct>tutor>progtest.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/progtest.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/progtest.oq")

;;;  System protection facility.
(ct_load_def protect
	     #+(and unix (not LMI))     "!/ct!/ctlisp!/protect.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ctlisp!/protect.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ctlisp!/protect.OB"
	     #+LMI "CT: CTLISP; protect.qfasl"
	     #+local_build "local:>ct>ctlisp>protect.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/ctlisp!/protect.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ctlisp!/protect.oq")

(ct_load_def pser
	     #+(and unix (not LMI))	"/ct/interp/pser.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/pser.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/pser.OB"
	     #+LMI "CT: INTERP; pser.qfasl"
	     #+local_build "local:>ct>interp>pser.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/pser.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/pser.oq")

(ct_load_def pws
	     #+(and unix (not LMI))     "nil"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/window!/pws.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/window!/pws.OB"
	     #+LMI "CT: WINDOW; pws.qfasl"
	     #+local_build "local:>ct>window>pws.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/window!/pws.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/window!/pws.oq")

(ct_load_def pwsmenu
	     #+(and unix (not LMI))     "nil"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/window!/pwsmenu.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/window!/pwsmenu.OB"
	     #+LMI "CT: WINDOW; pwsmenu.qfasl"
	     #+local_build "local:>ct>window>pwsmenu.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/window!/pwsmenu.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/window!/pwsmenu.oq")


(ct_load_def qahose ;for qa
	     #+(and unix (not LMI))     "nil"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/quality!/qahose.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/quality!/qahose.OB"
	     #+LMI "CT: QUALITY; qahose.qfasl"
	     #+local_build "local:>ct>quality>qahose.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/quality!/qahose.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/quality!/qahose.oq")

;;;semi-defunct queen board display manager
(ct_load_def qbdm
             #+(and unix (not LMI))     "!/ct!/tutor!/qbdm.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/qbdm.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/qbdm.OB"
	     #+LMI "CT: TUTOR; qbdm.qfasl"
	     #+local_build "local:>ct>tutor>qbdm.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/qbdm.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/qbdm.oq")

;;;semi-defunct queen board functions
(ct_load_def queenbd
             #+(and unix (not LMI))     "!/ct!/tutor!/queenbd.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/queenbd.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/queenbd.OB"
	     #+LMI "CT: TUTOR; queenbd.qfasl"
	     #+local_build "local:>ct>tutor>queenbd.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/queenbd.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/queenbd.oq")

(ct_load_def queue	;; Queue's for tasking in the interpreter (jmiller)
	     #+(and unix (not LMI))	"!/ct!/interp!/queue.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/queue.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/queue.OB"
	     #+LMI "CT: INTERP; queue.qfasl"
	     #+local_build "local:>ct>interp>queue.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/queue.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/queue.oq")

;;;  A version of readline for Franz lisp.
(ct_load_def readline
             #+(and unix (not LMI))     "!/ct!/ctlisp!/readline.o"
	     #+(and 3600 (not local_build) (not rel45))	"nil"
	     #+local_build "nil"
	     #+(and 3600 (not local_build) rel45)	"nil"
	     #+LMI "nil"
	     #+(and cadr (not rel45))
	     "nil"
	     #+(and cadr rel45)
	     "nil")

;;;database--descriptions of the reference manual entries
(ct_load_def rmdefs
             #+(and unix (not LMI))     "/ct/browser/nodedefs/refman.l"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/browser!/nodedefs!/refman.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/browser!/nodedefs!/refman.OB"
	     #+LMI "CT: BROWSER; NODEDEFS; refman.qfasl"
	     #+local_build "local:>ct>browser>refman.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/browser!/nodedefs!/refman.l"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/browser!/nodedefs!/refman.l")

;;;setq  the interp/debugger release strings.
(ct_load_def release
             #+(and unix (not LMI))     "/ct/build/release.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/build!/release.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/build!/release.OB"
	     #+LMI "CT: BUILD; release.qfasl"
	     #+local_build "local:>ct>build>release.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/build!/release.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/build!/release.oq")

(ct_load_def reference	;reference records for the lrm used by the interpreter
	     #+(and unix (not LMI))	"/ct/ctlisp/reference.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ctlisp!/reference.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ctlisp!/reference.OB"
	     #+LMI "CT: CTLISP; reference.qfasl"
	     #+local_build "local:>ct>ctlisp>reference.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/ctlisp!/reference.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ctlisp!/reference.oq")

(ct_load_def repspec	;modified report package spec from acvc
	     #+(and unix (not LMI))	"/ct/interp/repspec.ada"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/repspec.ada"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/repspec.ada"
	     #+LMI "CT: INTERP; repspec.ada"
	     #+local_build "local:>ct>interp>repspec.ada"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/repspec.ada"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/repspec.ada")

(ct_load_def repbody	;modified report package body from acvc
	     #+(and unix (not LMI))	"/ct/interp/repbody.ada"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/repbody.ada"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/repbody.ada"
	     #+LMI "CT: INTERP; repbody.ada"
	     #+local_build "local:>ct>interp>repbody.ada"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/repbody.ada"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/repbody.ada")

(ct_load_def resolve	;disambiguation, used to be sema
	     #+(and unix (not LMI))	"/ct/interp/resolve.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/resolve.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/resolve.OB"
	     #+LMI "CT: INTERP; resolve.qfasl"
	     #+local_build "local:>ct>interp>resolve.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/resolve.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/resolve.oq")

(ct_load_def resume	;auto resumeing code
	     #+(and unix (not LMI))	nil
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/lmcode!/resume.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/lmcode!/resume.OB"
	     #+LMI "CT: LMCODE; resume.qfasl"
	     #+local_build "local:>ct>lmcode>resume.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/lmcode!/resume.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/lmcode!/resume.oq")

(ct_load_def rmdaba
             #+(and unix (not LMI))     "!/ct!/browser!/filemaps!/rmdaba.l"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/browser!/filemaps!/rmdaba.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/browser!/filemaps!/rmdaba.OB"
	     #+LMI "CT: BROWSER; FILEMAPS; rmdaba.qfasl"
	     #+local_build "local:>ct>browser>filemaps>rmbada.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/browser!/filemaps!/rmdaba.l"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/browser!/filemaps!/rmdaba.l")

;;;tutor/interpreter interface for running
(ct_load_def runada
             #+(and unix (not LMI))     "!/ct!/tutor!/runada.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/runada.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/runada.OB"
	     #+LMI "CT: TUTOR; runada.qfasl"
	     #+local_build "local:>ct>tutor>runada.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/runada.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/runada.oq")

;;;environment template for original run sort exercise
(ct_load_def rsenv
    #+(and unix (not LMI)) "!/ct!/tutordbs!/exercises!/rsenv.ada"
    #+(and 3600 (not local_build) (not rel45))
    "ctvax:!/ct!/tutordbs!/exercises!/rsenv.ada"
    #+(and 3600 (not local_build) rel45)
    "ctvax:!/ct!/tutordbs!/exercises!/rsenv.ada"
    #+LMI "CT: TUTORDBS; EXERCISES; rsenv.ada"
    #+local_build "local:>ct>tutordbs>exercises>rsenv.ada"
    #+(and cadr (not rel45))
    "ctvax:!/ct!/tutordbs!/exercises!/rsenv.ada"
    #+(and cadr rel45)
    "ctvax:!/ct!/tutordbs!/exercises!/rsenv.ada")


(ct_load_def screens
	     #+(and unix (not LMI))   "/ct/debug/screens.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/debug!/screens.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/debug!/screens.OB"
	     #+LMI "CT: DEBUG; screens.qfasl"
	     #+local_build "local:>ct>debug>screens.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/debug!/screens.l"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/debug!/screens.l")

;;;  Scrolling windows for the debugger.  These windows maintain
;;; an entire document, and display any screenful on command.
(ct_load_def scroll
	     #+(and unix (not LMI))     "!/ct!/debug!/scroll.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/debug!/scroll.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/debug!/scroll.OB"
	     #+LMI "CT: DEBUG; scroll.qfasl"
	     #+local_build "local:>ct>debug>scroll.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/debug!/scroll.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/debug!/scroll.oq")

;;;environment template for original swap exercise
(ct_load_def swapenv
    #+(and unix (not LMI)) "!/ct!/tutordbs!/exercises!/swapenv.ada"
    #+(and 3600 (not local_build) (not rel45))
    "ctvax:!/ct!/tutordbs!/exercises!/swapenv.ada"
    #+(and 3600 (not local_build) rel45)
    "ctvax:!/ct!/tutordbs!/exercises!/swapenv.ada"
    #+LMI "CT: TUTORDBS; EXERCISES; swapenv.ada"
    #+local_build "local:>ct>tutordbs>exercises>swapenv.ada"
    #+(and cadr (not rel45))
    "ctvax:!/ct!/tutordbs!/exercises!/swapenv.ada"
    #+(and cadr rel45)
    "ctvax:!/ct!/tutordbs!/exercises!/swapenv.ada")

(ct_load_def sema
	     #+(and unix (not LMI))	"/ct/interp/sema.o"
	     #+(and 3600 (not local_build) (not rel45))	
	     "ctvax:!/ct!/interp!/sema.bn"
	     #+(and 3600 (not local_build) rel45)	
	     "ctvax:!/ct!/interp!/sema.OB"
	     #+LMI "CT: INTERP; sema.qfasl"
	     #+local_build "local:>ct>interp>sema.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/sema.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/sema.oq")

(ct_load_def seqiol
	     #+(and unix (not LMI))	"!/ct!/interp!/seqiol.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/seqiol.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/seqiol.OB"
	     #+LMI "CT: INTERP; seqiol.qfasl"
	     #+local_build "local:>ct>interp>seqiol.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/seqiol.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/seqiol.oq")

(ct_load_def seqiop   ;; package text_io written in ada
	     #+(and unix (not LMI))	"!/ct!/interp!/seqiop.ada"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/seqiop.ada"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/seqiop.ada"
	     #+LMI "CT: INTERP; seqiop.ada"
	     #+local_build "local:>ct>interp>seqiop.ada"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/seqiop.ada"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/seqiop.ada")

(ct_load_def sequenio
	     #+(and unix (not LMI))	"!/ct!/interp!/sequenio.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/sequenio.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/sequenio.OB"
	     #+LMI "CT: INTERP; sequenio.qfasl"
	     #+local_build "local:>ct>interp>sequenio.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/sequenio.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/sequenio.oq")

;;;  Code for sequential i/o.  Ada I/O.  JS,MM.
(ct_load_def serialio
	     #+(and unix (not LMI))	"!/ct!/interp!/serialio.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/serialio.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/serialio.OB"
	     #+LMI "CT: INTERP; serialio.qfasl"
	     #+local_build "local:>ct>interp>serialio.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/serialio.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/serialio.oq")

(ct_load_def shop
	     #+(and unix (not LMI))   "/ct/ada/shop.ada"
	     #+(and 3600 (not local_build))
	     "ctvax:!/ct!/ada!/shop.ada"
	     #+LMI "CT: ADA; shop.ada"
	     #+local_build "local:>ct>ada>shop.ada"
             #+cadr
	     "ctvax:!/ct!/ada!/shop.ada")

(ct_load_def sieve
	     #+(and unix (not LMI))   "/ct/ada/sieve.ada"
	     #+(and 3600 (not local_build))
	     "ctvax:!/ct!/ada!/sieve.ada"
	     #+LMI "CT: ADA; sieve.ada"
	     #+local_build "local:>ct>ada>sieve.ada"
             #+cadr
	     "ctvax:!/ct!/ada!/sieve.ada")

(ct_load_def stkland
	     #+(and unix (not LMI))   "/ct/ada/stkland.ada"
	     #+(and 3600 (not local_build))
	     "ctvax:!/ct!/ada!/stkland.ada"
	     #+LMI "CT: ADA; stkland.ada"
	     #+local_build "local:>ct>ada>stkland.ada"
             #+cadr
	     "ctvax:!/ct!/ada!/stkland.ada")

(ct_load_def stknoid
	     #+(and unix (not LMI))   "/ct/ada/stknoid.ada"
	     #+(and 3600 (not local_build))
	     "ctvax:!/ct!/ada!/stknoid.ada"
	     #+LMI "CT: ADA; stknoid.ada"
	     #+local_build "local:>ct>ada>stknoid.ada"
             #+cadr
	     "ctvax:!/ct!/ada!/stknoid.ada")

(ct_load_def sminter
             #+(and unix (not LMI))     "!/ct!/tutor!/sminter.l"  ;;;don't load
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/sminter.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/sminter.OB"
	     #+LMI "CT: TUTOR; sminter.qfasl"
	     #+local_build "local:>ct>tutor>sminter.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/sminter.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/sminter.oq" )

;;;delete the following once everyone has switched to using sm_inter
(ct_load_def sminter
             #+(and unix (not LMI))     "!/ct!/tutor!/sminter.l"  ;;;don't load
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/sminter.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/sminter.OB"
	     #+LMI "CT: TUTOR; sminter.qfasl"
	     #+local_build "local:>ct>tutor>sminter.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/sminter.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/sminter.oq" )

;;;database--description of the solutions
(ct_load_def sols
             #+(and unix (not LMI))    "/ct/tutordbs/exercises/sols.l"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutordbs!/exercises!/sols.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutordbs!/exercises!/sols.OB"
	     #+LMI "CT: TUTORDBS; EXERCISES; sols.qfasl"
	     #+local_build "local:>ct>tutordbs>exercises>sols.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutordbs!/exercises!/sols.l"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutordbs!/exercises!/sols.l")

(ct_load_def stateval	;; Peter's static evaluator
             #+(and unix (not LMI))     "!/ct!/interp!/stateval.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/stateval.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/stateval.OB"
	     #+LMI "CT: INTERP; stateval.qfasl"
	     #+local_build "local:>ct>interp>stateval.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/stateval.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/stateval.oq")
    
;;;display manager for stack
(ct_load_def stackdm
             #+(and unix (not LMI))     "!/ct!/tutor!/stackdm.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/stackdm.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/stackdm.OB"
	     #+LMI "CT: TUTOR; stackdm.qfasl"
	     #+local_build "local:>ct>tutor>stackdm.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/stackdm.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/stackdm.oq")

(ct_load_def stdenv
	     #+(and unix (not LMI))	"/ct/interp/stdenv.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/stdenv.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/stdenv.OB"
	     #+LMI "CT: INTERP; stdenv.qfasl"
	     #+local_build "local:>ct>interp>stdenv.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/stdenv.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/stdenv.oq")

(ct_load_def stdpkg	;; package standard written in ada
	     #+(and unix (not LMI))	"/ct/interp/stdpkg.ada"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/stdpkg.ada"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/stdpkg.ada"
	     #+LMI "CT: INTERP; stdpkg.ada"
	     #+local_build "local:>ct>interp>stdpkg.ada"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/stdpkg.ada"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/stdpkg.ada")

;;;swap display manager
(ct_load_def swapdm
             #+(and unix (not LMI))     "!/ct!/tutor!/swapdm.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/swapdm.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/swapdm.OB"
	     #+LMI "CT: TUTOR; swapdm.qfasl"
	     #+local_build "local:>ct>tutor>swapdm.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/swapdm.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/swapdm.oq")

(ct_load_def syspkg	;; package system written in ada
	     #+(and unix (not LMI))	"/ct/interp/syspkg.ada"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/syspkg.ada"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/syspkg.ada"
	     #+LMI "CT: INTERP; syspkg.ada"
	     #+local_build "local:>ct>interp>syspkg.ada"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/syspkg.ada"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/syspkg.ada")

;;;  The system password file.  This is checked to see if the
;;; user is authorized to use our stuff.
(ct_load_def syspwd
	     #+vms      "sys$disk:[ctada]syspwd.dat"
	     #+(and unix (not vms)) "!/ct!/build!/syspwd.dat"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/build!/syspwd.dat"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/build!/syspwd.dat"
	     #+LMI "CT: BUILD; syspwd.dat"
	     #+local_build "local:>ct>build>syspwd.dat"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/build!/syspwd.dat"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/build!/syspwd.dat")

;all of the testing and analysis files
(ct_load_def tadb
             #+(and unix (not LMI))     "!/ct!/ta!/tadb.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ta!/tadb.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ta!/tadb.OB"
	     #+LMI "CT: TA; tadb.qfasl"
	     #+local_build "local:>ct>ta>tadb.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/ta!/tadb.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ta!/tadb.oq")

(ct_load_def tadvr
             #+(and unix (not LMI))     "!/ct!/ta!/tadvr.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ta!/tadvr.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ta!/tadvr.OB"
	     #+LMI "CT: TA; tadvr.qfasl"
	     #+local_build "local:>ct>ta>tadvr.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/ta!/tadvr.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ta!/tadvr.oq")
    
(ct_load_def taflvr
             #+(and unix (not LMI))     "!/ct!/ta!/taflvr.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ta!/taflvr.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ta!/taflvr.OB"
	     #+LMI "CT: TA; taflvr.qfasl"
	     #+local_build "local:>ct>ta>taflvr.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/ta!/taflvr.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ta!/taflvr.oq")
    
(ct_load_def tahist
             #+(and unix (not LMI))     "!/ct!/ta!/tahist.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ta!/tahist.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ta!/tahist.OB"
	     #+LMI "CT: TA; tahist.qfasl"
	     #+local_build "local:>ct>ta>tahist.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/ta!/tahist.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ta!/tahist.oq")

(ct_load_def taiintf
             #+(and unix (not LMI))     "!/ct!/ta!/taiintf.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ta!/taiintf.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ta!/taiintf.OB"
	     #+LMI "CT: TA; taiintf.qfasl"
	     #+local_build "local:>ct>ta>taiintf.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/ta!/taiintf.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ta!/taiintf.oq")

(ct_load_def taqueue
             #+(and unix (not LMI))     "!/ct!/ta!/taqueue.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ta!/taqueue.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ta!/taqueue.OB"
	     #+LMI "CT: TA; taqueue.qfasl"
	     #+local_build "local:>ct>ta>taqueue.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/ta!/taqueue.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ta!/taqueue.oq")

(ct_load_def tapp
             #+(and unix (not LMI))     "!/ct!/ta!/tapp.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ta!/tapp.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ta!/tapp.OB"
	     #+LMI "CT: TA; tapp.qfasl"
	     #+local_build "local:>ct>ta>tapp.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/ta!/tapp.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ta!/tapp.oq")

(ct_load_def tasknoia
	     #+(and unix (not LMI))   "/ct/ada/tasknoia.ada"
	     #+(and 3600 (not local_build))
	     "ctvax:!/ct!/ada!/tasknoia.ada"
	     #+LMI "CT: ADA; tasknoia.ada"
	     #+local_build "local:>ct>ada>tasknoia.ada"
             #+cadr
	     "ctvax:!/ct!/ada!/tasknoia.ada")

(ct_load_def tasknoib
	     #+(and unix (not LMI))   "/ct/ada/tasknoib.ada"
	     #+(and 3600 (not local_build))
	     "ctvax:!/ct!/ada!/tasknoib.ada"
	     "ctvax:!/ct!/ada!/tasknoib.ada"
	     #+local_build "local:>ct>ada>tasknoib.ada"
             #+cadr
	     "ctvax:!/ct!/ada!/tasknoib.ada")

(ct_load_def text10
	     #+(and unix (not LMI))   "/ct/ada/text10.ada"
	     #+(and 3600 (not local_build))
	     "ctvax:!/ct!/ada!/text10.ada"
	     "ctvax:!/ct!/ada!/text10.ada"
	     #+local_build "local:>ct>ada>text10.ada"
             #+cadr
	     "ctvax:!/ct!/ada!/text10.ada")

(ct_load_def tsttext
	     #+(and unix (not LMI))   "/ct/ada/tsttext.ada"
	     #+(and 3600 (not local_build))
	     "ctvax:!/ct!/ada!/tsttext.ada"
	     "ctvax:!/ct!/ada!/tsttext.ada"
	     #+local_build "local:>ct>ada>tsttext.ada"
             #+cadr
	     "ctvax:!/ct!/ada!/tsttext.ada")

(ct_load_def tasort
             #+(and unix (not LMI))     "!/ct!/ta!/tasort.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ta!/tasort.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ta!/tasort.OB"
	     #+LMI "CT: TA; tasort.qfasl"
	     #+local_build "local:>ct>ta>tasort.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/ta!/tasort.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ta!/tasort.oq")

(ct_load_def tasummar
             #+(and unix (not LMI))     "!/ct!/ta!/tasummar.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ta!/tasummar.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ta!/tasummar.OB"
	     #+LMI "CT: TA; tasummar.qfasl"
	     #+local_build "local:>ct>ta>tasummar.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/ta!/tasummar.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ta!/tasummar.oq")


(ct_load_def templada			  ;Standard Ada Mode Templates Font
	     #+(and unix (not LMI))	"!/ct!/lmfonts!/templada.l" ;; don't load on Vax!!
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/lmfonts!/templada.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/lmfonts!/templada.OB"
	     #+LMI "CT: LMFONTS; templada.qfasl"
	     #+local_build "local:>ct>lmfonts>templada.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/lmfonts!/templada.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/lmfonts!/templada.oq")

(ct_load_def template	;; Standard template for initializing LISP code files.
	     #+(and unix (not LMI))	"!/ct!/ctlisp!/template.l"	  ;Do Not Compile.
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ctlisp!/template.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ctlisp!/template.OB"
	     #+LMI "CT: CTLISP; template.qfasl"
	     #+local_build "local:>ct>ctlisp>template.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/ctlisp!/template.l"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ctlisp!/template.l")

(ct_load_def temploz    ;;for templates in editor
             #+(and unix (not LMI))     "!/ct!/lmfonts!/temploz.l"  ;;don't load on VAX
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/lmfonts!/temploz.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/lmfonts!/temploz.OB"
	     #+LMI "CT: LMFONTS; temploz.qfasl"
	     #+local_build "local:>ct>lmfonts>temploz.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/lmfonts!/temploz.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/lmfonts!/temploz.oq")

;;;dynamic test functions for exercises
(ct_load_def testfcns
             #+(and unix (not LMI))     "!/ct!/tutor!/testfcns.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/testfcns.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/testfcns.OB"
	     #+LMI "CT: TUTOR; testfcns.qfasl"
	     #+local_build "local:>ct>tutor>testfcns.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/testfcns.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/testfcns.oq")

;;;database--description of the concept textfiles
(ct_load_def text
             #+(and unix (not LMI))    "/ct/tutordbs/concepts/text.l"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutordbs!/concepts!/text.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutordbs!/concepts!/text.OB"
	     #+LMI "CT: TUTORDBS; CONCEPTS; text.qfasl"
	     #+local_build "local:>ct>tutordbs>concepts>text.bin"
             #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutordbs!/concepts!/text.l"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutordbs!/concepts!/text.l")

;;;  Top level functions for text_io.  Ada I/O.  JS, MM.
(ct_load_def textio
	     #+(and unix (not LMI))	"!/ct!/interp!/textio.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/textio.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/textio.OB"
	     #+LMI "CT: INTERP; textio.qfasl"
	     #+local_build "local:>ct>interp>textio.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/textio.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/textio.oq")

(ct_load_def textiol
	     #+(and unix (not LMI))	"!/ct!/interp!/textiol.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/textiol.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/textiol.OB"
	     #+LMI "CT: INTERP; textiol.qfasl"
	     #+local_build "local:>ct>interp>textiol.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/textiol.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/textiol.oq")

(ct_load_def textiop   ;; package text_io written in ada
	     #+(and unix (not LMI))	"!/ct!/interp!/textiop.ada"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/textiop.ada"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/textiop.ada"
	     #+LMI "CT: INTERP; textiop.ada"
	     #+local_build "local:>ct>interp>textiop.ada"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/textiop.ada"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/textiop.ada")

(ct_load_def time
	     #+(and unix (not LMI))	"!/ct!/ctlisp!/time.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ctlisp!/time.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ctlisp!/time.OB"
	     #+LMI "CT: CTLISP; time.qfasl"
	     #+local_build "local:>ct>ctlisp>time.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/ctlisp!/time.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ctlisp!/time.oq")

(ct_load_def timefix			  ;Fix for LM daylight savings bug.
	     #+(and unix (not LMI))	"/ct/ctlisp/timefix.l"	  ;Don't load on Vax tho.
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/ctlisp!/timefix.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/ctlisp!/timefix.OB"
	     #+LMI "CT: CTLISP; timefix.qfasl"
	     #+local_build "local:>ct>ctlisp>timefix.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/ctlisp!/timefix.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/ctlisp!/timefix.oq")

(ct_load_def tr12br
             #+(and unix (not LMI))     "nil"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/lmfonts!/tr12br.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/lmfonts!/tr12br.OB"
	     #+LMI "CT: LMFONTS; tr12br.qfasl"
	     #+local_build "local:>ct>lmfonts>tr12br.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/lmfonts!/tr12br.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/lmfonts!/tr12br.oq")

(ct_load_def tr18bct
             #+(and unix (not LMI))     "nil"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/lmfonts!/tr18bct.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/lmfonts!/tr18bct.OB"
	     #+LMI "CT: LMFONTS; tr18bct.qfasl"
	     #+local_build "local:>ct>lmfonts>tr18bct.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/lmfonts!/tr18bct.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/lmfonts!/tr18bct.oq")

(ct_load_def tr18ct
             #+(and unix (not LMI))     "nil"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/lmfonts!/tr18ct.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/lmfonts!/tr18ct.OB"
	     #+LMI "CT: LMFONTS; tr18ct.qfasl"
	     #+local_build "local:>ct>lmfonts>tr18ct.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/lmfonts!/tr18ct.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/lmfonts!/tr18ct.oq")

(ct_load_def truescroll
             #+(and unix (not LMI))     "nil"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/window!/truescroll.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/window!/truescroll.OB"
	     #+LMI "CT: WINDOW; truescroll.qfasl"
	     #+local_build "local:>ct>window>truescroll.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/window!/truescroll.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/window!/truescroll.oq")

;;;tutor globals
(ct_load_def tutglob
             #+(and unix (not LMI))     "!/ct!/tutor!/tutglob.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/tutglob.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/tutglob.OB"
	     #+LMI "CT: TUTOR; tutglob.qfasl"
	     #+local_build "local:>ct>tutor>tutglob.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/tutglob.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/tutglob.oq")

;;;shouldn't need this anymore--hopefully all definitions have been
;;;brought into this system-wide filemap      13/7 sr
;;;(ct_load_def tutordaba
;;;	     #+(and unix (not LMI))	"!/ct!/ctlisp!/filemaps!/tutordaba.l"
;;;	     #+(and cadr (not rel45))
;"ctvax:!/ct!/ctlisp!/filemaps!/tutordaba.l"
;;;	     #+(and cadr rel45)
;"ctvax:!/ct!/ctlisp!/filemaps!/tutordaba.l")

;;;tutor ctadadbol flavors
(ct_load_def tutctlflv
             #+(and unix (not LMI))     "!/ct!/tutor!/tutctlflv.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/tutctlflv.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/tutctlflv.OB"
	     #+LMI "CT: TUTOR; tutctlflv.qfasl"
	     #+local_build "local:>ct>tutor>tutctlflv.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/tutctlflv.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/tutctlflv.oq")

;;;tutor database functions
(ct_load_def tutordb
             #+(and unix (not LMI))     "!/ct!/tutor!/tutordb.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/tutordb.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/tutordb.OB"
	     #+LMI "CT: TUTOR; tutordb.qfasl"
	     #+local_build "local:>ct>tutor>tutordb.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/tutordb.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/tutordb.oq")

;;;tutor environment--the main control functions of the tutor
(ct_load_def tutorenv
             #+(and unix (not LMI))     "!/ct!/tutor!/tutorenv.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/tutorenv.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/tutorenv.OB"
	     #+LMI "CT: TUTOR; tutorenv.qfasl"
	     #+local_build "local:>ct>tutor>tutorenv.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/tutorenv.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/tutorenv.oq")

;;;tutor frames methods
(ct_load_def tutorfrms
             #+(and unix (not LMI))     "!/ct!/tutor!/tutorfrms.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/tutorfrms.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/tutorfrms.OB"
	     #+LMI "CT: TUTOR; tutorfrms.qfasl"
	     #+local_build "local:>ct>tutor>tutorfrms.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/tutorfrms.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/tutorfrms.oq")

;;;tutor window flavors
(ct_load_def tutwinflv
             #+(and unix (not LMI))     "!/ct!/tutor!/tutwinflv.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/tutor!/tutwinflv.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/tutor!/tutwinflv.OB"
	     #+LMI "CT: TUTOR; tutwinflv.qfasl"
	     #+local_build "local:>ct>tutor>tutwinflv.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/tutor!/tutwinflv.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/tutor!/tutwinflv.oq")

(ct_load_def types	;typesupport used to be in sema
	     #+(and unix (not LMI))	"/ct/interp/types.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/types.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/types.OB"
	     #+LMI "CT: INTERP; types.qfasl"
	     #+local_build "local:>ct>interp>types.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/types.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/types.oq")

(ct_load_def unflashy  ;; Hack to flush flashy scrolling in edmenu.
	     #+(and unix (not LMI))	"nil"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/editor!/unflashy.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/editor!/unflashy.OB"
	     #+LMI "CT: EDITOR; unflashy.qfasl"
	     #+local_build "local:>ct>editor>unflashy.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/editor!/unflashy.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/editor!/unflashy.oq")

;;;  Viewing windows, currently working only on the lisp machine.
(ct_load_def view   	;;Improved viewing window facility
             #+(and unix (not LMI))     "!/ct!/window!/view.qb"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/window!/view.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/window!/view.OB"
	     #+LMI "CT: WINDOW; view.qfasl"
	     #+local_build "local:>ct>window>view.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/window!/view.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/window!/view.oq")

(ct_load_def visible		       ; used to be in sema
             #+(and unix (not LMI))     "/ct/interp/visible.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/interp!/visible.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/interp!/visible.OB"
	     #+LMI "CT: INTERP; visible.qfasl"
	     #+local_build "local:>ct>interp>visible.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/interp!/visible.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/interp!/visible.oq")

;;;  More stuff for debugger windows.  
(ct_load_def windowfnc
	     #+(and unix (not LMI))     "!/ct!/debug!/windowfnc.o"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/debug!/windowfnc.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/debug!/windowfnc.OB"
	     #+LMI "CT: DEBUG; windowfnc.qfasl"
	     #+local_build "local:>ct>debug>windowfnc.bin"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/debug!/windowfnc.l"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/debug!/windowfnc.l")

(ct_load_def zmacs_showf			;GeneC's database walker
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/lmcode!/zmacs!/zmacs_showf.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/lmcode!/zmacs!/zmacs_showf.OB"
	     #+LMI "CT: LMCODE; ZMACS; zmacs_showf.qfasl"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/lmcode!/zmacs!/zmacs_showf.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/lmcode!/zmacs!/zmacs_showf.oq"
	     #+local_build "nil"
	     #+(and unix (not LMI))	  "nil")

;;;GeneC's templates for ipnets for use on lisp machines only
(ct_load_def zmacs_templates
    #+(and unix (not LMI))   "nil" #+LMI "nil" ; ????? LMI ??????
	     #+local_build "nil"
    #+(and 3600 (not local_build) (not rel45))
    "lm3:>xtutor>zmacs_templates.bn"
    #+(and 3600 (not local_build) rel45)
    "lm3:>xtutor>zmacs_templates.OB"
    #+(and cadr (not rel45))
    "lm3:>xtutor>zmacs_templates.qb"
    #+(and cadr rel45)
    "lm3:>xtutor>zmacs_templates.oq")

;;;GeneC's templates for ipnets for use on lisp machines only
(ct_load_def zmacs_template_defs
    #+(and unix (not LMI))   "nil" #+LMI "nil" ; ????? LMI ??????
	     #+local_build "nil"
    #+(and 3600 (not local_build) (not rel45))
    "lm3:>xtutor>zmacs_template_defs.bn"
    #+(and 3600 (not local_build) rel45)
    "lm3:>xtutor>zmacs_template_defs.OB"
    #+(and cadr (not rel45))
    "lm3:>xtutor>zmacs_template_defs.lisp"
    #+(and cadr rel45)
    "lm3:>xtutor>zmacs_template_defs.lisp")

;;; Gene C's ZMACS compat tools, supporting ^U^X^F for find ct_load file
(ct_load_def zmacstools			;only on LISPM's for now.
	     #+local_build "nil"
	     #+(and unix (not LMI))	"nil"	      
	     #+(and 3600 (not local_build) (not rel45))
	           "ctvax:!/ct!/lmcode!/zmacs!/zmacstools.bn"
	     #+(and 3600 (not local_build) rel45)
	           "ctvax:!/ct!/lmcode!/zmacs!/zmacstools.OB"
	     #+LMI "CT: LMCODE; ZMACS; zmacstools.qfasl"
	     #+(and cadr (not rel45))
	     "ctvax:!/ct!/lmcode!/zmacs!/zmacstools.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/lmcode!/zmacs!/zmacstools.oq")


(ct_load_def zmacs80col		  ;Hack to limit zwei to 80 columns.
	     #+local_build "nil"
	     #+(and unix (not LMI))	"nil"
	     #+(and 3600 (not local_build) (not rel45))
	     "ctvax:!/ct!/lmcode!/zmacs!/zmacs80col.bn"
	     #+(and 3600 (not local_build) rel45)
	     "ctvax:!/ct!/lmcode!/zmacs!/zmacs80col.OB"
	     #+LMI "CT: LMCODE; ZMACS; zmacs80col.qfasl"
	     #+(and cadr (not rel45))
	     "ctvax!/ct!/lmcode!/zmacs!/zmacs80col.qb"
	     #+(and cadr rel45)
	     "ctvax:!/ct!/lmcode!/zmacs!/zmacs80col.oq")

(ct_load_def temp_directory      ;; alex
	     #+local_build "local:>ct>"
	     #+(and unix (not LMI))	"/tmp"
	     #+(and 3600 (not local_build) (not rel45))
	     "local:>ct>"
	     #+(and 3600 (not local_build) rel45)
	     "local:>ct>"
	     #+LMI "CT: CT;"
	     #+(and cadr (not rel45))
	     "local:>ct>"
	     #+(and cadr rel45)
	     "local:>ct>")

;;; End CTLoad Definitions.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Begin Defunct Definitions.
;
;    ;;;database--translations of the concept textfiles
;    (ct_load_def texttr
;             #+(and unix (not LMI))    "/ct/tutordbs/concepts/texttr.l"
;             #+cadr   "ctvax:!/ct!/tutordbs!/concepts!/texttr.l")
;
;     ;;;database--translations of display managers
;    (ct_load_def dmstr
;             #+(and unix (not LMI))    "/ct/tutordbs/exercises/dmstr.l"
;            #+cadr   "ctvax:!/ct!/tutordbs!/exercises!/dmstr.l")
;
;     ;;;database--translations of exercises
;    (ct_load_def exerstr
;             #+(and unix (not LMI))    "/ct/tutordbs/exercises/exerstr.l"
;             #+cadr   "ctvax:!/ct!/tutordbs!/exercises!/exerstr.l")
;
;    ;;;database--translations of exercise code
;    (ct_load_def codetr
;             #+(and unix (not LMI))    "/ct/tutordbs/exercises/codetr.l"
;             #+cadr   "ctvax:!/ct!/tutordbs!/exercises!/codetr.l")
;
;
;    ;;;database--translations of the exercise presentations
;    (ct_load_def prestr
;             #+(and unix (not LMI))    "/ct/tutordbs/exercises/prestr.l"
;             #+cadr   "ctvax:!/ct!/tutordbs!/exercises!/prestr.l")
;
;   ;;;database--translations of the help entries
;   (ct_load_def helpdbtr
;             #+(and unix (not LMI))    "/ct/tutordbs/help/helpdbtr.l"
;             #+cadr   "ctvax:!/ct!/tutordbs!/help!/helpdbtr.l")
;
;   ;;;database--translations of the hints
;   (ct_load_def hintstr
;             #+(and unix (not LMI))    "/ct/tutordbs/hints/hintstr.l"
;             #+cadr   "ctvax:!/ct!/tutordbs!/hints!/hintstr.l")
;
;   ;;;database-pulls in all presentation translations
;   (ct_load_def presents
;             #+(and unix (not LMI))     "/ct/tutordbs/presents.l"
;             #+cadr    "ctvax:!/ct!/tutordbs!/presents.l")
;
;   ;;;database--translations fo the reference manual entries
;   (ct_load_def refmantr
;             #+(and unix (not LMI))     "/ct/tutordbs/manuals/refman/refmantr.l"
;             #+cadr    "ctvax:!/ct!/tutordbs!/manuals!/refman!/refmantr.l")
;
;
;  ;;;database---translations of solution files
;  (ct_load_def solstr
;             #+(and unix (not LMI))    "/ct/tutordbs/exercises/solstr.l"
;             #+cadr   "ctvax:!/ct!/tutordbs!/exercises!/solstr.l")
;
;
;  ;;;database--pulls in all textfile translations
;  (ct_load_def textfiles
;             #+(and unix (not LMI))     "/ct/tutordbs/textfiles.l"
;             #+cadr    "ctvax:!/ct!/tutordbs!/textfiles.l")
;
; End Defunct Definitions.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;				  eof                                ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;