diff options
Diffstat (limited to 'pkgs/development/lisp-modules-new-obsolete/patches/swank-pure-paths.patch')
-rw-r--r-- | pkgs/development/lisp-modules-new-obsolete/patches/swank-pure-paths.patch | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/pkgs/development/lisp-modules-new-obsolete/patches/swank-pure-paths.patch b/pkgs/development/lisp-modules-new-obsolete/patches/swank-pure-paths.patch deleted file mode 100644 index 0b9a40ab0e2bf..0000000000000 --- a/pkgs/development/lisp-modules-new-obsolete/patches/swank-pure-paths.patch +++ /dev/null @@ -1,28 +0,0 @@ -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 \ No newline at end of file |