Commit a6fe7203 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Fix some comments and formatting.

parent cf8a8202

component.lisp

+2 −2
Original line number Diff line number Diff line
@@ -230,8 +230,8 @@ children."))) 


  (defmethod component-relative-pathname ((component component))

    ;; SOURCE-FILE-TYPE below is strictly for backward-compatibility with ASDF1.

    ;; We ought to be able to extract this from the component alone with COMPONENT-TYPE.

    ;; TODO: track who uses it, and have them not use it anymore;

    ;; We ought to be able to extract this from the component alone with FILE-TYPE.

    ;; TODO: track who uses it in Quicklisp, and have them not use it anymore;

    ;; maybe issue a WARNING (then eventually CERROR) if the two methods diverge?

    (parse-unix-namestring

     (or (and (slot-boundp component 'relative-pathname)

uiop/pathname.lisp

+3 −1
Original line number Diff line number Diff line
@@ -207,7 +207,9 @@ when merging, making or parsing pathnames") 
where leaving the defaults NIL or unspecified means a (NIL-PATHNAME), except

on ABCL, Genera and XCL, where it remains unchanged for it doubles as current-directory."

    `(let ((*default-pathname-defaults*

             ,(or defaults #-(or abcl genera xcl) '*nil-pathname* #+(or abcl genera xcl) '*default-pathname-defaults*)))

             ,(or defaults

                  #-(or abcl genera xcl) '*nil-pathname*

                  #+(or abcl genera xcl) '*default-pathname-defaults*)))

       ,@body)))