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