diff --git a/test/test-symlink-loop.script b/test/test-symlink-loop.script index f353baff95a82fa842c83fc1c3ec0d1ce5c3874b..6e12859dadcddc00478323f6cc4c426823ea80ec 100644 --- a/test/test-symlink-loop.script +++ b/test/test-symlink-loop.script @@ -33,7 +33,7 @@ (let ((asds nil)) (declare (special asds)) (asdf/source-registry:collect-sub*directories-asd-files - "/Users/rpg/Downloads/asdf-loop\ 2/" + scratch-dir :collect #'(lambda (asd) (let* ((name (pathname-name asd))