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
533e943a
Commit
533e943a
authored
Oct 16, 2013
by
Francois-Rene Rideau
Browse files
Improve warning message from concatenate-source-op when encodings or around-compile hooks mismatch.
Tweak uiop.asd so it specifies encoding correctly.
parent
49b507fb
Changes
2
Hide whitespace changes
Inline
Side-by-side
concatenate-source.lisp
View file @
533e943a
...
...
@@ -57,15 +57,18 @@
(
when
(
typep
c
'cl-source-file
)
(
let
((
e
(
component-encoding
c
)))
(
unless
(
equal
e
encoding
)
(
pushnew
e
other-encodings
:test
'equal
)))
(
let
((
a
(
around-compile-hook
c
)))
(
unless
(
equal
a
around-compile
)
(
pushnew
a
other-around-compile
:test
'equal
)))
(
let
((
a
(
assoc
e
other-encodings
)))
(
if
a
(
push
(
component-find-path
c
)
(
cdr
a
))
(
push
(
list
a
(
component-find-path
c
))
other-encodings
)))))
(
unless
(
equal
around-compile
(
around-compile-hook
c
))
(
push
(
component-find-path
c
)
other-around-compile
))
(
input-files
(
make-operation
'compile-op
)
c
))
:into
inputs
:finally
(
when
other-encodings
(
warn
"~S uses encoding ~A but has sources that use these encodings: ~A"
operation
encoding
other-encodings
))
(
warn
"~S uses encoding ~A but has sources that use these encodings:~{ ~A~}"
operation
encoding
(
mapcar
#'
(
lambda
(
x
)
(
cons
(
car
x
)
(
list
(
reverse
(
cdr
x
)))))
other-encodings
)))
(
when
other-around-compile
(
warn
"~S uses around-compile hook ~A but has sources that use these hooks: ~A"
operation
around-compile
other-around-compile
))
...
...
uiop/uiop.asd
View file @
533e943a
...
...
@@ -23,7 +23,7 @@ that you can't portably construct a complete program without using them.
UIOP is also known as ASDF/DRIVER or ASDF-UTILS,
being transcluded into asdf.lisp together with ASDF/DEFSYSTEM."
#+
asdf3
:version
#+
asdf3
(
:read-file-form
"version.lisp-expr"
)
#+
asdf-
encoding
:encoding
#+
asdf-
encoding
:utf-8
#+
asdf-
unicode
:encoding
#+
asdf-
unicode
:utf-8
#+
asdf3
:around-compile
#+
asdf3
call-without-redefinition-warnings
:components
((
:static-file
"version.lisp-expr"
)
...
...
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