pyrox.dev
1Prevent swank from attempting write into storeDir
2--- a/swank-loader.lisp
3+++ b/swank-loader.lisp
4@@ -162,7 +162,7 @@
5 ,(unique-dir-name)))
6 (user-homedir-pathname)))
7
8-(defvar *fasl-directory* (default-fasl-dir)
9+(defvar *fasl-directory* #P"@out@/fasl/"
10 "The directory where fasl files should be placed.")
11
12 (defun binary-pathname (src-pathname binary-dir)
13@@ -284,12 +284,7 @@
14 (contrib-dir src-dir))))
15
16 (defun delete-stale-contrib-fasl-files (swank-files contrib-files fasl-dir)
17- (let ((newest (reduce #'max (mapcar #'file-write-date swank-files))))
18- (dolist (src contrib-files)
19- (let ((fasl (binary-pathname src fasl-dir)))
20- (when (and (probe-file fasl)
21- (<= (file-write-date fasl) newest))
22- (delete-file fasl))))))
23+ (declare (ignore swank-files contrib-files fasl-dir)))
24
25 (defun compile-contribs (&key (src-dir (contrib-dir *source-directory*))
26 (fasl-dir (contrib-dir *fasl-directory*))
27
28Diff finished. Sat Jan 22 23:57:27 2022