Loading asdf.lisp +18 −11 Original line number Diff line number Diff line Loading @@ -105,9 +105,10 @@ #:*central-registry* ; variables #:*compile-file-warnings-behaviour* #:*compile-file-failure-behaviour* #:*asdf-revision* #:*resolve-symlinks* #:asdf-version #:operation-error #:compile-failed #:compile-warned #:compile-error #:error-name #:error-pathname Loading Loading @@ -171,9 +172,12 @@ ;;;; ------------------------------------------------------------------------- ;;;; User-visible parameters ;;;; (defparameter *asdf-revision* (defparameter *asdf-version* ;; the 1+ hair is to ensure that we don't do an inadvertent find and replace (subseq "REVISION:1.500" (1+ (length "REVISION")))) (subseq "VERSION:1.500" (1+ (length "VERSION")))) (defun asdf-version () *asdf-version*) (defvar *resolve-symlinks* t "Determine whether or not ASDF resolves symlinks when defining systems. Loading Loading @@ -2133,10 +2137,11 @@ with a different configuration, so the configuration would be re-read then." (validate-source-registry-form (car forms)))) (defun validate-source-registry-directory (directory) (let ((files (sort (directory (merge-pathnames (let ((files (sort (ignore-errors (directory (merge-pathnames (make-pathname :name :wild :type :wild) directory) #+sbcl :resolve-symlinks #+sbcl nil) #+sbcl :resolve-symlinks #+sbcl nil)) #'string< :key #'namestring))) `(:source-registry ,@(loop :for file :in files :append Loading Loading @@ -2176,9 +2181,10 @@ with a different configuration, so the configuration would be re-read then." (return `(:source-registry ,@(nreverse directives))))))))) (defun collect-asd-subdirectories (directory &key (exclude *default-exclusions*) collect) (let* ((files (directory (merge-pathnames #P"**/*.asd" directory) (let* ((files (ignore-errors (directory (merge-pathnames #P"**/*.asd" directory) #+sbcl #+sbcl :resolve-symlinks nil #+clisp #+clisp :circle t)) #+clisp #+clisp :circle t))) (dirs (remove-duplicates (mapcar #'pathname-sans-name+type files) :test #'equal))) (loop :for dir :in dirs Loading Loading @@ -2358,9 +2364,10 @@ with a different configuration, so the configuration would be re-read then." ;;;; ----------------------------------------------------------------- ;;;; Done! (when *load-verbose* (asdf-message ";; ASDF, revision ~a" *asdf-revision*)) (asdf-message ";; ASDF, version ~a" (asdf-version))) (pushnew :asdf *features*) ;;(pushnew :asdf2 *features*) ;; do that when we reach version 2 (provide :asdf) Loading bin/bump-revision-and-tag.sh +1 −1 Original line number Diff line number Diff line Loading @@ -35,7 +35,7 @@ fi new_version="$major.$bumped" cp asdf.lisp asdf.bak perl -pi -e "s/REVISION:[^\"]*\"/REVISION:$new_version\"/" asdf.lisp perl -pi -e "s/VERSION:[^\"]*\"/VERSION:$new_version\"/" asdf.lisp if [ ! "$?" == "0" ]; then echo "Unable to perl replace version" exit -3 Loading website/source/manual.mmd +0 −2 Original line number Diff line number Diff line Loading @@ -823,8 +823,6 @@ ASDF includes code to control where the binaries files are places. The location ## Special variables {docs *asdf-revision*} {docs *central-registry*} {docs *compile-file-warnings-behaviour*} Loading Loading
asdf.lisp +18 −11 Original line number Diff line number Diff line Loading @@ -105,9 +105,10 @@ #:*central-registry* ; variables #:*compile-file-warnings-behaviour* #:*compile-file-failure-behaviour* #:*asdf-revision* #:*resolve-symlinks* #:asdf-version #:operation-error #:compile-failed #:compile-warned #:compile-error #:error-name #:error-pathname Loading Loading @@ -171,9 +172,12 @@ ;;;; ------------------------------------------------------------------------- ;;;; User-visible parameters ;;;; (defparameter *asdf-revision* (defparameter *asdf-version* ;; the 1+ hair is to ensure that we don't do an inadvertent find and replace (subseq "REVISION:1.500" (1+ (length "REVISION")))) (subseq "VERSION:1.500" (1+ (length "VERSION")))) (defun asdf-version () *asdf-version*) (defvar *resolve-symlinks* t "Determine whether or not ASDF resolves symlinks when defining systems. Loading Loading @@ -2133,10 +2137,11 @@ with a different configuration, so the configuration would be re-read then." (validate-source-registry-form (car forms)))) (defun validate-source-registry-directory (directory) (let ((files (sort (directory (merge-pathnames (let ((files (sort (ignore-errors (directory (merge-pathnames (make-pathname :name :wild :type :wild) directory) #+sbcl :resolve-symlinks #+sbcl nil) #+sbcl :resolve-symlinks #+sbcl nil)) #'string< :key #'namestring))) `(:source-registry ,@(loop :for file :in files :append Loading Loading @@ -2176,9 +2181,10 @@ with a different configuration, so the configuration would be re-read then." (return `(:source-registry ,@(nreverse directives))))))))) (defun collect-asd-subdirectories (directory &key (exclude *default-exclusions*) collect) (let* ((files (directory (merge-pathnames #P"**/*.asd" directory) (let* ((files (ignore-errors (directory (merge-pathnames #P"**/*.asd" directory) #+sbcl #+sbcl :resolve-symlinks nil #+clisp #+clisp :circle t)) #+clisp #+clisp :circle t))) (dirs (remove-duplicates (mapcar #'pathname-sans-name+type files) :test #'equal))) (loop :for dir :in dirs Loading Loading @@ -2358,9 +2364,10 @@ with a different configuration, so the configuration would be re-read then." ;;;; ----------------------------------------------------------------- ;;;; Done! (when *load-verbose* (asdf-message ";; ASDF, revision ~a" *asdf-revision*)) (asdf-message ";; ASDF, version ~a" (asdf-version))) (pushnew :asdf *features*) ;;(pushnew :asdf2 *features*) ;; do that when we reach version 2 (provide :asdf) Loading
bin/bump-revision-and-tag.sh +1 −1 Original line number Diff line number Diff line Loading @@ -35,7 +35,7 @@ fi new_version="$major.$bumped" cp asdf.lisp asdf.bak perl -pi -e "s/REVISION:[^\"]*\"/REVISION:$new_version\"/" asdf.lisp perl -pi -e "s/VERSION:[^\"]*\"/VERSION:$new_version\"/" asdf.lisp if [ ! "$?" == "0" ]; then echo "Unable to perl replace version" exit -3 Loading
website/source/manual.mmd +0 −2 Original line number Diff line number Diff line Loading @@ -823,8 +823,6 @@ ASDF includes code to control where the binaries files are places. The location ## Special variables {docs *asdf-revision*} {docs *central-registry*} {docs *compile-file-warnings-behaviour*} Loading