git.fiddlerwoaroof.com
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
... ...
@@ -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
 ;;; ********************************