Commit 97b279fa authored by Robert Goldman's avatar Robert Goldman
Browse files

Bump version to 3.3.5

parent bd6e5132
Loading
Loading
Loading
Loading
+1 −1
Original line number Diff line number Diff line
@@ -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
+2 −2
Original line number Diff line number Diff line
@@ -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
@@ -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


+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>.
+3 −0
Original line number Diff line number Diff line
@@ -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
+20 −10
Original line number Diff line number Diff line
@@ -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