Loading asdf.lisp +195 −192 Original line number Diff line number Diff line Loading @@ -171,6 +171,7 @@ :fmakunbound `(#+ecl ,@redefined-functions #:system-source-file #:component-relative-pathname #:system-relative-pathname #:system-source-directory #:process-source-registry #:inherit-source-registry #:process-source-registry-directive) :export Loading Loading @@ -221,7 +222,6 @@ #:operation-on-warnings #:operation-on-failure ;#:*component-parent-pathname* #:*system-definition-search-functions* #:*central-registry* ; variables Loading Loading @@ -2039,10 +2039,13 @@ output to `*verbose-out*`. Returns the shell's exit code." (defmethod system-source-file ((system-name symbol)) (system-source-file (find-system system-name))) (defun system-source-directory (system-name) (defun system-source-directory (system-designator) "Return a pathname object corresponding to the directory in which the system specification (.asd file) is located." (make-pathname :name nil :type nil :defaults (system-source-file system-name))) :defaults (system-source-file system-designator))) (defun relativize-directory (directory) (if (eq (car directory) :absolute) Loading Loading
asdf.lisp +195 −192 Original line number Diff line number Diff line Loading @@ -171,6 +171,7 @@ :fmakunbound `(#+ecl ,@redefined-functions #:system-source-file #:component-relative-pathname #:system-relative-pathname #:system-source-directory #:process-source-registry #:inherit-source-registry #:process-source-registry-directive) :export Loading Loading @@ -221,7 +222,6 @@ #:operation-on-warnings #:operation-on-failure ;#:*component-parent-pathname* #:*system-definition-search-functions* #:*central-registry* ; variables Loading Loading @@ -2039,10 +2039,13 @@ output to `*verbose-out*`. Returns the shell's exit code." (defmethod system-source-file ((system-name symbol)) (system-source-file (find-system system-name))) (defun system-source-directory (system-name) (defun system-source-directory (system-designator) "Return a pathname object corresponding to the directory in which the system specification (.asd file) is located." (make-pathname :name nil :type nil :defaults (system-source-file system-name))) :defaults (system-source-file system-designator))) (defun relativize-directory (directory) (if (eq (car directory) :absolute) Loading