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
Didier Verna
asdf
Commits
ab2e6a12
Commit
ab2e6a12
authored
Jun 09, 2013
by
Francois-Rene Rideau
Browse files
3.0.1.7: tweaks for XCVB: better support CFASL on SBCL, default-encoding.
parent
3b3610a3
Changes
6
Hide whitespace changes
Inline
Side-by-side
asdf.asd
View file @
ab2e6a12
...
...
@@ -74,7 +74,7 @@
:licence
"MIT"
:description
"Another System Definition Facility"
:long-description
"ASDF builds Common Lisp software organized into defined systems."
:version
"3.0.1.
6
"
;; to be automatically updated by make bump-version
:version
"3.0.1.
7
"
;; to be automatically updated by make bump-version
:depends-on
()
#+
asdf3
:encoding
#+
asdf3
:utf-8
;; For most purposes, asdf itself specially counts as a builtin system.
...
...
header.lisp
View file @
ab2e6a12
;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*-
;;; This is ASDF 3.0.1.
6
: Another System Definition Facility.
;;; This is ASDF 3.0.1.
7
: Another System Definition Facility.
;;;
;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>.
...
...
uiop/lisp-build.lisp
View file @
ab2e6a12
...
...
@@ -570,7 +570,7 @@ possibly in a different process. Otherwise just run the BODY."
(
defun*
(
compile-file*
)
(
input-file
&rest
keys
&key
compile-check
output-file
warnings-file
#+
clisp
lib-file
#+
(
or
ecl
mkcl
)
object-file
#+
clisp
lib-file
#+
(
or
ecl
mkcl
)
object-file
#+
sbcl
emit-cfasl
&allow-other-keys
)
"This function provides a portable wrapper around COMPILE-FILE.
It ensures that the OUTPUT-FILE value is only returned and
...
...
@@ -611,12 +611,23 @@ it will filter them appropriately."
(
or
object-file
(
compile-file-pathname
output-file
:fasl-p
nil
)))
(
tmp-file
(
tmpize-pathname
output-file
))
#+
sbcl
(
cfasl-file
(
etypecase
emit-cfasl
(
null
nil
)
((
eql
t
)
(
make-pathname
:type
"cfasl"
:defaults
output-file
))
(
string
(
parse-namestring
emit-cfasl
))
(
pathname
emit-cfasl
)))
#+
sbcl
(
tmp-cfasl
(
when
cfasl-file
(
make-pathname
:type
"cfasl"
:defaults
tmp-file
)))
#+
clisp
(
tmp-lib
(
make-pathname
:type
"lib"
:defaults
tmp-file
)))
(
multiple-value-bind
(
output-truename
warnings-p
failure-p
)
(
with-saved-deferred-warnings
(
warnings-file
)
(
with-muffled-compiler-conditions
()
(
or
#-
(
or
ecl
mkcl
)
(
apply
'compile-file
input-file
:output-file
tmp-file
keywords
)
(
or
#-
(
or
ecl
mkcl
)
(
apply
'compile-file
input-file
:output-file
tmp-file
#+
sbcl
(
if
emit-cfasl
(
list*
:emit-cfasl
tmp-cfasl
keywords
)
keywords
)
#-
sbcl
keywords
)
#+
ecl
(
apply
'compile-file
input-file
:output-file
(
if
object-file
(
list*
object-file
:system-p
t
keywords
)
...
...
@@ -641,11 +652,14 @@ it will filter them appropriately."
(
delete-file-if-exists
output-file
)
(
when
output-truename
#+
clisp
(
when
lib-file
(
rename-file-overwriting-target
tmp-lib
lib-file
))
#+
sbcl
(
when
cfasl-file
(
rename-file-overwriting-target
tmp-cfasl
cfasl-file
))
(
rename-file-overwriting-target
output-truename
output-file
)
(
setf
output-truename
(
truename
output-file
)))
#+
clisp
(
delete-file-if-exists
tmp-lib
))
(
t
;; error or failed check
(
delete-file-if-exists
output-truename
)
#+
clisp
(
delete-file-if-exists
tmp-lib
)
#+
sbcl
(
delete-file-if-exists
tmp-cfasl
)
(
setf
output-truename
nil
)))
(
values
output-truename
warnings-p
failure-p
))))
...
...
uiop/stream.lisp
View file @
ab2e6a12
...
...
@@ -94,7 +94,7 @@ hopefully, if done consistently, that won't affect program behavior too much.")
and implementation-defined external-format's"
)
(
defun
encoding-external-format
(
encoding
)
(
funcall
*encoding-external-format-hook*
encoding
)))
(
funcall
*encoding-external-format-hook*
(
or
encoding
*default-encoding*
)
)))
;;; Safe syntax
...
...
upgrade.lisp
View file @
ab2e6a12
...
...
@@ -52,7 +52,7 @@ You can compare this string with e.g.: (ASDF:VERSION-SATISFIES (ASDF:ASDF-VERSIO
;; "3.4.5.67" would be a development version in the official upstream of 3.4.5.
;; "3.4.5.0.8" would be your eighth local modification of official release 3.4.5
;; "3.4.5.67.8" would be your eighth local modification of development version 3.4.5.67
(
asdf-version
"3.0.1.
6
"
)
(
asdf-version
"3.0.1.
7
"
)
(
existing-version
(
asdf-version
)))
(
setf
*asdf-version*
asdf-version
)
(
when
(
and
existing-version
(
not
(
equal
asdf-version
existing-version
)))
...
...
version.lisp-expr
View file @
ab2e6a12
"3.0.1.
6
"
"3.0.1.
7
"
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