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
a2054286
Commit
a2054286
authored
Jul 06, 2015
by
Francois-Rene Rideau
Browse files
Merge branch 'master' into minimakefile
parents
6d9e94a3
c2fb9bbb
Changes
2
Hide whitespace changes
Inline
Side-by-side
tools/pathnames.lisp
View file @
a2054286
...
...
@@ -5,11 +5,15 @@
(
ensure-pathname
(
system-relative-pathname
:asdf/defsystem
())
:want-physical
t
:want-absolute
t
:want-existing
t
:truename
t
))
(
defun
pn
(
&rest
x
)
(
subpathname
*asdf-dir*
(
and
x
(
uiop:resolve-relative-location
x
))))
(
defun
nn
(
&rest
x
)
(
native-namestring
(
apply
'pn
x
)))
(
defvar
*uiop-dir*
(
pn
"uiop/"
))
(
defvar
*build-dir*
(
pn
"build/"
))
(
defun
call-with-asdf-dir
(
thunk
&rest
subs
)
(
with-current-directory
((
apply
'pn
subs
))
(
funcall
thunk
)))
...
...
tools/release.lisp
View file @
a2054286
...
...
@@ -59,15 +59,15 @@
(
error
"Destination ~S already exists, not taking chances - you can delete it yourself."
destination
))
(
ensure-directories-exist
destination
)
(
run
`
(
cp
"-pHux"
--parents
,@
files
,
destination
)
:directory
base
:show
t
)
(
run
`
(
tar
"zcfC"
,
tarball
,
*build-dir*
(
run
*
`
(
cp
"-pHux"
--parents
,@
files
,
destination
)
:directory
base
:show
t
)
(
run
*
`
(
tar
"zcfC"
,
tarball
,
*build-dir*
;; TODO: Have better autodetection for which tar is being used,
;; and fall back to no option if not recognized.
#+
linux
(
*
:owner
root
:group
root
)
;; assume GNU tar on Linux.
#+
darwin
(
*
:uid
0
:gid
0
)
;; assume BSD tar on Darwin.
(
,
name
/
))
:show
t
)
(
delete-directory-tree
destination
:validate
#'
(
lambda
(
x
)
(
equal
x
destination
)))
(
value
s
)))
(
succes
s
)))
(
defun
uiop-files
()
"list files in uiop"
...
...
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