;config.scm
;Configures SLaTeX for your system
;(c) Dorai Sitaram, Rice U., 1991, 1994

;N.B.: 'nil is a symbol in Scheme, but nil in CL

;configuring for Scheme

(if 'nil (load "slaconfg.scm"))
(if 'nil (load "batconfg.scm"))
(if 'nil (cond ((eq? *dialect* 'scm) (quit))
	       ((eq? *dialect* 'cscheme) (%exit))
	       (else (exit)
                 (display "You may exit Scheme now!")
                 (newline))))

;configuring for CL

(if (not 'nil) (load "slaconfg.lsp"))
(if (not 'nil) (load "batconfg.lsp"))
(if (not 'nil) (bye))
(if (not 'nil) (princ "You may exit CL now!"))
(if (not 'nil) (terpri))