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
15
Issues
15
List
Boards
Labels
Service Desk
Milestones
Merge Requests
9
Merge Requests
9
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
611490bb
Commit
611490bb
authored
Apr 04, 2015
by
Francois-Rene Rideau
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Do NOT override the asdf-tools defaults from the Makefile
parent
b180bd0b
Changes
4
Show whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
13 additions
and
11 deletions
+13
-11
Makefile
Makefile
+0
-2
tools/asdf-tools.asd
tools/asdf-tools.asd
+3
-3
tools/main.lisp
tools/main.lisp
+5
-2
tools/test-environment.lisp
tools/test-environment.lisp
+5
-4
No files found.
Makefile
View file @
611490bb
...
...
@@ -17,8 +17,6 @@
# Other targets are for maintainer use only.
#
l
?=
sbcl
# Default action: bootstrap asdf.lisp
# That's the only thing that we really need before we may invoke asdf-builder.
all
:
build/asdf.lisp
...
...
tools/asdf-tools.asd
View file @
611490bb
...
...
@@ -2,10 +2,10 @@
:description
"tools to build, test, maintain and release ASDF itself"
:depends-on
((
:version
"asdf"
"3.1.2"
)
(
:version
"inferior-shell"
"2.0.2"
)
(
:version
"cl-ppcre"
"2.0.4"
)
(
:version
"lisp-invocation"
"1.0.2"
)
(
:feature
:sbcl
"sb-introspect"
)
"optima"
"optima.ppcre"
)
(
:version
"cl-ppcre"
"2.0.4"
)
(
:version
"optima.ppcre"
"1.0"
)
(
:feature
:sbcl
"sb-introspect"
))
:components
((
:file
"package"
)
(
:file
"main"
:depends-on
(
"package"
))
...
...
tools/main.lisp
View file @
611490bb
...
...
@@ -85,7 +85,7 @@ based on a list of targets"
;;; Main entry point.
;;; NB: For access control, you could check that only exported symbols are used as entry points.
(
defun
main
(
args
)
(
defun
process-arguments
(
args
)
(
block
nil
(
unless
args
(
format
t
"No command provided~%"
)
...
...
@@ -99,9 +99,12 @@ based on a list of targets"
(
format
t
"Command ~A not found~%"
(
first
args
))
(
return
)))
;;; For a multi-call binary, use these cl-launch or buildapp arguments: --dispatch-entry asdf-tools/asdf-tools::main
(
defun
main
(
argv
)
(
initialize-environment
)
(
process-arguments
argv
))
(
defun
entry-point
()
(
setf
*lisp-interaction*
nil
)
(
uiop:with-fatal-condition-handler
()
(
initialize-environment
)
(
main
*command-line-arguments*
)))
tools/test-environment.lisp
View file @
611490bb
...
...
@@ -60,15 +60,16 @@
:do
(
setf
(
symbol-value
variable
)
(
if-let
(
x
(
getenvp
envvar
))
(
funcall
transformer
x
)
defaults
))
(
eval
defaults
)
))
(
setf
(
gethash
envvar
h
)
x
)
(
setf
(
gethash
short
h
)
x
))))
(
defun
display-environment
()
(
format
t
"Environment for ASDF tools:~%"
)
(
let
((
*package*
(
find-package
:asdf-tools
)))
(
loop
:for
variable-name
:in
(
mapcar
'first
*environment-variable-specs*
)
:do
(
format
t
"~T~A = ~A
~%"
variable-name
(
symbol-value
variable-name
))))
:do
(
format
t
"~T~S = ~S
~%"
variable-name
(
symbol-value
variable-name
)
))))
(
defun
test-definition
(
def
)
(
block
()
...
...
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