pkgs/development/lisp-modules-new/patches/qt-libs-dont-download.patch

   1 --- a/qt-libs.asd
   2 +++ b/qt-libs.asd
   3 @@ -17,5 +17,4 @@
   4    :components ((:file "qt-libs"))
   5    :depends-on (:qt-lib-generator
   6                 :cl-ppcre
   7 -               :cffi)
   8 -  :perform (asdf:load-op :after (op c) (uiop:symbol-call :qt-libs :ensure-standalone-libs)))
   9 +               :cffi))
  10 --- a/qt-libs.lisp
  11 +++ b/qt-libs.lisp
  12 @@ -94,16 +94,14 @@
  13    standalone-dir)
  14
  15  (defun %ensure-lib-loaded (file)
  16 -  (let ((file (etypecase file
  17 -                (pathname file)
  18 -                (string (installed-library-file file))))
  19 -        (name (intern (string-upcase (pathname-name file))))
  20 -        #+sbcl(sb-ext:*muffled-warnings* 'style-warning))
  21 -    (cffi::register-foreign-library
  22 -     name `((T ,file))
  23 -     :search-path (to-directory file))
  24 -    (unless (cffi:foreign-library-loaded-p name)
  25 -      (cffi:load-foreign-library name))))
  26 + (let ((name (make-pathname :name (format nil "lib~a" file)
  27 +                             :type #+unix "so"
  28 +                                   #+darwin "dylib")))
  29 +    (or (find-if (lambda (lib)
  30 +                   (equal (cffi:foreign-library-pathname lib)
  31 +                          (namestring name)))
  32 +                 (cffi:list-foreign-libraries))
  33 +        (cffi:load-foreign-library name))))
  34
  35  (defun ensure-lib-loaded (file)
  36    (cond ((pathnamep file)