-
Notifications
You must be signed in to change notification settings - Fork 2
/
init.lisp
71 lines (63 loc) · 1.87 KB
/
init.lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
;;
;; init - this file is used to both load frl into
;; lisp and to create FRL (by the file doit.l)
;; This file can create a compiled or interpretive
;; version of frl.(see notes below).
;;
;;
;; set interpret-mode to t if you wish to load an
;; interpretive version of frl.
;;(setq interpret-mode t)
;;
#+franz
(cvttomaclisp)
;;
;; Important if you move the frl source, remember
;; to remove frllib/ftop.o and recompile.
;;
;; (setq frl-main-dir '|//u0//csam//steve//rosenberg|)
#+unix
(process |//bin//csh -c 'rm -f //tmp//frl.dir;pwd /| sed "s//\////\//\////g" > //tmp//frl.dir'|)
#+unix
(let ((frl-dir-file (infile '|//tmp//frl.dir|)))
(setq frl-main-dir (read frl-dir-file))
(close frl-dir-file)
(process |rm -f //tmp//frl.dir|))
#+franz
(apply 'sstatus `(load-search-path ,(append1 (status load-search-path)
frl-main-dir)))
#+franz
(load 'frllib//fauxfns)
#+maclisp
(load '((ps frl/.frllib) fauxfns lisp))
(loadlisplibrary)
;;
;; if interpret-mode is not set, set it too nil.
;; load everything in compiled.
;;
(defvar interpret-mode nil)
(initial-syntax)
(frl-define-switches)
(frl-syntax)
(frl-utility-load)
;;
;; This is commented out since it does not mean anything yet
;; in the franz-lisp version of frl. -- dhl (6/28/81)
;;
;; These readtable functions require the print file, hence are placed here.
;;; (DECLARE (REQUIREDEF '((PS FRL) PRINT FASL)) (/#1SET-UP-MACROS))
;;; (/#MAKE-INVERT-QUOTE-FN EXCLAMATION /!)
;;; (/#MAKE-INVERT-QUOTE-FN PERCENTSIGN /%)
;;; (/#MAKE-INVERT-QUOTE-FN AMPERSAND /&)
;;; (/#MAKE-INVERT-QUOTE-FN ATSIGN /@)
(frl-basic-load)
(rule-load)
;;
;; (set-up-the talk function to load in all the talk files also-
;; they will only be loaded once.).
;;
(putd 'talk (getd 'talk-load))
;; (talk-load) calling (talk) will load the talk files.
(dhl-load)
;;(oil-load)
(load 'frllib//ftop)