output verkuerzt
This commit is contained in:
@ -98,7 +98,7 @@
|
|||||||
(incf ntried)
|
(incf ntried)
|
||||||
(multiple-value-bind (pathname output)
|
(multiple-value-bind (pathname output)
|
||||||
(test-pathnames directory test)
|
(test-pathnames directory test)
|
||||||
(princ pathname)
|
(princ (enough-namestring pathname directory))
|
||||||
(unless (probe-file pathname)
|
(unless (probe-file pathname)
|
||||||
(error "file not found: ~A" pathname))
|
(error "file not found: ~A" pathname))
|
||||||
(with-simple-restart (skip-test "Skip this test")
|
(with-simple-restart (skip-test "Skip this test")
|
||||||
|
|||||||
Reference in New Issue
Block a user