Loading asdf.lisp +9 −7 Original line number Diff line number Diff line Loading @@ -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))) Loading Loading @@ -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))) Loading Loading @@ -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) Loading debian/control +1 −0 Original line number Diff line number Diff line Loading @@ -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 Loading Loading
asdf.lisp +9 −7 Original line number Diff line number Diff line Loading @@ -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))) Loading Loading @@ -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))) Loading Loading @@ -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) Loading
debian/control +1 −0 Original line number Diff line number Diff line Loading @@ -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 Loading