Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Sun Dec 12 13:33:23 2004 UTC | revision 1.2 by pfdietz, Sun May 22 01:12:39 2005 UTC | |
---|---|---|
# | Line 11 | Line 11 |
11 | t) | t) |
12 | ||
13 | (deftest user-homedir-pathname.2 | (deftest user-homedir-pathname.2 |
14 | (let ((pn (user-homedir-pathname))) | (let* ((pn-list (multiple-value-list (user-homedir-pathname))) |
15 | (notnot-mv (pathnamep pn))) | (pn (first pn-list))) |
16 | t) | (values |
17 | (length pn-list) | |
18 | (notnot-mv (pathnamep pn)))) | |
19 | 1 t) | |
20 | ||
21 | (deftest user-homedir-pathname.3 | (deftest user-homedir-pathname.3 |
22 | (let ((pn (user-homedir-pathname))) | (let ((pn (user-homedir-pathname))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |