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
asdf
asdf
Commits
13f9c39f
Commit
13f9c39f
authored
Mar 27, 2013
by
Francois-Rene Rideau
Browse files
2.32.32: Graceful *runtime* error for UIOP:DELETE-DIRECTORY-TREE on SBCL < 1.0.44.
parent
fb7c59a0
Changes
5
Hide whitespace changes
Inline
Side-by-side
asdf.asd
View file @
13f9c39f
...
...
@@ -74,7 +74,7 @@
:licence
"MIT"
:description
"Another System Definition Facility"
:long-description
"ASDF builds Common Lisp software organized into defined systems."
:version
"2.32.3
1
"
;; to be automatically updated by make bump-version
:version
"2.32.3
2
"
;; to be automatically updated by make bump-version
:depends-on
()
#+
asdf3
:encoding
#+
asdf3
:utf-8
;; For most purposes, asdf itself specially counts as a builtin system.
...
...
header.lisp
View file @
13f9c39f
;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*-
;;; This is ASDF 2.32.3
1
: Another System Definition Facility.
;;; This is ASDF 2.32.3
2
: Another System Definition Facility.
;;;
;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>.
...
...
uiop/filesystem.lisp
View file @
13f9c39f
...
...
@@ -557,7 +557,9 @@ If you're suicidal or extremely confident, just use :VALIDATE T."
directory-pathname
:if-does-not-exist
if-does-not-exist
)
#+
clozure
(
ccl:delete-directory
directory-pathname
)
#+
genera
(
error
"~S not implemented on ~S"
'delete-directory-tree
(
implementation-type
))
#+
sbcl
(
sb-ext:delete-directory
directory-pathname
:recursive
t
)
#+
sbcl
#.
(
if-let
(
dd
(
find-symbol*
:delete-directory
:sb-ext
nil
))
`
(
,
dd
directory-pathname
:recursive
t
)
;; requires SBCL 1.0.44 or later
'
(
error
"~S requires SBCL 1.0.44 or later"
'delete-directory-tree
))
;; Outside Unix or on CMUCL and SCL that can avoid following symlinks,
;; do things the hard way.
#-
(
or
allegro
clozure
genera
sbcl
)
...
...
upgrade.lisp
View file @
13f9c39f
...
...
@@ -52,7 +52,7 @@ You can compare this string with e.g.: (ASDF:VERSION-SATISFIES (ASDF:ASDF-VERSIO
;; "3.4.5.67" would be a development version in the official upstream 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
"2.32.3
1
"
)
(
asdf-version
"2.32.3
2
"
)
(
existing-version
(
asdf-version
)))
(
setf
*asdf-version*
asdf-version
)
(
when
(
and
existing-version
(
not
(
equal
asdf-version
existing-version
)))
...
...
version.lisp-expr
View file @
13f9c39f
"2.32.3
1
"
"2.32.3
2
"
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