- (unless (zerop (run-shell-command "cd ~A; make"
- (namestring (merge-pathnames
- (make-pathname
- :name nil
- :type nil
- :directory '(:relative "tests"))
- (make-pathname
- :directory *asd-file-dir*)))))
+ (unless (zerop (run-shell-command
+ "cd ~A; make"
+ (namestring (make-pathname :name nil
+ :type nil
+ :directory *library-file-dir*))))