clisp-cvs Digest, Vol 50, Issue 11

[<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/modules/wildcard test.tst,1.2,1.3 (Sam Steingold)
   2. clisp/modules/zlib test.tst,1.6,1.7 (Sam Steingold)
   3. clisp/modules/bindings/glibc test.tst,1.12,1.13 (Sam Steingold)
   4. clisp/modules/dbus test.tst,1.6,1.7 (Sam Steingold)
   5. clisp/modules/matlab test.tst,1.5,1.6 (Sam Steingold)
   6. clisp/modules/rawsock test.tst,1.59,1.60 (Sam Steingold)
   7. clisp/modules/gdbm test.tst,1.23,1.24 (Sam Steingold)
   8. clisp/modules/bindings/win32 test.tst,1.7,1.8 (Sam Steingold)
   9. clisp/modules/libsvm test.tst,1.12,1.13 (Sam Steingold)
  10. clisp/modules/pcre test.tst,1.16,1.17 (Sam Steingold)
  11. clisp/modules/berkeley-db dbi.lisp,1.32,1.33 (Sam Steingold)
  12. clisp/modules/syscalls config.h.in,1.75,1.76
      configure,1.109,1.110 (Sam Steingold)
  13. clisp/src ChangeLog,1.7410,1.7411 io.d,1.367,1.368 (Sam Steingold)
  14. clisp/benchmarks ChangeLog,1.5,1.6 run-all.lisp,1.4,1.5
      (Sam Steingold)


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

Message: 1
Date: Thu, 10 Jun 2010 19:16:08 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/modules/wildcard test.tst,1.2,1.3
To: cli...@li...
Message-ID: <E1O...@sf...>

Update of /cvsroot/clisp/clisp/modules/wildcard
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv5090/modules/wildcard

Modified Files:
	test.tst 
Log Message:
support both full and base+require


Index: test.tst
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/wildcard/test.tst,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- test.tst	8 Oct 2009 18:58:39 -0000	1.2
+++ test.tst	10 Jun 2010 19:16:06 -0000	1.3
@@ -1,7 +1,7 @@
 ;; -*- Lisp -*- vim:filetype=lisp
 ;; clisp -E utf-8 -q -norc -i ../tests/tests -x '(run-test "wildcard/test")'
 
-(require "wildcard") t
+(list (require "wildcard")) (#-WILDCARD T #+WILDCARD NIL)
 (listp (show (multiple-value-list (ext:module-info "wildcard" t)) :pretty t)) t
 
 (wildcard:match "foo" "bar") NIL




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

Message: 2
Date: Thu, 10 Jun 2010 19:16:09 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/modules/zlib test.tst,1.6,1.7
To: cli...@li...
Message-ID: <E1O...@sf...>

Update of /cvsroot/clisp/clisp/modules/zlib
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv5090/modules/zlib

Modified Files:
	test.tst 
Log Message:
support both full and base+require


Index: test.tst
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/zlib/test.tst,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- test.tst	8 Oct 2009 18:58:39 -0000	1.6
+++ test.tst	10 Jun 2010 19:16:06 -0000	1.7
@@ -2,7 +2,7 @@
 ;; some tests for ZLIB
 ;; clisp -E 1:1 -q -norc -i ../tests/tests -x '(run-test "zlib/test")'
 
-(require "zlib") t
+(list (require "zlib")) (#-ZLIB T #+ZLIB NIL)
 (listp (show (multiple-value-list (ext:module-info "zlib" t)) :pretty t)) t
 
 (format t "~&zlib version: ~S~%" (zlib:z-version))




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

Message: 3
Date: Thu, 10 Jun 2010 19:16:08 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/modules/bindings/glibc test.tst,1.12,1.13
To: cli...@li...
Message-ID: <E1O...@sf...>

Update of /cvsroot/clisp/clisp/modules/bindings/glibc
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv5090/modules/bindings/glibc

Modified Files:
	test.tst 
Log Message:
support both full and base+require


Index: test.tst
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/bindings/glibc/test.tst,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- test.tst	26 Oct 2009 20:32:11 -0000	1.12
+++ test.tst	10 Jun 2010 19:16:06 -0000	1.13
@@ -2,7 +2,7 @@
 ;; some tests for glibc
 ;; clisp -E 1:1 -q -norc -i ../tests/tests -x '(run-test "bindings/glibc/test")'
 
-(require "linux") T
+(progn (require "linux") T) T
 (listp (show (multiple-value-list (ext:module-info "linux" t)) :pretty t)) T
 
 (defparameter *d* (show (linux:opendir "."))) *D*




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

Message: 4
Date: Thu, 10 Jun 2010 19:16:08 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/modules/dbus test.tst,1.6,1.7
To: cli...@li...
Message-ID: <E1O...@sf...>

Update of /cvsroot/clisp/clisp/modules/dbus
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv5090/modules/dbus

Modified Files:
	test.tst 
Log Message:
support both full and base+require


Index: test.tst
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/dbus/test.tst,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- test.tst	8 Oct 2009 18:58:39 -0000	1.6
+++ test.tst	10 Jun 2010 19:16:06 -0000	1.7
@@ -2,7 +2,7 @@
 ;; tests for D-Bus
 ;; clisp -E 1:1 -q -norc -i ../tests/tests -x '(run-test "dbus/test")'
 
-(require "dbus") t
+(list (require "dbus")) (#-DBUS T #+DBUS NIL)
 (listp (show (multiple-value-list (ext:module-info "dbus" t)) :pretty t)) T
 
 dbus:DBUS_MAJOR_PROTOCOL_VERSION 1




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

Message: 5
Date: Thu, 10 Jun 2010 19:16:08 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/modules/matlab test.tst,1.5,1.6
To: cli...@li...
Message-ID: <E1O...@sf...>

Update of /cvsroot/clisp/clisp/modules/matlab
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv5090/modules/matlab

Modified Files:
	test.tst 
Log Message:
support both full and base+require


Index: test.tst
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/matlab/test.tst,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- test.tst	8 Oct 2009 18:58:39 -0000	1.5
+++ test.tst	10 Jun 2010 19:16:06 -0000	1.6
@@ -2,7 +2,7 @@
 ;; some tests for Matlab
 ;; clisp -E 1:1 -q -norc -i ../tests/tests -x '(run-test "matlab/test")'
 
-(require "matlab") t
+(list (require "matlab")) (#-MATLAB T #+MATLAB NIL)
 (listp (show (multiple-value-list (ext:module-info "matlab" t)) :pretty t)) T
 
 (matlab:invert-matrix #2a((1 2) (0 2)))




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

Message: 6
Date: Thu, 10 Jun 2010 19:16:08 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/modules/rawsock test.tst,1.59,1.60
To: cli...@li...
Message-ID: <E1O...@sf...>

Update of /cvsroot/clisp/clisp/modules/rawsock
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv5090/modules/rawsock

Modified Files:
	test.tst 
Log Message:
support both full and base+require


Index: test.tst
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/rawsock/test.tst,v
retrieving revision 1.59
retrieving revision 1.60
diff -u -d -r1.59 -r1.60
--- test.tst	2 Dec 2009 21:48:56 -0000	1.59
+++ test.tst	10 Jun 2010 19:16:06 -0000	1.60
@@ -3,7 +3,7 @@
 ;; clisp -E 1:1 -q -norc -i ../tests/tests -x '(run-test "rawsock/test")'
 ;; relies on some functions in the syscalls module
 
-(require "rawsock") t
+(list (require "rawsock")) (#-RAWSOCK T #+RAWSOCK NIL)
 (listp (show (multiple-value-list (ext:module-info "rawsock" t)) :pretty t)) T
 
 (progn




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

Message: 7
Date: Thu, 10 Jun 2010 19:16:08 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/modules/gdbm test.tst,1.23,1.24
To: cli...@li...
Message-ID: <E1O...@sf...>

Update of /cvsroot/clisp/clisp/modules/gdbm
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv5090/modules/gdbm

Modified Files:
	test.tst 
Log Message:
support both full and base+require


Index: test.tst
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/gdbm/test.tst,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -d -r1.23 -r1.24
--- test.tst	8 Oct 2009 18:58:39 -0000	1.23
+++ test.tst	10 Jun 2010 19:16:06 -0000	1.24
@@ -2,7 +2,7 @@
 ;; some tests for GDBM
 ;; clisp -E 1:1 -q -norc -i ../tests/tests -x '(run-test "gdbm/test")'
 
-(require "gdbm") t
+(list (require "gdbm")) (#-GDBM T #+GDBM NIL)
 (listp (show (multiple-value-list (ext:module-info "gdbm" t)) :pretty t)) T
 
 (defvar *db* nil) *DB*




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

Message: 8
Date: Thu, 10 Jun 2010 19:16:08 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/modules/bindings/win32 test.tst,1.7,1.8
To: cli...@li...
Message-ID: <E1O...@sf...>

Update of /cvsroot/clisp/clisp/modules/bindings/win32
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv5090/modules/bindings/win32

Modified Files:
	test.tst 
Log Message:
support both full and base+require


Index: test.tst
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/bindings/win32/test.tst,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- test.tst	8 Oct 2009 18:58:38 -0000	1.7
+++ test.tst	10 Jun 2010 19:16:06 -0000	1.8
@@ -2,7 +2,7 @@
 ;; some tests for WIN32
 ;; clisp -E 1:1 -q -norc -i ../tests/tests -x '(run-test "bindings/win32/test")'
 
-(require "win32") T
+(progn (require "win32") T) T
 (listp (show (multiple-value-list (ext:module-info "win32" t)) :pretty t)) T
 
 (defmacro show-mv (form) `(listp (show (multiple-value-list ,form) :pretty t)))




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

Message: 9
Date: Thu, 10 Jun 2010 19:16:08 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/modules/libsvm test.tst,1.12,1.13
To: cli...@li...
Message-ID: <E1O...@sf...>

Update of /cvsroot/clisp/clisp/modules/libsvm
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv5090/modules/libsvm

Modified Files:
	test.tst 
Log Message:
support both full and base+require


Index: test.tst
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/libsvm/test.tst,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- test.tst	8 Oct 2009 18:58:39 -0000	1.12
+++ test.tst	10 Jun 2010 19:16:06 -0000	1.13
@@ -2,7 +2,7 @@
 ;; some tests for libsvm
 ;; clisp -E 1:1 -q -norc -i ../tests/tests -x '(run-test "libsvm/test")'
 
-(require "libsvm") t
+(list (require "libsvm")) (#-LIBSVM T #+LIBSVM NIL)
 (listp (show (multiple-value-list (ext:module-info "libsvm" t)) :pretty t)) T
 
 (integerp (show libsvm:*libsvm-version*)) T
@@ -151,7 +151,7 @@
 (libsvm:destroy-parameter f-parameter) NIL
 (ffi:validp f-parameter) NIL
 
-(length (get-output-stream-string libsvm:*libsvm-output*)) 10585
+(stringp (show (get-output-stream-string libsvm:*libsvm-output*))) T
 
 (progn (makunbound 'f-parameter)
        (makunbound 'v-parameter)




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

Message: 10
Date: Thu, 10 Jun 2010 19:16:08 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/modules/pcre test.tst,1.16,1.17
To: cli...@li...
Message-ID: <E1O...@sf...>

Update of /cvsroot/clisp/clisp/modules/pcre
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv5090/modules/pcre

Modified Files:
	test.tst 
Log Message:
support both full and base+require


Index: test.tst
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/pcre/test.tst,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- test.tst	19 Mar 2010 20:34:04 -0000	1.16
+++ test.tst	10 Jun 2010 19:16:06 -0000	1.17
@@ -2,7 +2,7 @@
 ;; some tests for PCRE
 ;; clisp -E 1:1 -q -norc -i ../tests/tests -x '(run-test "pcre/test")'
 
-(require "pcre") t
+(list (require "pcre")) (#-PCRE T #+PCRE NIL)
 (listp (show (multiple-value-list (ext:module-info "pcre" t)) :pretty t)) T
 
 (defparameter *major-version*




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

Message: 11
Date: Thu, 10 Jun 2010 19:16:53 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/modules/berkeley-db dbi.lisp,1.32,1.33
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-serv5445

Modified Files:
	dbi.lisp 
Log Message:
provide "bdb", not "berkeley-db"


Index: dbi.lisp
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/berkeley-db/dbi.lisp,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -d -r1.32 -r1.33
--- dbi.lisp	24 May 2010 02:15:30 -0000	1.32
+++ dbi.lisp	10 Jun 2010 19:16:51 -0000	1.33
@@ -1,4 +1,4 @@
-;;; Copyright (C) 2003-2008 by Sam Steingold
+;;; Copyright (C) 2003-2008, 2010 by Sam Steingold
 ;;; This is Free Software, covered by the GNU GPL (v2)
 ;;; See <http://www.gnu.org/copyleft/gpl.html>
 
@@ -30,7 +30,7 @@
 (use-package '("BDB") "EXT")
 (ext:re-export "BDB" "EXT")
 (pushnew :berkeley-db *features*)
-(provide "berkeley-db")
+(provide "bdb")
 (in-package "BDB")
 
 (setf (documentation (find-package "BDB") 'sys::impnotes) "berkeley-db")




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

Message: 12
Date: Thu, 10 Jun 2010 19:18:19 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/modules/syscalls config.h.in,1.75,1.76
	configure,1.109,1.110
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-serv5843/modules/syscalls

Modified Files:
	config.h.in configure 
Log Message:
regenerate without clock check

Index: config.h.in
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/syscalls/config.h.in,v
retrieving revision 1.75
retrieving revision 1.76
diff -u -d -r1.75 -r1.76
--- config.h.in	18 May 2010 18:37:27 -0000	1.75
+++ config.h.in	10 Jun 2010 19:18:16 -0000	1.76
@@ -31,9 +31,6 @@
 /* Define to 1 if your system has a working `chown' function. */
 #undef HAVE_CHOWN
 
-/* Define to 1 if you have the `clock' function. */
-#undef HAVE_CLOCK
-
 /* Define to 1 if you have the `closelog' function. */
 #undef HAVE_CLOSELOG
 

Index: configure
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/syscalls/configure,v
retrieving revision 1.109
retrieving revision 1.110
diff -u -d -r1.109 -r1.110
--- configure	10 Jun 2010 04:41:20 -0000	1.109
+++ configure	10 Jun 2010 19:18:16 -0000	1.110
@@ -9243,7 +9243,7 @@
 
 fi
 
-for ac_func in clock getloadavg confstr fcntl gethostent sysconf getlogin getpwent getpwnam getpwuid endpwent setpwent getservbyport getservbyname getservent setservent endservent openlog setlogmask syslog closelog getppid getpgid getsid setpgid setsid kill pathconf fpathconf realpath getpgrp setpgrp getgrgid getgrnam getgrent endgrent setgrent endutxent getutxent getutxid getutxline pututxline setutxent mkfifo mkdir creat mkstemp tempnam mkdtemp getegid geteuid getgid getuid setegid seteuid setgid setuid setreuid setregid getgroups setgroups wait4 fchmod fchown fstat link stat symlink utime mknod chmod umask fsync sync ftruncate truncate getusershell endusershell erf erfc lgamma tgamma fstatvfs statvfs getpriority setpriority crypt encrypt setkey GlobalMemoryStatusEx strerror gethostid sethostid getdomainname setdomainname
+for ac_func in getloadavg confstr fcntl gethostent sysconf getlogin getpwent getpwnam getpwuid endpwent setpwent getservbyport getservbyname getservent setservent endservent openlog setlogmask syslog closelog getppid getpgid getsid setpgid setsid kill pathconf fpathconf realpath getpgrp setpgrp getgrgid getgrnam getgrent endgrent setgrent endutxent getutxent getutxid getutxline pututxline setutxent mkfifo mkdir creat mkstemp tempnam mkdtemp getegid geteuid getgid getuid setegid seteuid setgid setuid setreuid setregid getgroups setgroups wait4 fchmod fchown fstat link stat symlink utime mknod chmod umask fsync sync ftruncate truncate getusershell endusershell erf erfc lgamma tgamma fstatvfs statvfs getpriority setpriority crypt encrypt setkey GlobalMemoryStatusEx strerror gethostid sethostid getdomainname setdomainname
 do :
   as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh`
 ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var"




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

Message: 13
Date: Thu, 10 Jun 2010 19:51:30 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src ChangeLog,1.7410,1.7411 io.d,1.367,1.368
To: cli...@li...
Message-ID: <E1O...@sf...>

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

Modified Files:
	ChangeLog io.d 
Log Message:
(STRUCTURE-READER): fix g++ compilation and a GC-safety bug


Index: io.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/io.d,v
retrieving revision 1.367
retrieving revision 1.368
diff -u -d -r1.367 -r1.368
--- io.d	10 Jun 2010 17:55:35 -0000	1.367
+++ io.d	10 Jun 2010 19:51:28 -0000	1.368
@@ -3951,8 +3951,9 @@
     }
     if (eq(name,S(function))) { /* Symbol FUNCTION */
       var object closure = allocate_closure(iclos_length,seclass_default<<4);
-      var object* data = (object*)TheSrecord(closure)->recdata;
+      var gcv_object_t* data = TheSrecord(closure)->recdata;
       var uintL pos = 0;
+      args = STACK_1;           /* restore */
       for (;pos < iclos_length && !endp(args); pos++, args=Cdr(args))
         data[pos] = Car(args);
       if (pos < iclos_length) {

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.7410
retrieving revision 1.7411
diff -u -d -r1.7410 -r1.7411
--- ChangeLog	10 Jun 2010 18:31:08 -0000	1.7410
+++ ChangeLog	10 Jun 2010 19:51:28 -0000	1.7411
@@ -5,7 +5,7 @@
 
 2010-06-10  Sam Steingold  <sd...@gn...>
 
-	* io.d (STRUCTURE-READER): fix g++ compilation
+	* io.d (STRUCTURE-READER): fix g++ compilation and a GC-safety bug
 
 2010-06-10  Sam Steingold  <sd...@gn...>
 




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

Message: 14
Date: Thu, 10 Jun 2010 21:46:02 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/benchmarks ChangeLog,1.5,1.6 run-all.lisp,1.4,1.5
To: cli...@li...
Message-ID: <E1O...@sf...>

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

Modified Files:
	ChangeLog run-all.lisp 
Log Message:
* benchmarks/run-all.lisp (*here*): add
(file, benchmarks-run): use it to allow running from outside of
the benchmarks directory


Index: run-all.lisp
===================================================================
RCS file: /cvsroot/clisp/clisp/benchmarks/run-all.lisp,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- run-all.lisp	14 Aug 2002 23:38:53 -0000	1.4
+++ run-all.lisp	10 Jun 2010 21:45:59 -0000	1.5
@@ -37,6 +37,9 @@
 (defparameter *cur-stat* nil)
 (defparameter *old-stat* nil)
 
+(defparameter *here*
+  (make-pathname :name nil :type nil :defaults *load-truename*))
+
 ;; put here your CPU speed in GHz
 (defparameter *scale*
   #+(and CLISP SYSCALLS) (/ (POSIX:BOGOMIPS) 1000)
@@ -53,10 +56,12 @@
 ; Filename conversion
 (defun file (filename)
   (declare (string filename))
-  (case *benchmark-type*
-    (:compiled (concatenate 'string filename "." *compiled-type*))
-    (:interpreted (concatenate 'string filename "." *source-type*))
-    (t filename)))
+  (merge-pathnames
+   (case *benchmark-type*
+     (:compiled (concatenate 'string filename "." *compiled-type*))
+     (:interpreted (concatenate 'string filename "." *source-type*))
+     (t filename))
+   *here*))
 
 (defmacro with-file (filename &body body)
   (let ((fi (gensym "WITH-FILE-")))
@@ -99,8 +104,9 @@
   (case *benchmark-type*
     ((:compiled)
      (push (list "compilation" 0 0) *cur-stat*)
-     (timer-thing 1 'none "compile all files"
-                  #'mapc #'compile-file *file-list*)))
+     (timer-thing 1 'none "compile all files" #'mapc
+                  (lambda (f) (compile-file (merge-pathnames f *here*)))
+                  *file-list*)))
   ;; repeat counts are selected so that each test takes
   ;; approximately the same time
   (with-file "fac"

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/benchmarks/ChangeLog,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- ChangeLog	14 Aug 2002 23:38:53 -0000	1.5
+++ ChangeLog	10 Jun 2010 21:45:59 -0000	1.6
@@ -1,3 +1,9 @@
+2010-06-10  Sam Steingold  <sd...@gn...>
+
+	* run-all.lisp (*here*): add
+	(file, benchmarks-run): use it to allow running from outside of
+	the benchmarks directory
+
 2002-08-14  Sam Steingold  <sd...@gn...>
 
 	* run-all.lisp (benchmarks): when *BENCHMARK-TYPE* is nil, read




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

------------------------------------------------------------------------------
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
*****************************************