From: <cli...@li...> - 2010-06-10 19:16:15
|
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/src ChangeLog,1.7406,1.7407 (Sam Steingold) 2. clisp/modules/syscalls bogomips.c, NONE, 1.1 Makefile.in, 1.26, 1.27 calls.c, 1.303, 1.304 configure.in, 1.87, 1.88 link.sh.in, 1.7, 1.8 (Sam Steingold) 3. clisp/src makemake.in,1.916,1.917 (Sam Steingold) 4. clisp/src ChangeLog,1.7407,1.7408 makemake.in,1.917,1.918 (Sam Steingold) 5. clisp/src ChangeLog,1.7408,1.7409 io.d,1.366,1.367 (Sam Steingold) 6. clisp/modules/syscalls test.tst,1.100,1.101 (Sam Steingold) 7. clisp/modules/syscalls calls.c,1.304,1.305 (Sam Steingold) 8. clisp/src ChangeLog,1.7409,1.7410 (Sam Steingold) 9. clisp/modules/berkeley-db test.tst,1.34,1.35 (Sam Steingold) 10. clisp/modules/clx/new-clx test.tst,1.65,1.66 (Sam Steingold) 11. clisp/modules/pari test.tst,1.33,1.34 (Sam Steingold) 12. clisp/modules/postgresql test.tst,1.8,1.9 (Sam Steingold) ---------------------------------------------------------------------- Message: 1 Date: Thu, 10 Jun 2010 15:07:12 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.7406,1.7407 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/src In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv30475/src Modified Files: ChangeLog Log Message: make OS:BOGOMIPS work even when clisp is compiled with -O * modules/syscalls/bogomips.c: extract from calls.c * modules/syscalls/calls.c (BOGOMIPS): call extern bogomips() * modules/syscalls/Makefile.in (bogomips.o): compile without $(CPPFLAGS) and $(CFLAGS) to avoid all optimizations (GENERATED): add bogomips.o * modules/syscalls/configure.in: do not check for clock, it is always present on all platforms * modules/syscalls/link.sh.in (NEW_FILES): add bogomips.o Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.7406 retrieving revision 1.7407 diff -u -d -r1.7406 -r1.7407 --- ChangeLog 10 Jun 2010 04:40:38 -0000 1.7406 +++ ChangeLog 10 Jun 2010 15:07:03 -0000 1.7407 @@ -1,3 +1,15 @@ +2010-06-10 Sam Steingold <sd...@gn...> + + make OS:BOGOMIPS work even when clisp is compiled with -O + * modules/syscalls/bogomips.c: extract from calls.c + * modules/syscalls/calls.c (BOGOMIPS): call extern bogomips() + * modules/syscalls/Makefile.in (bogomips.o): compile without + $(CPPFLAGS) and $(CFLAGS) to avoid all optimizations + (GENERATED): add bogomips.o + * modules/syscalls/configure.in: do not check for clock, + it is always present on all platforms + * modules/syscalls/link.sh.in (NEW_FILES): add bogomips.o + 2010-06-09 Sam Steingold <sd...@gn...> update gnulib ------------------------------ Message: 2 Date: Thu, 10 Jun 2010 15:07:05 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/syscalls bogomips.c, NONE, 1.1 Makefile.in, 1.26, 1.27 calls.c, 1.303, 1.304 configure.in, 1.87, 1.88 link.sh.in, 1.7, 1.8 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/modules/syscalls In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv30475/modules/syscalls Modified Files: Makefile.in calls.c configure.in link.sh.in Added Files: bogomips.c Log Message: make OS:BOGOMIPS work even when clisp is compiled with -O * modules/syscalls/bogomips.c: extract from calls.c * modules/syscalls/calls.c (BOGOMIPS): call extern bogomips() * modules/syscalls/Makefile.in (bogomips.o): compile without $(CPPFLAGS) and $(CFLAGS) to avoid all optimizations (GENERATED): add bogomips.o * modules/syscalls/configure.in: do not check for clock, it is always present on all platforms * modules/syscalls/link.sh.in (NEW_FILES): add bogomips.o Index: link.sh.in =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/link.sh.in,v retrieving revision 1.7 retrieving revision 1.8 diff -u -d -r1.7 -r1.8 --- link.sh.in 10 Sep 2009 21:26:26 -0000 1.7 +++ link.sh.in 10 Jun 2010 15:07:03 -0000 1.8 @@ -1,7 +1,7 @@ ${MAKE-make} clisp-module \ CC="${CC}" CPPFLAGS="${CPPFLAGS}" CFLAGS="${CFLAGS}" \ CLISP_LINKKIT="$absolute_linkkitdir" CLISP="${CLISP}" -NEW_FILES='calls.o libgnu_sc.a' +NEW_FILES='calls.o bogomips.o libgnu_sc.a' NEW_LIBS="${NEW_FILES} @LIBS@" NEW_MODULES='syscalls' TO_LOAD='posix' Index: calls.c =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/calls.c,v retrieving revision 1.303 retrieving revision 1.304 diff -u -d -r1.303 -r1.304 --- calls.c 26 May 2010 10:01:49 -0000 1.303 +++ calls.c 10 Jun 2010 15:07:02 -0000 1.304 @@ -990,25 +990,8 @@ } #endif -#if defined(HAVE_CLOCK) -DEFUN(POSIX:BOGOMIPS,) { - if (clock() != (clock_t)-1) { - unsigned long loops = 1; - while ((loops <<= 1)) { - unsigned long ticks, ii; - ticks = clock(); - for (ii = loops; ii > 0; ii--); - ticks = clock() - ticks; - if (ticks >= CLOCKS_PER_SEC) { - double bogo = (1.0 * loops / ticks) * (CLOCKS_PER_SEC / 500000.0); - N_D(bogo,value1); mv_count=1; - return; - } - } - } - N_D(-1.0,value1); mv_count=1; -} -#endif /* HAVE_CLOCK */ +extern double bogomips (void); +DEFUN(OS:BOGOMIPS,) { N_D(bogomips(),value1); mv_count=1; } #if defined(HAVE_GETLOADAVG) DEFUN(POSIX:LOADAVG, &optional percentp) { @@ -4502,14 +4485,14 @@ } /* v.dwPlatformId */ } /* GetVersionEx */ #else - } } /* for MODPREP all brackets should be + } } /* for MODPREP all brackets should be balanced like there are no ifdefs */ #endif CloseClipboard(); } /* EmptyClipboard */ } /* OpenClipboard */ end_system_call(); - if (!textset) OS_error(); /* !textset => some system call failed + if (!textset) OS_error(); /* !textset => some system call failed && LastError contain this error code */ VALUES1(popSTACK()); } Index: Makefile.in =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/Makefile.in,v retrieving revision 1.26 retrieving revision 1.27 diff -u -d -r1.26 -r1.27 --- Makefile.in 24 Mar 2010 19:48:54 -0000 1.26 +++ Makefile.in 10 Jun 2010 15:07:01 -0000 1.27 @@ -17,7 +17,7 @@ SHELL = /bin/sh -GENERATED = calls.o posix.fas libgnu_sc.a preload.lisp +GENERATED = calls.o bogomips.o posix.fas libgnu_sc.a preload.lisp DISTRIBFILES = link.sh Makefile $(GENERATED) \ $(srcdir)/posix.lisp $(srcdir)/README distribdir = @@ -27,6 +27,10 @@ .PHONY : am--refresh clisp-module clisp-module-distrib clean distclean force +# no $(CPPFLAGS) $(CFLAGS) to avoid all optimizations +bogomips.o : $(srcdir)/bogomips.c + $(CC) -c $(srcdir)/bogomips.c -o bogomips.o + posix.fas: $(srcdir)/posix.lisp $(CLISP) -c $(srcdir)/posix.lisp -o ./ --- NEW FILE: bogomips.c --- /* this has to be in a separate file which is compiled without optimizations */ #include <time.h> double bogomips (void); double bogomips (void) { if (clock() != (clock_t)-1) { unsigned long loops = 1; while ((loops <<= 1)) { unsigned long ticks, ii; ticks = clock(); for (ii = loops; ii > 0; ii--); ticks = clock() - ticks; if (ticks >= CLOCKS_PER_SEC) return (1.0 * loops / ticks) * (CLOCKS_PER_SEC / 500000.0); } } return -1.0; } Index: configure.in =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/configure.in,v retrieving revision 1.87 retrieving revision 1.88 diff -u -d -r1.87 -r1.88 --- configure.in 17 Sep 2009 20:09:31 -0000 1.87 +++ configure.in 10 Jun 2010 15:07:02 -0000 1.88 @@ -1,5 +1,5 @@ dnl AUTOCONF configuration for syscalls -dnl Copyright (C) 2003-2009 Sam Steingold <sd...@gn...> +dnl Copyright (C) 2003-2010 Sam Steingold <sd...@gn...> dnl GNU GPL2 AC_PREREQ(2.57) @@ -36,7 +36,7 @@ CL_SOCKET dnl for getservbyport et al AC_SEARCH_LIBS(crypt, crypt) AC_SEARCH_LIBS(erf, m) -AC_CHECK_FUNCS(clock getloadavg confstr fcntl gethostent sysconf dnl +AC_CHECK_FUNCS(getloadavg confstr fcntl gethostent sysconf dnl getlogin getpwent getpwnam getpwuid endpwent setpwent dnl getservbyport getservbyname getservent setservent endservent dnl openlog setlogmask syslog closelog dnl ------------------------------ Message: 3 Date: Thu, 10 Jun 2010 17:30:47 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src makemake.in,1.916,1.917 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/src In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv332 Modified Files: makemake.in Log Message: fix verbose logging Index: makemake.in =================================================================== RCS file: /cvsroot/clisp/clisp/src/makemake.in,v retrieving revision 1.916 retrieving revision 1.917 diff -u -d -r1.916 -r1.917 --- makemake.in 10 Jun 2010 03:30:31 -0000 1.916 +++ makemake.in 10 Jun 2010 17:30:45 -0000 1.917 @@ -558,9 +558,6 @@ eval "`./libtool --tag=CC --config | grep '^wl='`" eval "`./libtool --tag=CC --config | grep '^export_dynamic_flag_spec='`" eval EXPORT_DYNAMIC_FLAG_SPEC=\"$export_dynamic_flag_spec\" -echo $wl >&2 -echo $export_dynamic_flag_spec >&2 -echo $EXPORT_DYNAMIC_FLAG_SPEC >&2 # Important: Don't rely on this host classification. # 1. GNU's database config.guess is not always up to date. @@ -1141,6 +1138,7 @@ test "${verbose}" = true -o "${verbose}" = yes && \ cat <<EOF >&2 +EXPORT_DYNAMIC_FLAG_SPEC=${EXPORT_DYNAMIC_FLAG_SPEC} # host system: hostname = "${hostname}" HSYS = "${HSYS}" ------------------------------ Message: 4 Date: Thu, 10 Jun 2010 17:54:44 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.7407,1.7408 makemake.in,1.917,1.918 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/src In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv10355/src Modified Files: ChangeLog makemake.in Log Message: (UNICODE_EXTRA): remove uniname.h, unitypes.h, uniwidth.h (now in build/gnulib/) Index: makemake.in =================================================================== RCS file: /cvsroot/clisp/clisp/src/makemake.in,v retrieving revision 1.917 retrieving revision 1.918 diff -u -d -r1.917 -r1.918 --- makemake.in 10 Jun 2010 17:30:45 -0000 1.917 +++ makemake.in 10 Jun 2010 17:54:42 -0000 1.918 @@ -1657,7 +1657,7 @@ UNICODE_EXTRA='' if [ "${with_unicode}" != no ] ; then UNICODE_INCLUDES=$UNICODE_INCLUDES' uni_upcase uni_downcase uni_attribute' - UNICODE_EXTRA=${UNICODE_EXTRA}' streq.h cjk.h uniwidth.h unitypes.h uniname.h uninames.h' + UNICODE_EXTRA=${UNICODE_EXTRA}' streq.h cjk.h uninames.h' fi NLS_INCLUDES='' Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.7407 retrieving revision 1.7408 diff -u -d -r1.7407 -r1.7408 --- ChangeLog 10 Jun 2010 15:07:03 -0000 1.7407 +++ ChangeLog 10 Jun 2010 17:54:41 -0000 1.7408 @@ -25,6 +25,7 @@ * gllib/uniname.in.h: replaces gllib/uniname.h * gllib/unitypes.in.h: replaces gllib/unitypes.h * gllib/uniwidth.in.h: replaces gllib/uniwidth.h + * makemake.in (UNICODE_EXTRA): remove these 3 files 2010-06-09 Sam Steingold <sd...@gn...> ------------------------------ Message: 5 Date: Thu, 10 Jun 2010 17:55:37 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.7408,1.7409 io.d,1.366,1.367 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/src In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv10745/src Modified Files: ChangeLog io.d Log Message: (STRUCTURE-READER): fix g++ compilation Index: io.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/io.d,v retrieving revision 1.366 retrieving revision 1.367 diff -u -d -r1.366 -r1.367 --- io.d 18 May 2010 15:10:08 -0000 1.366 +++ io.d 10 Jun 2010 17:55:35 -0000 1.367 @@ -3951,7 +3951,7 @@ } if (eq(name,S(function))) { /* Symbol FUNCTION */ var object closure = allocate_closure(iclos_length,seclass_default<<4); - var object* data = TheSrecord(closure)->recdata; + var object* data = (object*)TheSrecord(closure)->recdata; var uintL pos = 0; for (;pos < iclos_length && !endp(args); pos++, args=Cdr(args)) data[pos] = Car(args); Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.7408 retrieving revision 1.7409 diff -u -d -r1.7408 -r1.7409 --- ChangeLog 10 Jun 2010 17:54:41 -0000 1.7408 +++ ChangeLog 10 Jun 2010 17:55:35 -0000 1.7409 @@ -1,5 +1,9 @@ 2010-06-10 Sam Steingold <sd...@gn...> + * io.d (STRUCTURE-READER): fix g++ compilation + +2010-06-10 Sam Steingold <sd...@gn...> + make OS:BOGOMIPS work even when clisp is compiled with -O * modules/syscalls/bogomips.c: extract from calls.c * modules/syscalls/calls.c (BOGOMIPS): call extern bogomips() ------------------------------ Message: 6 Date: Thu, 10 Jun 2010 18:24:54 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/syscalls test.tst,1.100,1.101 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/modules/syscalls In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv22044 Modified Files: test.tst Log Message: test os:loadavg Index: test.tst =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/test.tst,v retrieving revision 1.100 retrieving revision 1.101 diff -u -d -r1.100 -r1.101 --- test.tst 19 Nov 2009 21:02:23 -0000 1.100 +++ test.tst 10 Jun 2010 18:24:52 -0000 1.101 @@ -604,6 +604,9 @@ (assert (null status) () "status=~S is non-NIL" status))) #+(and :unix (not :cygwin)) NIL +#+unix (every #'sys::double-float-p (show (multiple-value-list (os:loadavg)))) T +#+unix (every #'sys::fixnump (show (multiple-value-list (os:loadavg t)))) T + (progn (delete-file *tmp1*) (symbol-cleanup '*tmp1*) (delete-file *tmp2*) (symbol-cleanup '*tmp2*) (symbol-cleanup 'flush-clisp) ------------------------------ Message: 7 Date: Thu, 10 Jun 2010 18:31:11 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/syscalls calls.c,1.304,1.305 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/modules/syscalls In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv24230/modules/syscalls Modified Files: calls.c Log Message: (POSIX:LOADAVG): fix a GC-safety bug; use round() for integer returns Index: calls.c =================================================================== RCS file: /cvsroot/clisp/clisp/modules/syscalls/calls.c,v retrieving revision 1.304 retrieving revision 1.305 diff -u -d -r1.304 -r1.305 --- calls.c 10 Jun 2010 15:07:02 -0000 1.304 +++ calls.c 10 Jun 2010 18:31:08 -0000 1.305 @@ -1003,13 +1003,14 @@ if (ret != 3) OS_error(); mv_count=3; if (missingp(STACK_0)) { - N_D(loadavg[0],value1); - N_D(loadavg[1],value2); + N_D(loadavg[0],value1); pushSTACK(value1); + N_D(loadavg[1],value1); pushSTACK(value1); N_D(loadavg[2],value3); + value2 = popSTACK(); value1 = popSTACK(); } else { /* return % as ints, to avoid consing */ - value1 = fixnum((int)(loadavg[0]*100)); - value2 = fixnum((int)(loadavg[1]*100)); - value3 = fixnum((int)(loadavg[2]*100)); + value1 = fixnum((int)round(loadavg[0]*100)); + value2 = fixnum((int)round(loadavg[1]*100)); + value3 = fixnum((int)round(loadavg[2]*100)); } skipSTACK(1); } ------------------------------ Message: 8 Date: Thu, 10 Jun 2010 18:31:11 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog,1.7409,1.7410 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/src In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv24230/src Modified Files: ChangeLog Log Message: (POSIX:LOADAVG): fix a GC-safety bug; use round() for integer returns Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.7409 retrieving revision 1.7410 diff -u -d -r1.7409 -r1.7410 --- ChangeLog 10 Jun 2010 17:55:35 -0000 1.7409 +++ ChangeLog 10 Jun 2010 18:31:08 -0000 1.7410 @@ -1,5 +1,10 @@ 2010-06-10 Sam Steingold <sd...@gn...> + * modules/syscalls/calls.c (POSIX:LOADAVG): fix a GC-safety bug; + use round() for integer returns + +2010-06-10 Sam Steingold <sd...@gn...> + * io.d (STRUCTURE-READER): fix g++ compilation 2010-06-10 Sam Steingold <sd...@gn...> ------------------------------ Message: 9 Date: Thu, 10 Jun 2010 19:16:08 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/berkeley-db test.tst,1.34,1.35 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/modules/berkeley-db In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv5090/modules/berkeley-db Modified Files: test.tst Log Message: support both full and base+require Index: test.tst =================================================================== RCS file: /cvsroot/clisp/clisp/modules/berkeley-db/test.tst,v retrieving revision 1.34 retrieving revision 1.35 diff -u -d -r1.34 -r1.35 --- test.tst 18 May 2010 21:20:32 -0000 1.34 +++ test.tst 10 Jun 2010 19:16:06 -0000 1.35 @@ -2,7 +2,7 @@ ;; some tests for Berkeley-DB ;; clisp -E 1:1 -q -norc -i ../tests/tests -x '(run-test "berkeley-db/test")' -(require "bdb") t +(list (require "bdb")) (#-Berkeley-DB T #+Berkeley-DB NIL) (listp (show (multiple-value-list (ext:module-info "bdb" t)) :pretty t)) T (multiple-value-bind (ve ma mi pa subsystems) (bdb:db-version t) ------------------------------ Message: 10 Date: Thu, 10 Jun 2010 19:16:08 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/clx/new-clx test.tst,1.65,1.66 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/modules/clx/new-clx In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv5090/modules/clx/new-clx Modified Files: test.tst Log Message: support both full and base+require Index: test.tst =================================================================== RCS file: /cvsroot/clisp/clisp/modules/clx/new-clx/test.tst,v retrieving revision 1.65 retrieving revision 1.66 diff -u -d -r1.65 -r1.66 --- test.tst 9 Oct 2009 18:09:14 -0000 1.65 +++ test.tst 10 Jun 2010 19:16:06 -0000 1.66 @@ -2,7 +2,7 @@ ;; some tests for clx/new-clx ;; clisp -E 1:1 -q -norc -i ../tests/tests -x '(run-test "clx/new-clx/test")' -(require "clx") T +(list (require "clx")) (#-CLX T #+CLX NIL) (listp (show (multiple-value-list (ext:module-info "clx" t)) :pretty t)) T (defparameter *dpy* (show (xlib:open-default-display))) *dpy* ------------------------------ Message: 11 Date: Thu, 10 Jun 2010 19:16:08 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/pari test.tst,1.33,1.34 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/modules/pari In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv5090/modules/pari Modified Files: test.tst Log Message: support both full and base+require Index: test.tst =================================================================== RCS file: /cvsroot/clisp/clisp/modules/pari/test.tst,v retrieving revision 1.33 retrieving revision 1.34 diff -u -d -r1.33 -r1.34 --- test.tst 7 Jun 2010 19:34:03 -0000 1.33 +++ test.tst 10 Jun 2010 19:16:06 -0000 1.34 @@ -2,7 +2,7 @@ ;; some tests for GP/PARI CALCULATOR ;; clisp -E 1:1 -q -norc -i ../tests/tests -x '(run-test "pari/test")' -(require "pari") t +(list (require "pari")) (#-PARI T #+PARI NIL) (listp (show (multiple-value-list (ext:module-info "pari" t)) :pretty t)) t (format t "~&Version: ~S~%" pari:pari-version) NIL ------------------------------ Message: 12 Date: Thu, 10 Jun 2010 19:16:08 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/postgresql test.tst,1.8,1.9 To: cli...@li... Message-ID: <E1O...@sf...> Update of /cvsroot/clisp/clisp/modules/postgresql In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv5090/modules/postgresql Modified Files: test.tst Log Message: support both full and base+require Index: test.tst =================================================================== RCS file: /cvsroot/clisp/clisp/modules/postgresql/test.tst,v retrieving revision 1.8 retrieving revision 1.9 diff -u -d -r1.8 -r1.9 --- test.tst 8 Oct 2009 18:58:39 -0000 1.8 +++ test.tst 10 Jun 2010 19:16:06 -0000 1.9 @@ -2,7 +2,7 @@ ;; tests for PostGreSQL ;; clisp -E 1:1 -q -norc -i ../tests/tests -x '(run-test "postgresql/test")' -(require "postgresql") t +(list (require "postgresql")) (#-POSTGRESQL T #+POSTGRESQL NIL) (listp (show (multiple-value-list (ext:module-info "postgresql" t)) :pretty t)) T ;;; Based on the examples distributed with PostgreSQL (man libpq) ------------------------------ ------------------------------------------------------------------------------ ThinkGeek and WIRED's GeekDad team up for the Ultimate GeekDad Father's Day Giveaway. ONE MASSIVE PRIZE to the lucky parental unit. See the prize list and enter to win: http://p.sf.net/sfu/thinkgeek-promo ------------------------------ _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest, Vol 50, Issue 11 ***************************************** |