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

1.709: more dancing around to avoid warnings. This time on SBCL.

parent afdb6bdc
Loading
Loading
Loading
Loading
+10 −8
Original line number Diff line number Diff line
@@ -63,7 +63,7 @@
        (remove "asdf" excl::*autoload-package-name-alist* :test 'equalp :key 'car))
  (let* ((asdf-version
          ;; the 1+ hair is to ensure that we don't do an inadvertent find and replace
          (subseq "VERSION:1.708" (1+ (length "VERSION"))))
          (subseq "VERSION:1.709" (1+ (length "VERSION"))))
         (existing-asdf (find-package :asdf))
         (versym '#:*asdf-version*)
         (existing-version (and existing-asdf
@@ -853,11 +853,12 @@ actually-existing directory."

;; Cleanup before hot-upgrade. See https://bugs.launchpad.net/asdf/+bug/485687
(when (find-class 'module nil)
  (defmethod update-instance-for-redefined-class :after
  (eval
   '(defmethod update-instance-for-redefined-class :after
     ((m module) added deleted plist &key)
     (declare (ignore deleted plist))
     (when (member 'components-by-name added)
      (compute-module-components-by-name m))))
       (compute-module-components-by-name m)))))

(defclass module (component)
  ((components
@@ -1539,8 +1540,9 @@ recursive calls to traverse.")
      flag))

(defmethod traverse ((operation operation) (c component))
  ;; cerror'ing a feature that seems to have NEVER EVER worked,
  ;; ever since danb created it in his 2003-03-16 commit e0d02781
  ;; cerror'ing a feature that seems to have NEVER EVER worked
  ;; ever since danb created it in his 2003-03-16 commit e0d02781.
  ;; It was both fixed and disabled in the 1.700 rewrite.
  (when (consp (operation-forced operation))
    (cerror "Continue nonetheless."
            "Congratulations, you're the first ever user of the :force (list of system names) feature! Please contact the asdf-devel mailing-list to collect a cookie.")