Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Tarn Burton
asdf
Commits
97b279fa
Commit
97b279fa
authored
Jul 02, 2021
by
Robert Goldman
Browse files
Bump version to 3.3.5
parent
bd6e5132
Changes
9
Hide whitespace changes
Inline
Side-by-side
asdf.asd
View file @
97b279fa
...
...
@@ -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
...
...
doc/asdf.texinfo
View file @
97b279fa
...
...
@@ -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
0
pt
plus
1f
illl
...
...
@@ -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
...
...
header.lisp
View file @
97b279fa
;;; -*- 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>.
...
...
test/script-support.lisp
View file @
97b279fa
...
...
@@ -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
...
...
test/test-utilities.script
View file @
97b279fa
...
...
@@ -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
(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/"))))))
(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/")))))
(DBG "check to make sure SUBDIRECTORIES does list subdirectories")
...
...
uiop/pathname.lisp
View file @
97b279fa
...
...
@@ -417,7 +417,7 @@ For an empty type, *UNSPECIFIC-PATHNAME-TYPE* is returned."
Unix syntax is used whether or not the underlying system is Unix;
on such non-Unix systems it is reliably usable only for relative pathnames.
This function is especially useful to manipulate relative pathnames portably,
where it is
of
crucial to possess a portable pathname syntax independent of the underlying OS.
where it is crucial to possess a portable pathname syntax independent of the underlying OS.
This is what PARSE-UNIX-NAMESTRING provides, and why we use it in ASDF.
When given a PATHNAME object, just return it untouched.
...
...
uiop/version.lisp
View file @
97b279fa
...
...
@@ -12,7 +12,7 @@
(
in-package
:uiop/version
)
(
with-upgradability
()
(
defparameter
*uiop-version*
"3.3.
4.19
"
)
(
defparameter
*uiop-version*
"3.3.
5
"
)
(
defun
unparse-version
(
version-list
)
"From a parsed version (a list of natural numbers), compute the version string"
...
...
upgrade.lisp
View file @
97b279fa
...
...
@@ -94,7 +94,7 @@ previously-loaded version of ASDF."
;; "3.4.5.67" would be a development version in the official branch, on top of 3.4.5.
;; "3.4.5.0.8" would be your eighth local modification of official release 3.4.5
;; "3.4.5.67.8" would be your eighth local modification of development version 3.4.5.67
(
asdf-version
"3.3.
4.19
"
)
(
asdf-version
"3.3.
5
"
)
(
existing-version
(
asdf-version
)))
(
setf
*asdf-version*
asdf-version
)
(
when
(
and
existing-version
(
not
(
equal
asdf-version
existing-version
)))
...
...
version.lisp-expr
View file @
97b279fa
"3.3.
4.19
"
"3.3.
5
"
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment