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
a7464ad3
Commit
a7464ad3
authored
Jan 06, 2013
by
Francois-Rene Rideau
Browse files
2.26.57: Fix make-pathname* (bug found by rpgoldman). Implement concatenate-source-op &co
parent
ddc1b687
Changes
3
Expand all
Hide whitespace changes
Inline
Side-by-side
asdf.asd
View file @
a7464ad3
...
...
@@ -14,7 +14,7 @@
:licence
"MIT"
:description
"Another System Definition Facility"
:long-description
"ASDF builds Common Lisp software organized into defined systems."
:version
"2.26.5
6
"
;; to be automatically updated by bin/bump-revision
:version
"2.26.5
7
"
;; to be automatically updated by bin/bump-revision
:depends-on
()
:components
((
:file
"asdf"
)))
...
...
asdf.lisp
View file @
a7464ad3
This diff is collapsed.
Click to expand it.
test/test-concatenate-source.script
0 → 100644
View file @
a7464ad3
;;; -*- Lisp -*-
(load "script-support.lisp")
(load-asdf)
(quit-on-error
(defsystem :test-concatenate-source
:depends-on (:file3-only)
:components
((:file "file2" :depends-on ("foo"))
(:module "foo" :pathname ""
:components ((:file "file1")
(:file "file4" :if-feature (:not :common-lisp))))))
(let ((mcso (asdf::make-operation 'asdf::monolithic-concatenate-source-op))
(mccso (asdf::make-operation 'asdf::monolithic-compile-concatenated-source-op))
(mlccso (asdf::make-operation 'asdf::monolithic-load-compiled-concatenated-source-op))
(sys (find-system :test-concatenate-source)))
(assert (asdf::operation-monolithic-p mcso))
(assert-equal
(input-files mcso sys)
(loop :for n :in '(3 1 2)
:collect (asdf::subpathname *test-directory* (format nil "file~D.lisp" n))))
(assert-equal
(output-file mcso sys)
(apply-output-translations (asdf::subpathname *test-directory* "test-concatenate-source.lisp")))
(assert-equal
(output-files mcso sys)
(input-files mccso sys))
(assert-equal
(output-file mccso sys)
(apply-output-translations (compile-file-pathname (asdf::subpathname *test-directory* "test-concatenate-source.lisp"))))
(assert-equal
(output-files mccso sys)
(input-files mlccso sys))
(operate 'asdf::monolithic-load-compiled-concatenated-source-op sys)
(assert (symbol-value (asdf::find-symbol* :*file3* :test-package)))))
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