646b892680
Some checks failed
Periodic Merges (6h) / master → staging-nixos (push) Failing after 12m50s
Periodic Merges (6h) / master → staging-next (push) Failing after 12m54s
Periodic Merges (24h) / merge-base(master,staging) → haskell-updates (push) Failing after 11m54s
Periodic Merges (6h) / staging-next → staging (push) Failing after 12m13s
Periodic Merges (24h) / staging-next-25.05 → staging-25.05 (push) Failing after 13m24s
Periodic Merges (24h) / release-25.05 → staging-next-25.05 (push) Failing after 14m28s
28 lines
1.0 KiB
Diff
28 lines
1.0 KiB
Diff
Prevent swank from attempting write into storeDir
|
|
--- a/swank-loader.lisp
|
|
+++ b/swank-loader.lisp
|
|
@@ -162,7 +162,7 @@
|
|
,(unique-dir-name)))
|
|
(user-homedir-pathname)))
|
|
|
|
-(defvar *fasl-directory* (default-fasl-dir)
|
|
+(defvar *fasl-directory* #P"@out@/fasl/"
|
|
"The directory where fasl files should be placed.")
|
|
|
|
(defun binary-pathname (src-pathname binary-dir)
|
|
@@ -284,12 +284,7 @@
|
|
(contrib-dir src-dir))))
|
|
|
|
(defun delete-stale-contrib-fasl-files (swank-files contrib-files fasl-dir)
|
|
- (let ((newest (reduce #'max (mapcar #'file-write-date swank-files))))
|
|
- (dolist (src contrib-files)
|
|
- (let ((fasl (binary-pathname src fasl-dir)))
|
|
- (when (and (probe-file fasl)
|
|
- (<= (file-write-date fasl) newest))
|
|
- (delete-file fasl))))))
|
|
+ (declare (ignore swank-files contrib-files fasl-dir)))
|
|
|
|
(defun compile-contribs (&key (src-dir (contrib-dir *source-directory*))
|
|
(fasl-dir (contrib-dir *fasl-directory*))
|
|
|
|
Diff finished. Sat Jan 22 23:57:27 2022
|