clisp-devel

[<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/tests type.tst, 1.57, 1.58 unportable.tst, 1.7, 1.8
      weakhash.tst,	1.4, 1.5 weakhash2.tst, 1.3, 1.4 (Sam Steingold)
   2. clisp/tests restarts.tst, 1.5, 1.6 steele7.tst, 1.7,	1.8
      streamslong.tst, 1.31, 1.32 strings.tst, 1.26,	1.27 symbol10.tst,
      1.14, 1.15 time.tst, 1.7, 1.8 (Sam Steingold)
   3. clisp/doc impext.xml,1.656,1.657 (Sam Steingold)


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

Message: 1
Date: Tue, 19 Oct 2010 16:02:20 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/tests type.tst, 1.57, 1.58 unportable.tst, 1.7, 1.8
	weakhash.tst,	1.4, 1.5 weakhash2.tst, 1.3, 1.4
To: cli...@li...
Message-ID: <E1P...@sf...>

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

Modified Files:
	type.tst unportable.tst weakhash.tst weakhash2.tst 
Log Message:
add cleanup


Index: weakhash.tst
===================================================================
RCS file: /cvsroot/clisp/clisp/tests/weakhash.tst,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- weakhash.tst	30 Sep 2007 05:32:43 -0000	1.4
+++ weakhash.tst	19 Oct 2010 16:02:18 -0000	1.5
@@ -369,3 +369,12 @@
   (list (gethash "foo" tab) (gethash 1 tab) (gethash "zoo" tab)))
 #+(or CLISP LISPWORKS)
 (1 "bar" NIL)
+
+(progn ; cleanup
+  (symbol-cleanup 'weak-ht-fill-initially)
+  (symbol-cleanup 'make-freak-mapping)
+  (symbol-cleanup 'freak-mapping-pair)
+  (symbol-cleanup 'freak-mapping-value)
+  (symbol-cleanup 'test-weak-mapping-chain)
+  (symbol-cleanup 'test-weak-mapping-chain-reverse))
+T

Index: weakhash2.tst
===================================================================
RCS file: /cvsroot/clisp/clisp/tests/weakhash2.tst,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- weakhash2.tst	30 Sep 2007 05:32:43 -0000	1.3
+++ weakhash2.tst	19 Oct 2010 16:02:18 -0000	1.4
@@ -142,3 +142,7 @@
          (simple-vector-p (whal_itable kvt)))))
 #+CLISP
 T
+
+(progn ; cleanup
+  (symbol-cleanup 'tab))
+T

Index: unportable.tst
===================================================================
RCS file: /cvsroot/clisp/clisp/tests/unportable.tst,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- unportable.tst	10 Dec 2008 16:01:28 -0000	1.7
+++ unportable.tst	19 Oct 2010 16:02:18 -0000	1.8
@@ -258,3 +258,8 @@
 
 ;; Paul Dietz' ANSI testsuite (part of gcl) checks some border cases
 ;; http://cvs.savannah.gnu.org/viewcvs/gcl/ansi-tests/beyond-ansi/?root=gcl
+
+(progn ; cleanup
+  (symbol-cleanup 'first-special-then-macro)
+  (symbol-cleanup 'first-macro-then-special))
+T

Index: type.tst
===================================================================
RCS file: /cvsroot/clisp/clisp/tests/type.tst,v
retrieving revision 1.57
retrieving revision 1.58
diff -u -d -r1.57 -r1.58
--- type.tst	22 Jul 2008 03:02:20 -0000	1.57
+++ type.tst	19 Oct 2010 16:02:18 -0000	1.58
@@ -871,3 +871,24 @@
   (eval `(define-condition ,sym (condition) (a b c)))
   (proclaim `(declaration ,sym)))
 error
+
+(progn ; cleanup
+  (symbol-cleanup 'MOD1)
+  (symbol-cleanup 'BELIEBIGER-TEST)
+  (symbol-cleanup 'BELIEBIGER-TYP)
+  (symbol-cleanup 'typeof-typep-subtype)
+  (symbol-cleanup '*DISJOINT-TYPES-LIST*)
+  (symbol-cleanup 'bar)
+  (symbol-cleanup 'foo)
+  (symbol-cleanup 'otherwise)
+  (symbol-cleanup 'foo70)
+  (symbol-cleanup 'foo71)
+  (symbol-cleanup 'foo72)
+  (symbol-cleanup 'foo73)
+  (symbol-cleanup 'foo74)
+  (symbol-cleanup 'foo129a)
+  (symbol-cleanup 'foo129b)
+  (symbol-cleanup 'foo139)
+  (symbol-cleanup 'foo140)
+  (symbol-cleanup 'check-type-error))
+T




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

Message: 2
Date: Tue, 19 Oct 2010 19:38:22 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/tests restarts.tst, 1.5, 1.6 steele7.tst, 1.7,	1.8
	streamslong.tst, 1.31, 1.32 strings.tst, 1.26,	1.27 symbol10.tst,
	1.14, 1.15 time.tst, 1.7, 1.8
To: cli...@li...
Message-ID: <E1P...@sf...>

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

Modified Files:
	restarts.tst steele7.tst streamslong.tst strings.tst 
	symbol10.tst time.tst 
Log Message:
more cleanup


Index: steele7.tst
===================================================================
RCS file: /cvsroot/clisp/clisp/tests/steele7.tst,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- steele7.tst	7 Oct 2007 01:00:15 -0000	1.7
+++ steele7.tst	19 Oct 2010 19:38:20 -0000	1.8
@@ -76,7 +76,7 @@
 (setf a 0)
 0
 
-(let ((a 1) (b 2) c )
+(let ((a 1) (b 2) c)
   (declare (integer a b))
   (list a b c))
 (1 2 nil)
@@ -417,3 +417,9 @@
 (labels ((z () (return-from z 4))) (z))
 4
 
+(progn ; cleanup
+  (symbol-cleanup 'plus)
+  (symbol-cleanup 'adder)
+  (symbol-cleanup 'a)
+  (symbol-cleanup 'b))
+T

Index: streamslong.tst
===================================================================
RCS file: /cvsroot/clisp/clisp/tests/streamslong.tst,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -d -r1.31 -r1.32
--- streamslong.tst	4 Jul 2010 18:20:11 -0000	1.31
+++ streamslong.tst	19 Oct 2010 19:38:20 -0000	1.32
@@ -328,3 +328,8 @@
            (loop for i below 1000 do (assert (= i (read in))))))
     (delete-file file)))
 #+(and CLISP UNIX) NIL
+
+(progn ; cleanup
+  (symbol-cleanup '*A*)
+  (symbol-cleanup 'bin-stream-test))
+T

Index: strings.tst
===================================================================
RCS file: /cvsroot/clisp/clisp/tests/strings.tst,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -d -r1.26 -r1.27
--- strings.tst	17 May 2009 05:09:43 -0000	1.26
+++ strings.tst	19 Oct 2010 19:38:20 -0000	1.27
@@ -1201,9 +1201,6 @@
 x
 "edcba"
 
-(makunbound 'x)
-X
-
 (let* ((x (make-array 10 :fill-pointer 4 :element-type 'character
                          :initial-element #\space :adjustable t))
        (y (make-array 10 :fill-pointer 4 :element-type 'character
@@ -1254,3 +1251,7 @@
 
 #+clisp (trim-if #'sys::whitespacep "  asdf 	 ")
 #+clisp "asdf"
+
+(progn ; cleanup
+  (symbol-cleanup 'x))
+T

Index: symbol10.tst
===================================================================
RCS file: /cvsroot/clisp/clisp/tests/symbol10.tst,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- symbol10.tst	26 Nov 2008 20:38:58 -0000	1.14
+++ symbol10.tst	19 Oct 2010 19:38:20 -0000	1.15
@@ -563,3 +563,16 @@
   (mapc #'unintern l)
   (length l))
 4
+
+(progn ; cleanup
+  (symbol-cleanup 'testvar)
+  (symbol-cleanup 'clrvar)
+  (symbol-cleanup 'v1)
+  (symbol-cleanup 'v2)
+  (symbol-cleanup 'v3)
+  (symbol-cleanup 'v4)
+  (symbol-cleanup 'v5)
+  (symbol-cleanup 'v6)
+  (symbol-cleanup 'var3)
+  (symbol-cleanup 'var33))
+T

Index: restarts.tst
===================================================================
RCS file: /cvsroot/clisp/clisp/tests/restarts.tst,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- restarts.tst	28 Jan 2010 15:46:05 -0000	1.5
+++ restarts.tst	19 Oct 2010 19:38:20 -0000	1.6
@@ -158,8 +158,8 @@
 (444 (progv '("foo" :const) '(123 321) (+ foo zz)))
 
 (handler-bind ((type-error #'use-value-read))
-  (multiple-value-setq (a "foo") (values 123 321))
-  (list foo a))
+  (multiple-value-setq (baz "foo") (values 123 321))
+  (list foo baz))
 (321 123)
 
 (handler-bind ((program-error (lambda (c) (princ-error c) (use-value 'zz))))
@@ -371,5 +371,12 @@
   (documentation 'use-value-read 'function))
 "docstring for use-value-read"
 
-(unintern 'check-use-value) T
-(unintern 'use-value-read) T
+(progn ; cleanup
+  (symbol-cleanup 'check-use-value)
+  (symbol-cleanup 'use-value-read)
+  (symbol-cleanup 'zot)
+  (symbol-cleanup 'foo)
+  (symbol-cleanup 'bar)
+  (symbol-cleanup 'baz)
+  (symbol-cleanup 'xyzzy))
+T

Index: time.tst
===================================================================
RCS file: /cvsroot/clisp/clisp/tests/time.tst,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- time.tst	30 Sep 2007 05:32:43 -0000	1.7
+++ time.tst	19 Oct 2010 19:38:20 -0000	1.8
@@ -84,6 +84,7 @@
    (encode-universal-time 12 34 20 23 12 2208))
 3600
 
-;; clean up
-(unintern 'time-loop) T
-(unintern 'check-universal-time) T
+(progn ; clean up
+  (symbol-cleanup 'check-universal-time)
+  (symbol-cleanup 'time-loop))
+T




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

Message: 3
Date: Tue, 19 Oct 2010 20:59:30 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/doc impext.xml,1.656,1.657
To: cli...@li...
Message-ID: <E1P...@sf...>

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

Modified Files:
	impext.xml 
Log Message:
presentation


Index: impext.xml
===================================================================
RCS file: /cvsroot/clisp/clisp/doc/impext.xml,v
retrieving revision 1.656
retrieving revision 1.657
diff -u -d -r1.656 -r1.657
--- impext.xml	18 Oct 2010 21:31:22 -0000	1.656
+++ impext.xml	19 Oct 2010 20:59:28 -0000	1.657
@@ -2435,7 +2435,7 @@
    compare <function>RAWSOCK:HTONS</function> (defined
    in <filename role="clisp-cvs">modules/rawsock/rawsock.c</filename>)
    with <programlisting language="lisp">
-(&def-call-out; htons (:name "htons") (&library-k; :default)
+(&def-call-out; htons (&name-k; "htons") (&library-k; :default)
   (&arguments-k; (s ffi:short)) (&ret-type-k; ffi:short) (&lang-k; :stdc))
 </programlisting> and observe that <function>RAWSOCK:HTONS</function> is
    almost 3 times as fast (this really does compare the &ffi-pac;
@@ -2752,17 +2752,17 @@
    Lisp (using &setq; or similar).</simpara></listitem></varlistentry>
 <varlistentry><term><code>(:ALLOC &allocation;)</code></term>
  <listitem><simpara>This option can be either &none-k; or
-   &malloc-free-k; and defaults to &none-k;.  If it is
-   &malloc-free-k;, any values of type &c-string;, &c-ptr;,
+   &malloc-free-k; and defaults to &none-k;.
+   If it is &malloc-free-k;, any values of type &c-string;, &c-ptr;,
    &c-ptr-null;, &c-array-ptr; within the foreign value are assumed
    to be pointers to &malloc;-allocated storage, and when &setq;
    replaces an old value by a new one, the old storage is freed using
-   &free; and the new storage allocated using &malloc;.  If it is
-   &none-k;, &setq; assumes that the pointers point to good storage
-   (not &c-NULL;!) and overwrites the old values by the new ones.
-   This is dangerous (just think of overwriting a string with a
-   longer one or storing some data in a &c-NULL; pointer...)  and
-   deprecated.</simpara></listitem></varlistentry>
+   &free; and the new storage allocated using &malloc;.
+   If it is &none-k;, &setq; assumes that the pointers point to good
+   storage (not &c-NULL;!) and overwrites the old values by the new ones.
+   This is dangerous (just think of overwriting a string with a longer
+   one or storing some data in a &c-NULL; pointer...) and deprecated.
+</simpara></listitem></varlistentry>
 <varlistentry><term><code>(&library-k; &name-r;)</code></term>
  <listitem><simpara>Specifies the (optional) dynamic library
    which contains the variable, the default is set by
@@ -3993,8 +3993,8 @@
 int my_bar (int x) { return bar(x); }~%")
 (&def-c-const; bar)
 (&def-c-const; zot-size (:name "sizeof(struct zot)") (:guard nil))
-(&def-call-out; my-foo (:name "my_foo") (&arguments-k; (x ffi:int)) (&ret-type-k; ffi:int))
-(&def-call-out; my-bar (:name "my_bar") (&arguments-k; (x ffi:int)) (&ret-type-k; ffi:int))
+(&def-call-out; my-foo (&name-k; "my_foo") (&arguments-k; (x ffi:int)) (&ret-type-k; ffi:int))
+(&def-call-out; my-bar (&name-k; "my_bar") (&arguments-k; (x ffi:int)) (&ret-type-k; ffi:int))
 </programlisting></para>
 <para>Compiling this file will produce <filename>my.c</filename>
  and <filename>my.fas</filename> and you have two options:
@@ -4044,19 +4044,19 @@
 <programlisting language="lisp">
 (&defpackage; "FFI-TEST" (:use &cl-pac; &ffi-pac;))
 (&in-package; "FFI-TEST")
-(&eval-when; (compile) (setq &ffi-out-fun; t))
+(&eval-when; (compile) (&setq; &ffi-out-fun; t))
 (&def-call-in; lispsort_begin (&arguments-k; (n int))
   (&ret-type-k; nil)
   (&lang-k; :stdc))
 (&def-c-var; lispsort_function (:type c-pointer))
-(defun lispsort_begin (n)
-  (setf (cast lispsort_function
-              `(c-function
+(&defun; lispsort_begin (n)
+  (&setf; (&cast; lispsort_function
+              `(&c-function;
                  (&arguments-k; (v (c-ptr (c-array double-float ,n))))
                  (&ret-type-k; (c-ptr (c-array double-float ,n))
                                :malloc-free)))
         #'sort2))
-(defun sort2 (v)
+(&defun; sort2 (v)
   (declare (type vector v))
   (sort v #'&lt;))
 </programlisting>
@@ -4066,7 +4066,7 @@
 <programlisting language="lisp">
 (&eval-when; (compile) (setq &ffi-out-fun; t))
 (&def-call-out; sort10
-  (:name "lispsort_double")
+  (&name-k; "lispsort_double")
   (&lang-k; :stdc)
   (&arguments-k; (n int)
               (array (c-ptr (c-array double-float 10)) :in-out)))
@@ -4111,10 +4111,10 @@
   and call it from Lisp:
   <programlisting language="lisp">
 (ffi:def-call-out callout
-  (:name "CallInFunc")
+  (&name-k; "CallInFunc")
   (&library-k; "lispdll.dll")
   (&arguments-k; (function-arg
-               (ffi:c-function (&arguments-k; (number ffi:int))
+               (&c-function; (&arguments-k; (number ffi:int))
                                (&ret-type-k; ffi:int) (&lang-k; :stdc))))
   (&ret-type-k; ffi:int)
   (&lang-k; :stdc))
@@ -4251,7 +4251,7 @@
 (&def-call-out; get-own-c-float
   (&library-k; "libtest.so")
   (&lang-k; :stdc)
-  (:name "test_dll")
+  (&name-k; "test_dll")
   (&arguments-k; (ptr c-pointer :in :alloca))
   (&ret-type-k; double-float))
 
@@ -4325,7 +4325,7 @@
 <screen>&sh-prompt; gcc -shared -o libsum.so sum.c</screen>
 Now you can sum doubles:
 <programlisting language="lisp">
-(&def-call-out; sum (:name "sum") (&library-k; "libsum.so") (&lang-k; :stdc)
+(&def-call-out; sum (&name-k; "sum") (&library-k; "libsum.so") (&lang-k; :stdc)
   (&ret-type-k; ffi:double-float)
   (&arguments-k; (len ffi:int) (vec (&c-array-ptr; ffi:double-float))))
 (sum 3 #(1d0 2d0 3d0))
@@ -5229,8 +5229,8 @@
 
 <section id="quickstart-linux">
  <title>Associating extensions with &clisp; via kernel</title>
- <subtitle><emphasis role="plat-dep">&linux; platforms
-   only.</emphasis></subtitle>
+ <subtitle><emphasis role="plat-dep">&linux; platforms only.
+ </emphasis></subtitle>
 
 <para>You have to build your kernel with
  <option>CONFIG_BINFMT_MISC=y</option> and




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

------------------------------------------------------------------------------
Download new Adobe(R) Flash(R) Builder(TM) 4
The new Adobe(R) Flex(R) 4 and Flash(R) Builder(TM) 4 (formerly 
Flex(R) Builder(TM)) enable the development of rich applications that run
across multiple browsers and platforms. Download your free trials today!
http://p.sf.net/sfu/adobe-dev2dev

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

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


End of clisp-cvs Digest, Vol 54, Issue 15
*****************************************