- (assert (null (directory-namestring pathname0)))
- (assert (null (file-namestring pathname1)))
- (assert (null (directory-namestring pathname1))))
+ (assert (equal (directory-namestring pathname0)
+ (directory-namestring *default-pathname-defaults*)))
+ (assert (equal (file-namestring pathname1) ""))
+ (assert (equal (directory-namestring pathname1) "")))