From 0c92604ddc9c108b6e655a5705157392dd84ef81 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sun, 22 May 2005 01:12:39 +0000 Subject: [PATCH] Confirm that u-h-p returns only one value --- ansi-tests/user-homedir-pathname.lsp | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/ansi-tests/user-homedir-pathname.lsp b/ansi-tests/user-homedir-pathname.lsp index 65d96748..624e1a3a 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))) -- GitLab