Commit 79ce5b3c authored by Robert P. Goldman's avatar Robert P. Goldman
Browse files

Added system-source-directory to the exported API.

parent ba801d7e
Loading
Loading
Loading
Loading
+195 −192
Original line number Diff line number Diff line
@@ -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
@@ -221,7 +222,6 @@

         #:operation-on-warnings
         #:operation-on-failure

                                        ;#:*component-parent-pathname*
         #:*system-definition-search-functions*
         #:*central-registry*         ; variables
@@ -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)