Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
A
asdf
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
16
Issues
16
List
Boards
Labels
Service Desk
Milestones
Merge Requests
8
Merge Requests
8
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
asdf
asdf
Commits
c5f9f5a7
Commit
c5f9f5a7
authored
Jul 09, 2015
by
Francois-Rene Rideau
Browse files
Options
Browse Files
Download
Plain Diff
Merge branch 'master' into minimakefile
parents
6f24c2cb
fe23060b
Changes
6
Show whitespace changes
Inline
Side-by-side
Showing
6 changed files
with
19 additions
and
11 deletions
+19
-11
component.lisp
component.lisp
+2
-2
contrib/detect-multiply-used-files.lisp
contrib/detect-multiply-used-files.lisp
+1
-0
doc/Makefile
doc/Makefile
+1
-0
test/test-utilities.script
test/test-utilities.script
+10
-8
uiop/filesystem.lisp
uiop/filesystem.lisp
+2
-0
uiop/pathname.lisp
uiop/pathname.lisp
+3
-1
No files found.
component.lisp
View file @
c5f9f5a7
...
...
@@ -230,8 +230,8 @@ children.")))
(
defmethod
component-relative-pathname
((
component
component
))
;; SOURCE-FILE-TYPE below is strictly for backward-compatibility with ASDF1.
;; We ought to be able to extract this from the component alone with
COMPONENT
-TYPE.
;; TODO: track who uses it, and have them not use it anymore;
;; We ought to be able to extract this from the component alone with
FILE
-TYPE.
;; TODO: track who uses it
in Quicklisp
, and have them not use it anymore;
;; maybe issue a WARNING (then eventually CERROR) if the two methods diverge?
(
parse-unix-namestring
(
or
(
and
(
slot-boundp
component
'relative-pathname
)
...
...
contrib/detect-multiply-used-files.lisp
View file @
c5f9f5a7
(
uiop:define-package
:detect-multiply-used-files
(
:nicknames
:asdf/contrib/detect-multiply-used-files
)
(
:use
:asdf
:uiop
:common-lisp
)
(
:export
#:find-fishy-components
#:register-component-files
#:*file-components*
))
...
...
doc/Makefile
View file @
c5f9f5a7
...
...
@@ -32,6 +32,7 @@ asdf.pdf: asdf.texinfo version.texinfo
website
:
all
rsync
-lt
--no-g
${webfiles}
${website}
rsync
--recursive
--no-g
--delete
asdf
${website}
rsync
-lt
--no-g
../debian/changelog
${website}
/changelog
.PHONY
:
clean intermediate-clean manual-html
...
...
test/test-utilities.script
View file @
c5f9f5a7
...
...
@@ -63,10 +63,12 @@
(assert-pathname-equal true dir)
(setf true dir)))
(assert-pathname-equal true (truename (ensure-directory-pathname file)))
(assert-pathname-equal true (nest #+(and clisp windows) (ensure-directory-pathname)
(truename* file))
(assert-pathname-equal true (nest #+(or allegro (and clisp windows)) (ensure-directory-pathname)
(probe-file* file :truename t)))
(assert-pathname-equal true (nest #+(and clisp os-windows) (ensure-directory-pathname)
(truename* file)))
(assert-pathname-equal true
(let ((path (probe-file* file :truename t)))
#+(or allegro (and clisp os-windows)) (ensure-directory-pathname path)
#-(or allegro (and clisp os-windows)) path))
(assert-pathname-equal true (if-let (x (probe-file* file))
(ensure-absolute-pathname (ensure-directory-pathname x) 'get-pathname-defaults))))
(check-directory-doesnt-exist (file)
...
...
@@ -113,7 +115,7 @@
;; On implementations where chdir doesn't side-effect D-P-D, we can have D-P-D be relative to GETCWD...
;; except on allegro, that hates this trick.
(with-expected-failure (#+(or allegro gcl) t)
(with-expected-failure (#+(or allegro gcl
(and clisp os-windows)
) t)
(unless (absolute-pathname-p *default-pathname-defaults*)
(DBG "6"
(chdir asdf-directory)
...
...
uiop/filesystem.lisp
View file @
c5f9f5a7
...
...
@@ -69,6 +69,8 @@ a CL pathname satisfying all the specified constraints as per ENSURE-PATHNAME"
(
when
(
stringp
p
)
(
setf
p
(
with-pathname-defaults
()
(
parse-namestring
p
))))
(
values
(
or
(
ignore-errors
(
truename
p
))
;; this is here because trying to find the truename of a directory pathname WITHOUT supplying
;; a trailing directory separator, causes an error on some lisps.
#+
(
or
clisp
gcl
)
(
if-let
(
d
(
ensure-directory-pathname
p
))
(
ignore-errors
(
truename
d
)))))))
(
defun
safe-file-write-date
(
pathname
)
...
...
uiop/pathname.lisp
View file @
c5f9f5a7
...
...
@@ -207,7 +207,9 @@ when merging, making or parsing pathnames")
where leaving the defaults NIL or unspecified means a (NIL-PATHNAME), except
on ABCL, Genera and XCL, where it remains unchanged for it doubles as current-directory."
`
(
let
((
*default-pathname-defaults*
,
(
or
defaults
#-
(
or
abcl
genera
xcl
)
'*nil-pathname*
#+
(
or
abcl
genera
)
'*default-pathname-defaults*
)))
,
(
or
defaults
#-
(
or
abcl
genera
xcl
)
'*nil-pathname*
#+
(
or
abcl
genera
xcl
)
'*default-pathname-defaults*
)))
,@
body
)))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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