clisp-cvs digest, Vol 1 #713 - 2 msgs

[<cli...@li...>]

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 describe.lisp,1.53,1.54 ChangeLog,1.3589,1.3590 (Sam Steingold)
   2. clisp/src pathname.d,1.336,1.337 ChangeLog,1.3590,1.3591 (Sam Steingold)

--__--__--

Message: 1
From: Sam Steingold <sd...@us...>
To: cli...@li...
Subject: clisp/src describe.lisp,1.53,1.54 ChangeLog,1.3589,1.3590
Date: Thu, 23 Sep 2004 17:12:37 +0000
Reply-To: cli...@li...

Update of /cvsroot/clisp/clisp/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25196/src

Modified Files:
	describe.lisp ChangeLog 
Log Message:
(describe-object): fixed bignum/fixnum classification


Index: describe.lisp
===================================================================
RCS file: /cvsroot/clisp/clisp/src/describe.lisp,v
retrieving revision 1.53
retrieving revision 1.54
diff -u -d -r1.53 -r1.54
--- describe.lisp	20 Sep 2004 14:53:37 -0000	1.53
+++ describe.lisp	23 Sep 2004 17:12:30 -0000	1.54
@@ -274,7 +274,7 @@
                 moree))
       (dolist (zz (nreverse mored)) (describe zz stream))))
   (:method ((obj integer) (stream stream))
-    (format stream (TEXT "an integer, uses ~S bit~:p, is represented as a ~:[fixnum~;bignum~].")
+    (format stream (TEXT "an integer, uses ~S bit~:p, is represented as a ~:[bignum~;fixnum~].")
             (integer-length obj) (sys::fixnump obj)))
   (:method ((obj ratio) (stream stream))
     (format stream (TEXT "a rational, not integral number.")))

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.3589
retrieving revision 1.3590
diff -u -d -r1.3589 -r1.3590
--- ChangeLog	23 Sep 2004 15:03:10 -0000	1.3589
+++ ChangeLog	23 Sep 2004 17:12:30 -0000	1.3590
@@ -1,3 +1,8 @@
+2004-09-23  Sam Steingold  <sd...@gn...>
+
+	* describe.lisp (describe-object): fixed bignum/fixnum classification
+	Reported by Jörg Höhle
+
 2004-09-23  Bruno Haible  <br...@cl...>
 
 	* sequence.d (REVERSE): Fix wrong index check when the argument is a



--__--__--

Message: 2
From: Sam Steingold <sd...@us...>
To: cli...@li...
Subject: clisp/src pathname.d,1.336,1.337 ChangeLog,1.3590,1.3591
Date: Thu, 23 Sep 2004 21:27:42 +0000
Reply-To: cli...@li...

Update of /cvsroot/clisp/clisp/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18698/src

Modified Files:
	pathname.d ChangeLog 
Log Message:
(DEFAULT_VERSION): since all pathnames returned by DIRECTORY
must be truenames, DEFAULT_VERSION must be :NEWEST


Index: pathname.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/pathname.d,v
retrieving revision 1.336
retrieving revision 1.337
diff -u -d -r1.336 -r1.337
--- pathname.d	23 Sep 2004 13:09:15 -0000	1.336
+++ pathname.d	23 Sep 2004 21:27:28 -0000	1.337
@@ -6852,8 +6852,9 @@
 #endif
 
 /* the version of files returned by DIRECTORY
- if it is :NEWEST, they will not be printable readably! */
-#define DEFAULT_VERSION  NIL
+ Since all pathnames returned by DIRECTORY must be truenames,
+ this must be :NEWEST [but then they will not be printable readably!] */
+#define DEFAULT_VERSION  S(Knewest)
 
 /* Scans an entire directory.
  directory_search_scandir(recursively,next_task);

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.3590
retrieving revision 1.3591
diff -u -d -r1.3590 -r1.3591
--- ChangeLog	23 Sep 2004 17:12:30 -0000	1.3590
+++ ChangeLog	23 Sep 2004 21:27:38 -0000	1.3591
@@ -1,5 +1,10 @@
 2004-09-23  Sam Steingold  <sd...@gn...>
 
+	* pathname.d (DEFAULT_VERSION): since all pathnames returned by
+	DIRECTORY must be truenames, DEFAULT_VERSION must be :NEWEST
+
+2004-09-23  Sam Steingold  <sd...@gn...>
+
 	* describe.lisp (describe-object): fixed bignum/fixnum classification
 	Reported by Jörg Höhle
 




--__--__--

_______________________________________________
clisp-cvs mailing list
cli...@li...
https://lists.sourceforge.net/lists/listinfo/clisp-cvs


End of clisp-cvs Digest