[lift-devel] LIFT Bug with SBCL: SYSTEM-RELATIVE-PATHNAME

[Gary King]

Hi Robert,

Thanks for this bug report. The problem appears to be that SBCL  
doesn't have the latest version of ASDF included (or, at least, your  
version of SBCL doesn't).

This is the definition

> (defun system-source-file (system-name)
>   (let ((system (asdf:find-system system-name)))
>     (make-pathname
>      :type "asd"
>      :name (asdf:component-name system)
>      :defaults (asdf:component-relative-pathname system))))
>
> (defun system-source-directory (system-name)
>   (make-pathname :name nil
>                  :type nil
>                  :defaults (system-source-file system-name)))
>
> (defun system-relative-pathname (system pathname &key name type)
>   (let ((directory (pathname-directory pathname)))
>     (when (eq (car directory) :absolute)
>       (setf (car directory) :relative))
>     (merge-pathnames
>      (make-pathname :name (or name (pathname-name pathname))
>                     :type (or type (pathname-type pathname))
>                     :directory directory)
>      (system-source-directory system))))
>

Please let me know if there is anything else I can do to help,
--
Gary Warren King, metabang.com
Cell: (413) 885 9127
Fax: (206) 338-4052
gwkkwg on Skype * garethsan on AIM