default-icons.lisp

Lispworks/Windows uses :host for windows drive letter.

-----------------------------------

@@ -3,10 +3,11 @@

(flet ((load-icon (name)           (let* ((file-pathname #.(or *compile-file-pathname*                                       *load-pathname*))                  (icon-pathname (merge-pathnames                                  (make-pathname :directory '(:relative "data") +                                               :host (pathname-host file-pathname)                                                 :name name                                                 :type "png")                                  file-pathname)))             (make-pattern-from-bitmap-file icon-pathname :format :png))))    (unless *default-icon-large*