Menu
▾
▴
clisp-cvs digest, Vol 1 #1142 - 13 msgs
|
From: <cli...@li...> - 2005-06-22 21:17:22
|
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/doc mop.xml,2.55,2.56 (Sam Steingold) 2. clisp/tests path.tst,1.57,1.58 ChangeLog,1.381,1.382 (Sam Steingold) 3. www impnotes.css,1.2,1.3 (Sam Steingold) 4. clisp/doc impent.xml,1.220,1.221 (Sam Steingold) 5. clisp/doc mop.xml,2.56,2.57 (Sam Steingold) 6. clisp/doc impext.xml,1.353,1.354 (Sam Steingold) 7. clisp/src subr.d,1.208,1.209 constsym.d,1.305,1.306 foreign1.lisp,1.85,1.86 foreign.d,1.140,1.141 ChangeLog,1.4718,1.4719 (Jörg Höhle) 8. clisp/src TODO,1.102,1.103 (Sam Steingold) 9. clisp/src foreign1.lisp,1.86,1.87 ChangeLog,1.4719,1.4720 (Sam Steingold) 10. clisp/src TODO,1.103,1.104 (Sam Steingold) 11. clisp/tests bind.tst,1.11,1.12 ChangeLog,1.382,1.383 (Sam Steingold) 12. clisp/tests tests.lisp,1.62,1.63 ChangeLog,1.383,1.384 (Sam Steingold) 13. clisp/tests ChangeLog,1.384,1.385 (Sam Steingold) --__--__-- Message: 1 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/doc mop.xml,2.55,2.56 Date: Wed, 22 Jun 2005 14:41:58 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14348/doc Modified Files: mop.xml Log Message: document compile-file ui macro processing in CLISP Index: mop.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/mop.xml,v retrieving revision 2.55 retrieving revision 2.56 diff -u -d -r2.55 -r2.56 --- mop.xml 21 Jun 2005 17:30:31 -0000 2.55 +++ mop.xml 22 Jun 2005 14:41:54 -0000 2.56 @@ -628,8 +628,8 @@ &clisp; issues a &warning-t; that the redefinition has no effect. To avoid this warning, place all metaobject class definitions in a separate file, compile it in a <emphasis>separate</emphasis> session - (because &defclass; in &clisp; is evaluated at &compile-time; too - see <xref linkend="mop-compile-ui-macro"/>), + (because &defclass; in &clisp; is evaluated at &compile-time; too; + see <xref linkend="mop-ov-ui-others"/>), and then &load; it only <emphasis>once</emphasis> per session. </simpara></note></listitem></itemizedlist> </para>&else-undefined; @@ -764,14 +764,19 @@ <section id="mop-ov-ui-others"> <title>Compile-file Processing of Specific User Interface Macros</title> <variablelist><varlistentry><term>&defclass;</term> - <listitem><simpara><xref linkend="mop-cl-defclass"/> - </simpara></listitem></varlistentry> + <listitem><simpara><xref linkend="mop-cl-defclass"/></simpara> + <note>&clisp-only;<para>&clisp; evaluates &defclass; forms also at + &compile-time;.</para></note></listitem></varlistentry> <varlistentry><term>&defmethod;</term> - <listitem><simpara><xref linkend="mop-meth-init-defmethod"/> - </simpara></listitem></varlistentry> + <listitem><simpara><xref linkend="mop-meth-init-defmethod"/></simpara> + <note>&clisp-only;<para>&clisp; does ¬-e; evaluate &defmethod; + forms at &compile-time; except as necessary for signature checking. + </para></note></listitem></varlistentry> <varlistentry><term>&defgeneric;</term> - <listitem><simpara><xref linkend="mop-gf-init-defgeneric"/> -</simpara></listitem></varlistentry></variablelist> + <listitem><simpara><xref linkend="mop-gf-init-defgeneric"/></simpara> + <note>&clisp-only;<para>&clisp; does ¬-e; evaluate &defgeneric; + forms at &compile-time; except as necessary for signature checking. +</para></note></listitem></varlistentry></variablelist> </section><!-- mop-ov-ui-others --> </section><!-- mop-ui-macro --> --__--__-- Message: 2 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/tests path.tst,1.57,1.58 ChangeLog,1.381,1.382 Date: Wed, 22 Jun 2005 14:42:47 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14840/tests Modified Files: path.tst ChangeLog Log Message: check that the "SYS" logical host works Index: path.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/path.tst,v retrieving revision 1.57 retrieving revision 1.58 diff -u -d -r1.57 -r1.58 --- path.tst 10 Jun 2005 10:36:28 -0000 1.57 +++ path.tst 22 Jun 2005 14:42:44 -0000 1.58 @@ -1006,3 +1006,7 @@ #+CLISP #S(LOGICAL-PATHNAME :HOST "SYS" :DEVICE NIL :DIRECTORY (:ABSOLUTE) :NAME "FOO" :TYPE "FAS" :VERSION :NEWEST) #-CLISP UNKNOWN + +(translate-logical-pathname (logical-pathname "SYS:FOO.LISP")) +#+CLISP #p"/foo.lisp" +#-CLISP UNKNOWN Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/tests/ChangeLog,v retrieving revision 1.381 retrieving revision 1.382 diff -u -d -r1.381 -r1.382 --- ChangeLog 10 Jun 2005 10:45:53 -0000 1.381 +++ ChangeLog 22 Jun 2005 14:42:44 -0000 1.382 @@ -1,3 +1,7 @@ +2005-06-22 Sam Steingold <sd...@gn...> + + * path.tst: check that the "SYS" logical host works + 2005-06-09 Bruno Haible <br...@cl...> * conditions.tst: Mark a test as clisp-only. --__--__-- Message: 3 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: www impnotes.css,1.2,1.3 Date: Wed, 22 Jun 2005 14:50:14 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/www In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19729 Modified Files: impnotes.css Log Message: sync with the source tree Index: impnotes.css =================================================================== RCS file: /cvsroot/clisp/www/impnotes.css,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- impnotes.css 14 May 2004 14:24:21 -0000 1.2 +++ impnotes.css 22 Jun 2005 14:50:12 -0000 1.3 @@ -4,6 +4,7 @@ * Covered by the GNU GPL <http://www.gnu.org/copyleft/gpl.html> */ + body { background-color: white; color: black; } /* reduce the whitespace (see also clisp.css) */ @@ -11,16 +12,23 @@ td p { margin: 0pt; } dd p { margin: 0pt; } -/* mark sexps with color */ -.sexp { background-color: lightgray; color: darkblue; } +/* mark code with color */ +.code, .programlisting, .screen +{ background-color: lightgray; color: darkblue; } + +/* mark methods with color - same background as type! */ +.method +{ background-color: lightcyan; color: darkblue; } /* literal data */ -.data { background-color: lightblue; color: darkred; } +.computeroutput, .returnvalue, .data +{ background-color: lightblue; color: darkred; } /* bytecode instructions */ -.byte { background-color: lightgray; color: darkred; } +.byte +{ background-color: lightgray; color: darkred; } -/* mark types with color */ +/* mark types with color - same background as method! */ .type, .classname, .superclass { background-color: lightcyan; color: darkgreen; } @@ -29,4 +37,28 @@ { background-color: lightgreen; color: navy; } /* no border for images */ -img { border-width: 0; } +img +{ border-width: 0; } + +/* epigraph: flush right, large left margin */ +.epigraph +{ text-align: right; margin-left: 50%; } + +/* larger headings: + (loop :for i :from 1 :to 6 :do + (format t "h~d { font-size: ~d%; }~%" + i (round (expt 1.1 (- 7 i)) 1d-2))) */ +h1 { font-size: 177%; } +h2 { font-size: 161%; } +h3 { font-size: 146%; } +h4 { font-size: 133%; } +h5 { font-size: 121%; } +h6 { font-size: 110%; } + +/* necessary when <programlisting> is in a centered table cell */ +.programlisting +{ text-align: left; } + +/* platform dependencies */ +.plat-dep +{ background-color: lightcyan; color: darkred; } --__--__-- Message: 4 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/doc impent.xml,1.220,1.221 Date: Wed, 22 Jun 2005 15:00:36 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25667 Modified Files: impent.xml Log Message: (sds): removed honorific, for uniformity Index: impent.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/impent.xml,v retrieving revision 1.220 retrieving revision 1.221 diff -u -d -r1.220 -r1.221 --- impent.xml 16 Jun 2005 19:43:44 -0000 1.220 +++ impent.xml 22 Jun 2005 15:00:33 -0000 1.221 @@ -8,7 +8,7 @@ <!ENTITY bruno "<author><firstname>Bruno</firstname><surname>Haible</surname><address><otheraddr><ulink url='http://www.haible.de/bruno/'/></otheraddr></address></author>"> <!ENTITY gilbert-baumann "<author><firstname>Gilbert</firstname><surname>Baumann</surname><address><otheraddr><ulink url='http://www.uni-karlsruhe.de/~unk6/'/></otheraddr></address><email>un...@rz...</email></author>"> <!ENTITY hin "<author><firstname>John</firstname><surname>Hinsdale</surname><address><otheraddr><ulink url='http://www.alma.com/staff/hin'/></otheraddr></address><email>hi...@al...</email></author>"> -<!ENTITY sds "<author><honorific>Dr</honorific><firstname>Sam</firstname><surname>Steingold</surname><address><otheraddr><ulink url='http://www.podval.org/~sds/'/></otheraddr></address></author>"> +<!ENTITY sds "<author><firstname>Sam</firstname><surname>Steingold</surname><address><otheraddr><ulink url='http://www.podval.org/~sds/'/></otheraddr></address></author>"> <!ENTITY stoll "<author><firstname>Michael</firstname><surname>Stoll</surname><address><otheraddr><ulink url='http://www.math.iu-bremen.de/stoll/'/></otheraddr></address></author>"> <!-- *** platforms *** --> --__--__-- Message: 5 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/doc mop.xml,2.56,2.57 Date: Wed, 22 Jun 2005 15:01:52 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26251/doc Modified Files: mop.xml Log Message: funcallable-standard-instance-access is like standard-instance-access Index: mop.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/mop.xml,v retrieving revision 2.56 retrieving revision 2.57 diff -u -d -r2.56 -r2.57 --- mop.xml 22 Jun 2005 14:41:54 -0000 2.56 +++ mop.xml 22 Jun 2005 15:01:47 -0000 2.57 @@ -4857,8 +4857,8 @@ <title>Function &standard-instance-access;</title> <variablelist><varlistentry><term>Syntax</term> - <listitem><simpara><code>(&standard-instance-access; &instance-r; - &location-r;)</code></simpara></listitem></varlistentry> + <listitem><simpara><code>(&standard-instance-access; + &instance-r; &location-r;)</code></simpara></listitem></varlistentry> <varlistentry><term>Arguments</term> <listitem><variablelist> <varlistentry><term>&instance-r;</term> @@ -4875,18 +4875,16 @@ this function is intended to provide highly optimized access to the slots associated with an instance.</simpara> <para>The following restrictions apply to the use of this function: - <itemizedlist> - <listitem><simpara>The &instance-r; argument must be a standard - instance (it must have been returned by + <itemizedlist><listitem><simpara>The &instance-r; argument must be a + standard instance (it must have been returned by <literal role="method">&allocate-instance;(&standard-class;)</literal>). </simpara></listitem> <listitem><simpara>The &instance-r; argument cannot be an non-updated obsolete instance.</simpara></listitem> <listitem><simpara>The &location-r; argument must be a location of one of the directly accessible slots of the instance's class. - </simpara></listitem> - <listitem><simpara>The slot must be bound.</simpara></listitem> - </itemizedlist></para> + </simpara></listitem><listitem><simpara>The slot must be bound. + </simpara></listitem></itemizedlist></para> &else-undefined;</listitem></varlistentry></variablelist> <note>&clisp-only;<simpara>The second and third restrictions do not @@ -4906,8 +4904,8 @@ <varlistentry><term>&instance-r;</term> <listitem><simpara>an object</simpara></listitem></varlistentry> <varlistentry><term>&location-r;</term> - <listitem><simpara>a slot location -</simpara></listitem></varlistentry></variablelist></listitem></varlistentry> + <listitem><simpara>a slot location</simpara></listitem></varlistentry> +</variablelist></listitem></varlistentry> <varlistentry><term>Values</term> <listitem><simpara>The result of this function is an object. </simpara></listitem></varlistentry> @@ -4926,7 +4924,7 @@ <listitem><simpara>The &location-r; argument must be a location of one of the directly accessible slots of the instance's class. </simpara></listitem><listitem><simpara>The slot must be bound. - </simpara></listitem></itemizedlist></para> + </simpara></listitem></itemizedlist></para> &else-undefined;</listitem></varlistentry></variablelist> <note>&clisp-only;<simpara>The second and third restrictions do not @@ -5492,9 +5490,9 @@ </para></listitem> <listitem><para>The generic function &ensure-gf-UC; accepts a &declare-k; keyword.</para></listitem> -<listitem><para>The function &standard-instance-access; supports - non-updated obsolete instances and also supports slots with allocation - &class-k;.</para></listitem> +<listitem><para>The functions &funcallable-standard-instance-access; and + &standard-instance-access; support non-updated obsolete instances and + also support slots with allocation &class-k;.</para></listitem> <listitem><para>The existence of the &class-direct-subclasses; function does not prevent otherwise unreferenced classes from being &gc;ed. </para></listitem> --__--__-- Message: 6 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/doc impext.xml,1.353,1.354 Date: Wed, 22 Jun 2005 15:35:44 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10745/doc Modified Files: impext.xml Log Message: minor formatting clean-up Index: impext.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/impext.xml,v retrieving revision 1.353 retrieving revision 1.354 diff -u -d -r1.353 -r1.354 --- impext.xml 16 Jun 2005 16:06:01 -0000 1.353 +++ impext.xml 22 Jun 2005 15:35:41 -0000 1.354 @@ -2247,13 +2247,14 @@ <varlistentry><term>queens</term> <listitem><simpara>Compute the number of solutions to the &n-r;-queens problem on a <replaceable>n*n</replaceable> checkboard (a toy - example for the users to explore).</simpara></listitem></varlistentry> + example for the users to explore the &clisp; &module; system). + </simpara></listitem></varlistentry> <varlistentry><term><link linkend="dir-key">dirkey</link></term> <listitem><simpara>Directory Access (LDAP, &win32; registry etc). </simpara></listitem></varlistentry> <varlistentry><term><link linkend="berkeley-db">berkeley-db</link></term> - <listitem><simpara>&sleepycat-berkeley-db; - interface</simpara></listitem></varlistentry> + <listitem><simpara>&sleepycat-berkeley-db; interface. + </simpara></listitem></varlistentry> <varlistentry><term><link linkend="regexp-mod">regexp</link></term> <listitem><simpara>The <ulink url="regexp.html">POSIX Regular Expressions</ulink> matching, compiling, executing. @@ -2272,11 +2273,10 @@ <listitem><simpara>Use some system calls in a platform-independent way. See <xref linkend="base-modules"/>.</simpara></listitem></varlistentry> <varlistentry><term><link linkend="wildcard">wildcard</link></term> - <listitem><simpara>Shell (&sh;) globbing (&path-match;) + <listitem><simpara>Shell (&sh;) globbing (&path-match;). </simpara></listitem></varlistentry> <varlistentry><term><link linkend="rawsock">rawsock</link></term> - <listitem><simpara>Raw socket access. - </simpara></listitem></varlistentry> + <listitem><simpara>Raw socket access.</simpara></listitem></varlistentry> <varlistentry><term><link linkend="zlib">zlib</link></term> <listitem><simpara>Compress &vector-t;s using <ulink url="http://www.zlib.org">ZLIB</ulink>. @@ -2285,13 +2285,12 @@ <para>To use modules, read <filename>unix/INSTALL</filename> and build &clisp; in directory <filename>build-dir</filename> with, e.g.,<screen> -<prompt>$</prompt> ./configure --with-module=pcre --with-module=clx/new-clx --build build-dir -</screen>then run it with<screen> -<prompt>$</prompt> ./build-dir/clisp &opt-K; full - </screen>This will create a &base; &linkset; with modules - i18n, regexp and syscalls; and a &full; &linkset; with modules - pcre and new/clx in addition to the 3 - <link linkend="base-modules">base modules</link>.</para> + <prompt>$</prompt> ./configure --with-module=pcre --with-module=clx/new-clx --build build-dir +</screen>then run it with +<screen><prompt>$</prompt> ./build-dir/clisp &opt-K; full</screen> +This will create a &base; &linkset; with modules i18n, regexp and +syscalls; and a &full; &linkset; with modules pcre and new/clx in +addition to the 3 <link linkend="base-modules">base modules</link>.</para> <para>See <xref linkend="ext-modules"/> for individual module documentation.</para> --__--__-- Message: 7 From: Jörg Höhle <ho...@us...> To: cli...@li... Subject: clisp/src subr.d,1.208,1.209 constsym.d,1.305,1.306 foreign1.lisp,1.85,1.86 foreign.d,1.140,1.141 ChangeLog,1.4718,1.4719 Date: Wed, 22 Jun 2005 16:41:59 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15528/src Modified Files: subr.d constsym.d foreign1.lisp foreign.d ChangeLog Log Message: Add ffi:memory-as low-level accessor Index: subr.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/subr.d,v retrieving revision 1.208 retrieving revision 1.209 diff -u -d -r1.208 -r1.209 --- subr.d 30 May 2005 13:07:54 -0000 1.208 +++ subr.d 22 Jun 2005 16:41:45 -0000 1.209 @@ -1385,6 +1385,8 @@ LISPFUNN(slot,2) LISPFUNN(cast,2) LISPFUNN(offset,3) +LISPFUN(read_memory_as,seclass_default,2,1,norest,nokey,0,NIL) +LISPFUN(write_memory_as,seclass_default,3,1,norest,nokey,0,NIL) LISPFUN(exec_on_stack,seclass_default,2,1,norest,nokey,0,NIL) LISPFUNN(call_with_foreign_string,6) LISPFUN(foreign_allocate,seclass_default,1,0,norest,key,3, Index: constsym.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/constsym.d,v retrieving revision 1.305 retrieving revision 1.306 diff -u -d -r1.305 -r1.306 --- constsym.d 30 May 2005 13:25:54 -0000 1.305 +++ constsym.d 22 Jun 2005 16:41:51 -0000 1.306 @@ -1172,6 +1172,8 @@ LISPSYM(slot,"%SLOT",ffi) /* ABI */ LISPSYM(cast,"%CAST",ffi) /* ABI */ LISPSYM(offset,"%OFFSET",ffi) /* ABI */ +LISPSYM(read_memory_as,"MEMORY-AS",ffi) /* ABI */ +LISPSYM(write_memory_as,"WRITE-MEMORY-AS",ffi) LISPSYM(exec_on_stack,"EXEC-ON-STACK",ffi) /* ABI */ LISPSYM(call_with_foreign_string,"CALL-WITH-FOREIGN-STRING",ffi) LISPSYM(foreign_allocate,"FOREIGN-ALLOCATE",ffi) Index: foreign.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/foreign.d,v retrieving revision 1.140 retrieving revision 1.141 diff -u -d -r1.140 -r1.141 --- foreign.d 7 Jun 2005 10:57:54 -0000 1.140 +++ foreign.d 22 Jun 2005 16:41:51 -0000 1.141 @@ -2766,6 +2766,41 @@ skipSTACK(3+1); } +/* Low-level, little consing accessors */ + +/* (FFI:MEMORY-AS address ffi-type &optional byte-offset) + a low-level, little-consing accessor to memory, in effect + similar to (foreign-value (foreign-variable address type)) */ +LISPFUN(read_memory_as,seclass_default,2,1,norest,nokey,0,NIL) +{ + /* TODO accept foreign_pointer as well, without consing */ + /* TODO refuse foreign-function */ + var object fp = foreign_address(STACK_2,false); + var void* address = Faddress_value(fp); + if (!missingp(STACK_0)) { + STACK_0 = check_sint32(STACK_0); + address = (void*)((uintP)address + (sintP)I_to_sint32(STACK_0)); + } + /* TODO asciz_to_string is not suitable for unicode */ + var object item = eq(STACK_1,S(string)) + ? asciz_to_string((uintB*)address,O(foreign_encoding)) + : convert_from_foreign(STACK_1,address); + VALUES1(item); skipSTACK(3); +} + +/* (FFI::WRITE-MEMORY-AS value address type &optional byte-offset) */ +LISPFUN(write_memory_as,seclass_default,3,1,norest,nokey,0,NIL) +{ + var object fp = foreign_address(STACK_2,false); + var void* address = Faddress_value(fp); + if (!missingp(STACK_0)) { + STACK_0 = check_sint32(STACK_0); + address = (void*)((uintP)address + (sintP)I_to_sint32(STACK_0)); + } + convert_to_foreign_nomalloc(STACK_1,STACK_3,address); + VALUES1(STACK_3); skipSTACK(4); +} + /* Stack-allocated objects */ /* (FFI::EXEC-ON-STACK thunk fvd [initarg]) allocates foreign objects Index: foreign1.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/foreign1.lisp,v retrieving revision 1.85 retrieving revision 1.86 diff -u -d -r1.85 -r1.86 --- foreign1.lisp 10 Jun 2005 16:27:36 -0000 1.85 +++ foreign1.lisp 22 Jun 2005 16:41:51 -0000 1.86 @@ -27,7 +27,7 @@ with-foreign-object with-c-var with-foreign-string foreign-allocate allocate-deep allocate-shallow foreign-free foreign-pointer set-foreign-pointer - close-foreign-library + close-foreign-library memory-as foreign-variable foreign-function)) (eval-when (load compile eval) @@ -931,6 +931,10 @@ (declare (ignore count read-only)) ; to be accessed via keywords `(foreign-allocate (parse-c-type ,ffi-type) ,@keywords)) +;; =========================== low-level interface =========================== + +(sys::def-setf-alias memory-as write-memory-as) + ;; ============================ named C functions ============================ (defmacro DEF-C-CALL-OUT (name &rest options) Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4718 retrieving revision 1.4719 diff -u -d -r1.4718 -r1.4719 --- ChangeLog 21 Jun 2005 22:15:43 -0000 1.4718 +++ ChangeLog 22 Jun 2005 16:41:52 -0000 1.4719 @@ -1,3 +1,8 @@ +2005-06-22 Jörg Höhle <ho...@us...> + + * foreign.d (read_memory_as, write_memory_as): low-level accessors + * foreign1.lisp (memory-as): export and define (setf memory-as) + 2005-06-21 Sam Steingold <sd...@gn...> * charstrg.d (coerce_char): no INPUT-CHARACTER without KEYBOARD --__--__-- Message: 8 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src TODO,1.102,1.103 Date: Wed, 22 Jun 2005 16:58:43 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23444 Modified Files: TODO Log Message: added MACROLET.43 Index: TODO =================================================================== RCS file: /cvsroot/clisp/clisp/src/TODO,v retrieving revision 1.102 retrieving revision 1.103 diff -u -d -r1.102 -r1.103 --- TODO 21 Jun 2005 20:24:01 -0000 1.102 +++ TODO 22 Jun 2005 16:58:40 -0000 1.103 @@ -5,6 +5,15 @@ ============================ bind-eval.tst failure on Linux/amd64 [bruno] +also MACROLET.43 in ansi-tests: +(let ((*x* nil)) + (declare (special *x*)) + (let ((*f* #'(lambda nil *x*))) + (declare (special *f*)) + (eval `(macrolet ((%m (*x*) (declare (special *f*)) (funcall *f*))) + (%m t))))) +==> T (should be NIL) +BOTH (compiled and evaluated) -- on all platfoms EXCEPT Linux/amd64. workaround for an extra comma in _clisp.1 [sds] --__--__-- Message: 9 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src foreign1.lisp,1.86,1.87 ChangeLog,1.4719,1.4720 Date: Wed, 22 Jun 2005 18:02:54 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19648/src Modified Files: foreign1.lisp ChangeLog Log Message: (exec-with-foreign-string): ENCODING-ZEROES is defined both with and without UNICODE Index: foreign1.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/foreign1.lisp,v retrieving revision 1.86 retrieving revision 1.87 diff -u -d -r1.86 -r1.87 --- foreign1.lisp 22 Jun 2005 16:41:51 -0000 1.86 +++ foreign1.lisp 22 Jun 2005 18:02:30 -0000 1.87 @@ -906,9 +906,8 @@ (null-terminated-p t) (start 0) (end nil)) (call-with-foreign-string thunk encoding string start end (if null-terminated-p - #-UNICODE 1 - #+UNICODE (sys::encoding-zeroes encoding) - 0))) + (sys::encoding-zeroes encoding) + 0))) (defmacro with-foreign-string ((foreign-variable char-count byte-count string &rest keywords Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4719 retrieving revision 1.4720 diff -u -d -r1.4719 -r1.4720 --- ChangeLog 22 Jun 2005 16:41:52 -0000 1.4719 +++ ChangeLog 22 Jun 2005 18:02:31 -0000 1.4720 @@ -1,3 +1,8 @@ +2005-06-22 Sam Steingold <sd...@gn...> + + * foreign1.lisp (exec-with-foreign-string): ENCODING-ZEROES is + defined both with and without UNICODE + 2005-06-22 Jörg Höhle <ho...@us...> * foreign.d (read_memory_as, write_memory_as): low-level accessors --__--__-- Message: 10 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src TODO,1.103,1.104 Date: Wed, 22 Jun 2005 19:57:41 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4917/src Modified Files: TODO Log Message: oops Index: TODO =================================================================== RCS file: /cvsroot/clisp/clisp/src/TODO,v retrieving revision 1.103 retrieving revision 1.104 diff -u -d -r1.103 -r1.104 --- TODO 22 Jun 2005 16:58:40 -0000 1.103 +++ TODO 22 Jun 2005 19:57:38 -0000 1.104 @@ -5,15 +5,6 @@ ============================ bind-eval.tst failure on Linux/amd64 [bruno] -also MACROLET.43 in ansi-tests: -(let ((*x* nil)) - (declare (special *x*)) - (let ((*f* #'(lambda nil *x*))) - (declare (special *f*)) - (eval `(macrolet ((%m (*x*) (declare (special *f*)) (funcall *f*))) - (%m t))))) -==> T (should be NIL) -BOTH (compiled and evaluated) -- on all platfoms EXCEPT Linux/amd64. workaround for an extra comma in _clisp.1 [sds] --__--__-- Message: 11 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/tests bind.tst,1.11,1.12 ChangeLog,1.382,1.383 Date: Wed, 22 Jun 2005 19:58:22 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5275/tests Modified Files: bind.tst ChangeLog Log Message: 6 more MACROLET tests inspired by ansi-tests Index: bind.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/bind.tst,v retrieving revision 1.11 retrieving revision 1.12 diff -u -d -r1.11 -r1.12 --- bind.tst 8 Jun 2005 16:18:30 -0000 1.11 +++ bind.tst 22 Jun 2005 19:58:20 -0000 1.12 @@ -351,3 +351,60 @@ (let ((x 5)) ((lambda (&optional x z) (declare (special x)) z) (1+ x) (1+ x))) 6 + +;; macrolet.43 +(let ((*x* nil)) + (declare (special *x*)) + (let ((*f* #'(lambda () *x*))) + (declare (special *f*)) + (eval `(macrolet ((%m (*x*) + (declare (special *f*)) + (funcall *f*))) + (%m t))))) +nil +(let ((*x* nil)) + (declare (special *x*)) + (let ((*f* #'(lambda () *x*))) + (declare (special *f*)) + (macrolet ((%m (*x*) '(funcall *f*))) + (declare (special *f*)) + (%m t)))) +nil + +;; macrolet.44 +(let ((*x* nil)) + (declare (special *x*)) + (let ((*f* #'(lambda () *x*))) + (declare (special *f*)) + (eval `(macrolet ((%m (*x*) + (declare (special *f* *x*)) + (funcall *f*))) + (%m t))))) +t +(let ((*x* nil)) + (declare (special *x*)) + (let ((*f* #'(lambda () *x*))) + (declare (special *f*)) + (macrolet ((%m (*x*) '(funcall *f*))) + (declare (special *f* *x*)) + (%m t)))) +nil + +;; macrolet.45 +(let ((*x* nil)) + (declare (special *x*)) + (let ((*f* #'(lambda () *x*))) + (declare (special *f*)) + (eval `(macrolet ((%m ((*x*)) + (declare (special *f* *x*)) + (funcall *f*))) + (%m (t)))))) +t +(let ((*x* nil)) + (declare (special *x*)) + (let ((*f* #'(lambda () *x*))) + (declare (special *f*)) + (macrolet ((%m ((*x*)) '(funcall *f*))) + (declare (special *f* *x*)) + (%m (t))))) +nil Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/tests/ChangeLog,v retrieving revision 1.382 retrieving revision 1.383 diff -u -d -r1.382 -r1.383 --- ChangeLog 22 Jun 2005 14:42:44 -0000 1.382 +++ ChangeLog 22 Jun 2005 19:58:20 -0000 1.383 @@ -1,5 +1,9 @@ 2005-06-22 Sam Steingold <sd...@gn...> + * bind.tst: 6 more MACROLET tests inspired by ansi-tests + +2005-06-22 Sam Steingold <sd...@gn...> + * path.tst: check that the "SYS" logical host works 2005-06-09 Bruno Haible <br...@cl...> --__--__-- Message: 12 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/tests tests.lisp,1.62,1.63 ChangeLog,1.383,1.384 Date: Wed, 22 Jun 2005 20:02:57 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7445/tests Modified Files: tests.lisp ChangeLog Log Message: (run-test): print logfile's truename when there are errors Index: tests.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/tests/tests.lisp,v retrieving revision 1.62 retrieving revision 1.63 diff -u -d -r1.62 -r1.63 --- tests.lisp 10 Jun 2005 10:36:28 -0000 1.62 +++ tests.lisp 22 Jun 2005 20:02:54 -0000 1.63 @@ -186,12 +186,15 @@ (with-open-file (log logfile :direction :output #+(or CMU SBCL) :if-exists #+(or CMU SBCL) :supersede #+ANSI-CL :if-exists #+ANSI-CL :new-version) + (setq logfile (truename log)) (let ((*package* *package*) (*print-circle* t) (*print-pretty* nil)) (setf (values total-count error-count) (funcall *run-test-tester* s log))))) - (when (zerop error-count) (delete-file logfile)) (format t "~&~s: finished ~s (~:d error~:p out of ~:d test~:p)~%" 'run-test testname error-count total-count) + (if (zerop error-count) + (delete-file logfile) + (format t "~s: see ~a~%" 'run-test logfile)) (values total-count error-count)) (defmacro with-accumulating-errors ((error-count total-count) &body body) Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/tests/ChangeLog,v retrieving revision 1.383 retrieving revision 1.384 diff -u -d -r1.383 -r1.384 --- ChangeLog 22 Jun 2005 19:58:20 -0000 1.383 +++ ChangeLog 22 Jun 2005 20:02:55 -0000 1.384 @@ -1,5 +1,9 @@ 2005-06-22 Sam Steingold <sd...@gn...> + * tests.lisp (run-test): print logfile's truename when there are errors + +2005-06-22 Sam Steingold <sd...@gn...> + * bind.tst: 6 more MACROLET tests inspired by ansi-tests 2005-06-22 Sam Steingold <sd...@gn...> --__--__-- Message: 13 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/tests ChangeLog,1.384,1.385 Date: Wed, 22 Jun 2005 21:15:36 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16900/tests Modified Files: ChangeLog Log Message: formatting Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/tests/ChangeLog,v retrieving revision 1.384 retrieving revision 1.385 diff -u -d -r1.384 -r1.385 --- ChangeLog 22 Jun 2005 20:02:55 -0000 1.384 +++ ChangeLog 22 Jun 2005 21:15:33 -0000 1.385 @@ -36,7 +36,7 @@ * conditions.tst: Move restart tests out to restarts.tst. * lists152.tst: Likewise. * restarts.tst: New file. - + tests.lisp (run-all-tests): Run it after conditions.tst. + * tests.lisp (run-all-tests): Run it after conditions.tst. 2005-06-08 Sam Steingold <sd...@gn...> --__--__-- _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest |
