Send clisp-cvs mailing list submissions to
clisp-cvs@...
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
clisp-cvs-request@...
You can reach the person managing the list at
clisp-cvs-owner@...
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 ChangeLog, 1.6896, 1.6897 constsym.d, 1.383, 1.384
zthread.d, 1.52, 1.53 (Vladimir Tzankov)
2. clisp/doc impext.xml,1.584,1.585 (Sam Steingold)
----------------------------------------------------------------------
Message: 1
Date: Thu, 18 Jun 2009 20:49:58 +0000
From: Vladimir Tzankov <vtz@...>
Subject: clisp/src ChangeLog, 1.6896, 1.6897 constsym.d, 1.383, 1.384
zthread.d, 1.52, 1.53
To: clisp-cvs@...
Message-ID: <E1MHOYY-0005V3-DR@...>
Update of /cvsroot/clisp/clisp/src
In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv21078/src
Modified Files:
ChangeLog constsym.d zthread.d
Log Message:
[MULTITHREAD]: use CL:MAKUNBOUND instead of :UNBOUND (removed)
Index: zthread.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/zthread.d,v
retrieving revision 1.52
retrieving revision 1.53
diff -u -d -r1.52 -r1.53
--- zthread.d 18 Jun 2009 20:06:13 -0000 1.52
+++ zthread.d 18 Jun 2009 20:49:56 -0000 1.53
@@ -531,7 +531,7 @@
if (!symval) {
VALUES2(NIL,NIL); /* not bound */
} else if (eq(unbound,*symval)) {
- VALUES2(NIL,S(Kunbound)); /* was bound but later makunbound-ed */
+ VALUES2(NIL,S(makunbound)); /* was bound but later makunbound-ed */
} else {
VALUES2(*symval,T); /* bound */
}
Index: constsym.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/constsym.d,v
retrieving revision 1.383
retrieving revision 1.384
diff -u -d -r1.383 -r1.384
--- constsym.d 17 Jun 2009 18:07:13 -0000 1.383
+++ constsym.d 18 Jun 2009 20:49:56 -0000 1.384
@@ -1220,7 +1220,6 @@
LISPSYM(Kcstack_size,"CSTACK-SIZE",keyword)
LISPSYM(Kvstack_size,"VSTACK-SIZE",keyword)
LISPSYM(Krecursive_p,"RECURSIVE-P",keyword)
-LISPSYM(Kunbound,"UNBOUND",keyword) /* :UNBOUND for SYMBOL-VALUE-THREAD */
#ifndef SOCKET_STREAMS
#error MULTITHREAD requires SOCKET_STREAMS
/* actually two things are needed: :TIMEOUT and sec_usec() function from
Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.6896
retrieving revision 1.6897
diff -u -d -r1.6896 -r1.6897
--- ChangeLog 18 Jun 2009 20:06:13 -0000 1.6896
+++ ChangeLog 18 Jun 2009 20:49:56 -0000 1.6897
@@ -1,5 +1,12 @@
2009-06-18 Vladimir Tzankov <vtzankov@...>
+ [MULTITHREAD]: use CL:MAKUNBOUND instead of :UNBOUND (removed)
+ * zthread.d (SYMBOL-VALUE-THREAD): use CL:MAKUNBOUND instead of :UNBOUND
+ as second return value
+ * constsym.d (:UNBOUND): remove
+
+2009-06-18 Vladimir Tzankov <vtzankov@...>
+
[MULTITHREAD]: fix possible deadlock in SYMBOL-VALUE-THREAD
* zthread.d (thread_symbol_place): do not check arguments. it is called
when all_threads lock is held and if GC occurs we will get deadlock
------------------------------
Message: 2
Date: Thu, 18 Jun 2009 21:33:47 +0000
From: Sam Steingold <sds@...>
Subject: clisp/doc impext.xml,1.584,1.585
To: clisp-cvs@...
Message-ID: <E1MHPEx-00077v-9Q@...>
Update of /cvsroot/clisp/clisp/doc
In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv27389
Modified Files:
impext.xml
Log Message:
use &external-k;
Index: impext.xml
===================================================================
RCS file: /cvsroot/clisp/clisp/doc/impext.xml,v
retrieving revision 1.584
retrieving revision 1.585
diff -u -d -r1.584 -r1.585
--- impext.xml 18 Jun 2009 20:44:00 -0000 1.584
+++ impext.xml 18 Jun 2009 21:33:45 -0000 1.585
@@ -2949,8 +2949,7 @@
<listitem><simpara>means that the name of this structure is a
&c-lang; type defined with <function>typedef</function>
elsewhere.</simpara></listitem></varlistentry>
- <varlistentry id="def-c-struct-external">
- <term><constant>:EXTERNAL</constant></term>
+ <varlistentry id="def-c-struct-external"><term>&external-k;</term>
<listitem><simpara>means that this structure is defined in a
&c-lang; header file that you include with, e.g.,
<code>(&c-lines; "#include <filename.h>~%")</code>.
------------------------------
------------------------------------------------------------------------------
Crystal Reports - New Free Runtime and 30 Day Trial
Check out the new simplified licensing option that enables unlimited
royalty-free distribution of the report engine for externally facing
server and web deployment.
http://p.sf.net/sfu/businessobjects
------------------------------
_______________________________________________
clisp-cvs mailing list
clisp-cvs@...
https://lists.sourceforge.net/lists/listinfo/clisp-cvs
End of clisp-cvs Digest, Vol 38, Issue 26
*****************************************
|