From: <cli...@li...> - 2004-10-08 03:25:12
|
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-classes-all.gif,1.1,NONE mop-classes-class.gif,1.1,NONE mop-classes-genfun.gif,1.1,NONE mop-classes-methcomb.gif,1.1,NONE mop-classes-method.gif,1.1,NONE mop-classes-slotdef.gif,1.1,NONE mop-classes-specializer.gif,1.1,NONE (Bruno Haible) 2. clisp/doc mop-classes-separate.sxd,1.1,NONE (Bruno Haible) 3. clisp/doc mop-classes-all.png,NONE,1.1 mop-classes-class.png,NONE,1.1 mop-classes-genfun.png,NONE,1.1 mop-classes-methcomb.png,NONE,1.1 mop-classes-method.png,NONE,1.1 mop-classes-slotdef.png,NONE,1.1 mop-classes-specializer.png,NONE,1.1 mop-classes-class.sxd,NONE,1.1 mop-classes-genfun.sxd,NONE,1.1 mop-classes-methcomb.sxd,NONE,1.1 mop-classes-method.sxd,NONE,1.1 mop-classes-slotdef.sxd,NONE,1.1 mop-classes-specializer.sxd,NONE,1.1 mop-classes-all.sxd,1.1,1.2 (Bruno Haible) 4. clisp/doc mop.xml,2.7,2.8 (Bruno Haible) 5. clisp/src lispbibl.d,1.555,1.556 (Bruno Haible) 6. clisp/tests ffi.tst,1.31,1.32 ChangeLog,1.229,1.230 (Jörg Höhle) 7. clisp/doc impext.xml,1.262,1.263 impbody.xml,1.276,1.277 (Jörg Höhle) 8. clisp/doc mop.xml,2.8,2.9 (Bruno Haible) --__--__-- Message: 1 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/doc mop-classes-all.gif,1.1,NONE mop-classes-class.gif,1.1,NONE mop-classes-genfun.gif,1.1,NONE mop-classes-methcomb.gif,1.1,NONE mop-classes-method.gif,1.1,NONE mop-classes-slotdef.gif,1.1,NONE mop-classes-specializer.gif,1.1,NONE Date: Thu, 07 Oct 2004 11:38:18 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23397 Removed Files: mop-classes-all.gif mop-classes-class.gif mop-classes-genfun.gif mop-classes-methcomb.gif mop-classes-method.gif mop-classes-slotdef.gif mop-classes-specializer.gif Log Message: GIFs replaced with PNGs. --- mop-classes-class.gif DELETED --- --- mop-classes-method.gif DELETED --- --- mop-classes-specializer.gif DELETED --- --- mop-classes-genfun.gif DELETED --- --- mop-classes-slotdef.gif DELETED --- --- mop-classes-all.gif DELETED --- --- mop-classes-methcomb.gif DELETED --- --__--__-- Message: 2 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/doc mop-classes-separate.sxd,1.1,NONE Date: Thu, 07 Oct 2004 11:39:02 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23494 Removed Files: mop-classes-separate.sxd Log Message: Need one sxd file per diagram, because the page size is different each time. --- mop-classes-separate.sxd DELETED --- --__--__-- Message: 3 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/doc mop-classes-all.png,NONE,1.1 mop-classes-class.png,NONE,1.1 mop-classes-genfun.png,NONE,1.1 mop-classes-methcomb.png,NONE,1.1 mop-classes-method.png,NONE,1.1 mop-classes-slotdef.png,NONE,1.1 mop-classes-specializer.png,NONE,1.1 mop-classes-class.sxd,NONE,1.1 mop-classes-genfun.sxd,NONE,1.1 mop-classes-methcomb.sxd,NONE,1.1 mop-classes-method.sxd,NONE,1.1 mop-classes-slotdef.sxd,NONE,1.1 mop-classes-specializer.sxd,NONE,1.1 mop-classes-all.sxd,1.1,1.2 Date: Thu, 07 Oct 2004 11:40:14 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23721 Modified Files: mop-classes-all.sxd Added Files: mop-classes-all.png mop-classes-class.png mop-classes-genfun.png mop-classes-methcomb.png mop-classes-method.png mop-classes-slotdef.png mop-classes-specializer.png mop-classes-class.sxd mop-classes-genfun.sxd mop-classes-methcomb.sxd mop-classes-method.sxd mop-classes-slotdef.sxd mop-classes-specializer.sxd Log Message: MOP metaobject classes diagrams. --- NEW FILE: mop-classes-methcomb.sxd --- (This appears to be a binary file; contents omitted.) --- NEW FILE: mop-classes-genfun.sxd --- (This appears to be a binary file; contents omitted.) --- NEW FILE: mop-classes-specializer.sxd --- (This appears to be a binary file; contents omitted.) --- NEW FILE: mop-classes-all.png --- (This appears to be a binary file; contents omitted.) Index: mop-classes-all.sxd =================================================================== RCS file: /cvsroot/clisp/clisp/doc/mop-classes-all.sxd,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 Binary files /tmp/cvsNfYfuY and /tmp/cvshmgVYw differ --- NEW FILE: mop-classes-genfun.png --- (This appears to be a binary file; contents omitted.) --- NEW FILE: mop-classes-specializer.png --- (This appears to be a binary file; contents omitted.) --- NEW FILE: mop-classes-methcomb.png --- (This appears to be a binary file; contents omitted.) --- NEW FILE: mop-classes-class.sxd --- (This appears to be a binary file; contents omitted.) --- NEW FILE: mop-classes-slotdef.png --- (This appears to be a binary file; contents omitted.) --- NEW FILE: mop-classes-method.sxd --- (This appears to be a binary file; contents omitted.) --- NEW FILE: mop-classes-method.png --- (This appears to be a binary file; contents omitted.) --- NEW FILE: mop-classes-class.png --- (This appears to be a binary file; contents omitted.) --- NEW FILE: mop-classes-slotdef.sxd --- (This appears to be a binary file; contents omitted.) --__--__-- Message: 4 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/doc mop.xml,2.7,2.8 Date: Thu, 07 Oct 2004 11:42:35 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24461 Modified Files: mop.xml Log Message: Use PNGs instead of GIFs. Index: mop.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/mop.xml,v retrieving revision 2.7 retrieving revision 2.8 diff -u -d -r2.7 -r2.8 --- mop.xml 5 Oct 2004 20:08:46 -0000 2.7 +++ mop.xml 7 Oct 2004 11:42:32 -0000 2.8 @@ -286,7 +286,7 @@ <title>Inheritance Structure of Metaobject Classes</title> <graphic srccredit="Inheritance Structure of Metaobject Classes" - fileref="mop-classes-all.gif" align="center"/> + fileref="mop-classes-all.png" align="center"/> <para>The inheritance structure of the specified metaobject classes is shown in <xref linkend="mop-inherit-struct"/>. The class of every class @@ -844,7 +844,7 @@ <section id="mop-cl-Inheritance"> <title>Inheritance Structure of Class Metaobject Classes</title> <graphic srccredit="Inheritance Structure of Class Metaobject Classes" - fileref="mop-classes-class.gif" align="center"/> + fileref="mop-classes-class.png" align="center"/> </section> <section id="mop-cl-readers"> @@ -2125,7 +2125,7 @@ <section id="mop-sd-inheritance"> <title>Inheritance Structure of Slot Definition Metaobject Classes</title> <graphic srccredit="Inheritance Structure of Slot Definition Metaobject Classes" - fileref="mop-classes-slotdef.gif" align="center"/> + fileref="mop-classes-slotdef.png" align="center"/> </section> <section id="mop-sd-readers"> @@ -2438,7 +2438,7 @@ <section id="mop-gf-inheritance"> <title>Inheritance Structure of Generic Function Metaobject Classes</title> <graphic srccredit="Inheritance Structure of GF Metaobject Classes" - fileref="mop-classes-genfun.gif" align="center"/> + fileref="mop-classes-genfun.png" align="center"/> </section> <section id="mop-gf-readers"> @@ -3451,7 +3451,7 @@ <section id="mop-meth-inheritance"> <title>Inheritance Structure of Method Metaobject Classes</title> <graphic srccredit="Inheritance Structure of Method Metaobject Classes" - fileref="mop-classes-method.gif" align="center"/> + fileref="mop-classes-method.png" align="center"/> </section> <section id="mop-meth-mo-readers"> @@ -4085,7 +4085,7 @@ <section id="mop-specializers-inheritance"> <title>Inheritance Structure of Specializer Metaobject Classes</title> <graphic srccredit="Inheritance Structure of Specializer Metaobject Classes" - fileref="mop-classes-specializer.gif" align="center"/> + fileref="mop-classes-specializer.png" align="center"/> </section> <section id="mop-spec-readers"><title>Introspection</title> @@ -4352,7 +4352,7 @@ <section id="mop-meth-comb-inheritance"> <title>Inheritance Structure of Method Combination Metaobject Classes</title> <graphic srccredit="Inheritance Structure of meth-comb MO Classes" - fileref="mop-classes-methcomb.gif" align="center"/> + fileref="mop-classes-methcomb.png" align="center"/> </section> <section id="mop-meth-comb-customize"><title>Customization</title> --__--__-- Message: 5 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/src lispbibl.d,1.555,1.556 Date: Thu, 07 Oct 2004 11:37:19 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23151/src Modified Files: lispbibl.d Log Message: symbol_value_check_lock can trigger GC. Index: lispbibl.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/lispbibl.d,v retrieving revision 1.555 retrieving revision 1.556 diff -u -d -r1.555 -r1.556 --- lispbibl.d 5 Oct 2004 14:58:50 -0000 1.555 +++ lispbibl.d 7 Oct 2004 11:37:15 -0000 1.556 @@ -13220,7 +13220,8 @@ extern object get_current_package (void); # is used by IO, EVAL -/* check whether package lock prevents assignment to symbol */ +/* check whether package lock prevents assignment to symbol + can trigger GC */ extern void symbol_value_check_lock (object caller, object symbol); /* used by EVAL */ --__--__-- Message: 6 From: Jörg Höhle <ho...@us...> To: cli...@li... Subject: clisp/tests ffi.tst,1.31,1.32 ChangeLog,1.229,1.230 Date: Thu, 07 Oct 2004 11:52:30 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26639/tests Modified Files: ffi.tst ChangeLog Log Message: ffi.tst: test some restarts Index: ffi.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/ffi.tst,v retrieving revision 1.31 retrieving revision 1.32 diff -u -d -r1.31 -r1.32 --- ffi.tst 6 Oct 2004 08:00:31 -0000 1.31 +++ ffi.tst 7 Oct 2004 11:52:28 -0000 1.32 @@ -35,6 +35,9 @@ (check-type #'c-self foreign-function) nil +(integerp (foreign-address-unsigned #'c-self)) +T + (functionp (setq parse-c-type-optimizer (compiler-macro-function 'parse-c-type))) T @@ -108,13 +111,13 @@ (parse-c-type '(c-function (:arguments (obj long)) (:return-type long) (:language :stdc))) :name "foo1") - #x76767676) -#x76767676 + #x67676767) +#x67676767 (funcall (foreign-function (foreign-address #'c-self) (parse-c-type '(c-function (:arguments (obj long)) (:return-type long) - (:language :stdc))) :name "foo1") + (:language :stdc))) :name "foo2") #x76767676) #x76767676 @@ -489,6 +492,25 @@ (progn (setf (validp fm) nil) 2) 2 +(let ((restarts (list (unsigned-foreign-address 123450)))) + (foreign-address-unsigned + (handler-bind + ((type-error (lambda (c &aux (retry (pop restarts))) + (declare (ignore c)) + (when retry (use-value retry))))) + (foreign-variable "abc" (parse-c-type 'char))))) +123450 + +(let ((restarts (list #'c-self))) + (foreign-address-unsigned + (handler-bind + ((type-error (lambda (c &aux (retry (pop restarts))) + (declare (ignore c)) + (when retry (use-value retry))))) + (foreign-function "abc" + (parse-c-type '(c-function (:language :stdc))))))) +#.(foreign-address-unsigned #'c-self) + (progn (setq fm (allocate-deep 'character "abc" :count 5)) (type-of fm)) FOREIGN-VARIABLE Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/tests/ChangeLog,v retrieving revision 1.229 retrieving revision 1.230 diff -u -d -r1.229 -r1.230 --- ChangeLog 6 Oct 2004 13:46:02 -0000 1.229 +++ ChangeLog 7 Oct 2004 11:52:28 -0000 1.230 @@ -1,3 +1,7 @@ +2004-10-07 Jörg Höhle <ho...@us...> + + * ffi.tst: test some restarts + 2004-10-06 Bruno Haible <br...@cl...> * mop.tst: Fix unintended side effects caused by the typechecked- --__--__-- Message: 7 From: Jörg Höhle <ho...@us...> To: cli...@li... Subject: clisp/doc impext.xml,1.262,1.263 impbody.xml,1.276,1.277 Date: Thu, 07 Oct 2004 12:50:05 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6274 Modified Files: impext.xml impbody.xml Log Message: mention ffi:c-function :language issue, fix 2 TAB characters Index: impext.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/impext.xml,v retrieving revision 1.262 retrieving revision 1.263 diff -u -d -r1.262 -r1.263 --- impext.xml 6 Oct 2004 14:06:00 -0000 1.262 +++ impext.xml 7 Oct 2004 12:50:02 -0000 1.263 @@ -3203,7 +3203,10 @@ <listitem><simpara>This constructor creates a &foreign-function-t; from the given &foreign-address-t; or &foreign-function-t; and the internal &c-lang; type descriptor (as obtained from - <literal role="sexp">(&parse-c-type; '(&c-function; ...))</literal>). + <literal role="sexp">(&parse-c-type; '(&c-function; ...))</literal>, in + which case it is important to specify the &lang-k; because the expressions + is likely to be evaluated at run-time, outside a <ulink + url="&clhs;/Body/glo_c.html#compilation_unit">compilation unit</ulink>). &name-r;, a &string-t;, is mostly useful for documentation and interactive debugging since it appears in the printed representation of the &foreign-function-t; object, as in <literal @@ -3588,7 +3591,7 @@ <section id="c-flavor"><title>The choice of the &c-lang; flavor.</title> -<para>&c-function;, &def-call-in;, &def-call-out; take &lang-k; argument. +<para>&c-function;, &def-call-in;, &def-call-out; take a &lang-k; argument. The &lang-r; is either &c-k; (denotes K&R &c-lang;) or &stdc-k; (denotes ANSI &c-lang;) or &stdc-sc-k; (denotes ANSI &c-lang; with the <emphasis>stdcall</emphasis> calling convention). @@ -4097,8 +4100,8 @@ <programlisting language="lisp"> (&def-c-call-out; gethostname (:arguments (name (&c-ptr; (&c-array-max; ffi:char 256)) - &out-k; &alloca-k;) - (len ffi:int)) + &out-k; &alloca-k;) + (len ffi:int)) (:return-type ffi:int)) (defun myhostname () @@ -4106,7 +4109,7 @@ ;; &out-k; and &in-out-k; parameters are returned as &mul-val; (gethostname 256) (if (zerop success) name - (error ...)))) ;; &strerror;(&errno;) + (error ...)))) ;; &strerror;(&errno;) (defvar hostname (myhostname)) </programlisting> Index: impbody.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/impbody.xml,v retrieving revision 1.276 retrieving revision 1.277 diff -u -d -r1.276 -r1.277 --- impbody.xml 5 Oct 2004 21:00:46 -0000 1.276 +++ impbody.xml 7 Oct 2004 12:50:02 -0000 1.277 @@ -4209,7 +4209,7 @@ clisp -c foo bar.fas: bar.lisp foo.fas - clisp -c bar + clisp -c bar </programlisting> instead of the more cumbersome (and slower, since &lib-file;s are usually smaller and load faster that &fasl-file;s): --__--__-- Message: 8 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/doc mop.xml,2.8,2.9 Date: Thu, 07 Oct 2004 13:36:54 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17252 Modified Files: mop.xml Log Message: Scale down the diagrams by 50%. Index: mop.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/mop.xml,v retrieving revision 2.8 retrieving revision 2.9 diff -u -d -r2.8 -r2.9 --- mop.xml 7 Oct 2004 11:42:32 -0000 2.8 +++ mop.xml 7 Oct 2004 13:36:52 -0000 2.9 @@ -286,7 +286,7 @@ <title>Inheritance Structure of Metaobject Classes</title> <graphic srccredit="Inheritance Structure of Metaobject Classes" - fileref="mop-classes-all.png" align="center"/> + fileref="mop-classes-all.png" scale="50" align="center"/> <para>The inheritance structure of the specified metaobject classes is shown in <xref linkend="mop-inherit-struct"/>. The class of every class @@ -844,7 +844,7 @@ <section id="mop-cl-Inheritance"> <title>Inheritance Structure of Class Metaobject Classes</title> <graphic srccredit="Inheritance Structure of Class Metaobject Classes" - fileref="mop-classes-class.png" align="center"/> + fileref="mop-classes-class.png" scale="50" align="center"/> </section> <section id="mop-cl-readers"> @@ -2125,7 +2125,7 @@ <section id="mop-sd-inheritance"> <title>Inheritance Structure of Slot Definition Metaobject Classes</title> <graphic srccredit="Inheritance Structure of Slot Definition Metaobject Classes" - fileref="mop-classes-slotdef.png" align="center"/> + fileref="mop-classes-slotdef.png" scale="50" align="center"/> </section> <section id="mop-sd-readers"> @@ -2438,7 +2438,7 @@ <section id="mop-gf-inheritance"> <title>Inheritance Structure of Generic Function Metaobject Classes</title> <graphic srccredit="Inheritance Structure of GF Metaobject Classes" - fileref="mop-classes-genfun.png" align="center"/> + fileref="mop-classes-genfun.png" scale="50" align="center"/> </section> <section id="mop-gf-readers"> @@ -3451,7 +3451,7 @@ <section id="mop-meth-inheritance"> <title>Inheritance Structure of Method Metaobject Classes</title> <graphic srccredit="Inheritance Structure of Method Metaobject Classes" - fileref="mop-classes-method.png" align="center"/> + fileref="mop-classes-method.png" scale="50" align="center"/> </section> <section id="mop-meth-mo-readers"> @@ -4085,7 +4085,7 @@ <section id="mop-specializers-inheritance"> <title>Inheritance Structure of Specializer Metaobject Classes</title> <graphic srccredit="Inheritance Structure of Specializer Metaobject Classes" - fileref="mop-classes-specializer.png" align="center"/> + fileref="mop-classes-specializer.png" scale="50" align="center"/> </section> <section id="mop-spec-readers"><title>Introspection</title> @@ -4352,7 +4352,7 @@ <section id="mop-meth-comb-inheritance"> <title>Inheritance Structure of Method Combination Metaobject Classes</title> <graphic srccredit="Inheritance Structure of meth-comb MO Classes" - fileref="mop-classes-methcomb.png" align="center"/> + fileref="mop-classes-methcomb.png" scale="50" align="center"/> </section> <section id="mop-meth-comb-customize"><title>Customization</title> --__--__-- _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest |