Browse code
chore: package definition to its own file
Ed L authored on 21/11/2019 08:17:17Showing 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)) |