Browse code
chore: package definition to its own file
Ed L authored on 21/11/2019 08:17:17
Showing 3 changed files
Showing 3 changed files
... | ... |
@@ -33,19 +33,17 @@ This version of OPS5 was obtained by anonymous ftp from |
33 | 33 |
:maintainer "" |
34 | 34 |
:licence "public domain" |
35 | 35 |
:depends-on () |
36 |
- :components |
|
37 |
- ((:module "src" |
|
38 |
- :serial t |
|
39 |
- :components |
|
40 |
- ( |
|
41 |
- (:file "ops") ; so that shadowing takes place... |
|
42 |
- (:file "ops-globals") |
|
43 |
- (:file "ops-util") ; macros |
|
44 |
- (:file "ops-compile") |
|
45 |
- (:file "ops-rhs") ; defines macros used in ops-init |
|
46 |
- (:file "ops-main") ; macros |
|
47 |
- (:file "ops-match") |
|
48 |
- (:file "ops-backup") |
|
49 |
- (:file "ops-io") |
|
50 |
- (:file "ops-init"))))) |
|
51 |
- |
|
36 |
+ :components ((:module "src" |
|
37 |
+ :serial t |
|
38 |
+ :components ((:file "package") |
|
39 |
+ (:file "ops") ; so that shadowing takes place... |
|
40 |
+ (:file "ops-globals") |
|
41 |
+ (:file "ops-util") ; macros |
|
42 |
+ (:file "ops-compile") |
|
43 |
+ (:file "ops-rhs") ; defines macros used in ops-init |
|
44 |
+ (:file "ops-main") ; macros |
|
45 |
+ (:file "ops-match") |
|
46 |
+ (:file "ops-backup") |
|
47 |
+ (:file "ops-io") |
|
48 |
+ (:file "ops-init"))))) |
|
49 |
+ |
... | ... |
@@ -31,12 +31,6 @@ |
31 | 31 |
#+(or (and :excl (or :allegro-v4.0 :allegro-v4.1)) :mcl) |
32 | 32 |
(pushnew :cltl2 *features*)) |
33 | 33 |
|
34 |
-(defpackage "OPS" (:use "COMMON-LISP") |
|
35 |
- (:shadow "REMOVE" "WRITE") |
|
36 |
- (:export "REMOVE" "WRITE" "MAKE" "MODIFY" "CRLF" |
|
37 |
- "-->" |
|
38 |
- "LITERALIZE" "P" "VECTOR-ATTRIBUTE" "STRATEGY" "WATCH" "RESET-OPS")) |
|
39 |
- |
|
40 | 34 |
(in-package "OPS") |
41 | 35 |
|
42 | 36 |
;;; ******************************** |
43 | 37 |
new file mode 100644 |
... | ... |
@@ -0,0 +1,9 @@ |
1 |
+(defpackage :ops-package |
|
2 |
+ (:use :cl)) |
|
3 |
+(in-package :ops-package) |
|
4 |
+ |
|
5 |
+(defpackage :ops |
|
6 |
+ (:use :cl) |
|
7 |
+ (:shadow :remove :write) |
|
8 |
+ (:export :remove :write :make :modify :crlf :--> :literalize :p |
|
9 |
+ :vector-attribute :strategy :watch :reset-ops)) |