Loading asdf.texinfo +1 −1 Original line number Diff line number Diff line Loading @@ -2123,7 +2123,7 @@ or subdirectories of the path before them, or bust. The last component, if not a pathname, is notionally completed by @file{/**/*.*}. You can specify more fine-grained patterns by using a pathname obj1ect as the last component by using a pathname object as the last component e.g. @file{#p"some/path/**/foo*/bar-*.fasl"} You may use @code{#+features} to customize the configuration file. Loading test/compile-asdf.lisp +4 −2 Original line number Diff line number Diff line Loading @@ -6,7 +6,8 @@ ((not (probe-file *asdf-lisp*)) (leave-lisp "Testsuite failed: unable to find ASDF source" 3)) ((and (probe-file *asdf-fasl*) (> (file-write-date *asdf-fasl*) (file-write-date *asdf-lisp*))) (> (file-write-date *asdf-fasl*) (file-write-date *asdf-lisp*)) (ignore-errors (load *asdf-fasl*))) (leave-lisp "Reusing previously-compiled ASDF" 0)) (t (let ((tmp (make-pathname :name "asdf-tmp" :defaults *asdf-fasl*))) Loading @@ -29,6 +30,7 @@ #+ecl (when warnings-p (format t "~&ASDF compiled with warnings. Please fix ECL.~%")) (ignore-errors (delete-file *asdf-fasl*)) (when (probe-file *asdf-fasl*) (delete-file *asdf-fasl*)) (rename-file tmp *asdf-fasl*) (leave-lisp "ASDF compiled cleanly" 0))))))) test/run-tests.sh +3 −3 Original line number Diff line number Diff line Loading @@ -165,9 +165,9 @@ if ! type "$command" ; then exit 43 fi asdfdir="$(cd .. ; /bin/pwd)" export CL_SOURCE_REGISTRY="${asdfdir}" export ASDF_OUTPUT_TRANSLATIONS="${asdfdir}:${asdfdir}/tmp/fasls/$(basename $command):" ASDFDIR="$(cd .. ; /bin/pwd)" export CL_SOURCE_REGISTRY="${ASDFDIR}" export ASDF_OUTPUT_TRANSLATIONS="(:output-translations (\"${ASDFDIR}\" (\"${ASDFDIR}/tmp/fasls\" :implementation)) :ignore-inherited-configuration)" env | grep asdf command="$command $flags" Loading test/test-module-depend.script +14 −18 Original line number Diff line number Diff line Loading @@ -7,14 +7,13 @@ (asdf:operate 'asdf:load-op 'test-module-depend) ;; test that it compiled (defvar file1-date (file-write-date (asdf:compile-file-pathname* "file1"))) (let ((file1-date (file-write-date (asdf:compile-file-pathname* "file1")))) (assert (and file1-date (file-write-date (asdf:compile-file-pathname* "file2")))) ;; and loaded (assert (eval (intern (symbol-name '#:*file1*) :test-package))) ;; now touch file1 and check that file2 _is_ also recompiled ;; this will only work if the cross-module (intra-system) ;; dependency bug is fixed. Loading @@ -25,7 +24,4 @@ (asdf:operate 'asdf:load-op 'test-module-depend) (assert (> (file-write-date (asdf:compile-file-pathname* "file2")) before)) ;; does this properly go to the second level? (assert (> (file-write-date (asdf:compile-file-pathname* "file3")) before)) )) (assert (> (file-write-date (asdf:compile-file-pathname* "file3")) before))))) test/test-module-excessive-depend.asd +4 −6 Original line number Diff line number Diff line Loading @@ -10,14 +10,14 @@ :depends-on ("file1") :components ((:file "file2"))))) (defun find-file2 () (find-component (find-quux) "file2")) (defun find-quux () (find-component (find-system :test-module-excessive-depend) "quux")) (defun find-file2 () (find-component (find-quux) "file2")) (defmethod component-depends-on ((op load-op) (c (eql (find-file2)))) (cons (cons 'load-op (list "file3-only")) Loading @@ -31,9 +31,7 @@ (defmethod find-component :around ((m (eql (find-quux))) (c string) &optional version) "FIND-COMPONENT on a component is a no-op --- it's already found." (declare (ignore version)) (if (string-equal c "file3-only") (asdf:find-system c) (call-next-method))) Loading
asdf.texinfo +1 −1 Original line number Diff line number Diff line Loading @@ -2123,7 +2123,7 @@ or subdirectories of the path before them, or bust. The last component, if not a pathname, is notionally completed by @file{/**/*.*}. You can specify more fine-grained patterns by using a pathname obj1ect as the last component by using a pathname object as the last component e.g. @file{#p"some/path/**/foo*/bar-*.fasl"} You may use @code{#+features} to customize the configuration file. Loading
test/compile-asdf.lisp +4 −2 Original line number Diff line number Diff line Loading @@ -6,7 +6,8 @@ ((not (probe-file *asdf-lisp*)) (leave-lisp "Testsuite failed: unable to find ASDF source" 3)) ((and (probe-file *asdf-fasl*) (> (file-write-date *asdf-fasl*) (file-write-date *asdf-lisp*))) (> (file-write-date *asdf-fasl*) (file-write-date *asdf-lisp*)) (ignore-errors (load *asdf-fasl*))) (leave-lisp "Reusing previously-compiled ASDF" 0)) (t (let ((tmp (make-pathname :name "asdf-tmp" :defaults *asdf-fasl*))) Loading @@ -29,6 +30,7 @@ #+ecl (when warnings-p (format t "~&ASDF compiled with warnings. Please fix ECL.~%")) (ignore-errors (delete-file *asdf-fasl*)) (when (probe-file *asdf-fasl*) (delete-file *asdf-fasl*)) (rename-file tmp *asdf-fasl*) (leave-lisp "ASDF compiled cleanly" 0)))))))
test/run-tests.sh +3 −3 Original line number Diff line number Diff line Loading @@ -165,9 +165,9 @@ if ! type "$command" ; then exit 43 fi asdfdir="$(cd .. ; /bin/pwd)" export CL_SOURCE_REGISTRY="${asdfdir}" export ASDF_OUTPUT_TRANSLATIONS="${asdfdir}:${asdfdir}/tmp/fasls/$(basename $command):" ASDFDIR="$(cd .. ; /bin/pwd)" export CL_SOURCE_REGISTRY="${ASDFDIR}" export ASDF_OUTPUT_TRANSLATIONS="(:output-translations (\"${ASDFDIR}\" (\"${ASDFDIR}/tmp/fasls\" :implementation)) :ignore-inherited-configuration)" env | grep asdf command="$command $flags" Loading
test/test-module-depend.script +14 −18 Original line number Diff line number Diff line Loading @@ -7,14 +7,13 @@ (asdf:operate 'asdf:load-op 'test-module-depend) ;; test that it compiled (defvar file1-date (file-write-date (asdf:compile-file-pathname* "file1"))) (let ((file1-date (file-write-date (asdf:compile-file-pathname* "file1")))) (assert (and file1-date (file-write-date (asdf:compile-file-pathname* "file2")))) ;; and loaded (assert (eval (intern (symbol-name '#:*file1*) :test-package))) ;; now touch file1 and check that file2 _is_ also recompiled ;; this will only work if the cross-module (intra-system) ;; dependency bug is fixed. Loading @@ -25,7 +24,4 @@ (asdf:operate 'asdf:load-op 'test-module-depend) (assert (> (file-write-date (asdf:compile-file-pathname* "file2")) before)) ;; does this properly go to the second level? (assert (> (file-write-date (asdf:compile-file-pathname* "file3")) before)) )) (assert (> (file-write-date (asdf:compile-file-pathname* "file3")) before)))))
test/test-module-excessive-depend.asd +4 −6 Original line number Diff line number Diff line Loading @@ -10,14 +10,14 @@ :depends-on ("file1") :components ((:file "file2"))))) (defun find-file2 () (find-component (find-quux) "file2")) (defun find-quux () (find-component (find-system :test-module-excessive-depend) "quux")) (defun find-file2 () (find-component (find-quux) "file2")) (defmethod component-depends-on ((op load-op) (c (eql (find-file2)))) (cons (cons 'load-op (list "file3-only")) Loading @@ -31,9 +31,7 @@ (defmethod find-component :around ((m (eql (find-quux))) (c string) &optional version) "FIND-COMPONENT on a component is a no-op --- it's already found." (declare (ignore version)) (if (string-equal c "file3-only") (asdf:find-system c) (call-next-method)))