pkgs/development/lisp-modules-new-obsolete/patches/swank-pure-paths.patch

   1 Prevent 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
  28 Diff finished.  Sat Jan 22 23:57:27 2022