Loading asdf.lisp +132 −128 Original line number Diff line number Diff line Loading @@ -112,6 +112,9 @@ (ensure-export p export) (ensure-fmakunbound p fmakunbound) p))) (let ((redefined-functions '(#:perform #:explain #:output-files #:operation-done-p #:component-relative-pathname))) (ensure-package ':asdf-utilities :nicknames '(#:asdf-extensions) Loading Loading @@ -145,10 +148,11 @@ (ensure-package ':asdf :use '(:common-lisp :asdf-utilities) :unintern '(#:*asdf-revision* #:around #:asdf-method-combination #:split #:make-collector #:perform #:explain #:output-files #:operation-done-p #-ecl #:component-relative-pathname) :fmakunbound '(#:system-source-file :unintern `(#-ecl ,@redefined-functions #:*asdf-revision* #:around #:asdf-method-combination #:split #:make-collector) :fmakunbound '(#+ecl ,@redefined-functions #:system-source-file #:component-relative-pathname #:system-relative-pathname #:process-source-registry #:inherit-source-registry #:process-source-registry-directive) Loading Loading @@ -251,7 +255,7 @@ ;; This parameter isn't actually user-visible ;; -- please use the exported function ASDF:ASDF-VERSION below. ;; the 1+ hair is to ensure that we don't do an inadvertent find and replace (subseq "VERSION:1.650" (1+ (length "VERSION")))) (subseq "VERSION:1.651" (1+ (length "VERSION")))) (defun asdf-version () "Exported interface to the version of ASDF currently installed. A string. Loading Loading
asdf.lisp +132 −128 Original line number Diff line number Diff line Loading @@ -112,6 +112,9 @@ (ensure-export p export) (ensure-fmakunbound p fmakunbound) p))) (let ((redefined-functions '(#:perform #:explain #:output-files #:operation-done-p #:component-relative-pathname))) (ensure-package ':asdf-utilities :nicknames '(#:asdf-extensions) Loading Loading @@ -145,10 +148,11 @@ (ensure-package ':asdf :use '(:common-lisp :asdf-utilities) :unintern '(#:*asdf-revision* #:around #:asdf-method-combination #:split #:make-collector #:perform #:explain #:output-files #:operation-done-p #-ecl #:component-relative-pathname) :fmakunbound '(#:system-source-file :unintern `(#-ecl ,@redefined-functions #:*asdf-revision* #:around #:asdf-method-combination #:split #:make-collector) :fmakunbound '(#+ecl ,@redefined-functions #:system-source-file #:component-relative-pathname #:system-relative-pathname #:process-source-registry #:inherit-source-registry #:process-source-registry-directive) Loading Loading @@ -251,7 +255,7 @@ ;; This parameter isn't actually user-visible ;; -- please use the exported function ASDF:ASDF-VERSION below. ;; the 1+ hair is to ensure that we don't do an inadvertent find and replace (subseq "VERSION:1.650" (1+ (length "VERSION")))) (subseq "VERSION:1.651" (1+ (length "VERSION")))) (defun asdf-version () "Exported interface to the version of ASDF currently installed. A string. Loading