Browse code
close(f710cf2): ensure pack and index files are correlated
Ed Langley authored on 10/05/2019 07:16:43Showing 1 changed files
| ... | ... |
@@ -45,10 +45,10 @@ |
| 45 | 45 |
|
| 46 | 46 |
(defun pack-files (repo) |
| 47 | 47 |
(mapcar (serapeum:op |
| 48 |
- (pack _ _ (repository repo))) |
|
| 48 |
+ (pack _1 |
|
| 49 |
+ (merge-pathnames |
|
| 50 |
+ (make-pathname :type "pack") _1) |
|
| 51 |
+ (repository repo))) |
|
| 49 | 52 |
(uiop:directory* |
| 50 | 53 |
(merge-pathnames ".git/objects/pack/*.idx" |
| 51 |
- repo)) |
|
| 52 |
- (uiop:directory* |
|
| 53 |
- (merge-pathnames ".git/objects/pack/*.pack" |
|
| 54 | 54 |
repo)))) |