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
Hugo Ishimaru
asdf
Commits
5da1cd72
Commit
5da1cd72
authored
Jul 07, 2015
by
Francois-Rene Rideau
Browse files
Merge branch 'master' into minimakefile
parents
32ba0573
039e5399
Changes
8
Hide whitespace changes
Inline
Side-by-side
asdf.asd
View file @
5da1cd72
...
...
@@ -75,7 +75,7 @@
:licence
"MIT"
:description
"Another System Definition Facility"
:long-description
"ASDF builds Common Lisp software organized into defined systems."
:version
"3.1.4.2
0
"
;; to be automatically updated by make bump-version
:version
"3.1.4.2
1
"
;; to be automatically updated by make bump-version
:depends-on
()
#+
asdf3
:encoding
#+
asdf3
:utf-8
:class
#+
asdf3.1
package-inferred-system
#-
asdf3.1
system
...
...
bundle.lisp
View file @
5da1cd72
...
...
@@ -159,7 +159,7 @@ itself.")) ;; operation on a system and its dependencies
#+
(
or
clasp
ecl
)
((
member
:dll
:lib
:shared-library
:static-library
:program
:object
:program
)
(
compile-file-type
:type
bundle-type
))
((
member
:image
)
#-
allegro
"
image"
#+
allegro
"dxl"
)
((
member
:image
)
(
or
#+
allegro
"
dxl"
#+
(
and
clisp
os-windows
)
"exe"
"image"
)
)
((
member
:dll
:shared-library
)
(
os-cond
((
os-macosx-p
)
"dylib"
)
((
os-unix-p
)
"so"
)
((
os-windows-p
)
"dll"
)))
((
member
:lib
:static-library
)
(
os-cond
((
os-unix-p
)
"a"
)
((
os-windows-p
)
(
if
(
featurep
'
(
:or
:mingw32
:mingw64
))
"a"
"lib"
))))
...
...
header.lisp
View file @
5da1cd72
;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; buffer-read-only: t; -*-
;;; This is ASDF 3.1.4.2
0
: Another System Definition Facility.
;;; This is ASDF 3.1.4.2
1
: Another System Definition Facility.
;;;
;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>.
...
...
test/test-program.script
View file @
5da1cd72
;;; -*- Lisp -*-
(DBG :foo (current-lisp-file-pathname))
(unless (or #+(or allegro
clisp
clozure cmu (and ecl (not ecl-bytecmp)) lispworks mkcl sbcl scl) t)
(unless (or #+(or allegro
(and clisp os-unix)
clozure cmu (and ecl (not ecl-bytecmp)) lispworks mkcl sbcl scl) t)
(DBG "Creating images is not supported on your CL implementation")
(leave-test "Skipping test" 0))
...
...
uiop/filesystem.lisp
View file @
5da1cd72
...
...
@@ -87,59 +87,60 @@ a CL pathname satisfying all the specified constraints as per ENSURE-PATHNAME"
probes the filesystem for a file or directory with given pathname.
If it exists, return its truename is ENSURE-PATHNAME is true,
or the original (parsed) pathname if it is false (the default)."
(
with-pathname-defaults
()
;; avoids logical-pathname issues on some implementations
(
etypecase
p
(
null
nil
)
(
string
(
probe-file*
(
parse-namestring
p
)
:truename
truename
))
(
pathname
(
and
(
not
(
wild-pathname-p
p
))
(
handler-case
(
or
#+
allegro
(
probe-file
p
:follow-symlinks
truename
)
#+
gcl
(
if
truename
(
truename*
p
)
(
let
((
kind
(
car
(
si::stat
p
))))
(
when
(
eq
kind
:link
)
(
setf
kind
(
ignore-errors
(
car
(
si::stat
(
truename*
p
))))))
(
ecase
kind
((
nil
)
nil
)
((
:file
:link
)
(
cond
((
file-pathname-p
p
)
p
)
((
directory-pathname-p
p
)
(
subpathname
p
(
car
(
last
(
pathname-directory
p
)))))))
(
:directory
(
ensure-directory-pathname
p
)))))
#+
clisp
#.
(
flet
((
probe
(
probe
)
`
(
let
((
foundtrue
,
probe
))
(
cond
(
truename
foundtrue
)
(
foundtrue
p
)))))
(
let*
((
fs
(
or
#-
os-windows
(
find-symbol*
'
#:file-stat
:posix
nil
)))
(
pp
(
find-symbol*
'
#:probe-pathname
:ext
nil
))
(
resolve
(
if
pp
`
(
ignore-errors
(
,
pp
p
))
'
(
or
(
truename*
p
)
(
truename*
(
ignore-errors
(
ensure-directory-pathname
p
)))))))
(
if
fs
`
(
if
truename
,
resolve
(
and
(
ignore-errors
(
,
fs
p
))
p
))
(
probe
resolve
))))
#-
(
or
allegro
clisp
gcl
)
(
if
truename
(
probe-file
p
)
(
ignore-errors
(
let
((
pp
(
physicalize-pathname
p
)))
(
and
#+
(
or
cmu
scl
)
(
unix:unix-stat
(
ext:unix-namestring
pp
))
#+
(
and
lispworks
unix
)
(
system:get-file-stat
pp
)
#+
sbcl
(
sb-unix:unix-stat
(
sb-ext:native-namestring
pp
))
#-
(
or
cmu
(
and
lispworks
unix
)
sbcl
scl
)
(
file-write-date
pp
)
p
)))))
(
file-error
()
nil
)))))))
(
etypecase
p
(
null
nil
)
(
string
;; avoid logical-pathname issues on some implementations
(
let
((
pn
(
with-pathname-defaults
()
(
parse-namestring
p
))))
(
probe-file*
pn
:truename
truename
)))
(
pathname
(
and
(
not
(
wild-pathname-p
p
))
(
handler-case
(
or
#+
allegro
(
probe-file
p
:follow-symlinks
truename
)
#+
gcl
(
if
truename
(
truename*
p
)
(
let
((
kind
(
car
(
si::stat
p
))))
(
when
(
eq
kind
:link
)
(
setf
kind
(
ignore-errors
(
car
(
si::stat
(
truename*
p
))))))
(
ecase
kind
((
nil
)
nil
)
((
:file
:link
)
(
cond
((
file-pathname-p
p
)
p
)
((
directory-pathname-p
p
)
(
subpathname
p
(
car
(
last
(
pathname-directory
p
)))))))
(
:directory
(
ensure-directory-pathname
p
)))))
#+
clisp
#.
(
let*
((
fs
(
or
#-
os-windows
(
find-symbol*
'
#:file-stat
:posix
nil
)))
(
pp
(
find-symbol*
'
#:probe-pathname
:ext
nil
)))
`
(
if
truename
,
(
if
pp
`
(
ignore-errors
(
,
pp
p
))
'
(
or
(
truename*
p
)
(
truename*
(
ignore-errors
(
ensure-directory-pathname
p
)))))
,
(
cond
(
fs
`
(
and
(
ignore-errors
(
,
fs
p
))
p
))
(
pp
`
(
ignore-errors
(
nth-value
1
(
,
pp
p
))))
(
t
'
(
if-let
(
q
(
ensure-absolute-pathname
p
:defaults
'get-pathname-defaults
:on-error
nil
))
(
or
(
and
(
truename*
q
)
q
)
(
if-let
(
d
(
ignore-errors
(
ensure-directory-pathname
q
)))
(
and
(
truename*
d
)
d
))))))))
#-
(
or
allegro
clisp
gcl
)
(
if
truename
(
probe-file
p
)
(
ignore-errors
(
let
((
pp
(
physicalize-pathname
p
)))
(
and
#+
(
or
cmu
scl
)
(
unix:unix-stat
(
ext:unix-namestring
pp
))
#+
(
and
lispworks
unix
)
(
system:get-file-stat
pp
)
#+
sbcl
(
sb-unix:unix-stat
(
sb-ext:native-namestring
pp
))
#-
(
or
cmu
(
and
lispworks
unix
)
sbcl
scl
)
(
file-write-date
pp
)
p
)))))
(
file-error
()
nil
))))))
(
defun
directory-exists-p
(
x
)
"Is X the name of a directory that exists on the filesystem?"
...
...
uiop/version.lisp-expr
View file @
5da1cd72
"3.1.4.2
0
"
"3.1.4.2
1
"
upgrade.lisp
View file @
5da1cd72
...
...
@@ -67,7 +67,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.1.4.2
0
"
)
(
asdf-version
"3.1.4.2
1
"
)
(
existing-version
(
asdf-version
)))
(
setf
*asdf-version*
asdf-version
)
(
when
(
and
existing-version
(
not
(
equal
asdf-version
existing-version
)))
...
...
version.lisp-expr
View file @
5da1cd72
"3.1.4.2
0
"
"3.1.4.2
1
"
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