default-icons.lisp

[Paul Werkowski]

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*