/[gcl]/gcl/ansi-tests/user-homedir-pathname.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/user-homedir-pathname.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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)))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26