Browse code
refactor: move pack package definition to package.lisp
Edward Langley authored on 08/11/2023 11:14:49
Showing 2 changed files
Showing 2 changed files
... | ... |
@@ -24,7 +24,7 @@ |
24 | 24 |
:components ((:file "package") |
25 | 25 |
(:file "types" :depends-on ("package")) |
26 | 26 |
(:file "util" :depends-on ("types" "package")) |
27 |
- (:file "pack" :depends-on ("types" "package" "util")) |
|
27 |
+ (:file "pack" :depends-on ("types" "package" "util" "delta")) |
|
28 | 28 |
|
29 | 29 |
;; data model |
30 | 30 |
(:file "model" :depends-on ("package")) |
... | ... |
@@ -11,9 +11,19 @@ |
11 | 11 |
(:use :cl :fwoar.cl-git.protocol) |
12 | 12 |
(:export #:git-commit #:metadata #:data)) |
13 | 13 |
|
14 |
+(defpackage :fwoar.cl-git.pack |
|
15 |
+ (:use :cl) |
|
16 |
+ (:export #:pack #:pack-file #:index-file #:idx-toc |
|
17 |
+ #:with-pack-streams |
|
18 |
+ #:seek-to-object-in-pack |
|
19 |
+ #:packed-ref |
|
20 |
+ #:packed-ref-pack |
|
21 |
+ #:packed-ref-offset)) |
|
22 |
+ |
|
14 | 23 |
(defpackage :fwoar.cl-git |
15 | 24 |
(:use :cl :fwoar.cl-git.protocol) |
16 | 25 |
(:import-from :fwoar.cl-git.commit #:git-commit) |
26 |
+ (:import-from :fwoar.cl-git.pack #:packed-ref) |
|
17 | 27 |
(:export #:ensure-ref #:repository #:*want-delta* #:git-object |
18 | 28 |
#:hash #:*git-encoding* #:git-commit #:ref #:component)) |
19 | 29 |
|