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
Eric Timmons
asdf
Commits
d10580e7
Commit
d10580e7
authored
Apr 01, 2020
by
Francois-Rene Rideau
Browse files
In bundle asd don't drop CRLF but substitute space
parent
0cbeae25
Changes
2
Hide whitespace changes
Inline
Side-by-side
bundle.lisp
View file @
d10580e7
...
...
@@ -431,6 +431,9 @@ or of opaque libraries shipped along the source code."))
(
declare
(
ignorable
o
s
))
nil
)
(
defun
space-for-crlf
(
s
)
(
substitute-if
#\space
#'
(
lambda
(
x
)
(
find
x
+crlf+
))
s
))
(
defmethod
perform
((
o
deliver-asd-op
)
(
s
system
))
"Write an ASDF system definition for loading S as a delivered system."
(
let*
((
inputs
(
input-files
o
s
))
...
...
@@ -471,8 +474,7 @@ which is probably not what you want; you probably need to tweak your output tran
(
machine-type
)
(
software-version
))))
;; ensure the whole thing is on one line
(
print
(
remove-if
#'
(
lambda
(
x
)
(
member
x
(
list
#\newline
#\return
)))
description-string
)
s
)
(
terpri
s
))
(
println
(
space-for-crlf
description-string
)
s
))
(
let
((
*package*
(
find-package
:asdf-user
)))
(
pprint
`
(
defsystem
,
name
:class
prebuilt-system
...
...
test/test-bundle-asd.script
View file @
d10580e7
...
...
@@ -7,7 +7,7 @@
;;;---------------------------------------------------------------------------
#+(or (and ecl ecl-bytecmp) gcl)
(leave-test "bundles not
on
implemented this implementation" 0)
(leave-test "bundles not implemented
on
this implementation" 0)
(defparameter *test-system-name* "deliver-bundle")
...
...
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