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

Last commit wrong about the proper value of file type. 

Ernst's test case and ours were not the same.
parent 5e20085d

test/test-source-file-type.script

+1 −1
Original line number Diff line number Diff line
@@ -13,7 +13,7 @@ 
  (assert

   (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))))