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
f6832b7a
Commit
f6832b7a
authored
Jan 20, 2013
by
Francois-Rene Rideau
Browse files
2.26.130: fix compile-file* for ecl_bytecodes
Also, make script re-loadable in a debug session.
parent
16223e47
Changes
49
Hide whitespace changes
Inline
Side-by-side
asdf.asd
View file @
f6832b7a
...
...
@@ -15,7 +15,7 @@
:licence
"MIT"
:description
"Another System Definition Facility"
:long-description
"ASDF builds Common Lisp software organized into defined systems."
:version
"2.26.1
29
"
;; to be automatically updated by make bump-version
:version
"2.26.1
30
"
;; to be automatically updated by make bump-version
:depends-on
()
:components
((
:module
"build"
:components
((
:file
"asdf"
))))
:in-order-to
(
#+
asdf2.27
(
compile-op
(
monolithic-load-concatenated-source-op
asdf/defsystem
))))
...
...
header.lisp
View file @
f6832b7a
;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; coding: utf-8 -*-
;;; This is ASDF 2.26.1
29
: Another System Definition Facility.
;;; This is ASDF 2.26.1
30
: Another System Definition Facility.
;;;
;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>.
...
...
lisp-build.lisp
View file @
f6832b7a
...
...
@@ -448,10 +448,16 @@ If WARNINGS-FILE is defined, deferred warnings are saved to that file.
On ECL or MKCL, it creates both the linkable object and loadable fasl files.
On implementations that erroneously do not recognize standard keyword arguments,
it will filter them appropriately."
#+
ecl
(
when
(
and
object-file
(
equal
(
compile-file-type
)
(
pathname
object-file
)))
(
format
t
"Whoa, some funky ASDF upgrade switched ~S calling convention for ~S and ~S~%"
'compile-file*
output-file
object-file
)
(
rotatef
output-file
object-file
))
(
let*
((
keywords
(
remove-plist-keys
`
(
:compile-check
:warnings-file
#+
(
or
ecl
mkcl
)
:object-file
`
(
:compile-check
:warnings-file
#+
(
or
ecl
mkcl
)
:object-file
:output-file
#+
gcl<2.7
,@'
(
:external-format
:print
:verbose
))
keys
))
(
output-file
(
apply
'compile-file-pathname*
input-file
:output-file
output-file
keywords
))
(
output-file
(
or
output-file
(
apply
'compile-file-pathname*
input-file
:output-file
output-file
keywords
)))
#+
ecl
(
object-file
(
unless
(
use-ecl-byte-compiler-p
)
...
...
@@ -462,17 +468,13 @@ it will filter them appropriately."
(
or
object-file
(
compile-file-pathname
output-file
:fasl-p
nil
)))
(
tmp-file
(
tmpize-pathname
output-file
)))
#+
ecl
(
when
(
and
object-file
(
equal
(
compile-file-type
)
(
pathname
object-file
)))
(
format
t
"Whoa, funky upgrade API switching happening in ~S with ~S ~S~%"
'compile-file*
output-file
object-file
)
(
rotatef
output-file
object-file
))
(
multiple-value-bind
(
output-truename
warnings-p
failure-p
)
(
with-saved-deferred-warnings
(
warnings-file
)
(
or
#-
(
or
ecl
mkcl
)
(
apply
'compile-file
input-file
:output-file
tmp-file
keywords
)
#+
ecl
(
apply
'compile-file
input-file
:output-file
(
if
object-file
(
list*
object-file
:system-p
t
keywords
)
(
list*
output
-file
keywords
)))
(
list*
tmp
-file
keywords
)))
#+
mkcl
(
apply
'compile-file
input-file
:output-file
object-file
:fasl-p
nil
keywords
)))
(
cond
...
...
test/asdf-pathname-test.script
View file @
f6832b7a
;;; -*- Lisp -*-
(in-package :asdf-test)
(load-asdf)
;;(setf *unspecific-pathname-type* nil)
...
...
test/run-tests.sh
View file @
f6832b7a
...
...
@@ -90,7 +90,7 @@ do_tests() {
echo
"Testing:
$i
"
>
&2
test_count
=
`
expr
"
$test_count
"
+ 1
`
rm
-f
~/.cache/common-lisp/
"
`
pwd
`
"
/
*
||
true
if
DO
$cmd
$debugp
$eval
"(load
\"
script-support.lisp
\"
)"
$eval
"(asdf-test::with-test () (load
\"
$i
\"
))"
;
then
if
DO
$cmd
$debugp
$eval
"(load
\"
script-support.lisp
\"
)"
$eval
"(asdf-test::load-asdf)"
$eval
"(asdf-test::with-test () (load
\"
$i
\"
))"
;
then
echo
"Using
$command
,
$i
passed"
>
&2
test_pass
=
`
expr
"
$test_pass
"
+ 1
`
else
...
...
@@ -102,7 +102,7 @@ do_tests() {
echo
"or more interactively (and maybe with rlwrap or in emacs), start with:"
>
&2
echo
"(cd test ;
$cmd
)"
>
&2
echo
"then copy/paste:"
>
&2
echo
"'(#.(load
\"
script-support.lisp
\"
) #.(asdf-test::da) #.(
asdf-test::with-test ()
(load
\"
$i
\"
))
)
"
>
&2
echo
"'(#.(load
\"
script-support.lisp
\"
) #.(asdf-test::da) #.(
load-asdf) #.
(load
\"
$i
\"
))"
>
&2
fi
echo
>
&2
echo
>
&2
...
...
test/test-around-compile.script
View file @
f6832b7a
;;; -*- Lisp -*-
(load-asdf)
(defun call-in-base-2 (thunk)
(let ((*read-base* 2))
...
...
test/test-builtin-source-file-type.script
View file @
f6832b7a
;;; -*- Lisp -*-
(load-asdf)
;;(trace source-file-type)
...
...
test/test-bundle.script
View file @
f6832b7a
;;; -*- Lisp -*-
(load-asdf)
(in-package :asdf-test)
;;;---------------------------------------------------------------------------
...
...
test/test-compile-file-failure.script
View file @
f6832b7a
;;; -*- Lisp -*-
(load-asdf)
(progn
#-gcl<2.7
...
...
test/test-concatenate-source.script
View file @
f6832b7a
;;; -*- Lisp -*-
(load-asdf)
(def-test-system :test-concatenate-source
:depends-on (:file3-only)
...
...
test/test-configuration.script
View file @
f6832b7a
;;; -*- Lisp -*-
(load-asdf)
(in-package :asdf)
(use-package :asdf-test)
...
...
test/test-encodings.script
View file @
f6832b7a
;;; -*- Lisp -*-
(load-asdf)
(defparameter *lambda-string* nil)
...
...
test/test-force.script
View file @
f6832b7a
;;; -*- Lisp -*-
(load-asdf)
(asdf:operate 'asdf:load-op 'test-force)
...
...
test/test-logical-pathname.script
View file @
f6832b7a
;;; -*- Lisp -*-
(load-asdf)
#-gcl<2.7
(setf (logical-pathname-translations "ASDF")
...
...
test/test-missing-lisp-file.script
View file @
f6832b7a
...
...
@@ -7,7 +7,7 @@
;;;---------------------------------------------------------------------------
(load-asdf)
(def-test-system test-missing-lisp-file
...
...
test/test-module-depend.script
View file @
f6832b7a
;;; -*- Lisp -*-
(load-asdf)
(asdf:load-system 'test-module-depend)
...
...
test/test-module-excessive-depend.script
View file @
f6832b7a
;;; -*- Lisp -*-
(load-asdf)
;;;---------------------------------------------------------------------------
;;; Here's what we are trying to test. Let us say we have a system X that
...
...
test/test-module-pathnames.script
View file @
f6832b7a
;;; -*- Lisp -*-
(load-asdf)
(progn
(asdf:load-system 'test-module-pathnames)
...
...
test/test-multiple.script
View file @
f6832b7a
;;; -*- Lisp -*-
(load-asdf)
(in-package :asdf)
(use-package :asdf-test)
...
...
test/test-nested-components.script
View file @
f6832b7a
...
...
@@ -3,7 +3,7 @@
;;; check that added nesting via modules doesn't confuse ASDF
(load-asdf)
(progn
(setf asdf:*central-registry* nil)
...
...
Prev
1
2
3
Next
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