Thread: clisp-cvs Digest, Vol 55, Issue 9

SourceForge Headquarters 1320 Columbia Street Suite 310 San Diego, CA 92101 +1 (858) 422-6466

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/unix INSTALL,1.53,1.54 (Sam Steingold)
   2. clisp/src ChangeLog, 1.7578, 1.7579 constsym.d, 1.398, 1.399
      stream.d,	1.692, 1.693 subr.d, 1.280, 1.281 subrkw.d, 1.72, 1.73
      (Sam Steingold)


----------------------------------------------------------------------

Message: 1
Date: Fri, 26 Nov 2010 17:03:20 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/unix INSTALL,1.53,1.54
To: cli...@li...
Message-ID: <E1P...@sf...>

Update of /cvsroot/clisp/clisp/unix
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv4042

Modified Files:
	INSTALL 
Log Message:
typo


Index: INSTALL
===================================================================
RCS file: /cvsroot/clisp/clisp/unix/INSTALL,v
retrieving revision 1.53
retrieving revision 1.54
diff -u -d -r1.53 -r1.54

--- INSTALL	14 Sep 2010 18:28:42 -0000	1.53
+++ INSTALL	26 Nov 2010 17:03:18 -0000	1.54
@@ -287,7 +287,7 @@
    E. Module selection: we recommend distributing at least asdf, rawsock, and
       wildcard, which have no external dependencies, i.e., modules "clisp-asdf",
       "clisp-rawsock", and "clisp-wildcard" depend only on "clisp".
-      Moreover, they can be bundled with "clisp" into a single module.
+      Moreover, they can be bundled with "clisp" into a single package.
    See also <http://clisp.cons.org/impnotes/modules.html#base-modules>
    and "./configure --help-modules".
 




------------------------------

Message: 2
Date: Fri, 26 Nov 2010 17:12:19 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src ChangeLog, 1.7578, 1.7579 constsym.d, 1.398, 1.399
	stream.d,	1.692, 1.693 subr.d, 1.280, 1.281 subrkw.d, 1.72, 1.73
To: cli...@li...
Message-ID: <E1P...@sf...>

Update of /cvsroot/clisp/clisp/src
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv6537/src

Modified Files:
	ChangeLog constsym.d stream.d subr.d subrkw.d 
Log Message:
* src/constsym.d, src/subr.d, src/subrkw.d, src/stream.d
(make_stream, stream_handles): define even when SOCKET_STREAMS is not defined


Index: subrkw.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/subrkw.d,v
retrieving revision 1.72
retrieving revision 1.73
diff -u -d -r1.72 -r1.73
--- subrkw.d	30 Oct 2010 21:02:59 -0000	1.72
+++ subrkw.d	26 Nov 2010 17:12:17 -0000	1.73
@@ -1,7 +1,7 @@
 /*
  * List of all the SUBRs with Keywords
  * Bruno Haible 1990-2004
- * Sam Steingold 1998-2009
+ * Sam Steingold 1998-2010
  */
 
 v(7, (kw(adjustable),kw(element_type),kw(initial_element),
@@ -201,11 +201,11 @@
 v(4, (kw(element_type),kw(external_format),kw(buffered),kw(timeout)) )
 s(socket_accept)
 s(socket_connect)
-v(4, (kw(direction),kw(element_type),kw(external_format),kw(buffered)) )
-s(make_stream)
 v(2, (kw(backlog),kw(interface)) )
 s(socket_server)
 #endif
+v(4, (kw(direction),kw(element_type),kw(external_format),kw(buffered)) )
+s(make_stream)
 v(1, (kw(abort)) )
 s(built_in_stream_close)
 #ifdef DYNAMIC_FFI

Index: subr.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/subr.d,v
retrieving revision 1.280
retrieving revision 1.281
diff -u -d -r1.280 -r1.281
--- subr.d	14 Nov 2010 16:02:41 -0000	1.280
+++ subr.d	26 Nov 2010 17:12:17 -0000	1.281
@@ -1,7 +1,7 @@
 /*
  * list of all SUBRs
  * Bruno Haible 1990-2006
- * Sam Steingold 1998-2009
+ * Sam Steingold 1998-2010
 
  A C-compiled LISP-function is defined by a declaration
  LISPFUN(name,seclass,req_count,opt_count,rest_flag,key_flag,key_count,keywords)
@@ -1226,10 +1226,10 @@
 #ifdef HAVE_SHUTDOWN
 LISPFUNN(socket_stream_shutdown,2)
 #endif
+#endif
 LISPFUN(make_stream,seclass_default,1,0,norest,key,4,
         (kw(direction),kw(element_type),kw(external_format),kw(buffered)) )
 LISPFUNN(stream_handles,1)
-#endif
 LISPFUNNR(built_in_stream_open_p,1)
 LISPFUNNR(input_stream_p,1)
 LISPFUNNR(output_stream_p,1)

Index: constsym.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/constsym.d,v
retrieving revision 1.398
retrieving revision 1.399
diff -u -d -r1.398 -r1.399
--- constsym.d	25 Nov 2010 17:03:48 -0000	1.398
+++ constsym.d	26 Nov 2010 17:12:17 -0000	1.399
@@ -1008,9 +1008,9 @@
 #ifdef HAVE_SHUTDOWN
 LISPSYM(socket_stream_shutdown,"SOCKET-STREAM-SHUTDOWN",socket)
 #endif
+#endif
 LISPSYM(make_stream,"MAKE-STREAM",ext)
 LISPSYM(stream_handles,"STREAM-HANDLES",ext)
-#endif
 LISPSYM(built_in_stream_open_p,"BUILT-IN-STREAM-OPEN-P",system)
 LISPSYM(input_stream_p,"INPUT-STREAM-P",lisp)
 LISPSYM(output_stream_p,"OUTPUT-STREAM-P",lisp)

Index: stream.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/stream.d,v
retrieving revision 1.692
retrieving revision 1.693
diff -u -d -r1.692 -r1.693
--- stream.d	21 Oct 2010 18:42:17 -0000	1.692
+++ stream.d	26 Nov 2010 17:12:17 -0000	1.693
@@ -14806,14 +14806,6 @@
   publish_host_data (&socket_getlocalname);
 }
 
-LISPFUNN(stream_handles,1)
-{ /* (STREAM-HANDLES stream) */
-  var SOCKET in_sock=INVALID_SOCKET, out_sock=INVALID_SOCKET;
-  stream_handles(popSTACK(),false,NULL,&in_sock,&out_sock);
-  VALUES2(in_sock  == INVALID_SOCKET ? NIL : fixnum(in_sock),
-          out_sock == INVALID_SOCKET ? NIL : fixnum(out_sock));
-}
-
 #ifdef HAVE_SHUTDOWN
 
 /* close a socket stream using shutdown(2)
@@ -15073,6 +15065,14 @@
   return make_file_stream(dir,false,dir == DIRECTION_IO);
 }
 
+LISPFUNN(stream_handles,1)
+{ /* (STREAM-HANDLES stream) */
+  var SOCKET in_sock=INVALID_SOCKET, out_sock=INVALID_SOCKET;
+  stream_handles(popSTACK(),false,NULL,&in_sock,&out_sock);
+  VALUES2(in_sock  == INVALID_SOCKET ? NIL : fixnum(in_sock),
+          out_sock == INVALID_SOCKET ? NIL : fixnum(out_sock));
+}
+
 LISPFUN(make_stream,seclass_default,1,0,norest,key,4,
         (kw(direction),kw(element_type),kw(external_format),kw(buffered)) )
 {

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.7578
retrieving revision 1.7579
diff -u -d -r1.7578 -r1.7579
--- ChangeLog	25 Nov 2010 17:03:48 -0000	1.7578
+++ ChangeLog	26 Nov 2010 17:12:17 -0000	1.7579
@@ -1,3 +1,8 @@
+2010-11-26  Sam Steingold  <sd...@gn...>
+
+	* constsym.d, subr.d, subrkw.d, stream.d (make_stream, stream_handles):
+	define even when SOCKET_STREAMS is not defined
+
 2010-11-25  Sam Steingold  <sd...@gn...>
 
 	* init.lisp, constsym.d (stream-handles): move from SOCKET to EXT




------------------------------

------------------------------------------------------------------------------
Increase Visibility of Your 3D Game App & Earn a Chance To Win $500!
Tap into the largest installed PC base & get more eyes on your game by
optimizing for Intel(R) Graphics Technology. Get started today with the
Intel(R) Software Partner Program. Five $500 cash prizes are up for grabs.
http://p.sf.net/sfu/intelisp-dev2dev

------------------------------

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


End of clisp-cvs Digest, Vol 55, Issue 9
****************************************




Thread: clisp-cvs Digest, Vol 55, Issue 9

clisp-devel