From: <cli...@li...> - 2004-12-20 04:12:04
|
Send clisp-cvs mailing list submissions to cli...@li... To subscribe or unsubscribe via the World Wide Web, visit https://lists.sourceforge.net/lists/listinfo/clisp-cvs or, via email, send a message with subject or body 'help' to cli...@li... You can reach the person managing the list at cli...@li... When replying, please edit your Subject line so it is more specific than "Re: Contents of clisp-cvs digest..." CLISP CVS commits for today Today's Topics: 1. clisp/src pathname.d,1.345,1.346 ChangeLog,1.3969,1.3970 (Sam Steingold) 2. clisp/tests path.tst,1.39,1.40 ChangeLog,1.288,1.289 (Sam Steingold) 3. clisp/src describe.lisp,1.66,1.67 ChangeLog,1.3970,1.3971 (Sam Steingold) --__--__-- Message: 1 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src pathname.d,1.345,1.346 ChangeLog,1.3969,1.3970 Date: Sun, 19 Dec 2004 18:45:04 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21967/src Modified Files: pathname.d ChangeLog Log Message: (test_optional_host): :UNSPECIFIC means NIL because USER-HOMEDIR-PATHNAME is required to accept :UNSPECIFIC as argument Index: pathname.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/pathname.d,v retrieving revision 1.345 retrieving revision 1.346 diff -u -d -r1.345 -r1.346 --- pathname.d 13 Dec 2004 12:02:41 -0000 1.345 +++ pathname.d 19 Dec 2004 18:44:57 -0000 1.346 @@ -664,7 +664,7 @@ < result: valid host-component can trigger GC */ local maygc object test_optional_host (object host, bool convert) { - if (!boundp(host)) + if (!boundp(host) || eq(host,S(Kunspecific))) return NIL; if (nullp(host)) goto OK; /* NIL is OK */ @@ -707,7 +707,7 @@ < result: valid host-component can trigger GC */ local maygc object test_optional_host (object host) { - if (!boundp(host)) + if (!boundp(host) || eq(host,S(Kunspecific))) return NIL; /* not specified -> NIL */ if (nullp(host)) goto OK; /* NIL is OK */ @@ -748,14 +748,14 @@ > host: Host-Argument < result: valid host-component */ local object test_optional_host (object host) { - if (boundp(host)) { /* not specified -> OK */ - if (!nullp(host)) { /* specified -> should be =NIL */ - pushSTACK(host); /* TYPE-ERROR slot DATUM */ - pushSTACK(S(null)); /* TYPE-ERROR slot EXPECTED-TYPE */ - pushSTACK(host); - pushSTACK(TheSubr(subr_self)->name); - fehler(type_error,GETTEXT("~S: host should be NIL, not ~S")); - } + if (boundp(host) /* not specified -> OK */ + && !nullp(host) /* specified -> should be NIL or :UNSPECIFIC */ + && !eq(host,S(Kunspecific))) { + pushSTACK(host); /* TYPE-ERROR slot DATUM */ + pushSTACK(S(null)); /* TYPE-ERROR slot EXPECTED-TYPE */ + pushSTACK(host); + pushSTACK(TheSubr(subr_self)->name); + fehler(type_error,GETTEXT("~S: host should be NIL, not ~S")); } return NIL; } Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.3969 retrieving revision 1.3970 diff -u -d -r1.3969 -r1.3970 --- ChangeLog 19 Dec 2004 02:56:08 -0000 1.3969 +++ ChangeLog 19 Dec 2004 18:45:00 -0000 1.3970 @@ -1,3 +1,8 @@ +2004-12-19 Sam Steingold <sd...@gn...> + + * pathname.d (test_optional_host): :UNSPECIFIC means NIL because + USER-HOMEDIR-PATHNAME is required to accept :UNSPECIFIC as argument + 2004-12-18 Sam Steingold <sd...@gn...> * io.d (SET-SYNTAX-FROM-CHAR): fix a GC-safety bug (from sacla-tests) --__--__-- Message: 2 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/tests path.tst,1.39,1.40 ChangeLog,1.288,1.289 Date: Sun, 19 Dec 2004 18:44:59 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21967/tests Modified Files: path.tst ChangeLog Log Message: (test_optional_host): :UNSPECIFIC means NIL because USER-HOMEDIR-PATHNAME is required to accept :UNSPECIFIC as argument Index: path.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/path.tst,v retrieving revision 1.39 retrieving revision 1.40 diff -u -d -r1.39 -r1.40 --- path.tst 5 Oct 2004 14:48:29 -0000 1.39 +++ path.tst 19 Dec 2004 18:44:56 -0000 1.40 @@ -837,3 +837,16 @@ (absolute-pathname (make-pathname :device :wild)) #+(and clisp win32) error + +(let ((home (user-homedir-pathname))) + (or (null home) (not (not (pathnamep home))))) +T + +(let ((home (user-homedir-pathname nil))) + (or (null home) (not (not (pathnamep home))))) +T + +(let ((home (user-homedir-pathname :unspecific))) + (or (null home) (not (not (pathnamep home))))) +T + Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/tests/ChangeLog,v retrieving revision 1.288 retrieving revision 1.289 diff -u -d -r1.288 -r1.289 --- ChangeLog 19 Dec 2004 00:54:20 -0000 1.288 +++ ChangeLog 19 Dec 2004 18:44:57 -0000 1.289 @@ -1,3 +1,7 @@ +2004-12-19 Sam Steingold <sd...@gn...> + + * path.tst: test USER-HOMEDIR-PATHNAME + 2004-12-18 Sam Steingold <sd...@gn...> * conditions.tst: test (setf readtable-case) --__--__-- Message: 3 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src describe.lisp,1.66,1.67 ChangeLog,1.3970,1.3971 Date: Sun, 19 Dec 2004 18:57:50 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24494/src Modified Files: describe.lisp ChangeLog Log Message: (apropos): finish with FRESH-LINE instead of TERPRI to avoid extra vertical space when nothing is found Index: describe.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/describe.lisp,v retrieving revision 1.66 retrieving revision 1.67 diff -u -d -r1.66 -r1.67 --- describe.lisp 10 Dec 2004 16:58:52 -0000 1.66 +++ describe.lisp 19 Dec 2004 18:57:46 -0000 1.67 @@ -43,7 +43,7 @@ (or (eq t *apropos-do-more*) (memq what *apropos-do-more*))) (defun apropos (string &optional (package nil)) - (dolist (sym (apropos-list string package) (terpri)) + (dolist (sym (apropos-list string package) (fresh-line)) (format t "~&~s~40t" sym) (when (fboundp sym) (write-string " ") Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.3970 retrieving revision 1.3971 diff -u -d -r1.3970 -r1.3971 --- ChangeLog 19 Dec 2004 18:45:00 -0000 1.3970 +++ ChangeLog 19 Dec 2004 18:57:46 -0000 1.3971 @@ -1,5 +1,10 @@ 2004-12-19 Sam Steingold <sd...@gn...> + * describe.lisp (apropos): finish with FRESH-LINE instead of + TERPRI to avoid extra vertical space when nothing is found + +2004-12-19 Sam Steingold <sd...@gn...> + * pathname.d (test_optional_host): :UNSPECIFIC means NIL because USER-HOMEDIR-PATHNAME is required to accept :UNSPECIFIC as argument --__--__-- _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest |