Loading test/asdf-pathname-test.script +6 −6 Original line number Original line Diff line number Diff line Loading @@ -469,9 +469,9 @@ (test-pathname-parsing) (test-pathname-parsing) ;;; test for CMUCL issue with search lists versus pathnames ;;; test for CMUCL issue with search lists versus pathnames (DBG "Checking CMUCL user-homedir-pathname issue.") #+os-unix (assert (progn (multiple-value-bind (value error) (DBG "Checking CMUCL user-homedir-pathname issue.") (ignore-errors (assert (pathname-match-p (pathname-match-p (uiop::user-homedir-pathname) (uiop:getenv "HOME"))) (uiop/common-lisp:user-homedir-pathname) (null error))) (getenv-pathname "HOME")))) Loading
test/asdf-pathname-test.script +6 −6 Original line number Original line Diff line number Diff line Loading @@ -469,9 +469,9 @@ (test-pathname-parsing) (test-pathname-parsing) ;;; test for CMUCL issue with search lists versus pathnames ;;; test for CMUCL issue with search lists versus pathnames (DBG "Checking CMUCL user-homedir-pathname issue.") #+os-unix (assert (progn (multiple-value-bind (value error) (DBG "Checking CMUCL user-homedir-pathname issue.") (ignore-errors (assert (pathname-match-p (pathname-match-p (uiop::user-homedir-pathname) (uiop:getenv "HOME"))) (uiop/common-lisp:user-homedir-pathname) (null error))) (getenv-pathname "HOME"))))