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
0
Issues
0
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
Pascal J. Bourguignon
asdf
Commits
d966b77c
Commit
d966b77c
authored
Mar 17, 2010
by
Francois-Rene Rideau
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
tweaks to the test infrastructure
parent
9f2228ef
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
20 additions
and
14 deletions
+20
-14
test/run-tests.sh
test/run-tests.sh
+5
-1
test/script-support.lisp
test/script-support.lisp
+15
-13
No files found.
test/run-tests.sh
View file @
d966b77c
...
...
@@ -140,6 +140,10 @@ case "$lisp" in
eval
=
"-eval"
;;
lispworks
)
command
=
"
${
LISPWORKS
:-
lispworks
}
"
# If you have a licensed copy of lispworks,
# you can obtain the "lispworks" binary with, e.g.
# echo '(hcl:save-image "/lispworks" :environment nil)' > /tmp/build.lisp ;
# ./lispworks-6-0-0-x86-linux -siteinit - -init - -build /tmp/build.lisp
flags
=
"-siteinit - -init -"
eval
=
"-eval"
;;
gclcvs
)
...
...
@@ -163,7 +167,7 @@ fi
asdfdir
=
"
$(
cd
..
;
/bin/pwd
)
"
export
CL_SOURCE_REGISTRY
=
"
${
asdfdir
}
"
export
ASDF_OUTPUT_TRANSLATIONS
=
"
${
asdfdir
}
:
${
asdfdir
}
/tmp/fasls/
$(
basename
$command
)
"
export
ASDF_OUTPUT_TRANSLATIONS
=
"
${
asdfdir
}
:
${
asdfdir
}
/tmp/fasls/
$(
basename
$command
)
:
"
env
|
grep
asdf
command
=
"
$command
$flags
"
...
...
test/script-support.lisp
View file @
d966b77c
...
...
@@ -12,17 +12,17 @@
(
compile-file-pathname
(
let
((
impl
(
string-downcase
(
or
#+
allegro
(
format
nil
"~Alisp"
excl:*current-case-mode*
)
#+
armedbear
:abcl
#+
clisp
:clisp
#+
clozure
:ccl
#+
cmu
:cmucl
#+
corman
:cormanlisp
#+
digitool
:mcl
#+
ecl
:ecl
#+
gcl
:gcl
#+
lispworks
:lispworks
#+
sbcl
:sbcl
#+
scl
scl
))))
#+
armedbear
:abcl
#+
clisp
:clisp
#+
clozure
:ccl
#+
cmu
:cmucl
#+
corman
:cormanlisp
#+
digitool
:mcl
#+
ecl
:ecl
#+
gcl
:gcl
#+
lispworks
:lispworks
#+
sbcl
:sbcl
#+
scl
scl
))))
(
merge-pathnames
(
make-pathname
:directory
`
(
:relative
"tmp"
"fasls"
,
impl
)
:defaults
*asdf-lisp*
)
...
...
@@ -47,17 +47,19 @@
#+
clisp
(
ext:quit
return
)
#+
(
or
cmu
scl
)
(
unix:unix-exit
code
)
(
unix:unix-exit
return
)
#+
ecl
(
si:quit
return
)
#+
gcl
(
lisp:quit
code
)
(
lisp:quit
return
)
#+
lispworks
(
lispworks:quit
:status
return
:confirm
nil
:return
nil
:ignore-errors-p
t
)
#+
(
or
openmcl
mcl
)
(
ccl::quit
return
)
#+
sbcl
(
sb-ext:quit
:unix-status
return
)
#+
abcl
(
ext:quit
:status
return
)
(
error
"Don't know how to quit Lisp; wanting to use exit code ~a"
return
))
...
...
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