Commit 9ed08a9d authored by Robert P. Goldman's avatar Robert P. Goldman

Last commit wrong about the proper value of file type.

Ernst's test case and ours were not the same.
parent 5e20085d
......@@ -13,7 +13,7 @@
(equalp (mapcar #'pathname-type
(mapcar #'asdf:component-pathname (asdf:module-components (asdf:find-system :test-source-file-type-1))))
'("cl" "cl")))
'("lisp" "cl")))
(set sym nil)
(asdf:load-system 'test-source-file-type-2 :verbose t)
(assert (symbol-value sym))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment