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

1.651: try to accommodate to ECL's compiled files' symbol eager lookup

parent 00c5ba15
Loading
Loading
Loading
Loading
+132 −128
Original line number Diff line number Diff line
@@ -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)
@@ -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)
@@ -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.