Loading asdf.asd +1 −1 Original line number Diff line number Diff line Loading @@ -93,7 +93,7 @@ :licence "MIT" :description "Another System Definition Facility" :long-description "ASDF builds Common Lisp software organized into defined systems." :version "3.3.4.19" ;; to be automatically updated by make bump-version :version "3.3.5" ;; to be automatically updated by make bump-version :depends-on () :components ((:module "build" :components ((:file "asdf")))) . #-asdf3 () #+asdf3 Loading doc/asdf.texinfo +2 −2 Original line number Diff line number Diff line Loading @@ -65,7 +65,7 @@ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. @titlepage @title ASDF: Another System Definition Facility @subtitle Manual for Version 3.3.4.19 @subtitle Manual for Version 3.3.5 @c The following two commands start the copyright page. @page @vskip 0pt plus 1filll Loading @@ -82,7 +82,7 @@ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. @node Top, Introduction, (dir), (dir) @top ASDF: Another System Definition Facility @ifnottex Manual for Version 3.3.4.19 Manual for Version 3.3.5 @end ifnottex Loading header.lisp +1 −1 Original line number Diff line number Diff line ;;; -*- mode: Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; Package: CL-USER ; buffer-read-only: t; -*- ;;; This is ASDF 3.3.4.19: Another System Definition Facility. ;;; This is ASDF 3.3.5: Another System Definition Facility. ;;; ;;; Feedback, bug reports, and patches are all welcome: ;;; please mail to <asdf-devel@common-lisp.net>. Loading test/script-support.lisp +3 −0 Original line number Diff line number Diff line Loading @@ -151,6 +151,9 @@ Some constraints: (assert-equal ',condition (type-of ,x)) ,x))) (defmacro with-expected-failure ((&optional condition) &body body) "If CONDITION is non-NIL, then the BODY is expected to fail, and an error will be raised if it *succeeds*. If non-NIL, CONDITION should evaluate to something that explains the unexpected success -- typically a string." `(call-with-expected-failure ,condition (lambda () ,@body))) (defun call-with-expected-failure (condition thunk) (if condition Loading test/test-utilities.script +20 −10 Original line number Diff line number Diff line Loading @@ -332,22 +332,32 @@ (assert-pathnames-equal directory-a-no-slash (list (subpathname *build-directory* "deleteme/a/1.x"))) (assert-pathnames-equal directory-b-no-slash (list (subpathname *build-directory* "deleteme/a/b/2")))) (DBG "Test oddball characters in pathnames") ;; let* ((oddball-pathname (merge-pathnames (make-pathname :directory '(:relative "/[foo")) ;; (subpathname *build-directory* "deleteme/"))) ;; (oddball-namestring (namestring oddball-pathname))) ;; (DBG "Oddball pathname is " oddball-pathname) ;; (DBG "Oddball namestring is " oddball-namestring) ;; (ensure-directories-exist oddball-pathname) ;; (assert (directory-exists-p oddball-pathname)) ;; (pathname oddball-namestring) ;; (assert-equal nil (uiop:subdirectories oddball-namestring)) (with-expected-failure ("UIOP:SUBDIRECTORIES does not handle non-standard pathnames.") (assert-equal nil (uiop:subdirectories "/[foo"))) (DBG "check to make sure WITH-CURRENT-DIRECTORY checks its parameter for directory pathname") (let ((directory-a-no-slash (subpathname *build-directory* "deleteme/a")) (directory-b-no-slash (subpathname *build-directory* "deleteme/a/b"))) (assert (eq 'with-current-directory 'uiop:with-current-directory)) (with-current-directory (directory-a-no-slash) (with-expected-failure () (assert-pathnames-equal (directory-files (getcwd)) (list (subpathname *build-directory* "deleteme/a/1.x"))))) (assert-pathnames-equal (directory-files (getcwd)) (list (subpathname *build-directory* "deleteme/a/1.x")))) (with-current-directory (directory-b-no-slash) (with-expected-failure () (assert-pathnames-equal (directory-files (getcwd)) (list (subpathname *build-directory* "deleteme/a/b/2")))) (with-expected-failure () (assert-pathnames-equal (directory-files (getcwd)) (list (subpathname *build-directory* "deleteme/a/b/2"))) (assert-pathnames-equal (sort (subdirectories (getcwd)) #'string< :key #'(lambda (x) (car (last (pathname-directory x))))) (list (subpathname *build-directory* "deleteme/a/b/c/") (subpathname *build-directory* "deleteme/a/b/d/") (subpathname *build-directory* "deleteme/a/b/e/")))))) (subpathname *build-directory* "deleteme/a/b/e/"))))) (DBG "check to make sure SUBDIRECTORIES does list subdirectories") Loading Loading
asdf.asd +1 −1 Original line number Diff line number Diff line Loading @@ -93,7 +93,7 @@ :licence "MIT" :description "Another System Definition Facility" :long-description "ASDF builds Common Lisp software organized into defined systems." :version "3.3.4.19" ;; to be automatically updated by make bump-version :version "3.3.5" ;; to be automatically updated by make bump-version :depends-on () :components ((:module "build" :components ((:file "asdf")))) . #-asdf3 () #+asdf3 Loading
doc/asdf.texinfo +2 −2 Original line number Diff line number Diff line Loading @@ -65,7 +65,7 @@ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. @titlepage @title ASDF: Another System Definition Facility @subtitle Manual for Version 3.3.4.19 @subtitle Manual for Version 3.3.5 @c The following two commands start the copyright page. @page @vskip 0pt plus 1filll Loading @@ -82,7 +82,7 @@ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. @node Top, Introduction, (dir), (dir) @top ASDF: Another System Definition Facility @ifnottex Manual for Version 3.3.4.19 Manual for Version 3.3.5 @end ifnottex Loading
header.lisp +1 −1 Original line number Diff line number Diff line ;;; -*- mode: Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; Package: CL-USER ; buffer-read-only: t; -*- ;;; This is ASDF 3.3.4.19: Another System Definition Facility. ;;; This is ASDF 3.3.5: Another System Definition Facility. ;;; ;;; Feedback, bug reports, and patches are all welcome: ;;; please mail to <asdf-devel@common-lisp.net>. Loading
test/script-support.lisp +3 −0 Original line number Diff line number Diff line Loading @@ -151,6 +151,9 @@ Some constraints: (assert-equal ',condition (type-of ,x)) ,x))) (defmacro with-expected-failure ((&optional condition) &body body) "If CONDITION is non-NIL, then the BODY is expected to fail, and an error will be raised if it *succeeds*. If non-NIL, CONDITION should evaluate to something that explains the unexpected success -- typically a string." `(call-with-expected-failure ,condition (lambda () ,@body))) (defun call-with-expected-failure (condition thunk) (if condition Loading
test/test-utilities.script +20 −10 Original line number Diff line number Diff line Loading @@ -332,22 +332,32 @@ (assert-pathnames-equal directory-a-no-slash (list (subpathname *build-directory* "deleteme/a/1.x"))) (assert-pathnames-equal directory-b-no-slash (list (subpathname *build-directory* "deleteme/a/b/2")))) (DBG "Test oddball characters in pathnames") ;; let* ((oddball-pathname (merge-pathnames (make-pathname :directory '(:relative "/[foo")) ;; (subpathname *build-directory* "deleteme/"))) ;; (oddball-namestring (namestring oddball-pathname))) ;; (DBG "Oddball pathname is " oddball-pathname) ;; (DBG "Oddball namestring is " oddball-namestring) ;; (ensure-directories-exist oddball-pathname) ;; (assert (directory-exists-p oddball-pathname)) ;; (pathname oddball-namestring) ;; (assert-equal nil (uiop:subdirectories oddball-namestring)) (with-expected-failure ("UIOP:SUBDIRECTORIES does not handle non-standard pathnames.") (assert-equal nil (uiop:subdirectories "/[foo"))) (DBG "check to make sure WITH-CURRENT-DIRECTORY checks its parameter for directory pathname") (let ((directory-a-no-slash (subpathname *build-directory* "deleteme/a")) (directory-b-no-slash (subpathname *build-directory* "deleteme/a/b"))) (assert (eq 'with-current-directory 'uiop:with-current-directory)) (with-current-directory (directory-a-no-slash) (with-expected-failure () (assert-pathnames-equal (directory-files (getcwd)) (list (subpathname *build-directory* "deleteme/a/1.x"))))) (assert-pathnames-equal (directory-files (getcwd)) (list (subpathname *build-directory* "deleteme/a/1.x")))) (with-current-directory (directory-b-no-slash) (with-expected-failure () (assert-pathnames-equal (directory-files (getcwd)) (list (subpathname *build-directory* "deleteme/a/b/2")))) (with-expected-failure () (assert-pathnames-equal (directory-files (getcwd)) (list (subpathname *build-directory* "deleteme/a/b/2"))) (assert-pathnames-equal (sort (subdirectories (getcwd)) #'string< :key #'(lambda (x) (car (last (pathname-directory x))))) (list (subpathname *build-directory* "deleteme/a/b/c/") (subpathname *build-directory* "deleteme/a/b/d/") (subpathname *build-directory* "deleteme/a/b/e/")))))) (subpathname *build-directory* "deleteme/a/b/e/"))))) (DBG "check to make sure SUBDIRECTORIES does list subdirectories") Loading