diff --git a/ansi-tests/user-homedir-pathname.lsp b/ansi-tests/user-homedir-pathname.lsp index 65d967488b4b685c844d7729db50fa1a6cc44190..624e1a3aee40497a0ba18bd603069b4cac777ab4 100644 --- a/ansi-tests/user-homedir-pathname.lsp +++ b/ansi-tests/user-homedir-pathname.lsp @@ -11,9 +11,12 @@ t) (deftest user-homedir-pathname.2 - (let ((pn (user-homedir-pathname))) - (notnot-mv (pathnamep pn))) - t) + (let* ((pn-list (multiple-value-list (user-homedir-pathname))) + (pn (first pn-list))) + (values + (length pn-list) + (notnot-mv (pathnamep pn)))) + 1 t) (deftest user-homedir-pathname.3 (let ((pn (user-homedir-pathname)))