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
1
Issues
1
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
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
Hugo Ishimaru
asdf
Commits
d682a656
Commit
d682a656
authored
Jul 24, 2014
by
Francois-Rene Rideau
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Fix make-git-tarball. Unsuccessfully try to hush quickload.
parent
335d386d
Changes
2
Show whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
6 additions
and
7 deletions
+6
-7
tools/asdf-tools
tools/asdf-tools
+3
-1
tools/release.lisp
tools/release.lisp
+3
-6
No files found.
tools/asdf-tools
View file @
d682a656
...
...
@@ -13,7 +13,9 @@
;;; ASDF3 is loaded, now use it!
(eval-when (:compile-toplevel :load-toplevel :execute)
(#-quicklisp asdf:load-system #+quicklisp ql:quickload :asdf-tools))
#-quicklisp (asdf:load-system :asdf-tools :verbose nil)
#+quicklisp (ql:quickload :asdf-tools :verbose nil :explain nil :prompt nil))
;;; Actually run the stuff!
(uiop:restore-image :entry-point 'asdf-tools::entry-point)
tools/release.lisp
View file @
d682a656
...
...
@@ -33,7 +33,6 @@
(
defun
make-tarball-under-build
(
name
base
files
)
(
check-type
name
string
)
(
ensure-pathname
base
:want-absolute
t
:want-existing
t
:want-directory
t
)
(
dolist
(
f
files
)
(
check-type
f
string
))
(
let*
((
base
...
...
@@ -61,7 +60,7 @@
(
ensure-directories-exist
destination
)
(
run
`
(
cp
"-pHux"
--parents
,@
files
,
destination
)
:directory
base
:show
t
)
(
run
`
(
tar
"zcfC"
,
tarball
,
(
pn
"build/"
)
(
,
name
/
))
:show
t
)
(
delete-directory-tree
destination
:validate
(
lambda
(
x
)
(
equal
x
destination
)
))
(
delete-directory-tree
destination
:validate
(
complement
#'
wild-pathname-p
))
(
values
)))
(
defun
driver-files
()
...
...
@@ -87,10 +86,8 @@
(
defun
make-git-tarball
()
(
build-asdf
)
(
with-asdf-dir
()
(
run
`
(
tar
zcf
(
"build/"
,
(
asdf-git-name
)
".tar.gz"
)
build/asdf.lisp
,@
(
run/lines
'
(
git
ls-files
))
(
asdf-git-name
))
:show
t
))
t
)
(
make-tarball-under-build
(
asdf-git-name
)
(
pn
)
(
cons
"build/asdf.lisp"
(
run/lines
'
(
git
ls-files
)))))
(
defun
asdf-lisp-name
()
(
format
nil
"asdf-~A.lisp"
*version*
))
...
...
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