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
asdf
asdf
Commits
2331e35d
Commit
2331e35d
authored
Jul 30, 2012
by
Jean-Claude Beaudoin
Committed by
Francois-Rene Rideau
Jul 31, 2012
Browse files
Integrated MKCL into test suite.
parent
a0895136
Changes
5
Hide whitespace changes
Inline
Side-by-side
Makefile
View file @
2331e35d
...
...
@@ -22,6 +22,7 @@ CCL ?= ccl
CLISP
?=
clisp
SBCL
?=
sbcl
ECL
?=
ecl
MKCL
?=
mkcl
CMUCL
?=
cmucl
ABCL
?=
abcl
SCL
?=
scl
...
...
@@ -87,6 +88,7 @@ test-upgrade:
use_clisp
()
{
li
=
"
${CLISP}
-norc -ansi --quiet --quiet"
;
ev
=
"-x"
;
}
;
\
use_sbcl
()
{
li
=
"
${SBCL}
--noinform --no-userinit"
;
ev
=
"--eval"
;
}
;
\
use_ecl
()
{
li
=
"
${ECL}
-norc"
;
ev
=
"-eval"
;
}
;
\
use_mkcl
()
{
li
=
"
${MKCL}
-norc"
;
ev
=
"-eval"
;
}
;
\
use_cmucl
()
{
li
=
"
${CMUCL}
-noinit"
;
ev
=
"-eval"
;
}
;
\
use_abcl
()
{
li
=
"
${ABCL}
--noinit --nosystem --noinform"
;
ev
=
"--eval"
;
}
;
\
use_scl
()
{
li
=
"
${SCL}
-noinit"
;
ev
=
"-eval"
;
}
;
\
...
...
asdf.lisp
View file @
2331e35d
...
...
@@ -4223,7 +4223,7 @@ with a different configuration, so the configuration would be re-read then."
(
defun*
default-source-registry
()
`
(
:source-registry
#+
sbcl
(
:directory
,
(
subpathname
(
user-homedir
)
".sbcl/systems/"
))
#-
mkcl
(
:directory
,
(
default-directory
))
(
:directory
,
(
default-directory
))
,@
(
loop
:for
dir
:in
`
(
,@
(
when
(
os-unix-p
)
`
(
,
(
or
(
getenv-absolute-directory
"XDG_DATA_HOME"
)
...
...
test/compile-asdf.lisp
View file @
2331e35d
...
...
@@ -29,6 +29,9 @@
((
or
c:compiler-note
c::compiler-debug-note
c:compiler-warning
)
;; ECL emits more serious warnings than it should.
#'
muffle-warning
)
#+
mkcl
((
or
compiler:compiler-note
)
#'
muffle-warning
)
#-
(
or
cmu
scl
)
(
style-warning
#'
(
lambda
(
w
)
...
...
test/run-tests.sh
View file @
2331e35d
...
...
@@ -154,6 +154,10 @@ case "$lisp" in
# ./lispworks-6-0-0-x86-linux -siteinit - -init - -build /tmp/build.lisp
flags
=
"-siteinit - -init -"
eval
=
"-eval"
;;
mkcl
)
command
=
"
${
MKCL
:-
mkcl
}
"
flags
=
"-norc"
eval
=
"-eval"
;;
sbcl
)
command
=
"
${
SBCL
:-
sbcl
}
"
flags
=
"--noinform --userinit /dev/null --sysinit /dev/null"
...
...
test/script-support.lisp
View file @
2331e35d
...
...
@@ -34,6 +34,7 @@
#+
ecl
:ecl
#+
gcl
:gcl
#+
lispworks
:lispworks
#+
mkcl
:mkcl
#+
sbcl
:sbcl
#+
scl
:scl
#+
xcl
:xcl
))))
...
...
@@ -76,6 +77,8 @@
(
lispworks:quit
:status
return
:confirm
nil
:return
nil
:ignore-errors-p
t
)
#+
(
or
openmcl
mcl
)
(
ccl::quit
return
)
#+
mkcl
(
mk-ext:quit
:exit-code
return
)
#+
sbcl
#.
(
let
((
exit
(
find-symbol
"EXIT"
:sb-ext
))
(
quit
(
find-symbol
"QUIT"
:sb-ext
)))
(
cond
...
...
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