Menu
▾
▴
clisp-cvs digest, Vol 1 #1133 - 10 msgs
|
From: <cli...@li...> - 2005-06-11 03:15:46
|
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 ChangeLog,1.379,1.380 (Bruno Haible) 2. clisp/tests conditions.tst,1.48,1.49 ChangeLog,1.380,1.381 (Bruno Haible) 3. clisp/src genclisph.d,1.193,1.194 foreign1.lisp,1.83,1.84 ChangeLog,1.4693,1.4694 (Sam Steingold) 4. clisp/utils modprep.lisp,1.44,1.45 (Sam Steingold) 5. clisp/src makemake.in,1.560,1.561 ChangeLog,1.4694,1.4695 (Sam Steingold) 6. clisp/src foreign1.lisp,1.84,1.85 ChangeLog,1.4695,1.4696 (Sam Steingold) 7. clisp/modules/pari pari.lisp,1.8,1.9 (Sam Steingold) 8. clisp/src ChangeLog,1.4696,1.4697 (Sam Steingold) 9. clisp/src ChangeLog,1.4697,1.4698 (Sam Steingold) 10. clisp/modules/pari pari.lisp,1.9,1.10 (Sam Steingold) --__--__-- Message: 1 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/tests ChangeLog,1.379,1.380 Date: Fri, 10 Jun 2005 10:45:03 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25164 Modified Files: ChangeLog Log Message: Support for cmucl-19b-pre1. Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/tests/ChangeLog,v retrieving revision 1.379 retrieving revision 1.380 diff -u -d -r1.379 -r1.380 --- ChangeLog 10 Jun 2005 10:29:39 -0000 1.379 +++ ChangeLog 10 Jun 2005 10:45:01 -0000 1.380 @@ -1,5 +1,21 @@ 2005-06-09 Bruno Haible <br...@cl...> + * bin-io.tst: Update for cmucl-19b-pre1. + * clos.tst: Likewise. + * encoding.tst: Likewise. + * eval20.tst: Likewise. + * excepsit.tst: Likewise. + * iofkts.tst: Likewise. + * macro8.tst: Likewise. + * path.tst: Likewise. + * streams.tst: Likewise. + * streamslong.tst: Likewise. + * type.tst: Likewise. + * weakptr.tst: Likewise. + * tests.lisp (run-test, run-all-tests): Likewise. + +2005-06-09 Bruno Haible <br...@cl...> + Move lots of CLISP-only tests to a separate file. * conditions.tst: Move restart tests out to restarts.tst. * lists152.tst: Likewise. --__--__-- Message: 2 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/tests conditions.tst,1.48,1.49 ChangeLog,1.380,1.381 Date: Fri, 10 Jun 2005 10:45:55 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25834 Modified Files: conditions.tst ChangeLog Log Message: Mark a test as clisp-only. Index: conditions.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/conditions.tst,v retrieving revision 1.48 retrieving revision 1.49 diff -u -d -r1.48 -r1.49 --- conditions.tst 10 Jun 2005 10:29:39 -0000 1.48 +++ conditions.tst 10 Jun 2005 10:45:53 -0000 1.49 @@ -483,6 +483,7 @@ ((INTEGER 1) (1 2 3)) ;; Check that after a Ctrl-D (EOF), assert without places is not retried. +#+CLISP (let ((done nil)) (block test (sys::driver @@ -495,6 +496,7 @@ (make-two-way-stream (make-string-input-stream "") *terminal-io*))) (assert (= 1 2)))))))) +#+CLISP nil (block nil Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/tests/ChangeLog,v retrieving revision 1.380 retrieving revision 1.381 diff -u -d -r1.380 -r1.381 --- ChangeLog 10 Jun 2005 10:45:01 -0000 1.380 +++ ChangeLog 10 Jun 2005 10:45:53 -0000 1.381 @@ -1,5 +1,9 @@ 2005-06-09 Bruno Haible <br...@cl...> + * conditions.tst: Mark a test as clisp-only. + +2005-06-09 Bruno Haible <br...@cl...> + * bin-io.tst: Update for cmucl-19b-pre1. * clos.tst: Likewise. * encoding.tst: Likewise. --__--__-- Message: 3 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src genclisph.d,1.193,1.194 foreign1.lisp,1.83,1.84 ChangeLog,1.4693,1.4694 Date: Fri, 10 Jun 2005 15:24:52 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11749/src Modified Files: genclisph.d foreign1.lisp ChangeLog Log Message: avoid -Wstrict-prototypes warnings in modules Index: foreign1.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/foreign1.lisp,v retrieving revision 1.83 retrieving revision 1.84 diff -u -d -r1.83 -r1.84 --- foreign1.lisp 28 Mar 2005 17:06:23 -0000 1.83 +++ foreign1.lisp 10 Jun 2005 15:24:46 -0000 1.84 @@ -731,10 +731,14 @@ *coutput-stream*))) (format *coutput-stream* ");~%"))) (format *coutput-stream* - "~%void module__~A__init_function_1 (module_t* module)~%~ + "~%void module__~A__init_function_1 (module_t* module);~%~ + ~%void module__~A__init_function_2 (module_t* module);~%~ + ~%void module__~A__fini_function (module_t* module);~%~ + ~2%void module__~A__init_function_1 (module_t* module)~%~ {~{~%~A~}~%}~2%~ void module__~A__init_function_2 (module_t* module)~%~ {~{~%~A~}~%" + *c-name* *c-name* *c-name* *c-name* *init-once* *c-name* *init-always*) (dolist (variable *variable-list*) (format *coutput-stream* Index: genclisph.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/genclisph.d,v retrieving revision 1.193 retrieving revision 1.194 diff -u -d -r1.193 -r1.194 --- genclisph.d 7 Jun 2005 12:25:48 -0000 1.193 +++ genclisph.d 10 Jun 2005 15:24:45 -0000 1.194 @@ -212,7 +212,7 @@ #include "gen.lispbibl.c" printf("#define LISPFUNN(name,req_anz) LISPFUN(name,sec,req_anz,0,norest,nokey,0,NIL)\n"); - printf("#define LISPFUN_B(name,sec,req_anz,opt_anz,rest_flag,key_flag,key_anz,keywords) extern Values C_##name subr_##rest_flag##_function_args\n"); + printf("#define LISPFUN_B(name,sec,req_anz,opt_anz,rest_flag,key_flag,key_anz,keywords) Values C_##name subr_##rest_flag##_function_args; Values C_##name subr_##rest_flag##_function_args\n"); printf("#define subr_norest_function_args (void)\n"); printf("#define subr_rest_function_args (uintC argcount, object* rest_args_pointer)\n"); #ifdef TYPECODES Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4693 retrieving revision 1.4694 diff -u -d -r1.4693 -r1.4694 --- ChangeLog 8 Jun 2005 12:04:04 -0000 1.4693 +++ ChangeLog 10 Jun 2005 15:24:46 -0000 1.4694 @@ -1,3 +1,10 @@ +2005-06-10 Sam Steingold <sd...@gn...> + + avoid -Wstrict-prototypes warnings in modules + * foreign1.lisp (finalize-coutput-file): emit init/fini prototypes + * utils/modprep.lisp (print-tables-2): ditto + * genclisph.d (LISPFUN_B): emit subr prototype + 2005-06-08 Jörg Höhle <ho...@us...> * modules/bindings/glibc/linux.lisp (errno): Remove dependency on --__--__-- Message: 4 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/utils modprep.lisp,1.44,1.45 Date: Fri, 10 Jun 2005 15:24:47 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/utils In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11749/utils Modified Files: modprep.lisp Log Message: avoid -Wstrict-prototypes warnings in modules Index: modprep.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/utils/modprep.lisp,v retrieving revision 1.44 retrieving revision 1.45 diff -u -d -r1.44 -r1.45 --- modprep.lisp 18 May 2005 21:30:37 -0000 1.44 +++ modprep.lisp 10 Jun 2005 15:24:44 -0000 1.45 @@ -1140,6 +1140,7 @@ (format out " { ~S, ~S }," (fundef-pack fd) (fundef-name fd)))) (formatln out " 0") (formatln out "};") (newline out) + (formatln out "void ~A (module_t* module);" *init-1-name*) (formatln out "void ~A (module_t* module)" *init-1-name*) (formatln out "{") (loop :for fd :across *fundefs* :for tag = (fundef-tag fd) :do @@ -1156,11 +1157,13 @@ (formatln out "}") (when *init-2-name* ; no init2 => define a dummy (newline out) + (formatln out "void ~A (module_t* module);" *init-2-name*) (formatln out "void ~A (module_t* module)" *init-2-name*) (formatln out "{") (formatln out "}")) (when *fini-name* ; no fini-func => define a dummy (newline out) + (formatln out "void ~A (module_t* module);" *fini-name*) (formatln out "void ~A (module_t* module)" *fini-name*) (formatln out "{") (formatln out "}")))) --__--__-- Message: 5 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src makemake.in,1.560,1.561 ChangeLog,1.4694,1.4695 Date: Fri, 10 Jun 2005 15:28:23 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14000/src Modified Files: makemake.in ChangeLog Log Message: (XCFLAGS) [CC_CPLUSPLUS=true]: do not add -Wmissing-declarations: cc1plus: warning: command line option "-Wmissing-declarations" is valid for C/ObjC but not for C++ Index: makemake.in =================================================================== RCS file: /cvsroot/clisp/clisp/src/makemake.in,v retrieving revision 1.560 retrieving revision 1.561 diff -u -d -r1.560 -r1.561 --- makemake.in 7 Jun 2005 11:12:20 -0000 1.560 +++ makemake.in 10 Jun 2005 15:28:18 -0000 1.561 @@ -1051,7 +1051,8 @@ if [ $XCC_GCC = true ] ; then XCC_GCC_VERSION=`LC_ALL=C $XCC -v 2>&1 | grep version | sed -n -e '$p' | sed -e 's/.*version //g' -e 's/gcc //'` - XCFLAGS='-W -Wswitch -Wcomment -Wpointer-arith -Wimplicit -Wreturn-type -Wmissing-declarations ' + XCFLAGS='-W -Wswitch -Wcomment -Wpointer-arith -Wimplicit -Wreturn-type' + test ${CC_CPLUSPLUS} = false && XCFLAGS=${XCFLAGS}' -Wmissing-declarations' if [ $CROSS = false ] ; then case "$XCC_GCC_VERSION" in # gcc 2.7 introduced an annoying warning, but gcc 2.8 has a workaround: Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4694 retrieving revision 1.4695 diff -u -d -r1.4694 -r1.4695 --- ChangeLog 10 Jun 2005 15:24:46 -0000 1.4694 +++ ChangeLog 10 Jun 2005 15:28:19 -0000 1.4695 @@ -1,5 +1,11 @@ 2005-06-10 Sam Steingold <sd...@gn...> + * makemake.in (XCFLAGS) [CC_CPLUSPLUS=true]: do not add + -Wmissing-declarations: 'cc1plus: warning: command line option + "-Wmissing-declarations" is valid for C/ObjC but not for C++' + +2005-06-10 Sam Steingold <sd...@gn...> + avoid -Wstrict-prototypes warnings in modules * foreign1.lisp (finalize-coutput-file): emit init/fini prototypes * utils/modprep.lisp (print-tables-2): ditto --__--__-- Message: 6 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src foreign1.lisp,1.84,1.85 ChangeLog,1.4695,1.4696 Date: Fri, 10 Jun 2005 16:27:43 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12510/src Modified Files: foreign1.lisp ChangeLog Log Message: (note-c-call-in): emit prototypes Index: foreign1.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/foreign1.lisp,v retrieving revision 1.84 retrieving revision 1.85 diff -u -d -r1.84 -r1.85 --- foreign1.lisp 10 Jun 2005 15:24:46 -0000 1.84 +++ foreign1.lisp 10 Jun 2005 16:27:36 -0000 1.85 @@ -1022,25 +1022,18 @@ (argflags (split-c-fun-arglist args 1)) (argnames (mapcar #'(lambda (argtype) (declare (ignore argtype)) (symbol-name (gensym "g"))) - argtypes))) + argtypes)) + (par-list (mapcar #'to-c-typedecl argtypes argnames)) + (par-string (format nil "(~{~A~^, ~})" (or par-list '("void")))) + (fun+type (to-c-typedecl rettype (format nil "(~A)" c-name)))) (prepare-c-typedecl rettype) ;(mapc #'prepare-c-typedecl argtypes) - (format *coutput-stream* "~%extern ~A " - (to-c-typedecl rettype (format nil "(~A)" c-name))) + ;; prototype + start + (format *coutput-stream* "~%~A ~A;~%~A " fun+type par-string fun+type) (if (flag-set-p flags ff-language-ansi-c) - ; ANSI C parameter declarations - (progn - (format *coutput-stream* "(") - (if argtypes - (do ((argtypesr argtypes (cdr argtypesr)) - (argnamesr argnames (cdr argnamesr))) - ((null argtypesr)) - (format *coutput-stream* "~A" - (to-c-typedecl (car argtypesr) (car argnamesr))) - (when (cdr argtypesr) (format *coutput-stream* ", "))) - (format *coutput-stream* "void")) - (format *coutput-stream* ")")) - ; K&R C parameter declarations + ;; ANSI C parameter declarations + (format *coutput-stream* "~A" par-string) + ;; K&R C parameter declarations (progn (format *coutput-stream* "(") (do ((argnamesr argnames (cdr argnamesr))) @@ -1048,11 +1041,8 @@ (format *coutput-stream* "~A" (car argnamesr)) (when (cdr argnamesr) (format *coutput-stream* ", "))) (format *coutput-stream* ")") - (do ((argtypesr argtypes (cdr argtypesr)) - (argnamesr argnames (cdr argnamesr))) - ((null argtypesr)) - (format *coutput-stream* "~% ~A;" - (to-c-typedecl (car argtypesr) (car argnamesr)))))) + (dolist (par par-list) + (format *coutput-stream* "~% ~A;" par)))) (format *coutput-stream* "~%{~% begin_callback();~%") (let ((inargcount 0) (outargcount (if (eq rettype 'NIL) 0 1)) (flag-output (logior ff-flag-out ff-flag-in-out))) Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4695 retrieving revision 1.4696 diff -u -d -r1.4695 -r1.4696 --- ChangeLog 10 Jun 2005 15:28:19 -0000 1.4695 +++ ChangeLog 10 Jun 2005 16:27:37 -0000 1.4696 @@ -1,5 +1,9 @@ 2005-06-10 Sam Steingold <sd...@gn...> + * foreign1.lisp (note-c-call-in): emit prototypes + +2005-06-10 Sam Steingold <sd...@gn...> + * makemake.in (XCFLAGS) [CC_CPLUSPLUS=true]: do not add -Wmissing-declarations: 'cc1plus: warning: command line option "-Wmissing-declarations" is valid for C/ObjC but not for C++' --__--__-- Message: 7 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/modules/pari pari.lisp,1.8,1.9 Date: Fri, 10 Jun 2005 16:28:33 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/modules/pari In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13985/modules/pari Modified Files: pari.lisp Log Message: (clisp_get_prec, clisp_set_prec, get_entry_doc, subres0): ditto Index: pari.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/modules/pari/pari.lisp,v retrieving revision 1.8 retrieving revision 1.9 diff -u -d -r1.8 -r1.9 --- pari.lisp 14 Apr 2005 16:56:28 -0000 1.8 +++ pari.lisp 10 Jun 2005 16:28:31 -0000 1.9 @@ -137,7 +137,9 @@ (def-c-var pari-series-precision (:name "precdl") (:type ulong)) ;; there is no global prec in PARI 2 +(c-lines "ulong clisp_get_prec (void);~%") ; prototype (c-lines "ulong clisp_get_prec (void) { return /*prec*/ 64; }~%") +(c-lines "void clisp_set_prec (ulong p);~%") ; prototype (c-lines "void clisp_set_prec (ulong p) { /*prec=*/(void)p; }~%") (def-call-out pari-get-real-prec-raw (:name "clisp_get_prec") @@ -221,6 +223,7 @@ (:return-type (c-ptr-null entree))) ;; this optimization is not necessary, it just saves some memory +(c-lines "char* get_entry_doc (char* s);~%") ; prototype (c-lines "char* get_entry_doc (char* s) { entree *e = is_entry(s); return e==NULL?NULL:e->help; }~%") (def-call-out get_entry_doc (:arguments (s c-string)) (:return-type c-string)) @@ -1619,6 +1622,7 @@ (pari-call-out factor-cantor-zassenhaus "factcantor" (x p)) ;; GEN subres(GEN x, GEN y); +(c-lines "GEN subres0 (GEN x, GEN y);~%") ; prototype (c-lines "GEN subres0 (GEN x, GEN y) { return subres(x,y); }~%") (pari-call-out resultant "subres0" (x y) "resultant") ;; GEN discsr(GEN x); --__--__-- Message: 8 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src ChangeLog,1.4696,1.4697 Date: Fri, 10 Jun 2005 16:28:33 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13985/src Modified Files: ChangeLog Log Message: (clisp_get_prec, clisp_set_prec, get_entry_doc, subres0): ditto Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4696 retrieving revision 1.4697 diff -u -d -r1.4696 -r1.4697 --- ChangeLog 10 Jun 2005 16:27:37 -0000 1.4696 +++ ChangeLog 10 Jun 2005 16:28:30 -0000 1.4697 @@ -1,6 +1,8 @@ 2005-06-10 Sam Steingold <sd...@gn...> * foreign1.lisp (note-c-call-in): emit prototypes + * modules/pari/pari.lisp (clisp_get_prec, clisp_set_prec) + (get_entry_doc, subres0): ditto 2005-06-10 Sam Steingold <sd...@gn...> --__--__-- Message: 9 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src ChangeLog,1.4697,1.4698 Date: Fri, 10 Jun 2005 16:41:12 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19883/src Modified Files: ChangeLog Log Message: updated for pari 2.2.11 (ell-local-reduction): use elllocalred (ell-global-reduction): use ellglobalred (ell-modular-parametrization): use elltaniyama Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4697 retrieving revision 1.4698 diff -u -d -r1.4697 -r1.4698 --- ChangeLog 10 Jun 2005 16:28:30 -0000 1.4697 +++ ChangeLog 10 Jun 2005 16:41:06 -0000 1.4698 @@ -1,5 +1,12 @@ 2005-06-10 Sam Steingold <sd...@gn...> + * modules/pari/pari.lisp: updated for pari 2.2.11 + (ell-local-reduction): use elllocalred + (ell-global-reduction): use ellglobalred + (ell-modular-parametrization): use elltaniyama + +2005-06-10 Sam Steingold <sd...@gn...> + * foreign1.lisp (note-c-call-in): emit prototypes * modules/pari/pari.lisp (clisp_get_prec, clisp_set_prec) (get_entry_doc, subres0): ditto --__--__-- Message: 10 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/modules/pari pari.lisp,1.9,1.10 Date: Fri, 10 Jun 2005 16:41:13 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/modules/pari In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19883/modules/pari Modified Files: pari.lisp Log Message: updated for pari 2.2.11 (ell-local-reduction): use elllocalred (ell-global-reduction): use ellglobalred (ell-modular-parametrization): use elltaniyama Index: pari.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/modules/pari/pari.lisp,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- pari.lisp 10 Jun 2005 16:28:31 -0000 1.9 +++ pari.lisp 10 Jun 2005 16:41:10 -0000 1.10 @@ -1275,18 +1275,18 @@ ;; GEN akell(GEN e, GEN n); (pari-call-out ell-l-series-n "akell" (e n)) -;; GEN localreduction(GEN e, GEN p1); -(pari-call-out ell-local-reduction "localreduction" (e p1) "localred") -;; GEN globalreduction(GEN e1); -(pari-call-out ell-global-reduction "globalreduction" (e1) "globalred") +;; GEN elllocalred(GEN e, GEN p1); +(pari-call-out ell-local-reduction "elllocalred" (e p1)) +;; GEN ellglobalred(GEN e1); +(pari-call-out ell-global-reduction "ellglobalred" (e1)) ;; GEN lseriesell(GEN e, GEN s, GEN N, GEN A, long prec); (pari-call-out-prec ell-l-series-value "lseriesell" (e s N A)) ;; GEN pointell(GEN e, GEN z, long prec); (pari-call-out-prec ell-z-to-xy "pointell" (e z)) -;; GEN taniyama(GEN e); -(pari-call-out ell-modular-parametrization "taniyama" (e)) +;; GEN elltaniyama(GEN e, long prec); +(pari-call-out-prec ell-modular-parametrization "elltaniyama" (e)) ;; GEN orderell(GEN e, GEN p); (pari-call-out ell-order "orderell" (e p)) --__--__-- _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest |
