Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
asdf
asdf
Commits
d2991b32
Commit
d2991b32
authored
Mar 15, 2010
by
Francois-Rene Rideau
Browse files
Avoid name clash in FASLs for different implementations.
Fix ECL compilation workaround.
parent
f23d0d05
Changes
2
Hide whitespace changes
Inline
Side-by-side
test/compile-asdf.lisp
View file @
d2991b32
...
...
@@ -20,17 +20,15 @@
(
compile-file
*asdf-lisp*
:output-file
tmp
))
(
declare
(
ignore
result
))
(
cond
#-
ecl
(
warnings-p
;;; ECL gives warnings that it shouldn't!
#+
ecl
(
leave-lisp
"ASDF compiled with warnings. Please fix ECL."
0
)
#-
ecl
(
leave-lisp
"Testsuite failed: ASDF compiled with warnings"
1
))
(
errors-p
(
leave-lisp
"Testsuite failed: ASDF compiled with ERRORS"
2
))
(
t
#+
cl
isp
;; But for a bug in CLISP 2.48, we should use :if-exists :overwrite and be atomic
(
posix:copy-file
tmp
*asdf-fasl*
:method
:rename
)
#-
clisp
(
renam
e-file
tmp
*asdf-fasl*
#+
clozure
:if-exists
#+
clozure
:rename-and-delete
)
#+
e
cl
(
when
warnings-p
(
format
t
"~&ASDF compiled with warnings. Please fix ECL.~%"
))
(
ignore-errors
(
delet
e-file
*asdf-fasl*
))
(
rename-file
tmp
*asdf-fasl*
)
(
leave-lisp
"ASDF compiled cleanly"
0
)))))))
test/script-support.lisp
View file @
d2991b32
...
...
@@ -11,8 +11,23 @@
(
defvar
*asdf-fasl*
(
compile-file-pathname
(
merge-pathnames
(
make-pathname
:directory
'
(
:relative
"tmp"
)
:defaults
*asdf-lisp*
)
(
make-pathname
:directory
'
(
:relative
"tmp"
)
:name
(
format
nil
"asdf-~(~A~)"
(
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
))
:defaults
*asdf-lisp*
)
*asdf-lisp*
)))
(
defun
load-asdf
()
(
load
*asdf-fasl*
))
...
...
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