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

2.123: don't warn in safe-file-write-date unless in verbose mode.

parent efd9f80f
Loading
Loading
Loading
Loading
+9 −7
Original line number Diff line number Diff line
@@ -72,7 +72,7 @@
  (defvar *asdf-version* nil)
  (defvar *upgraded-p* nil)
  (let* ((asdf-version ;; the 1+ helps the version bumping script discriminate
          (subseq "VERSION:2.122" (1+ (length "VERSION"))))
          (subseq "VERSION:2.123" (1+ (length "VERSION"))))
         (existing-asdf (fboundp 'find-system))
         (existing-version *asdf-version*)
         (already-there (equal asdf-version existing-version)))
@@ -1220,7 +1220,7 @@ to ~S which is not a directory.~@:>"
  ;; (or should we treat the case in a different, special way?)
  (or (and pathname (probe-file pathname) (file-write-date pathname))
      (progn
        (when pathname
        (when (and pathname *asdf-verbose*)
          (warn "Missing FILE-WRITE-DATE for ~S: treating it as zero."
                pathname))
        0)))
@@ -1249,11 +1249,13 @@ to ~S which is not a directory.~@:>"
                   (load on-disk)))
            (delete-package package))))
      (let ((in-memory (system-registered-p name)))
        (if in-memory
            (progn (when on-disk (setf (car in-memory)
                                       (safe-file-write-date on-disk)))
        (cond
          (in-memory
           (when on-disk
             (setf (car in-memory) (safe-file-write-date on-disk)))
           (cdr in-memory))
            (when error-p (error 'missing-component :requires name)))))))
          (error-p
           (error 'missing-component :requires name)))))))

(defun* register-system (name system)
  (asdf-message "~&~@<; ~@;registering ~A as ~A~@:>~%" system name)
+1 −0
Original line number Diff line number Diff line
@@ -3,6 +3,7 @@ Section: lisp
Priority: optional
Maintainer: Debian Common Lisp Team <pkg-common-lisp-devel@lists.alioth.debian.org>
Uploaders: Peter Van Eynde <pvaneynd@debian.org>,
  Milan Zamazal <pdm@zamazal.org>,
  Francois-Rene Rideau <fare@tunes.org>
Build-Depends: debhelper (>> 7)
Build-Depends-Indep: texinfo, texlive-extra-utils, texlive, texlive-generic-recommended