Browse code
LOAD-OPS, COMPILE-OPS are deprecated by asdf now.
Yang Xiaofeng authored on 25/03/2013 13:33:47
Showing 1 changed files
Showing 1 changed files
... | ... |
@@ -47,45 +47,6 @@ |
47 | 47 |
*load-pathname*) |
48 | 48 |
"Directory where OPS5 source code is stored.") |
49 | 49 |
|
50 |
-(defun ops-pathname (filename) |
|
51 |
- (make-pathname :name filename :type nil :defaults *ops-code-directory*)) |
|
52 |
- |
|
53 |
-(defun load-ops-file (filename) |
|
54 |
- (load (ops-pathname filename))) |
|
55 |
- |
|
56 |
-(defun compile-load (filename) |
|
57 |
- (let ((pname (ops-pathname filename))) |
|
58 |
- (compile-file (make-pathname :type "lisp" :defaults pname)) |
|
59 |
- (load pname))) |
|
60 |
- |
|
61 |
-;;; ******************************** |
|
62 |
-;;; OPS Loading, Compilation, Init * |
|
63 |
-;;; ******************************** |
|
64 |
- |
|
65 |
-(defun load-ops () |
|
66 |
- (load-ops-file "ops-globals") |
|
67 |
- (load-ops-file "ops-util") |
|
68 |
- (load-ops-file "ops-backup") |
|
69 |
- (load-ops-file "ops-compile") |
|
70 |
- (load-ops-file "ops-main") |
|
71 |
- (load-ops-file "ops-match") |
|
72 |
- (load-ops-file "ops-io") |
|
73 |
- (load-ops-file "ops-rhs") |
|
74 |
- (load-ops-file "ops-init") |
|
75 |
- (ops-init)) |
|
76 |
- |
|
77 |
-(defun compile-ops () |
|
78 |
- (load-ops-file "ops") ; so that shadowing takes place... |
|
79 |
- (compile-load "ops-globals") |
|
80 |
- (compile-load "ops-util") ; macros |
|
81 |
- (compile-load "ops-compile") |
|
82 |
- (compile-load "ops-rhs") ; defines macros used in ops-init |
|
83 |
- (compile-load "ops-main") ; macros |
|
84 |
- (compile-load "ops-match") |
|
85 |
- (compile-load "ops-backup") |
|
86 |
- (compile-load "ops-io") |
|
87 |
- (compile-load "ops-init")) |
|
88 |
- |
|
89 | 50 |
;;; ******************************** |
90 | 51 |
;;; REP Loop *********************** |
91 | 52 |
;;; ******************************** |