about summary refs log tree commit diff
path: root/pkgs/development/lisp-modules-new-obsolete/patches/swank-pure-paths.patch
diff options
context:
space:
mode:
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.patch28
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