pkgs/development/lisp-modules/patches/math-no-compile-time-directory.patch

   1 --- a/src/gnuplot/gnuplot.lisp
   2 +++ b/src/gnuplot/gnuplot.lisp
   3 @@ -24,8 +24,13 @@
   4
   5  (in-package :math/gnuplot)
   6
   7 -(defparameter *default-gnuplot-direcroty*
   8 -  (ensure-directories-exist #P"~/gnuplot/"))
   9 +
  10 +
  11 +(defun default-gnuplot-directory ()
  12 +  (let ((directory (merge-pathnames
  13 +                    (make-pathname :directory '(:relative "gnuplot"))
  14 +                    (user-homedir-pathname))))
  15 +    (ensure-directories-exist directory)))
  16
  17  ;;;; (directory-namestring *default-gnuplot-direcroty*)
  18
  19 @@ -33,9 +38,9 @@
  20    (assert (stringp f-name))
  21    (assert (stringp f-ext))
  22    (if (string= "" f-ext)
  23 -      (concatenate 'string (directory-namestring *default-gnuplot-direcroty*)
  24 +      (concatenate 'string (directory-namestring (default-gnuplot-directory))
  25                     f-name f-ext)
  26 -      (concatenate 'string (directory-namestring *default-gnuplot-direcroty*)
  27 +      (concatenate 'string (directory-namestring (default-gnuplot-directory))
  28                     f-name "." f-ext)))
  29
  30  (defun find-font-family (&key (family "Times New Roman"))
  31
  32 Diff finished.  Fri Mar 10 20:05:26 2023