clisp-devel Mailing List for CLISP - an ANSI Common Lisp

2006/7/31, Reini Urban <ru...@x-...>:
> bdb.c has a few GLO(misc_encoding) and other encodings.
> strangely enough UNICODE is undefined, but the conversion is done.
>
> most are asciz_to_string(), but also some with_string_0() and
> asciz_to_string0().
>
> Since all string encoding arguments are ignored without-unicode, why not
> check GLO() against *_encoding and return some dummy, like 0 instead of
> the unknown struct member.
>
> For example the attached patch, introducing SGLO (GLO for string
> encodings) which returns 0 without UNICODE.

BTW: The last patch should of course patch clisp-2.39/src/lispbibl.d
You get the idea.

--- ./src/lispbibl.d.orig       2006-06-22 08:11:57.000000000 +0000
+++ ./src/lispbibl.d    2006-07-31 20:50:48.437500000 +0000
@@ -10737,6 +10737,12 @@
 #define O(name)  (object_tab.name)
 %% /* FIXME: Difference between lispbibl.d and clisp.h */
 %% puts("#define GLO(name)  (object_tab.name)");
+%% /* without-unicode simplify modules string encodings*/
+%% puts("#if CLISP_UNICODE");
+%% puts("#define SGLO(name) (object_tab.name)");
+%% puts("#else");
+%% puts("#define SGLO(name) (0)");
+%% puts("#endif");

 #if defined(GENERATIONAL_GC) && defined(SPVW_MIXED)
 # handle_fault_range(PROT_READ,start,end) makes an address range readable.

bdb.c has a few GLO(misc_encoding) and other encodings.
strangely enough UNICODE is undefined, but the conversion is done.

most are asciz_to_string(), but also some with_string_0() and 
asciz_to_string0().

Since all string encoding arguments are ignored without-unicode, why not 
check GLO() against *_encoding and return some dummy, like 0 instead of 
the unknown struct member.

For example the attached patch, introducing SGLO (GLO for string 
encodings) which returns 0 without UNICODE.
-- 
Reini Urban
http://phpwiki.org/  http://murbreak.at/
http://helsinki.at/  http://spacemovie.mur.at/

Sam wrote:
> > You appear to want to access the lambda list and doc string of a
> > generic function. 
> 
> aren't these already available in describe?

Please look yourself.

> no, I want to save the lambda-list and the documentation string of an 
> ordinary closure (using 2 more slots in the constants vector), 
> controllable by the (optimize size) declarations.
> for that I need to be able to detect if the closure object contains 
> these slots or not.

In an Iclosure you can move the clos_docstring field to the end, and then
test the length of the Iclosure as a Record.

For a Cclosure, you have 3 bits available in the ccv_flags.

Bruno

Sam,

> can I use instflags_ in a cclosure that is not an instance to indicate
> whether the instance's constant vector contains the lambda list and doc
> string or not?

I don't think it's safe. Remember, a cclosure can be a CLOS instance or
a built-in function instance:
#define Closure_name(obj)  \
  (Closure_instancep(obj)             \
   ? TheCclosure(obj)->clos_consts[1] \
   : TheClosure(obj)->clos_name_or_class_version)

In case of a CLOS instance, all 4 instflags_* bits are needed, because
such CLOS instances can be subject to CHANGE-CLASS and UPDATE-CLASS-FOR-...

> the comment at lispbibl.d:6622 says
> # Flags in a closure. They must be disjoint from the instflags_* bits.
> but the code appears to indicate that at least instflags_forwarded_B and
> instflags_beingupdated_B are available.

No, they are not available. And the other 4 bits are already taken for
Cclosure_seclass and closflags_instance_B.

You appear to want to access the lambda list and doc string of a
generic function. It doesn't need to be optimized for speed, I assume.
It doesn't need a special bit in the header. So, the natural implementation
is to access the clos::$lambda-list and clos::$documentation slots if
they exist, getting their index through the hash table. (Cf.
clos-genfun1.lisp.) A little more optimized implementation would
exploit the fact that the class <standard-generic-function> is marked
  :fixed-slot-locations t
Like this:

/* Keep in sync with clos-genfun1.lisp! */
typedef struct {
  SRECORD_HEADER
  gcv_object_t inst_class_version           _attribute_aligned_object_;
  ...
  gcv_object_t stdgf_signature              _attribute_aligned_object_;
  gcv_object_t stdgf_argorder               _attribute_aligned_object_;
  gcv_object_t stdgf_methods                _attribute_aligned_object_;
  gcv_object_t stdgf_method_combination     _attribute_aligned_object_;
  gcv_object_t stdgf_default_method_class   _attribute_aligned_object_;
  gcv_object_t stdgf_lambda_list            _attribute_aligned_object_;
  gcv_object_t stdgf_documentation          _attribute_aligned_object_;
  gcv_object_t stdgf_declspecs              _attribute_aligned_object_;
  gcv_object_t stdgf_effective_method_cache _attribute_aligned_object_;
  gcv_object_t stdgf_initialized            _attribute_aligned_object_;
* StdGF;

  if (Closure_instancep(obj)) {
    var object obj_forwarded = obj;
    instance_un_realloc(obj_forwarded);
    instance_update(obj,obj_forwarded);
    var object cv = TheInstance(obj_forwarded)->inst_class_version;
    var object objclas = TheClassVersion(cv)->cv_newest_class;
    if (!eq(gethash(O(class_standard_generic_function),
                    TheClass(objclas)->all_superclasses,false),
            nullobj)) {
      /* Here we know it's a <standard-generic-function> instance. */
      ((StdGF)TheInstance(obj_forwarded))->stdgf_documentation;


But as you can see, it is a lot of work to do this in C, and doesn't
increase maintainability. Why not simply write this access in Lisp?

Bruno

Sam Steingold wrote:

> fixed in the cvs, thanks!

No:

In file included from spvw.d:24:
lispbibl.d:9097: warning: register used for two global register variables
In file included from spvw.d:225:
spvw_mmap.d:251: warning: no previous declaration for 'munmap'
spvw_mmap.d:263: warning: no previous declaration for 'mprotect'
spvw.d: In function `find_name':
spvw.d:3505: warning: implicit declaration of function `dlsym'
spvw.d:3505: warning: assignment makes pointer from integer without a cast
spvw.d:3510: warning: implicit declaration of function `dlopen'
spvw.d:3510: error: `RTLD_LAZY' undeclared (first use in this function)
spvw.d:3510: error: (Each undeclared identifier is reported only once
spvw.d:3510: error: for each function it appears in.)
spvw.d:3510: warning: assignment makes pointer from integer without a cast
spvw.d:3512: warning: assignment makes pointer from integer without a cast
spvw.d:3515: warning: assignment makes pointer from integer without a cast
make: *** [spvw.o] Error 1


But if I change last patch from CVS for spvw.d:


@@ -3497,7 +3497,7 @@
  global void* find_name (void *handle, const char *name)
  {
    var void *ret = NULL;
- #if !defined(RTLD_DEFAULT)
+ #if !defined(WIN32_NATIVE) && !defined(RTLD_DEFAULT)
    /* FreeBSD 4.0 and AIX 5.1 do not support RTLD_DEFAULT, so we emulate
it by
       searching the executable and the libc. */
    if (handle == NULL) {


all works (hmm, with your patch for me. Wait... Without your patch for 
me too). I do not check CVS version after "Vol 3, Issue 22" earlier.

Thanks!

-- 
WBR, Yaroslav Kavenchuk.

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 spvw.d,1.389,1.390 (Sam Steingold)


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

Message: 1
Date: Sun, 30 Jul 2006 16:08:38 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src spvw.d,1.389,1.390
To: cli...@li...
Message-ID: <E1G...@ma...>

Update of /cvsroot/clisp/clisp/src
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv8521/src

Modified Files:
	spvw.d 
Log Message:
type in last patch


Index: spvw.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/spvw.d,v
retrieving revision 1.389
retrieving revision 1.390
diff -u -d -r1.389 -r1.390
--- spvw.d	25 Jul 2006 14:11:14 -0000	1.389
+++ spvw.d	30 Jul 2006 16:08:36 -0000	1.390
@@ -3497,7 +3497,7 @@
 global void* find_name (void *handle, const char *name)
 {
   var void *ret = NULL;
- #if 1 || !defined(RTLD_DEFAULT)
+ #if !defined(RTLD_DEFAULT)
   /* FreeBSD 4.0 and AIX 5.1 do not support RTLD_DEFAULT, so we emulate it by
      searching the executable and the libc. */
   if (handle == NULL) {




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

-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys -- and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV

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

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


End of clisp-cvs Digest, Vol 3, Issue 27
****************************************

Bugs item #1531290, was opened at 2006-07-30 16:39
Message generated for change (Tracker Item Submitted) made by Item Submitter
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=1531290&group_id=1355

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: ffcall
Group: build problems
Status: Open
Resolution: None
Priority: 5
Submitted By: Gerard Milmeister (gemi)
Assigned to: Bruno Haible (haible)
Summary: ffcall SELlinux violation on Fedora Core 5

Initial Comment:
Clisp version 2.39 fails to build on Fedora Core 5
with SELinux enabled.

The output from the compilation is:
/bin/sh ./libtool --mode=link gcc  -x none test2.o
trampoline.lo  -o test2
gcc -x none test2.o trampoline.o -o test2
./test1
trampoline: cannot make memory executable
make[2]: *** [check] Aborted
make[2]: Leaving directory
`/home/gemi/Projects/fedora/extras/clisp/FC-5/clisp-2.39/build/callback/trampoline_r'
make[1]: *** [check-subdirs] Error 2
make[1]: Leaving directory
`/home/gemi/Projects/fedora/extras/clisp/FC-5/clisp-2.39/build/callback'
./configure: despite --with-dynamic-ffi, FFCALL could
not be built

The output in audit.log is:
type=AVC msg=audit(1154277453.270:515): avc:  denied  {
execheap } for  pid=6764 comm="test1"
scontext=user_u:system_r:unconfined_t:s0
tcontext=user_u:system_r:unconfined_t:s0 tclass=process

Thus there is a violation of the heap execution
policy of SELinux.

This appeared in clisp 2.39, no problem with previous
versions.


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

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=1531290&group_id=1355

> * Yaroslav Kavenchuk <xni...@gh...> [2006-07-30 18:49:37 +0300]:
>
> clisp from CVS head, mingw, WinXP
>
> ./configure --with-mingw --with-readline \
>             --with-module=dirkey --with-module=pcre \
>             --with-module=rawsock \
>             --with-module=wildcard --with-module=zlib \
>             --with-module=bindings/win32 \
>             --with-libreadline-prefix=/usr/local \
>             --with-libtermcap-prefix=/usr/local \
>             --with-libpcre-prefix=/usr/local \
>             --build build-full
> ...
> In file included from spvw.d:3457:
> spvw_memfile.d: In function `loadmem_from_handle':
> spvw_memfile.d:973: warning: empty body in an else-statement

does the appended patch fix the warning?

> spvw.d: In function `find_name':
> spvw.d:3505: warning: implicit declaration of function `dlsym'

fixed in the cvs, thanks!


-- 
Sam Steingold (http://www.podval.org/~sds) on Fedora Core release 5 (Bordeaux)
http://pmw.org.il http://truepeace.org http://openvotingconsortium.org
http://memri.org http://camera.org http://ffii.org http://honestreporting.com
Type louder, please.


--- spvw_memfile.d	26 Jul 2006 04:11:32 -0400	1.109
+++ spvw_memfile.d	30 Jul 2006 12:09:05 -0400	
@@ -969,8 +969,8 @@
         }                                                               \
       } while(0)
    begin_read:
-    if (mem_searched) set_file_offset(mem_start);
-    else set_file_offset(0);
+    if (mem_searched) {set_file_offset(mem_start);}
+    else {set_file_offset(0);}
     /* read basic information: */
     READ(&header,sizeof(header));
     if (header._magic != memdump_magic) {

clisp from CVS head, mingw, WinXP

./configure --with-mingw --with-readline \
            --with-module=dirkey --with-module=pcre \
            --with-module=rawsock \
            --with-module=wildcard --with-module=zlib \
            --with-module=bindings/win32 \
            --with-libreadline-prefix=/usr/local \
            --with-libtermcap-prefix=/usr/local \
            --with-libpcre-prefix=/usr/local \
            --build build-full
...
In file included from spvw.d:3457:
spvw_memfile.d: In function `loadmem_from_handle':
spvw_memfile.d:973: warning: empty body in an else-statement
spvw.d: In function `find_name':
spvw.d:3505: warning: implicit declaration of function `dlsym'
spvw.d:3505: warning: assignment makes pointer from integer without a cast
spvw.d:3510: warning: implicit declaration of function `dlopen'
spvw.d:3510: error: `RTLD_LAZY' undeclared (first use in this function)
spvw.d:3510: error: (Each undeclared identifier is reported only once
spvw.d:3510: error: for each function it appears in.)
spvw.d:3510: warning: assignment makes pointer from integer without a cast
spvw.d:3512: warning: assignment makes pointer from integer without a cast
spvw.d:3515: warning: assignment makes pointer from integer without a cast
make: *** [spvw.o] Error 1

Thanks!

-- 
WBR, Yaroslav Kavenchuk.

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.5360,1.5361 (Sam Steingold)
   2. clisp/modules/rawsock test.tst,1.45,1.46 rawsock.c,1.78,1.79
      (Sam Steingold)
   3. clisp/src spvw_memfile.d,1.108,1.109 ChangeLog,1.5359,1.5360
      (Sam Steingold)
   4. clisp/src ChangeLog,1.5364,1.5365 (Sam Steingold)
   5. clisp/src makemake.in, 1.662, 1.663 NEWS, 1.326, 1.327
      ChangeLog,	1.5361, 1.5362 (Sam Steingold)
   6. clisp/src NEWS,1.327,1.328 (Sam Steingold)
   7. clisp/src socket.d,1.106,1.107 ChangeLog,1.5362,1.5363
      (Sam Steingold)
   8. clisp/modules/rawsock rawsock.c,1.79,1.80 (Sam Steingold)


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

Message: 1
Date: Tue, 25 Jul 2006 22:01:54 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src ChangeLog,1.5360,1.5361
To: cli...@li...
Message-ID: <E1G...@ma...>

Update of /cvsroot/clisp/clisp/src
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv10801/src

Modified Files:
	ChangeLog 
Log Message:
when CONFIG_SHELL is bash and /bin/sh is not, re-exec the configure
script with CONFIG_SHELL to enable sourcing of config.cache


Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.5360
retrieving revision 1.5361
diff -u -d -r1.5360 -r1.5361
--- ChangeLog	25 Jul 2006 20:05:51 -0000	1.5360
+++ ChangeLog	25 Jul 2006 22:01:51 -0000	1.5361
@@ -1,3 +1,8 @@
+2006-07-25  Sam Steingold  <sd...@po...>
+
+	* configure: when CONFIG_SHELL is bash and /bin/sh is not, re-exec the
+	configure script with CONFIG_SHELL to enable sourcing of config.cache
+
 2006-07-25  Dr. Werner Fink  <we...@su...>
 	Sam Steingold  <sd...@po...>
 




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

Message: 2
Date: Wed, 26 Jul 2006 22:12:24 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/modules/rawsock test.tst,1.45,1.46 rawsock.c,1.78,1.79
To: cli...@li...
Message-ID: <E1G...@ma...>

Update of /cvsroot/clisp/clisp/modules/rawsock
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv16444/modules/rawsock

Modified Files:
	test.tst rawsock.c 
Log Message:
(RAWSOCK:CONVERT-ADDRESS): use UI_to_LEbytes() instead of I_to_uint*()
for uint* argument so that it will work on big-endian machines


Index: rawsock.c
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/rawsock/rawsock.c,v
retrieving revision 1.78
retrieving revision 1.79
diff -u -d -r1.78 -r1.79
--- rawsock.c	18 Jul 2006 14:15:33 -0000	1.78
+++ rawsock.c	26 Jul 2006 22:12:22 -0000	1.79
@@ -377,12 +377,16 @@
     switch (family) {
      #if defined(AF_INET6)
       case AF_INET6: {
-        uint64 ip_address = I_to_uint64(check_uint64(STACK_0));
+        uint64 ip_address;
+        UI_to_LEbytes(check_uint64(STACK_0),8*sizeof(uint64),
+                      (uintB*)&ip_address);
         value1 = addr_to_string(family,(char*)&ip_address);
       } break;
      #endif
       case AF_INET: {
-        uint32 ip_address = I_to_uint32(check_uint32(STACK_0));
+        uint32 ip_address;
+        UI_to_LEbytes(check_uint32(STACK_0),8*sizeof(uint32),
+                      (uintB*)&ip_address);
         value1 = addr_to_string(family,(char*)&ip_address);
       } break;
       default: value1 = NIL;

Index: test.tst
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/rawsock/test.tst,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -d -r1.45 -r1.46
--- test.tst	21 Jun 2006 13:54:54 -0000	1.45
+++ test.tst	26 Jul 2006 22:12:22 -0000	1.46
@@ -36,7 +36,9 @@
       (show (mapcar (lambda (addr)
                       (let* ((numeric (rawsock:convert-address type addr))
                              (dotted (rawsock:convert-address type numeric)))
-                        (show (list :address addr numeric dotted))
+                        (show (list :address addr numeric dotted
+                                    (posix:resolve-host-ipaddr numeric))
+                              :pretty t)
                         (assert (string= addr dotted))))
                     (posix:hostent-addr-list he)))
       sa))




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

Message: 3
Date: Tue, 25 Jul 2006 20:05:54 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src spvw_memfile.d,1.108,1.109 ChangeLog,1.5359,1.5360
To: cli...@li...
Message-ID: <E1G...@ma...>

Update of /cvsroot/clisp/clisp/src
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv1634/src

Modified Files:
	spvw_memfile.d ChangeLog 
Log Message:
fix executable images on ia64
(loadmem_from_handle): when mem_searched, call
set_file_offset(mem_start), not set_file_offset(0)
>From Dr. Werner Fink <we...@su...>


Index: spvw_memfile.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/spvw_memfile.d,v
retrieving revision 1.108
retrieving revision 1.109
diff -u -d -r1.108 -r1.109
--- spvw_memfile.d	19 Jun 2006 13:48:48 -0000	1.108
+++ spvw_memfile.d	25 Jul 2006 20:05:51 -0000	1.109
@@ -969,7 +969,8 @@
         }                                                               \
       } while(0)
    begin_read:
-    set_file_offset(0);
+    if (mem_searched) set_file_offset(mem_start);
+    else set_file_offset(0);
     /* read basic information: */
     READ(&header,sizeof(header));
     if (header._magic != memdump_magic) {

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.5359
retrieving revision 1.5360
diff -u -d -r1.5359 -r1.5360
--- ChangeLog	25 Jul 2006 19:44:14 -0000	1.5359
+++ ChangeLog	25 Jul 2006 20:05:51 -0000	1.5360
@@ -1,3 +1,10 @@
+2006-07-25  Dr. Werner Fink  <we...@su...>
+	Sam Steingold  <sd...@po...>
+
+	fix executable images on ia64
+	* spvw_memfile.d (loadmem_from_handle): when mem_searched, call
+	set_file_offset(mem_start), not set_file_offset(0)
+
 2006-07-25  Sam Steingold  <sd...@po...>
 
 	fixed bug #[ 1526448 ]: Reinitialization of class does not call




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

Message: 4
Date: Thu, 27 Jul 2006 13:24:48 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src ChangeLog,1.5364,1.5365
To: cli...@li...
Message-ID: <E1G...@ma...>

Update of /cvsroot/clisp/clisp/src
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv17054/src

Modified Files:
	ChangeLog 
Log Message:
(RAWSOCK:CONVERT-ADDRESS): made restartable


Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.5364
retrieving revision 1.5365
diff -u -d -r1.5364 -r1.5365
--- ChangeLog	26 Jul 2006 22:12:22 -0000	1.5364
+++ ChangeLog	27 Jul 2006 13:24:45 -0000	1.5365
@@ -1,5 +1,10 @@
+2006-07-27  Sam Steingold  <sd...@po...>
+
+	* modules/rawsock/rawsock.c (RAWSOCK:CONVERT-ADDRESS): made restartable
+
 2006-07-26  Sam Steingold  <sd...@po...>
 
+	fix bug #[ 1529244 ]: rawsock is broken on big-endian
 	* socket.d (resolve_host): use UI_to_LEbytes() instead of I_to_uint32()
 	for uint32 argument so that it will work on big-endian machines
 	* modules/rawsock/rawsock.c (RAWSOCK:CONVERT-ADDRESS): ditto




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

Message: 5
Date: Wed, 26 Jul 2006 20:19:59 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src makemake.in, 1.662, 1.663 NEWS, 1.326, 1.327
	ChangeLog,	1.5361, 1.5362
To: cli...@li...
Message-ID: <E1G...@ma...>

Update of /cvsroot/clisp/clisp/src
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv8000/src

Modified Files:
	makemake.in NEWS ChangeLog 
Log Message:
accept --elispdir and install emacs files there
(datadir/emacs/site-lisp/ by default)


Index: NEWS
===================================================================
RCS file: /cvsroot/clisp/clisp/src/NEWS,v
retrieving revision 1.326
retrieving revision 1.327
diff -u -d -r1.326 -r1.327
--- NEWS	25 Jul 2006 19:44:14 -0000	1.326
+++ NEWS	26 Jul 2006 20:19:56 -0000	1.327
@@ -1,6 +1,11 @@
 User visible changes
 --------------------
 
+* Infrastructure
+  + Top-level configure now accepts a new option --elispdir which specifies
+    the installation directory for the Emacs Lisp files (clhs.el et al).
+    The default value is ${datadir}/emacs/site-lisp/.
+
 * Bug fixes:
   + Make it possible to set *IMPNOTES-ROOT-DEFAULT* and *CLHS-ROOT-DEFAULT*
     to local paths, as opposed to URLs. [ 1494059 ]

Index: makemake.in
===================================================================
RCS file: /cvsroot/clisp/clisp/src/makemake.in,v
retrieving revision 1.662
retrieving revision 1.663
diff -u -d -r1.662 -r1.663
--- makemake.in	19 Jul 2006 16:38:46 -0000	1.662
+++ makemake.in	26 Jul 2006 20:19:56 -0000	1.663
@@ -47,6 +47,8 @@
                                  documentation in PostScript format
        --pdfdir=DIR            sets the installation directory for
                                  documentation in PDF format
+       --elispdir=DIR          sets the installation directory for
+                                 Emacs Lisp files
        --hyperspec=URL         the path to the Common Lisp HyperSpec
            (the default is ${HSDEFAULT}
             or the value of the environment variable CLHSROOT, if set).
@@ -182,6 +184,7 @@
 dvidir=''
 psdir=''
 pdfdir=''
+elispdir=''
 MODULES=''
 module_configure_flags=''
 CP='cp -p'
@@ -417,6 +420,14 @@
         shift
       fi
       ;;
+    -elispdir* | --elispdir*)
+      elispdir=`echol "$1" | sed 's/-*elispdir=*//'`
+      shift
+      if test -z "$elispdir" ; then
+        elispdir=$1
+        shift
+      fi
+      ;;
     --win32gcc) HSYS="win32gcc"; shift; ;;
     --hyperspec=*)
       arg=`echol "$1" | sed 's/-*hyperspec=//'`
@@ -868,6 +879,14 @@
   pdfdir="\$(docdir)"
   PDFDIR="$pdfdir"
 fi
+if [ $HOS = unix ] ; then
+  test -n "$elispdir" ||
+    elispdir='${datadir}/emacs/site-lisp' # with autoconf-2.60: elispdir='@elispdir@' # usually '${datadir}/emacs/site-lisp' --- ???
+  ELISPDIR=`echo "$elispdir" | sed -e "$brace_to_paren"`
+else
+  elispdir="\$(datadir)/emacs/site-lisp"
+  ELISPDIR="$elispdir"
+fi
 
 if [ $H_DOS = "true" ] ; then
   # Replace '/' with '\':
@@ -1889,11 +1908,12 @@
 echol "dvidir  = ${DVIDIR}"
 echol "psdir   = ${PSDIR}"
 echol "pdfdir  = ${PDFDIR}"
-echol "libdir = ${LIBDIR}"
+echol "libdir  = ${LIBDIR}"
 echol "lisplibdir = \$(libdir)${NEXT_}clisp"
 if [ -n "$USE_GETTEXT" ] ; then
   echol "localedir = ${LOCALEDIR}"
 fi
+echol "elispdir = ${ELISPDIR}"
 echol "# The value of following variable is prepended to all the paths for"
 echol "# installation. This is useful when preparing a binary distribution."
 echol "DESTDIR ="
@@ -3640,6 +3660,7 @@
       echotab "cd po && \$(MAKE) installdirs prefix='\$(DESTDIR)\$(prefix)' exec_prefix='\$(DESTDIR)\$(exec_prefix)'"
     fi
     echotab_mkdir_maybe "\$(DESTDIR)\$(datadir)"
+    echotab_mkdir_maybe "\$(DESTDIR)\$(elispdir)"
     echotab_mkdir_maybe "\$(DESTDIR)\$(mandir)"
     echotab_mkdir_maybe "\$(DESTDIR)\$(mandir)/man1"
     case "$fsstnd" in
@@ -3693,6 +3714,10 @@
     fi
     echotab_mkdir_maybe "\$(DESTDIR)\$(bindir)"
     echotab "\$(CC) \$(CPPFLAGS) \$(CFLAGS) \$(CLFLAGS)${DRIVERFLAGS} -DLISPLIBDIR='\"\$(lisplibdir)\"' -DLOCALEDIR='\"\$(localedir)\"' clisp.c -o \$(DESTDIR)\$(bindir)/clisp"
+    echotab_mkdir_maybe "\$(DESTDIR)\$(elispdir)"
+    for f in ${EMACS_FILES}; do
+      echotab "\$(INSTALL_DATA) ${SRCTOPDIR}/emacs/$f \$(DESTDIR)\$(elispdir)/$f"
+    done
     echol
     echol "install-man : clisp.1 ${manual_dvi} clisp.html force"
     echotab_mkdir_maybe "\$(DESTDIR)\$(prefix)"
@@ -3772,6 +3797,9 @@
         ;;
     esac
     echotab "\$(RMRF) \$(DESTDIR)\$(docdir)"
+    for f in ${EMACS_FILES}; do
+      echotab "\$(RMRF) \$(DESTDIR)\$(elispdir)/$f*"
+    done
     echol
     echol
   fi

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.5361
retrieving revision 1.5362
diff -u -d -r1.5361 -r1.5362
--- ChangeLog	25 Jul 2006 22:01:51 -0000	1.5361
+++ ChangeLog	26 Jul 2006 20:19:56 -0000	1.5362
@@ -1,3 +1,8 @@
+2006-07-26  Sam Steingold  <sd...@po...>
+
+	* configure, makemake.in: accept --elispdir and install emacs
+	files there (datadir/emacs/site-lisp/ by default)
+
 2006-07-25  Sam Steingold  <sd...@po...>
 
 	* configure: when CONFIG_SHELL is bash and /bin/sh is not, re-exec the




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

Message: 6
Date: Thu, 27 Jul 2006 13:26:32 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src NEWS,1.327,1.328
To: cli...@li...
Message-ID: <E1G...@ma...>

Update of /cvsroot/clisp/clisp/src
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv17795/src

Modified Files:
	NEWS 
Log Message:
Fix the RAWSOCK module on big-endian platforms. [ 1529244 ]


Index: NEWS
===================================================================
RCS file: /cvsroot/clisp/clisp/src/NEWS,v
retrieving revision 1.327
retrieving revision 1.328
diff -u -d -r1.327 -r1.328
--- NEWS	26 Jul 2006 20:19:56 -0000	1.327
+++ NEWS	27 Jul 2006 13:26:30 -0000	1.328
@@ -13,6 +13,7 @@
     then extended LOOP. [ 1516684 ]
   + Do not allow non-symbols as names of anonymous classes. [ 1528201 ]
   + REINITIALIZE-INSTANCE now calls FINALIZE-INHERITANCE. [ 1526448 ]
+  + Fix the RAWSOCK module on big-endian platforms. [ 1529244 ]
 
 
 2.39 (2006-07-16)




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

Message: 7
Date: Wed, 26 Jul 2006 22:03:13 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src socket.d,1.106,1.107 ChangeLog,1.5362,1.5363
To: cli...@li...
Message-ID: <E1G...@ma...>

Update of /cvsroot/clisp/clisp/src
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv13274/src

Modified Files:
	socket.d ChangeLog 
Log Message:
(resolve_host): use UI_to_LEbytes() instead of I_to_uint32()
for uint32 argument so that it will work on big-endian machines


Index: socket.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/socket.d,v
retrieving revision 1.106
retrieving revision 1.107
diff -u -d -r1.106 -r1.107
--- socket.d	21 Jul 2006 14:41:30 -0000	1.106
+++ socket.d	26 Jul 2006 22:03:08 -0000	1.107
@@ -419,9 +419,10 @@
       end_system_call();
     });
   } else if (uint32_p(arg)) {
-    var uint32 ip = I_to_uint32(arg);
+    var struct in_addr addr;
+    UI_to_LEbytes(arg,8*sizeof(struct in_addr),(uintB*)&addr);
     begin_system_call();
-    he = gethostbyaddr((char*)&ip,sizeof(uint32),AF_INET);
+    he = gethostbyaddr((char*)&addr,sizeof(struct in_addr),AF_INET);
     end_system_call();
   } else if (vectorp(arg)) {
     /* bit vector: treat as raw IP address data */

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.5362
retrieving revision 1.5363
diff -u -d -r1.5362 -r1.5363
--- ChangeLog	26 Jul 2006 20:19:56 -0000	1.5362
+++ ChangeLog	26 Jul 2006 22:03:09 -0000	1.5363
@@ -1,5 +1,10 @@
 2006-07-26  Sam Steingold  <sd...@po...>
 
+	* socket.d (resolve_host): use UI_to_LEbytes() instead of I_to_uint32()
+	for uint32 argument so that it will work on big-endian machines
+
+2006-07-26  Sam Steingold  <sd...@po...>
+
 	* configure, makemake.in: accept --elispdir and install emacs
 	files there (datadir/emacs/site-lisp/ by default)
 




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

Message: 8
Date: Thu, 27 Jul 2006 13:24:48 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/modules/rawsock rawsock.c,1.79,1.80
To: cli...@li...
Message-ID: <E1G...@ma...>

Update of /cvsroot/clisp/clisp/modules/rawsock
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv17054/modules/rawsock

Modified Files:
	rawsock.c 
Log Message:
(RAWSOCK:CONVERT-ADDRESS): made restartable


Index: rawsock.c
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/rawsock/rawsock.c,v
retrieving revision 1.79
retrieving revision 1.80
diff -u -d -r1.79 -r1.80
--- rawsock.c	26 Jul 2006 22:12:22 -0000	1.79
+++ rawsock.c	27 Jul 2006 13:24:46 -0000	1.80
@@ -370,6 +370,7 @@
 }
 DEFUN(RAWSOCK:CONVERT-ADDRESS, family address) {
   int family = check_socket_domain(STACK_1);
+ convert_address_restart:
   if (stringp(STACK_0)) {
     with_string_0(STACK_0,Symbol_value(S(utf_8)),ip_address,
                   { value1 = string_to_addr(ip_address); });
@@ -393,10 +394,13 @@
     }
   } else fehler_string_integer(STACK_0);
   if (nullp(value1)) {
+    pushSTACK(NIL);             /* no PLACE */
     pushSTACK(STACK_1);         /* domain */
     pushSTACK(STACK_1);         /* address */
     pushSTACK(TheSubr(subr_self)->name);
-    fehler(error,GETTEXT("~S: invalid address ~S for family ~S"));
+    check_value(error,GETTEXT("~S: invalid address ~S for family ~S"));
+    STACK_0 = value1;
+    goto convert_address_restart;
   }
   skipSTACK(2); mv_count = 1;
 }




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

-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys -- and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV

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

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


End of clisp-cvs Digest, Vol 3, Issue 26
****************************************

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 spvw.d,1.388,1.389 ChangeLog,1.5356,1.5357
      (Sam Steingold)
   2. clisp/tests clos.tst,1.95,1.96 ChangeLog,1.469,1.470
      (Sam Steingold)
   3. clisp/src clos-package.lisp, 1.46, 1.47 clos-class1.lisp,
      1.35,	1.36 NEWS, 1.324, 1.325 ChangeLog, 1.5357, 1.5358
      (Sam Steingold)


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

Message: 1
Date: Tue, 25 Jul 2006 14:11:18 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src spvw.d,1.388,1.389 ChangeLog,1.5356,1.5357
To: cli...@li...
Message-ID: <E1G...@ma...>

Update of /cvsroot/clisp/clisp/src
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv3428/src

Modified Files:
	spvw.d ChangeLog 
Log Message:
(find_name) [!RTLD_DEFAULT]: emulate RTLD_DEFAULT
whenever it is not defined (e.g., on AIX in addition to FreeBSD)
(libc_handle): defined at static inside find_name()
Reported by Nirendra Maharaj <nir...@fa...>


Index: spvw.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/spvw.d,v
retrieving revision 1.388
retrieving revision 1.389
diff -u -d -r1.388 -r1.389
--- spvw.d	15 Jun 2006 13:45:54 -0000	1.388
+++ spvw.d	25 Jul 2006 14:11:14 -0000	1.389
@@ -3491,20 +3491,21 @@
 /* find the name in the dynamic library handle
  calls dlsym() or GetProcAddress()
  handle is an object returned by libopen()
-        or NULL, which means emulate RTLD_DEFAULT on UNIX_FREEBSD
+        or NULL, which means emulate RTLD_DEFAULT on older FreeBSD and AIX
         and WIN32_NATIVE by searching through all libraries
  name is the name of the function (or variable) in the library */
 global void* find_name (void *handle, const char *name)
 {
   var void *ret = NULL;
- #if defined(UNIX_FREEBSD) && !defined(RTLD_DEFAULT)
-  /* FreeBSD 4.0 doesn't support RTLD_DEFAULT, so we simulate it by
+ #if 1 || !defined(RTLD_DEFAULT)
+  /* FreeBSD 4.0 and AIX 5.1 do not support RTLD_DEFAULT, so we emulate it by
      searching the executable and the libc. */
   if (handle == NULL) {
     /* Search the executable. */
     ret = dlsym(NULL,name);
     if (ret == NULL) {
       /* Search the libc. */
+      static void* libc_handle;
       if (libc_handle == NULL)
         libc_handle = dlopen("libc.so",RTLD_LAZY);
       if (libc_handle != NULL)

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.5356
retrieving revision 1.5357
diff -u -d -r1.5356 -r1.5357
--- ChangeLog	23 Jul 2006 16:51:16 -0000	1.5356
+++ ChangeLog	25 Jul 2006 14:11:15 -0000	1.5357
@@ -1,3 +1,10 @@
+2006-07-24  Sam Steingold  <sd...@po...>
+
+	* spvw.d (find_name) [!RTLD_DEFAULT]: emulate RTLD_DEFAULT
+	whenever it is not defined (e.g., on AIX in addition to FreeBSD)
+	(libc_handle): defined at static inside find_name()
+	Reported by Nirendra Maharaj <nir...@fa...>
+
 2006-07-23  Sam Steingold  <sd...@po...>
 
 	* modules/syscalls/calls.c (POSIX::USER-INFO):




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

Message: 2
Date: Tue, 25 Jul 2006 16:29:44 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/tests clos.tst,1.95,1.96 ChangeLog,1.469,1.470
To: cli...@li...
Message-ID: <E1G...@ma...>

Update of /cvsroot/clisp/clisp/tests
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv22100/tests

Modified Files:
	clos.tst ChangeLog 
Log Message:
fixed bug #[ 1528201 ]: sigsegv: make-instance of named anonymous class


Index: clos.tst
===================================================================
RCS file: /cvsroot/clisp/clisp/tests/clos.tst,v
retrieving revision 1.95
retrieving revision 1.96
diff -u -d -r1.95 -r1.96
--- clos.tst	22 Apr 2006 14:23:42 -0000	1.95
+++ clos.tst	25 Jul 2006 16:29:42 -0000	1.96
@@ -4217,3 +4217,7 @@
              (with-open-stream (c (make-concatenated-stream s1 l))
                (read c))))))
 (NIL)
+
+;; https://sourceforge.net/tracker/?func=detail&atid=101355&aid=1528201&group_id=1355
+(make-instance (make-instance 'standard-class :name 3))
+ERROR

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/tests/ChangeLog,v
retrieving revision 1.469
retrieving revision 1.470
diff -u -d -r1.469 -r1.470
--- ChangeLog	20 Jul 2006 20:25:50 -0000	1.469
+++ ChangeLog	25 Jul 2006 16:29:42 -0000	1.470
@@ -1,3 +1,7 @@
+2006-07-25  Sam Steingold  <sd...@po...>
+
+	* clos.tst: bug 1528201: (make-instance 'standard-class :name 3)
+
 2006-07-20  Sam Steingold  <sd...@po...>
 
 	* loop.tst: added tests for initially/across interaction




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

Message: 3
Date: Tue, 25 Jul 2006 16:29:45 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src clos-package.lisp, 1.46, 1.47 clos-class1.lisp,
	1.35,	1.36 NEWS, 1.324, 1.325 ChangeLog, 1.5357, 1.5358
To: cli...@li...
Message-ID: <E1G...@ma...>

Update of /cvsroot/clisp/clisp/src
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv22100/src

Modified Files:
	clos-package.lisp clos-class1.lisp NEWS ChangeLog 
Log Message:
fixed bug #[ 1528201 ]: sigsegv: make-instance of named anonymous class


Index: NEWS
===================================================================
RCS file: /cvsroot/clisp/clisp/src/NEWS,v
retrieving revision 1.324
retrieving revision 1.325
diff -u -d -r1.324 -r1.325
--- NEWS	20 Jul 2006 20:25:51 -0000	1.324
+++ NEWS	25 Jul 2006 16:29:42 -0000	1.325
@@ -6,6 +6,7 @@
     to local paths, as opposed to URLs. [ 1494059 ]
   + Fix the evaluation order of initialization and :INITIALLY forms in
     then extended LOOP. [ 1516684 ]
+  + Do not allow non-symbols as names of anonymous classes. [ 1528201 ]
 
 
 2.39 (2006-07-16)

Index: clos-package.lisp
===================================================================
RCS file: /cvsroot/clisp/clisp/src/clos-package.lisp,v
retrieving revision 1.46
retrieving revision 1.47
diff -u -d -r1.46 -r1.47
--- clos-package.lisp	16 Feb 2005 12:25:08 -0000	1.46
+++ clos-package.lisp	25 Jul 2006 16:29:42 -0000	1.47
@@ -1,6 +1,6 @@
 ;;;; Common Lisp Object System for CLISP
 ;;;; Bruno Haible 21.8.1993 - 2004
-;;;; Sam Steingold 1998 - 2005
+;;;; Sam Steingold 1998 - 2006
 
 ;; to use it: (USE-PACKAGE "CLOS").
 
@@ -33,6 +33,7 @@
     sys::text                   ; for error messages (i18n.d)
     sys::error-of-type          ; defined in error.d
     sys::check-function-name    ; defined in control.d
+    sys::check-symbol           ; defined in control.d
     sys::function-name-p        ; defined in control.d
     sys::function-block-name    ; defined in eval.d
     sys::memq                   ; defined in list.d

Index: clos-class1.lisp
===================================================================
RCS file: /cvsroot/clisp/clisp/src/clos-class1.lisp,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -d -r1.35 -r1.36
--- clos-class1.lisp	11 Apr 2006 12:58:41 -0000	1.35
+++ clos-class1.lisp	25 Jul 2006 16:29:42 -0000	1.36
@@ -2,7 +2,7 @@
 ;;;; Class metaobjects
 ;;;; Part 1: Class definitions, preliminary accessors.
 ;;;; Bruno Haible 2004-05-25
-;;;; Sam Steingold 2005
+;;;; Sam Steingold 2005-2006
 
 (in-package "CLOS")
 
@@ -94,8 +94,7 @@
     (when (eq situation 't) ; called from initialize-instance?
       (setf (class-direct-subclasses-table class) nil)))
   (when (or (eq situation 't) name-p)
-    ; No need to check the name: any name is valid.
-    (setf (class-classname class) name))
+    (setf (class-classname class) (check-symbol name '(setf class-name))))
   class)
 
 ;;; ===========================================================================

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.5357
retrieving revision 1.5358
diff -u -d -r1.5357 -r1.5358
--- ChangeLog	25 Jul 2006 14:11:15 -0000	1.5357
+++ ChangeLog	25 Jul 2006 16:29:42 -0000	1.5358
@@ -1,3 +1,9 @@
+2006-07-25  Sam Steingold  <sd...@po...>
+
+	fixed bug #[ 1528201 ]: sigsegv: make-instance of named anonymous class
+	* clos-package.lisp: import sys::check-symbol
+	* clos-class1.lisp (shared-initialize-<potential-class>): use it
+
 2006-07-24  Sam Steingold  <sd...@po...>
 
 	* spvw.d (find_name) [!RTLD_DEFAULT]: emulate RTLD_DEFAULT




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

-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys -- and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV

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

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


End of clisp-cvs Digest, Vol 3, Issue 22
****************************************

Bugs item #1482533, was opened at 2006-05-05 10:34
Message generated for change (Comment added) made by sds
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=1482533&group_id=1355

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: clisp
Group: ANSI compliance issue
Status: Open
Resolution: None
Priority: 5
Submitted By: Jörg Höhle (hoehle)
Assigned to: Bruno Haible (haible)
Summary: print-object built-in object: no-applicable-method

Initial Comment:
CLHS says about PRINT-OBJECT: "Each implementation is 
required to provide a method on the class standard-
object and on the class
structure-object. In addition, each implementation 
must provide methods on enough other classes so as to
ensure that there is always an applicable method."

Contrary to this, print-object signals a NO-APPLICABLE-
METHOD:
(print-object 2 *standard-output*)
*** - NO-APPLICABLE-METHOD: When calling
       #<STANDARD-GENERIC-FUNCTION PRINT-OBJECT>
      with arguments (2 #<IO SYNONYM-STREAM *TERMINAL-
IO*>), no method is
      applicable.

I came across this trying out the CLHS example about 
pprint dispatch tables:
(set-pprint-dispatch '(cons (member my-let)) 
                      (pprint-dispatch '(let) nil))
With NO-APPLICABLE-METHOD, the following identity 
mentioned abour PPRINT-DISPATCH does not hold:
(let ((*print-pretty* t))
  (write object :stream s))
==  (funcall (pprint-dispatch object) s object)
because pprint-dispatch defers to PRINT-OBJECT which 
errors out.

Regards,
 Jörg Höhle

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

>Comment By: Sam Steingold (sds)
Date: 2006-07-27 11:30

Message:
Logged In: YES 
user_id=5735

instead of tediously writing a defmethod for each and every
built-in class, I would rather have something like

(defconstant print-object-methods-<instance-of-built-in-class>
  (list (defmethod print-object (obj (out stream)) (write
obj :stream out))))
(remove-method #'print-object
               (first
print-object-methods-<instance-of-built-in-class>))
(defmethod compute-applicable-methods-using-classes
    ((gf (eql #'print-object)) args)
  (multiple-value-bind (l p) (call-next-method)
    (if (and (null l)
             (eq (class-of (first args)) <built-in-class>)
             (eq (second args) <stream>))
        (values
print-object-methods-<instance-of-built-in-class> t)
        (values l p))))

alas, this causes a stack overflow in bootstrap
and has no effect when type at the prompt.

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

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=1482533&group_id=1355

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 configure,1.98,1.99 (Sam Steingold)


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

Message: 1
Date: Tue, 25 Jul 2006 22:01:54 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp configure,1.98,1.99
To: cli...@li...
Message-ID: <E1G...@ma...>

Update of /cvsroot/clisp/clisp
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv10801

Modified Files:
	configure 
Log Message:
when CONFIG_SHELL is bash and /bin/sh is not, re-exec the configure
script with CONFIG_SHELL to enable sourcing of config.cache


Index: configure
===================================================================
RCS file: /cvsroot/clisp/clisp/configure,v
retrieving revision 1.98
retrieving revision 1.99
diff -u -d -r1.98 -r1.99
--- configure	30 Jun 2006 16:41:05 -0000	1.98
+++ configure	25 Jul 2006 22:01:52 -0000	1.99
@@ -7,6 +7,20 @@
 #   configure make.gcc gcc     (deprecated)
 #   configure make.cc cc       (deprecated)
 
+# we source config.cache, therefore this file must be executed by the
+# same shell as executes sub-configures.
+# this is a real problem on such systems as Solaris if CONFIG_SHELL is
+# bash whose config.cache cannot be loaded by /bin/sh
+if test -n "${CONFIG_SHELL}"; then
+  # ensure that CONFIG_SHELL is compatible with /bin/sh:
+  # if CONFIG_SHELL us bash, but /bin/sh is not, restart with bash
+  if test -n "`${CONFIG_SHELL} --version | grep bash 2>/dev/null`"; then
+    # CONFIG_SHELL is bash
+    test -n "${BASH_VERSION}" || exec ${CONFIG_SHELL} $0 $*
+  fi
+else CONFIG_SHELL=/bin/sh
+fi
+
 info_help () {
 cat << \EOP
 Usage: configure [options] [dirname]
@@ -449,7 +463,7 @@
 conf_dir () {
   cd $1; shift;
   echo "executing `pwd`/configure $*"
-  ${CONFIG_SHELL-/bin/sh} configure $*;
+  ${CONFIG_SHELL} configure $*;
   cd ..;
 }
 




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

-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys -- and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV

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

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


End of clisp-cvs Digest, Vol 3, Issue 23
****************************************

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/emacs clhs.el,1.5,1.6 (Sam Steingold)
   2. clisp/src clos-print.lisp, 1.18, 1.19 NEWS, 1.329, 1.330
      ChangeLog,	1.5365, 1.5366 (Sam Steingold)
   3. clisp/tests iofkts.tst,1.36,1.37 ChangeLog,1.471,1.472
      (Sam Steingold)
   4. clisp/tests mop.tst,1.58,1.59 ChangeLog,1.470,1.471
      (Sam Steingold)
   5. clisp/src NEWS,1.328,1.329 (Sam Steingold)
   6. clisp/src gray.lisp, 1.13, 1.14 clos-class3.lisp, 1.89, 1.90
      NEWS,	1.325, 1.326 ChangeLog, 1.5358, 1.5359 (Sam Steingold)


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

Message: 1
Date: Thu, 27 Jul 2006 18:04:18 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/emacs clhs.el,1.5,1.6
To: cli...@li...
Message-ID: <E1G...@ma...>

Update of /cvsroot/clisp/clisp/emacs
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv20471

Modified Files:
	clhs.el 
Log Message:
(common-lisp-hyperspec): bind `completion-ignore-case'


Index: clhs.el
===================================================================
RCS file: /cvsroot/clisp/clisp/emacs/clhs.el,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- clhs.el	15 Aug 2005 14:56:40 -0000	1.5
+++ clhs.el	27 Jul 2006 18:04:16 -0000	1.6
@@ -11,7 +11,7 @@
 ;;; This is accomplished by not hard-wiring the symbol->file table
 ;;; but reading the Data/<map> file instead
 
-;;; Copyright (C) 2002 Sam Steingold <sd...@gn...>
+;;; Copyright (C) 2002-2006 Sam Steingold <sd...@gn...>
 ;;; Keywords: lisp, common lisp, emacs, ANSI CL, hyperspec
 ;;; released under the GNU GPL <" rel="nofollow">http://www.gnu.org/copyleft/gpl.html>
 ;;; as a part of GNU CLISP <http://clisp.cons.org>, <http://www.clisp.org>
@@ -99,8 +99,7 @@
 
 (defun hash-table-complete (string table how)
   "This makes it possible to use hash-tables with `completing-read'.
-Actually, `completing-read' should accept hash-tables natively,
-but it does not - go ahead and report this as a bug."
+Actually, `completing-read' in Emacs 22 accepts hash-tables natively."
   (let ((res nil) (st (upcase string)) (len (length string)))
     (maphash (lambda (key val)
                (when (and (<= len (length key))
@@ -119,7 +118,8 @@
 (defun common-lisp-hyperspec (symbol-name)
   "Browse the Common Lisp HyperSpec documentation for SYMBOL-NAME.
 Finds the HyperSpec at `common-lisp-hyperspec-root'."
-  (interactive (list (let ((sym (thing-at-point 'symbol)))
+  (interactive (list (let ((sym (thing-at-point 'symbol))
+                           (completion-ignore-case t))
                        (completing-read
                         "Look-up symbol in the Common Lisp HyperSpec: "
                         #'hash-table-complete (clhs-symbols)




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

Message: 2
Date: Thu, 27 Jul 2006 19:59:33 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src clos-print.lisp, 1.18, 1.19 NEWS, 1.329, 1.330
	ChangeLog,	1.5365, 1.5366
To: cli...@li...
Message-ID: <E1G...@ma...>

Update of /cvsroot/clisp/clisp/src
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv29030/src

Modified Files:
	clos-print.lisp NEWS ChangeLog 
Log Message:
PRINT-OBJECT now works on built-in objects.


Index: NEWS
===================================================================
RCS file: /cvsroot/clisp/clisp/src/NEWS,v
retrieving revision 1.329
retrieving revision 1.330
diff -u -d -r1.329 -r1.330
--- NEWS	27 Jul 2006 14:04:09 -0000	1.329
+++ NEWS	27 Jul 2006 19:59:30 -0000	1.330
@@ -16,6 +16,7 @@
   + Do not allow non-symbols as names of anonymous classes. [ 1528201 ]
   + REINITIALIZE-INSTANCE now calls FINALIZE-INHERITANCE. [ 1526448 ]
   + Fix the RAWSOCK module on big-endian platforms. [ 1529244 ]
+  + PRINT-OBJECT now works on built-in objects.  [ 1482533 ]
 
 
 2.39 (2006-07-16)

Index: clos-print.lisp
===================================================================
RCS file: /cvsroot/clisp/clisp/src/clos-print.lisp,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -d -r1.18 -r1.19
--- clos-print.lisp	24 Nov 2004 11:46:36 -0000	1.18
+++ clos-print.lisp	27 Jul 2006 19:59:30 -0000	1.19
@@ -1,12 +1,23 @@
 ;;;; Common Lisp Object System for CLISP: Classes
 ;;;; Bruno Haible 21.8.1993 - 2004
-;;;; Sam Steingold 1998 - 2004
+;;;; Sam Steingold 1998 - 2006
 ;;;; German comments translated into English: Stefan Kain 2002-04-08
 
 (in-package "CLOS")
 
 
 (defgeneric print-object (object stream)
+  (:method ((object t) stream)
+    (unless (eq (class-of (class-of object)) <built-in-class>)
+      ;; this method exists for things like (PRINT-OBJECT 2 *STANDARD-OUTPUT*)
+      ;; and thus this error should never be reached
+      (error-of-type 'ext::source-program-error
+        :form (list 'print-object object stream) :detail object
+        (TEXT "No ~S method for ~S (~S (~S))")
+        'print-object object (class-of object) (class-of (class-of object))))
+    ;; WRITE does not call PRINT-OBJECT for built-in objects
+    ;; thus there will be no infinite recursion
+    (write object :stream stream))
   (:method ((object standard-object) stream)
     (if *print-readably*
       (let ((form (make-init-form object)))

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.5365
retrieving revision 1.5366
diff -u -d -r1.5365 -r1.5366
--- ChangeLog	27 Jul 2006 13:24:45 -0000	1.5365
+++ ChangeLog	27 Jul 2006 19:59:30 -0000	1.5366
@@ -1,5 +1,10 @@
 2006-07-27  Sam Steingold  <sd...@po...>
 
+	fix bug #[ 1482533 ]: print-object built-in object: no-applicable-method
+	* clos-print.lisp (print-object): added a method for built-in objects
+
+2006-07-27  Sam Steingold  <sd...@po...>
+
 	* modules/rawsock/rawsock.c (RAWSOCK:CONVERT-ADDRESS): made restartable
 
 2006-07-26  Sam Steingold  <sd...@po...>




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

Message: 3
Date: Thu, 27 Jul 2006 19:59:32 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/tests iofkts.tst,1.36,1.37 ChangeLog,1.471,1.472
To: cli...@li...
Message-ID: <E1G...@ma...>

Update of /cvsroot/clisp/clisp/tests
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv29030/tests

Modified Files:
	iofkts.tst ChangeLog 
Log Message:
PRINT-OBJECT now works on built-in objects.


Index: iofkts.tst
===================================================================
RCS file: /cvsroot/clisp/clisp/tests/iofkts.tst,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -d -r1.36 -r1.37
--- iofkts.tst	14 Nov 2005 17:21:30 -0000	1.36
+++ iofkts.tst	27 Jul 2006 19:59:30 -0000	1.37
@@ -765,6 +765,16 @@
   (write-to-string '(bar foo :boo 1) :pretty t :escape t))
 "(?BAR? ?FOO? ?:BOO? ?1?)"
 
+;; http://sourceforge.net/tracker/index.php?func=detail&aid=1482533&group_id=1355&atid=101355
+;; http://www.lisp.org/HyperSpec/Body/fun_pprint-dispatch.html
+(with-output-to-string (s) (print-object 42 s)) "42"
+(string= (with-output-to-string (s)
+           (let ((*print-pretty* t))
+             (write 42 :stream s)))
+         (with-output-to-string (s)
+           (funcall (pprint-dispatch 42) s 42)))
+T
+
 (progn
  (defclass c1 () ((a :initarg a) (b :initarg b) (c :initarg c)))
  (defclass c2 (c1) ((aa :initarg aa) (bb :initarg bb) (cc :initarg cc)))

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/tests/ChangeLog,v
retrieving revision 1.471
retrieving revision 1.472
diff -u -d -r1.471 -r1.472
--- ChangeLog	25 Jul 2006 19:44:14 -0000	1.471
+++ ChangeLog	27 Jul 2006 19:59:30 -0000	1.472
@@ -1,3 +1,7 @@
+2006-07-27  Sam Steingold  <sd...@po...>
+
+	* iofkts.tst: check pprint-dispatch on built-in objects
+
 2006-07-25  Sam Steingold  <sd...@po...>
 
 	* mop.tst: check that REINITIALIZE-INSTANCE calls




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

Message: 4
Date: Tue, 25 Jul 2006 19:44:16 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/tests mop.tst,1.58,1.59 ChangeLog,1.470,1.471
To: cli...@li...
Message-ID: <E1G...@ma...>

Update of /cvsroot/clisp/clisp/tests
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv26323/tests

Modified Files:
	mop.tst ChangeLog 
Log Message:
fixed bug #[ 1526448 ]: Reinitialization of class does not call
finalize-inheritance


Index: mop.tst
===================================================================
RCS file: /cvsroot/clisp/clisp/tests/mop.tst,v
retrieving revision 1.58
retrieving revision 1.59
diff -u -d -r1.58 -r1.59
--- mop.tst	18 Apr 2006 13:56:18 -0000	1.58
+++ mop.tst	25 Jul 2006 19:44:14 -0000	1.59
@@ -1036,6 +1036,22 @@
  ((0 :name testgf08-renamed) (3 add-method (method (integer))))
  ((1 :name testgf08-renamed) (4 add-method (method (integer))) (6 add-method (method (real))) (8 remove-method (method (integer)))))
 
+;; check that reinitialize-instance calls finalize-inheritance [ 1526448 ]
+(progn
+  (defclass reinit-instance-class (standard-class) ())
+  (defmethod validate-superclass ((class reinit-instance-class)
+                                  (superclass standard-class))
+    t)
+  (defparameter *finalize-inheritance-count* 0)
+  (defmethod finalize-inheritance :before ((class reinit-instance-class))
+    (incf *finalize-inheritance-count*))
+  (defclass reinit-instance-object () ((a-slot))
+    (:metaclass reinit-instance-class))
+  (unless (class-finalized-p (find-class 'reinit-instance-object))
+    (finalize-inheritance (find-class 'reinit-instance-object)))
+  (reinitialize-instance (find-class 'reinit-instance-object))
+  *finalize-inheritance-count*)
+2
 
 ;;; Check the direct-methods protocol
 ;;;   add-direct-method remove-direct-method
@@ -3331,6 +3347,8 @@
       (find-class 'dependent07) nil
       (find-class 'prioritized-generic-function) nil
       (find-class 'dependent08) nil
+      (find-class 'reinit-instance-class) nil
+      (find-class 'reinit-instance-object) nil
       (find-class 'volatile-class) nil
       (find-class 'testclass10) nil
       (find-class 'testclass10a) nil

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/tests/ChangeLog,v
retrieving revision 1.470
retrieving revision 1.471
diff -u -d -r1.470 -r1.471
--- ChangeLog	25 Jul 2006 16:29:42 -0000	1.470
+++ ChangeLog	25 Jul 2006 19:44:14 -0000	1.471
@@ -1,5 +1,10 @@
 2006-07-25  Sam Steingold  <sd...@po...>
 
+	* mop.tst: check that REINITIALIZE-INSTANCE calls
+	FINALIZE-INHERITANCE [ 1526448 ]
+
+2006-07-25  Sam Steingold  <sd...@po...>
+
 	* clos.tst: bug 1528201: (make-instance 'standard-class :name 3)
 
 2006-07-20  Sam Steingold  <sd...@po...>




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

Message: 5
Date: Thu, 27 Jul 2006 14:04:11 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src NEWS,1.328,1.329
To: cli...@li...
Message-ID: <E1G...@ma...>

Update of /cvsroot/clisp/clisp/src
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv31560/src

Modified Files:
	NEWS 
Log Message:
clhs.el at al are now installed by "make install",
and should be included in the 3rd party distributions


Index: NEWS
===================================================================
RCS file: /cvsroot/clisp/clisp/src/NEWS,v
retrieving revision 1.328
retrieving revision 1.329
diff -u -d -r1.328 -r1.329
--- NEWS	27 Jul 2006 13:26:30 -0000	1.328
+++ NEWS	27 Jul 2006 14:04:09 -0000	1.329
@@ -5,6 +5,8 @@
   + Top-level configure now accepts a new option --elispdir which specifies
     the installation directory for the Emacs Lisp files (clhs.el et al).
     The default value is ${datadir}/emacs/site-lisp/.
+    Thus, clhs.el at al are now installed by "make install", and should
+    be included in the 3rd party distributions.
 
 * Bug fixes:
   + Make it possible to set *IMPNOTES-ROOT-DEFAULT* and *CLHS-ROOT-DEFAULT*




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

Message: 6
Date: Tue, 25 Jul 2006 19:44:17 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src gray.lisp, 1.13, 1.14 clos-class3.lisp, 1.89, 1.90
	NEWS,	1.325, 1.326 ChangeLog, 1.5358, 1.5359
To: cli...@li...
Message-ID: <E1G...@ma...>

Update of /cvsroot/clisp/clisp/src
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv26323/src

Modified Files:
	gray.lisp clos-class3.lisp NEWS ChangeLog 
Log Message:
fixed bug #[ 1526448 ]: Reinitialization of class does not call
finalize-inheritance


Index: NEWS
===================================================================
RCS file: /cvsroot/clisp/clisp/src/NEWS,v
retrieving revision 1.325
retrieving revision 1.326
diff -u -d -r1.325 -r1.326
--- NEWS	25 Jul 2006 16:29:42 -0000	1.325
+++ NEWS	25 Jul 2006 19:44:14 -0000	1.326
@@ -7,6 +7,7 @@
   + Fix the evaluation order of initialization and :INITIALLY forms in
     then extended LOOP. [ 1516684 ]
   + Do not allow non-symbols as names of anonymous classes. [ 1528201 ]
+  + REINITIALIZE-INSTANCE now calls FINALIZE-INHERITANCE. [ 1526448 ]
 
 
 2.39 (2006-07-16)

Index: clos-class3.lisp
===================================================================
RCS file: /cvsroot/clisp/clisp/src/clos-class3.lisp,v
retrieving revision 1.89
retrieving revision 1.90
diff -u -d -r1.89 -r1.90
--- clos-class3.lisp	11 Apr 2006 13:01:18 -0000	1.89
+++ clos-class3.lisp	25 Jul 2006 19:44:14 -0000	1.90
@@ -2,7 +2,7 @@
 ;;;; Class metaobjects
 ;;;; Part 3: Class definition and redefinition.
 ;;;; Bruno Haible 21.8.1993 - 2004
-;;;; Sam Steingold 1998 - 2005
+;;;; Sam Steingold 1998 - 2006
 ;;;; German comments translated into English: Stefan Kain 2002-04-08
 
 (in-package "CLOS")
@@ -588,6 +588,10 @@
 
 ;; ---------------------------- Class redefinition ----------------------------
 
+;; When this is true, all safety checks about the metaclasses
+;; of superclasses are omitted.
+(defparameter *allow-mixing-metaclasses* nil)
+
 (defun reinitialize-instance-<defined-class> (class &rest all-keys
                                               &key (name nil name-p)
                                                    (direct-superclasses '() direct-superclasses-p)
@@ -756,6 +760,10 @@
           ;; and <inheritable-slot-definition-doc>.
           ;; No need to call (install-class-direct-accessors class) here.
       ) )
+      ;; Try to finalize it (mop-cl-reinit-mo, bug [ 1526448 ])
+      (unless *allow-mixing-metaclasses* ; for gray.lisp
+        (when (finalizable-p class)
+          (finalize-inheritance class)))
       ;; Notification of listeners:
       (map-dependents class
         #'(lambda (dependent)
@@ -791,10 +799,6 @@
         ((typep class <structure-class>) (list <structure-object>))
         (t '())))
 
-;; When this is true, all safety checks about the metaclasses
-;; of superclasses are omitted.
-(defparameter *allow-mixing-metaclasses* nil)
-
 (defun check-metaclass-mix (name direct-superclasses metaclass-test metaclass)
   (unless *allow-mixing-metaclasses*
     (unless (every metaclass-test direct-superclasses)

Index: gray.lisp
===================================================================
RCS file: /cvsroot/clisp/clisp/src/gray.lisp,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- gray.lisp	17 Mar 2005 20:16:47 -0000	1.13
+++ gray.lisp	25 Jul 2006 19:44:14 -0000	1.14
@@ -53,10 +53,11 @@
 
 ;; Classes
 
-(eval-when (compile load eval)
-  (defmethod clos:validate-superclass ((class class) (superclass (eql clos::<stream>)))
-    (or (call-next-method)
-        (eq (clos:class-name class) 'fundamental-stream)))
+(defmethod clos:validate-superclass ((class class)
+                                     (superclass (eql clos::<stream>)))
+  (or (call-next-method)
+      (eq (clos:class-name class) 'fundamental-stream)))
+(ext:compiler-let ((clos::*allow-mixing-metaclasses* t))
   (let ((clos::*allow-mixing-metaclasses* t))
     (clos:defclass fundamental-stream (stream clos:standard-object)
       (($open :type boolean :initform t) ; whether the stream is open

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.5358
retrieving revision 1.5359
diff -u -d -r1.5358 -r1.5359
--- ChangeLog	25 Jul 2006 16:29:42 -0000	1.5358
+++ ChangeLog	25 Jul 2006 19:44:14 -0000	1.5359
@@ -1,5 +1,14 @@
 2006-07-25  Sam Steingold  <sd...@po...>
 
+	fixed bug #[ 1526448 ]: Reinitialization of class does not call
+	finalize-inheritance
+	* clos-class3.lisp (reinitialize-instance-<defined-class>): call
+	FINALIZE-INHERITANCE
+	* gray.lisp (fundamental-stream): bind CLOS::*ALLOW-MIXING-METACLASSES*
+	also with EXT:COMPILER-LET; remove EVAL-WHEN
+
+2006-07-25  Sam Steingold  <sd...@po...>
+
 	fixed bug #[ 1528201 ]: sigsegv: make-instance of named anonymous class
 	* clos-package.lisp: import sys::check-symbol
 	* clos-class1.lisp (shared-initialize-<potential-class>): use it




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

-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys -- and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV

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

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


End of clisp-cvs Digest, Vol 3, Issue 25
****************************************

Patches item #1528895, was opened at 2006-07-26 06:38
Message generated for change (Settings changed) made by sds
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=301355&aid=1528895&group_id=1355

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: None
Group: None
Status: Open
Resolution: None
Priority: 5
Submitted By: Dr. Werner Fink (wfink)
>Assigned to: Bruno Haible (haible)
Summary: Use FFI on IA64 on Linux (kernel 2.6.16+ and gcc 4.1.0+)

Initial Comment:
Use FFI on IA64 on Linux with kernel 2.6.16 and higher
together with gcc 4.1.0 and higher.  The patch modifies
the files ffcall/avcall/avcall.h.in and
ffcall/callback/vacall_r/vacall_r.h.in to support
gcc 4.1.0.  The modification of ffcall/avcall/avcall-ia64.s
was simply done by running gcc as described in the
file ffcall/avcall/avcall-ia64.c.

Authors are Andreas Schwab <sc...@su...>,
            Andreas Jaeger <aj...@su...>
            Werner Fink <we...@su...>

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

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=301355&aid=1528895&group_id=1355

Patches item #1528895, was opened at 2006-07-26 10:38
Message generated for change (Tracker Item Submitted) made by Item Submitter
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=301355&aid=1528895&group_id=1355

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: None
Group: None
Status: Open
Resolution: None
Priority: 5
Submitted By: Dr. Werner Fink (wfink)
Assigned to: Nobody/Anonymous (nobody)
Summary: Use FFI on IA64 on Linux (kernel 2.6.16+ and gcc 4.1.0+)

Initial Comment:
Use FFI on IA64 on Linux with kernel 2.6.16 and higher
together with gcc 4.1.0 and higher.  The patch modifies
the files ffcall/avcall/avcall.h.in and
ffcall/callback/vacall_r/vacall_r.h.in to support
gcc 4.1.0.  The modification of ffcall/avcall/avcall-ia64.s
was simply done by running gcc as described in the
file ffcall/avcall/avcall-ia64.c.

Authors are Andreas Schwab <sc...@su...>,
            Andreas Jaeger <aj...@su...>
            Werner Fink <we...@su...>

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

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=301355&aid=1528895&group_id=1355

Bugs item #1482533, was opened at 2006-05-05 10:34
Message generated for change (Comment added) made by sds
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=1482533&group_id=1355

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: clisp
Group: ANSI compliance issue
>Status: Closed
>Resolution: Fixed
Priority: 5
Submitted By: Jörg Höhle (hoehle)
>Assigned to: Sam Steingold (sds)
Summary: print-object built-in object: no-applicable-method

Initial Comment:
CLHS says about PRINT-OBJECT: "Each implementation is 
required to provide a method on the class standard-
object and on the class
structure-object. In addition, each implementation 
must provide methods on enough other classes so as to
ensure that there is always an applicable method."

Contrary to this, print-object signals a NO-APPLICABLE-
METHOD:
(print-object 2 *standard-output*)
*** - NO-APPLICABLE-METHOD: When calling
       #<STANDARD-GENERIC-FUNCTION PRINT-OBJECT>
      with arguments (2 #<IO SYNONYM-STREAM *TERMINAL-
IO*>), no method is
      applicable.

I came across this trying out the CLHS example about 
pprint dispatch tables:
(set-pprint-dispatch '(cons (member my-let)) 
                      (pprint-dispatch '(let) nil))
With NO-APPLICABLE-METHOD, the following identity 
mentioned abour PPRINT-DISPATCH does not hold:
(let ((*print-pretty* t))
  (write object :stream s))
==  (funcall (pprint-dispatch object) s object)
because pprint-dispatch defers to PRINT-OBJECT which 
errors out.

Regards,
 Jörg Höhle

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

Comment By: Sam Steingold (sds)
Date: 2006-07-27 15:59

Message:
Logged In: YES 
user_id=5735

thank you for your bug report.
the bug has been fixed in the CVS tree.
you can either wait for the next release (recommended)
or check out the current CVS tree (see http://clisp.cons.org)
and build CLISP from the sources (be advised that between
releases the CVS tree is very unstable and may not even build
on your platform).

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

Comment By: Sam Steingold (sds)
Date: 2006-07-27 11:30

Message:
Logged In: YES 
user_id=5735

instead of tediously writing a defmethod for each and every
built-in class, I would rather have something like

(defconstant print-object-methods-<instance-of-built-in-class>
  (list (defmethod print-object (obj (out stream)) (write
obj :stream out))))
(remove-method #'print-object
               (first
print-object-methods-<instance-of-built-in-class>))
(defmethod compute-applicable-methods-using-classes
    ((gf (eql #'print-object)) args)
  (multiple-value-bind (l p) (call-next-method)
    (if (and (null l)
             (eq (class-of (first args)) <built-in-class>)
             (eq (second args) <stream>))
        (values
print-object-methods-<instance-of-built-in-class> t)
        (values l p))))

alas, this causes a stack overflow in bootstrap
and has no effect when type at the prompt.

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

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=1482533&group_id=1355

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 configure,1.99,1.100 (Sam Steingold)
   2. clisp/src ChangeLog,1.5363,1.5364 (Sam Steingold)


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

Message: 1
Date: Wed, 26 Jul 2006 20:19:59 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp configure,1.99,1.100
To: cli...@li...
Message-ID: <E1G...@ma...>

Update of /cvsroot/clisp/clisp
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv8000

Modified Files:
	configure 
Log Message:
accept --elispdir and install emacs files there
(datadir/emacs/site-lisp/ by default)


Index: configure
===================================================================
RCS file: /cvsroot/clisp/clisp/configure,v
retrieving revision 1.99
retrieving revision 1.100
diff -u -d -r1.99 -r1.100
--- configure	25 Jul 2006 22:01:52 -0000	1.99
+++ configure	26 Jul 2006 20:19:57 -0000	1.100
@@ -60,6 +60,7 @@
                         documentation in PostScript format
   --pdfdir=DIR          sets the installation directory for
                         documentation in PDF format
+  --elispdir=DIR        sets the installation directory for Emacs Lisp files
   --host=HOST           specify host in CPU-VENDOR-OS format (just
                         in case config.guess guesses wrong)
   --enable-maintainer-mode   enable make rules and dependencies not useful
@@ -142,6 +143,8 @@
 target=''
 ignore_absence_of_libsigsegv=''
 
+getarg(){ `echo "$0" | sed 's,^[-_a-zA-Z0-9]*=,,'`; }
+
 for arg # in "$@"
 do
   # If the previous option needs an argument, assign it.
@@ -205,7 +208,7 @@
         exit 0 ;;
 
       --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*)
-        srcdir=`echo "$arg" | sed 's,^[-_a-zA-Z0-9]*=,,'` ;;
+        srcdir=`getarg "$arg"` ;;
 
       --srcdir | --srcdi | --srcd | --src | --sr)
         prev=srcdir
@@ -213,7 +216,7 @@
 
       --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=*)
         subdir_configure_args="$subdir_configure_args $arg"
-        makemake_args="$makemake_args --prefix="`echo "$arg" | sed 's,^[-_a-zA-Z0-9]*=,,'` ;;
+        makemake_args="$makemake_args --prefix="`getarg "$arg"` ;;
 
       --prefix | --prefi | --pref | --pre | --pr)
         subdir_configure_args="$subdir_configure_args $arg"
@@ -224,7 +227,7 @@
 
       --exec_prefix=* | --exec-prefix=* | --exec-prefi=* | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* | -exec=* | --exe=* | --ex=*)
         subdir_configure_args="$subdir_configure_args $arg"
-        makemake_args="$makemake_args --exec-prefix="`echo "$arg" | sed 's,^[-_a-zA-Z0-9]*=,,'` ;;
+        makemake_args="$makemake_args --exec-prefix="`getarg "$arg"` ;;
 
       --exec_prefix | --exec-prefix | --exec-prefi | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- | -exec | --exe | --ex)
         subdir_configure_args="$subdir_configure_args $arg"
@@ -234,11 +237,11 @@
         passnextm=yes ;;
 
       --fsstnd=* | --fsstn=* | --fsst=* | --fss=* | --fs=* | --f=*)
-        makemake_args="$makemake_args --fsstnd="`echo "$arg" | sed 's,^[-_a-zA-Z0-9]*=,,'` ;;
+        makemake_args="$makemake_args --fsstnd="`getarg "$arg"` ;;
 
       --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*)
         subdir_configure_args="$subdir_configure_args $arg"
-        makemake_args="$makemake_args --bindir="`echo "$arg" | sed 's,^[-_a-zA-Z0-9]*=,,'` ;;
+        makemake_args="$makemake_args --bindir="`getarg "$arg"` ;;
 
       --bindir | --bindi | --bind | --bin | --bi)
         subdir_configure_args="$subdir_configure_args $arg"
@@ -249,7 +252,7 @@
 
       --libdir=* | --libdi=* | --libd=* | --lib=*)
         subdir_configure_args="$subdir_configure_args $arg"
-        makemake_args="$makemake_args --libdir="`echo "$arg" | sed 's,^[-_a-zA-Z0-9]*=,,'` ;;
+        makemake_args="$makemake_args --libdir="`getarg "$arg"` ;;
 
       --libdir | --libdi | --libd | --lib)
         subdir_configure_args="$subdir_configure_args $arg"
@@ -260,7 +263,7 @@
 
       --includedir=* | --includedi=* | --included=* | --include=* | --includ=* | --inclu=* | --incl=* | --inc=*)
         subdir_configure_args="$subdir_configure_args $arg"
-        makemake_args="$makemake_args --includedir="`echo "$arg" | sed 's,^[-_a-zA-Z0-9]*=,,'` ;;
+        makemake_args="$makemake_args --includedir="`getarg "$arg"` ;;
 
       --includedir | --includedi | --included | --include | --includ | --inclu | --incl | --inc)
         subdir_configure_args="$subdir_configure_args $arg"
@@ -271,7 +274,7 @@
 
       --datadir=* | --datadi=* | --datad=* | --data=* | --dat=* | --da=*)
         subdir_configure_args="$subdir_configure_args $arg"
-        makemake_args="$makemake_args --datadir="`echo "$arg" | sed 's,^[-_a-zA-Z0-9]*=,,'` ;;
+        makemake_args="$makemake_args --datadir="`getarg "$arg"` ;;
 
       --datadir | --datadi | --datad | --data | --dat | --da)
         subdir_configure_args="$subdir_configure_args $arg"
@@ -282,7 +285,7 @@
 
       --localedir=* | --localedi=* | --localed=* | --locale=* | --local=* | --loca=* | --loc=* | --lo=*)
         #subdir_configure_args="$subdir_configure_args $arg" # waiting for autoconf-2.60
-        makemake_args="$makemake_args --localedir="`echo "$arg" | sed 's,^[-_a-zA-Z0-9]*=,,'` ;;
+        makemake_args="$makemake_args --localedir="`getarg "$arg"` ;;
 
       --localedir | --localedi | --localed | --locale | --local | --loca | --loc | --lo)
         #subdir_configure_args="$subdir_configure_args $arg" # waiting for autoconf-2.60
@@ -293,7 +296,7 @@
 
       --docdir=* | --docdi=* | --docd=* | --doc=* | --do=*)
         #subdir_configure_args="$subdir_configure_args $arg" # waiting for autoconf-2.60
-        makemake_args="$makemake_args --docdir="`echo "$arg" | sed 's,^[-_a-zA-Z0-9]*=,,'` ;;
+        makemake_args="$makemake_args --docdir="`getarg "$arg"` ;;
 
       --docdir | --docdi | --docd | --doc | --do)
         #subdir_configure_args="$subdir_configure_args $arg" # waiting for autoconf-2.60
@@ -304,7 +307,7 @@
 
       --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*)
         subdir_configure_args="$subdir_configure_args $arg"
-        makemake_args="$makemake_args --mandir="`echo "$arg" | sed 's,^[-_a-zA-Z0-9]*=,,'` ;;
+        makemake_args="$makemake_args --mandir="`getarg "$arg"` ;;
 
       --mandir | --mandi | --mand | --man | --ma | --m)
         subdir_configure_args="$subdir_configure_args $arg"
@@ -315,7 +318,7 @@
 
       --htmldir=* | --htmldi=* | --htmld=* | --html=* | --htm=* | --ht=*)
         #subdir_configure_args="$subdir_configure_args $arg" # waiting for autoconf-2.60
-        makemake_args="$makemake_args --htmldir="`echo "$arg" | sed 's,^[-_a-zA-Z0-9]*=,,'` ;;
+        makemake_args="$makemake_args --htmldir="`getarg "$arg"` ;;
 
       --htmldir | --htmldi | --htmld | --html | --htm | --ht)
         #subdir_configure_args="$subdir_configure_args $arg" # waiting for autoconf-2.60
@@ -326,7 +329,7 @@
 
       --dvidir=* | --dvidi=* | --dvid=* | --dvi=* | --dv=*)
         #subdir_configure_args="$subdir_configure_args $arg" # waiting for autoconf-2.60
-        makemake_args="$makemake_args --dvidir="`echo "$arg" | sed 's,^[-_a-zA-Z0-9]*=,,'` ;;
+        makemake_args="$makemake_args --dvidir="`getarg "$arg"` ;;
 
       --dvidir | --dvidi | --dvid | --dvi | --dv)
         #subdir_configure_args="$subdir_configure_args $arg" # waiting for autoconf-2.60
@@ -337,7 +340,7 @@
 
       --psdir=* | --psdi=* | --psd=* | --ps=*)
         #subdir_configure_args="$subdir_configure_args $arg" # waiting for autoconf-2.60
-        makemake_args="$makemake_args --psdir="`echo "$arg" | sed 's,^[-_a-zA-Z0-9]*=,,'` ;;
+        makemake_args="$makemake_args --psdir="`getarg "$arg"` ;;
 
       --psdir | --psdi | --psd | --ps)
         #subdir_configure_args="$subdir_configure_args $arg" # waiting for autoconf-2.60
@@ -348,7 +351,7 @@
 
       --pdfdir=* | --pdfdi=* | --pdfd=* | --pdf=* | --pd=*)
         #subdir_configure_args="$subdir_configure_args $arg" # waiting for autoconf-2.60
-        makemake_args="$makemake_args --pdfdir="`echo "$arg" | sed 's,^[-_a-zA-Z0-9]*=,,'` ;;
+        makemake_args="$makemake_args --pdfdir="`getarg "$arg"` ;;
 
       --pdfdir | --pdfdi | --pdfd | --pdf | --pd)
         #subdir_configure_args="$subdir_configure_args $arg" # waiting for autoconf-2.60
@@ -357,8 +360,19 @@
         passnext=yes
         passnextm=yes ;;
 
+      --elispdir=* | --elispdi=* | --elispd=* | --elisp=* | --elis=* | --eli=* | --el=*)
+        #subdir_configure_args="$subdir_configure_args $arg" # waiting for autoconf-2.60
+        makemake_args="$makemake_args --elispdir="`getarg "$arg"` ;;
+
+      --elispdir | --elispdi | --elispd | --elisp | --elis | --eli | --el)
+        #subdir_configure_args="$subdir_configure_args $arg" # waiting for autoconf-2.60
+        makemake_args="$makemake_args --elispdir="
+        prev=elispdir
+        passnext=yes
+        passnextm=yes ;;
+
       --hyperspec=* | --hyperspe=* | --hypersp=* | --hypers=* | --hs=* | --hy=*)
-        makemake_args="$makemake_args --hyperspec="`echo "$arg" | sed 's,^[-_a-zA-Z0-9]*=,,'` ;;
+        makemake_args="$makemake_args --hyperspec="`getarg "$arg"` ;;
 
       --host=* | --hos=* | --ho=* | \
       --quiet | --quie | --qui | --qu | --q | \




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

Message: 2
Date: Wed, 26 Jul 2006 22:12:24 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src ChangeLog,1.5363,1.5364
To: cli...@li...
Message-ID: <E1G...@ma...>

Update of /cvsroot/clisp/clisp/src
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv16444/src

Modified Files:
	ChangeLog 
Log Message:
(RAWSOCK:CONVERT-ADDRESS): use UI_to_LEbytes() instead of I_to_uint*()
for uint* argument so that it will work on big-endian machines


Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.5363
retrieving revision 1.5364
diff -u -d -r1.5363 -r1.5364
--- ChangeLog	26 Jul 2006 22:03:09 -0000	1.5363
+++ ChangeLog	26 Jul 2006 22:12:22 -0000	1.5364
@@ -2,6 +2,7 @@
 
 	* socket.d (resolve_host): use UI_to_LEbytes() instead of I_to_uint32()
 	for uint32 argument so that it will work on big-endian machines
+	* modules/rawsock/rawsock.c (RAWSOCK:CONVERT-ADDRESS): ditto
 
 2006-07-26  Sam Steingold  <sd...@po...>
 




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

-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys -- and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV

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

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


End of clisp-cvs Digest, Vol 3, Issue 24
****************************************

Bugs item #1529244, was opened at 2006-07-26 16:30
Message generated for change (Comment added) made by sds
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=1529244&group_id=1355

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: modules
>Group: lisp error
>Status: Closed
>Resolution: Fixed
Priority: 5
Submitted By: Sam Steingold (sds)
Assigned to: Sam Steingold (sds)
Summary: rawsock is broken on big-endian

Initial Comment:
rawsock test suite on solaris:
(setq *sa-remote* (host->sa "ftp.gnu.org" 21))
#<HOSTENT :NAME "ftp.gnu.org" :ALIASES NIL :ADDR-LIST
("199.232.41.7")
  :ADDRTYPE 2>
#(21 0 199 232 41 7 0 0 0 0 0 0 0 0)
#<RAWSOCK:SOCKADDR :%DATA #(0 2 21 0 199 232 41 7 0 0 0
0 0 0 0 0)>
(RAWSOCK:SOCKADDR-FAMILY (2 16))
(:ADDRESS "199.232.41.7" 120187079 "7.41.232.199")

*** - (STRING= ADDR DOTTED) must evaluate to a non-NIL
value.


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

Comment By: Sam Steingold (sds)
Date: 2006-07-27 09:25

Message:
Logged In: YES 
user_id=5735

thank you for your bug report.
the bug has been fixed in the CVS tree.
you can either wait for the next release (recommended)
or check out the current CVS tree (see http://clisp.cons.org)
and build CLISP from the sources (be advised that between
releases the CVS tree is very unstable and may not even build
on your platform).

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

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=1529244&group_id=1355

Bugs item #1529244, was opened at 2006-07-26 16:30
Message generated for change (Tracker Item Submitted) made by Item Submitter
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=1529244&group_id=1355

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: modules
Group: None
Status: Open
Resolution: None
Priority: 5
Submitted By: Sam Steingold (sds)
Assigned to: Sam Steingold (sds)
Summary: rawsock is broken on big-endian

Initial Comment:
rawsock test suite on solaris:
(setq *sa-remote* (host->sa "ftp.gnu.org" 21))
#<HOSTENT :NAME "ftp.gnu.org" :ALIASES NIL :ADDR-LIST
("199.232.41.7")
  :ADDRTYPE 2>
#(21 0 199 232 41 7 0 0 0 0 0 0 0 0)
#<RAWSOCK:SOCKADDR :%DATA #(0 2 21 0 199 232 41 7 0 0 0
0 0 0 0 0)>
(RAWSOCK:SOCKADDR-FAMILY (2 16))
(:ADDRESS "199.232.41.7" 120187079 "7.41.232.199")

*** - (STRING= ADDR DOTTED) must evaluate to a non-NIL
value.


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

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=1529244&group_id=1355

Bugs item #1526448, was opened at 2006-07-21 09:15
Message generated for change (Comment added) made by sds
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=1526448&group_id=1355

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: clisp
Group: ANSI compliance issue
>Status: Closed
>Resolution: Fixed
Priority: 5
Submitted By: Pascal Costanza (pcostanza)
>Assigned to: Sam Steingold (sds)
Summary: Reinitialization of class doesn't call finalize-inheritance

Initial Comment:
In the current clisp version, when reinitialize-instance is applied to a class 
metaobject, finalize-inheritance is not necessarily reapplied to that class 
metaobject as well, although the CLOS MOP specification says so. (See 
Section "Reinitialization of Class Metaobjects".)

This is important because there is otherwise no reliable way to determine 
whether this happened or not, so a user cannot ensure a call to finalize-
inheritance, at least not in a straightforward way. However, a user-defined 
metaclass may want to rely on the fact that a user-defined method on 
finalize-inheritance is actually executed on reinitialization.


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

Comment By: Sam Steingold (sds)
Date: 2006-07-25 15:44

Message:
Logged In: YES 
user_id=5735

thank you for your bug report.
the bug has been fixed in the CVS tree.
you can either wait for the next release (recommended)
or check out the current CVS tree (see http://clisp.cons.org)
and build CLISP from the sources (be advised that between
releases the CVS tree is very unstable and may not even build
on your platform).

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

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=1526448&group_id=1355

Bugs item #1528201, was opened at 2006-07-25 02:36
Message generated for change (Comment added) made by sds
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=1528201&group_id=1355

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: clisp
Group: segfault
>Status: Closed
>Resolution: Fixed
Priority: 5
Submitted By: Tomas Zellerin (zellerin)
>Assigned to: Sam Steingold (sds)
Summary: sigsegv when making instances of named anonymous classes

Initial Comment:
I get sigsegv when doing

(make-instance 'standard-class :name 3)
(make-instance *).

The sigsegv is observed both on Linux FC4 compiled 
from source (2.39) and Windows distributed binaries 
(2.39, with gettext and readline), as well as in an 
older 2.36 FC4 build I tried.

Attached is a gdb session as suggested in impnotes 
(built with --with-debug etc)

Regards,
Tomas


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

Comment By: Sam Steingold (sds)
Date: 2006-07-25 12:29

Message:
Logged In: YES 
user_id=5735

thank you for your bug report.
the bug has been fixed in the CVS tree.
you can either wait for the next release (recommended)
or check out the current CVS tree (see http://clisp.cons.org)
and build CLISP from the sources (be advised that between
releases the CVS tree is very unstable and may not even build
on your platform).

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

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=1528201&group_id=1355

Bugs item #1528201, was opened at 2006-07-25 08:36
Message generated for change (Tracker Item Submitted) made by Item Submitter
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=1528201&group_id=1355

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: clisp
Group: segfault
Status: Open
Resolution: None
Priority: 5
Submitted By: Tomas Zellerin (zellerin)
Assigned to: Bruno Haible (haible)
Summary: sigsegv when making instances of named anonymous classes

Initial Comment:
I get sigsegv when doing

(make-instance 'standard-class :name 3)
(make-instance *).

The sigsegv is observed both on Linux FC4 compiled 
from source (2.39) and Windows distributed binaries 
(2.39, with gettext and readline), as well as in an 
older 2.36 FC4 build I tried.

Attached is a gdb session as suggested in impnotes 
(built with --with-debug etc)

Regards,
Tomas


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

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=1528201&group_id=1355

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 impbody.xml,1.439,1.440 (Sam Steingold)
   2. clisp/modules/syscalls syscalls.xml,1.73,1.74 (Sam Steingold)
   3. clisp/doc impext.xml,1.458,1.459 impent.xml,1.266,1.267
      (Sam Steingold)
   4. clisp/modules/postgresql postgresql.xml,1.9,1.10 (Sam Steingold)
   5. clisp/modules/oracle oracle.xml,1.13,1.14 (Sam Steingold)
   6. clisp/doc gray.xml,2.11,2.12 (Sam Steingold)
   7. clisp/doc Makefile,1.82,1.83 (Sam Steingold)
   8. clisp/modules/berkeley-db berkeley-db.xml,1.51,1.52
      (Sam Steingold)
   9. clisp/doc Makefile,1.81,1.82 (Sam Steingold)


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

Message: 1
Date: Mon, 24 Jul 2006 19:21:51 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/doc impbody.xml,1.439,1.440
To: cli...@li...
Message-ID: <E1G...@ma...>

Update of /cvsroot/clisp/clisp/doc
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv16549/doc

Modified Files:
	impbody.xml 
Log Message:
(spacecharprint, pathprint): moved towards all the other notes to CLHS-22.1.3.*


Index: impbody.xml
===================================================================
RCS file: /cvsroot/clisp/clisp/doc/impbody.xml,v
retrieving revision 1.439
retrieving revision 1.440
diff -u -d -r1.439 -r1.440
--- impbody.xml	17 May 2006 19:24:07 -0000	1.439
+++ impbody.xml	24 Jul 2006 19:21:47 -0000	1.440
@@ -4131,6 +4131,20 @@
 
 </section>
 
+<section id="spacecharprint"><title>Printing Characters
+  <ulink url="&clhs&/Body/sec_22-1-3-2.html">[CLHS-22.1.3.2]</ulink></title>
+
+<para>Characters are printed as specified in &ansi-cl; using
+ &sharp-back;, with one exception: when &pri-esc; is in effect,
+ the space character is printed as
+ <quote><computeroutput>#\Space</computeroutput></quote> when the
+ variable &spacecharprint; is &nil;.
+ When &spacecharprint; is non-&nil;, it is printed as
+ <quote><computeroutput>#\&nbsp;</computeroutput></quote>; this is how
+ &ansi-cl; specifies it.</para>
+
+</section>
+
 <section id="sym-pack-prefix"><title>Package Prefixes for Symbols
   <ulink url="&clhs;/Body/sec_22-1-3-3-1.html">[CLHS-22.1.3.3.1]</ulink></title>
 
@@ -4177,6 +4191,36 @@
  &ansi-cl;-prescribed syntax <computeroutput>&sharp-A; &cont-r;</computeroutput>
  which often loses the dimension information.</para></formalpara>
 
+<section id="pathprint"><title>Printing Pathnames
+  <ulink url="&clhs;/Body/sec_22-1-3-11.html">[CLHS-22.1.3.11]</ulink></title>
+
+<para>Pathnames are printed as follows: If &print-escape-var; is &nil;,
+ only the namestring is printed; otherwise it is printed with the
+ &sharp-P; syntax, as per the &ansi-cl; issue &iss276;.
+ But, if &print-readably-var; is true, we are in trouble as &sharp-P; is
+ ambiguous (which is verboten when &print-readably-var; is true), while
+ being mandated by the &ansi-cl;.
+ Therefore, in this case, &clisp;'s behavior is determined by the value
+ of &pathprint;: when it is &nil;, we print pathnames like this:
+<computeroutput>&sharp-minus;CLISP &sharp-P;"..."
+&sharp-plus;CLISP &sharp-S;(&pathname-t; ...)</computeroutput>.
+ Otherwise, when the variable &pathprint; is non-&nil;, the
+ &sharp-P; notation is used as per <ulink
+ url="&clhs;/Body/sec_1-5-1-4-1.html">1.5.1.4.1 Resolution of Apparent
+ Conflicts in Exceptional Situations</ulink>.</para>
+
+<note><simpara>The &sharp-S; notation for &pathname-t;s is used
+  extensively in the &hyperspec; (see examples for &pathname;,
+  &pathnamep;, &parse-namestring; et al), but was decided against, see
+  &iss260;.</simpara></note>
+
+<warning><simpara>When both &print-readably-var; and &pathprint; are
+  non-&nil; and the namestring will be parsed to a dissimilar object
+  (with the current value of &parsedot;), an &error-t; of type
+  &print-not-readable-t; is &signal;ed.</simpara></warning>
+
+</section>
+
 </section>
 
 <section id="clpp"><title>The Lisp Pretty Printer
@@ -4276,44 +4320,6 @@
  as prescribed by &ansi-cl;.</para></formalpara>
 </section>
 
-<section id="pathprint"><title>Pathnames</title>
-
-<para>Pathnames are printed as follows: If &print-escape-var; is &nil;,
- only the namestring is printed; otherwise it is printed with the
- &sharp-P; syntax, as per the &ansi-cl; issue &iss276;.
- But, if &print-readably-var; is true, we are in trouble as &sharp-P; is
- ambiguous (which is verboten when &print-readably-var; is true), while
- being mandated by the &ansi-cl;.
- Therefore, in this case, &clisp;'s behavior is determined by the value
- of &pathprint;: when it is &nil;, we print pathnames like this:
-<computeroutput>&sharp-minus;CLISP &sharp-P;"..."
-&sharp-plus;CLISP &sharp-S;(&pathname-t; ...)</computeroutput>.
- Otherwise, when the variable &pathprint; is non-&nil;, the
- &sharp-P; notation is used as per <ulink
- url="&clhs;/Body/sec_1-5-1-4-1.html">1.5.1.4.1 Resolution of Apparent
- Conflicts in Exceptional Situations</ulink>.</para>
-
-<warning><simpara>When both &print-readably-var; and &pathprint; are
-  non-&nil; and the namestring will be parsed to a dissimilar object
-  (with the current value of &parsedot;), an &error-t; of type
-  &print-not-readable-t; is &signal;ed.</simpara></warning>
-
-</section>
-
-<section id="spacecharprint"><title>Characters</title>
-
-<para>Characters are printed as specified in &ansi-cl; using
- &sharp-back;, with one exception: when &pri-esc; is in effect,
- the space character is printed as
- <quote><computeroutput>#\Space</computeroutput></quote> when the
- variable &spacecharprint; is &nil;.
- When &spacecharprint; is non-&nil;, it is printed as
- <quote><computeroutput>#\&nbsp;</computeroutput></quote>; this is how
- <ulink url="&clhs;/Body/sec_22-1-3-2.html">22.1.3.2 Printing Characters</ulink>
- specifies it.</para>
-
-</section>
-
 <section id="print-misc"><title>Miscellaneous Issues</title>
 
 <para>&print-case-var; controls the output not only of symbols, but also




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

Message: 2
Date: Mon, 24 Jul 2006 19:51:35 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/modules/syscalls syscalls.xml,1.73,1.74
To: cli...@li...
Message-ID: <E1G...@ma...>

Update of /cvsroot/clisp/clisp/modules/syscalls
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv32692/modules/syscalls

Modified Files:
	syscalls.xml 
Log Message:
(col-r, line-r, res-type-r, user-r): added


Index: syscalls.xml
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/syscalls/syscalls.xml,v
retrieving revision 1.73
retrieving revision 1.74
diff -u -d -r1.73 -r1.74
--- syscalls.xml	30 Jun 2006 21:37:39 -0000	1.73
+++ syscalls.xml	24 Jul 2006 19:51:32 -0000	1.74
@@ -193,16 +193,15 @@
     &list-t; of objects is returned, one for each match.
  </para></listitem></varlistentry>
  <varlistentry id="user-info"><term><code>(<function>POSIX:USER-INFO</function>
-    &optional-amp; <replaceable>user</replaceable>)</code></term>
+    &optional-amp; &user-r;)</code></term>
  <listitem><simpara>Return the <type>USER-INFO</type> structure (name,
    encoded password, UID, GID, full name, home directory, shell).
-   <replaceable>user</replaceable> should be a &string-t;
+   &user-r; should be a &string-t;
    (<function role="unix">getpwnam</function> is used) or an &integer-t;
    (<function role="unix">getpwuid</function> is used).
-   When <replaceable>user</replaceable> is missing or &nil;, return all
+   When &user-r; is missing or &nil;, return all
    users (using <function role="unix">getpwent</function>).
-   When <replaceable>user</replaceable> is &default-k;,
-   return the information about the current user
+   When &user-r; is &default-k;, return the information about the current user
    (using <function role="unix">getlogin</function>
    or <function role="unix">getuid</function>).</simpara>
   <simpara>&unix-only;</simpara></listitem></varlistentry>




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

Message: 3
Date: Mon, 24 Jul 2006 19:51:35 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/doc impext.xml,1.458,1.459 impent.xml,1.266,1.267
To: cli...@li...
Message-ID: <E1G...@ma...>

Update of /cvsroot/clisp/clisp/doc
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv32692/doc

Modified Files:
	impext.xml impent.xml 
Log Message:
(col-r, line-r, res-type-r, user-r): added


Index: impext.xml
===================================================================
RCS file: /cvsroot/clisp/clisp/doc/impext.xml,v
retrieving revision 1.458
retrieving revision 1.459
diff -u -d -r1.458 -r1.459
--- impext.xml	19 Jul 2006 13:48:20 -0000	1.458
+++ impext.xml	24 Jul 2006 19:51:33 -0000	1.459
@@ -1815,11 +1815,11 @@
                       (symbol-macrolet ((z 3))
                         (baz z)))))
 <computeroutput>(locally (print 3))</computeroutput> ; the expansion
-<computeroutput>&t;</computeroutput>               ; indicator: some expansion has actually been done
+<computeroutput>&t;</computeroutput>                   ; indicator: some expansion has actually been done
 </programlisting></para>
 
 <para>This is sometimes called a <quote>code walker</quote>,
- except that the code walker would probably leave the &macrolet; and
+ except that a code walker would probably leave the &macrolet; and
  &symbol-macrolet; forms intact and just do the expansion.</para>
 
 <warning><para>Function &expand-form; expands forms by assuming the
@@ -1873,8 +1873,7 @@
    (&ge;0, &le;x&sub-max;, 0 means left margin).
  </simpara></listitem></varlistentry>
  <varlistentry><term><code>(<function>SCREEN:SET-WINDOW-CURSOR-POSITION</function>
-    &ws-r; <replaceable>line</replaceable>
-      <replaceable>column</replaceable>)</code></term>
+    &ws-r; &line-r; &col-r;)</code></term>
   <listitem><simpara>sets the position of the cursor in the window.
   </simpara></listitem></varlistentry>
  <varlistentry><term><code>(<function>SCREEN:CLEAR-WINDOW</function>
@@ -4148,8 +4147,7 @@
 
 <para><code>(defflibfun <replaceable>function-name</replaceable>
  <replaceable>base-symbol</replaceable>
- &offset-r; <replaceable>mask</replaceable>
- <replaceable>result-type</replaceable>
+ &offset-r; <replaceable>mask</replaceable> &res-type-r;
  {<replaceable>argument-type</replaceable>}*)</code></para>
 
 <para><code>(declare-library-function
@@ -4162,8 +4160,7 @@
 <para><code>(mlibcall <replaceable>function-name</replaceable>
  {&arg-r;}*)</code></para>
 
-<para><code>(mem-read &addr-r;
-  <replaceable>result-type</replaceable> [&offset-r;])</code></para>
+<para><code>(mem-read &addr-r; &res-type-r; [&offset-r;])</code></para>
 
 <para><code>(mem-write &addr-r; &type-r; &value-r;
  [&offset-r;])</code></para>

Index: impent.xml
===================================================================
RCS file: /cvsroot/clisp/clisp/doc/impent.xml,v
retrieving revision 1.266
retrieving revision 1.267
diff -u -d -r1.266 -r1.267
--- impent.xml	18 Jul 2006 15:08:19 -0000	1.266
+++ impent.xml	24 Jul 2006 19:51:33 -0000	1.267
@@ -573,6 +573,7 @@
 <!ENTITY class-r '<replaceable>class</replaceable>'>
 <!ENTITY classes-r '<replaceable>classes</replaceable>'>
 <!ENTITY cname-r '<replaceable>c-name</replaceable>'>
+<!ENTITY col-r '<replaceable>column</replaceable>'>
 <!ENTITY command-r '<replaceable>command</replaceable>'>
 <!ENTITY cond-r '<replaceable>condition</replaceable>'>
 <!ENTITY conn-r '<replaceable>connection</replaceable>'>
@@ -626,6 +627,7 @@
 <!ENTITY lang-r '<replaceable>language</replaceable>'>
 <!ENTITY lc-r '<replaceable>lc</replaceable>'>
 <!ENTITY len-r '<replaceable>length</replaceable>'>
+<!ENTITY line-r '<replaceable>line</replaceable>'>
 <!ENTITY list-r '<replaceable>list</replaceable>'>
 <!ENTITY location-r '<replaceable>location</replaceable>'>
 <!ENTITY m-r '<replaceable>m</replaceable>'>
@@ -665,6 +667,7 @@
 <!ENTITY proto-r '<replaceable>protocol</replaceable>'>
 <!ENTITY real-r '<replaceable>real</replaceable>'>
 <!ENTITY res-r '<replaceable>result</replaceable>'>
+<!ENTITY res-type-r '<replaceable>result-type</replaceable>'>
 <!ENTITY restart-clause-r '<replaceable>restart-clause</replaceable>'>
 <!ENTITY sequence-r '<replaceable>sequence</replaceable>'>
 <!ENTITY size-r '<replaceable>size</replaceable>'>
@@ -700,6 +703,7 @@
 <!ENTITY type-r '<replaceable>type</replaceable>'>
 <!ENTITY uc-r '<replaceable>uc</replaceable>'>
 <!ENTITY uid-r '<replaceable>uid</replaceable>'>
+<!ENTITY user-r '<replaceable>user</replaceable>'>
 <!ENTITY v-r '<replaceable>v</replaceable>'>
 <!ENTITY val-type-r '<replaceable>value-type</replaceable>'>
 <!ENTITY value-r '<replaceable>value</replaceable>'>




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

Message: 4
Date: Mon, 24 Jul 2006 19:51:35 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/modules/postgresql postgresql.xml,1.9,1.10
To: cli...@li...
Message-ID: <E1G...@ma...>

Update of /cvsroot/clisp/clisp/modules/postgresql
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv32692/modules/postgresql

Modified Files:
	postgresql.xml 
Log Message:
(col-r, line-r, res-type-r, user-r): added


Index: postgresql.xml
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/postgresql/postgresql.xml,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- postgresql.xml	2 Jan 2006 14:07:23 -0000	1.9
+++ postgresql.xml	24 Jul 2006 19:51:33 -0000	1.10
@@ -66,7 +66,7 @@
    (initially set to <literal role="data">"postgres"</literal>)
 </simpara></listitem></varlistentry>
 <varlistentry id="sql:sql-password"><term><code>sql:*sql-password*</code></term>
- <listitem><simpara>the default <replaceable>password</replaceable>
+ <listitem><simpara>the default &pass-r;
    argument to <function>sql:sql-connect</function>
    (initially set to <literal role="data">"postgres"</literal>)
 </simpara></listitem></varlistentry>




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

Message: 5
Date: Mon, 24 Jul 2006 19:51:35 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/modules/oracle oracle.xml,1.13,1.14
To: cli...@li...
Message-ID: <E1G...@ma...>

Update of /cvsroot/clisp/clisp/modules/oracle
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv32692/modules/oracle

Modified Files:
	oracle.xml 
Log Message:
(col-r, line-r, res-type-r, user-r): added


Index: oracle.xml
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/oracle/oracle.xml,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- oracle.xml	13 Sep 2005 17:57:30 -0000	1.13
+++ oracle.xml	24 Jul 2006 19:51:33 -0000	1.14
@@ -30,8 +30,7 @@
 		<!-- CONNECT -->
 
 <varlistentry id="ora-connect"><term><code>(ORACLE:CONNECT
-<replaceable>user</replaceable>
-<replaceable>password</replaceable>
+&user-r; &pass-r;
 <replaceable>server</replaceable>
 &optional-amp;
 <replaceable>schema</replaceable>
@@ -47,7 +46,7 @@
 single program can access different &oracle-link; schemas concurrently by
 repeated calls to &ora-connect;.  Database connections
 are cached and re-used: if you call &ora-connect; again
-with the same <replaceable>user</replaceable>,
+with the same &user-r;,
 <replaceable>schema</replaceable>, and
 <replaceable>server</replaceable>, the previous &oracle-link; connection will
 be re-used.  &ora-connect; may not be called inside
@@ -59,11 +58,11 @@
 The meaning of the arguments is as follows:
 </simpara>
 <variablelist><title>Arguments for &ora-connect;</title>
-<varlistentry><term><replaceable>user</replaceable></term>
+<varlistentry><term>&user-r;</term>
  <listitem><simpara>&oracle-link; user ID</simpara></listitem></varlistentry>
-<varlistentry><term><replaceable>password</replaceable></term>
+<varlistentry><term>&pass-r;</term>
  <listitem><simpara>Password for user, or &nil; if
-   <replaceable>user</replaceable> has no password (!).
+   &user-r; has no password (!).
 </simpara></listitem></varlistentry>
 <varlistentry><term><replaceable>server</replaceable></term>
  <listitem><simpara>&oracle-link; server ID (SID).
@@ -193,11 +192,11 @@
 
 		<!-- FETCH -->
 <varlistentry><term><code>(ORACLE:FETCH
-   &optional-amp; <replaceable>result-type</replaceable>)</code></term>
+   &optional-amp; &res-type-r;)</code></term>
  <listitem><para>Fetch a single row of data.  Returns a row of values
    corresponding to the columns of an active SELECT statment.  The row
    data is returned in one of three different forms, depending on the
-   value of the symbol <replaceable>result-type</replaceable>:
+   value of the symbol &res-type-r;:
 <variablelist><title>Return values for <function>FETCH</function></title>
  <varlistentry><term><classname>ARRAY</classname></term>
   <listitem><simpara>Values will be returned in an &array-t; with the
@@ -256,13 +255,13 @@
 <varlistentry><term><code>(ORACLE:FETCH-ALL
 &optional-amp;
 <replaceable>max-rows</replaceable>
-<replaceable>result-type</replaceable>
+&res-type-r;
 <replaceable>item-type</replaceable>)</code></term>
 <listitem><simpara>Fetch some or all the rows from a query and return
 result as a sequence of sequences.  Arguments are all optional:
 <replaceable>max-rows</replaceable> limits the result to
 that numbers of rows;
-<replaceable>result-type</replaceable> is the type of
+&res-type-r; is the type of
 sequence of the rows, either
 '<classname>ARRAY</classname> (the default) or
 '<classname>LIST</classname>;
@@ -283,10 +282,8 @@
 
 		<!-- PEEK-->
 
-<varlistentry><term><code>(ORACLE:PEEK
-&optional-amp;
-<replaceable>result-type</replaceable>)</code></term>
-<listitem>
+<varlistentry><term><code>(ORACLE:PEEK &optional-amp;
+   &res-type-r;)</code></term><listitem>
 <simpara>
 
 Peek at next row of data (without fetching it).  Returns a row a la
@@ -295,7 +292,7 @@
 row of data.  Returns &nil; if at EOF.  If data is available, returns
 row data just as <function>FETCH</function> (see
 <function>FETCH</function> for data format and conversions done).
-Optional argument <replaceable>result-type</replaceable> is the type
+Optional argument &res-type-r; is the type
 of sequence of the column values for the returned row, either
 &array-t; (the default) or &list-t;.
 <function>PEEK</function> is a useful look-ahead




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

Message: 6
Date: Mon, 24 Jul 2006 19:52:39 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/doc gray.xml,2.11,2.12
To: cli...@li...
Message-ID: <E1G...@ma...>

Update of /cvsroot/clisp/clisp/doc
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv610/doc

Modified Files:
	gray.xml 
Log Message:
(col-r, line-r, res-type-r, user-r): added


Index: gray.xml
===================================================================
RCS file: /cvsroot/clisp/clisp/doc/gray.xml,v
retrieving revision 2.11
retrieving revision 2.12
diff -u -d -r2.11 -r2.12
--- gray.xml	17 May 2006 19:24:07 -0000	2.11
+++ gray.xml	24 Jul 2006 19:52:37 -0000	2.12
@@ -233,12 +233,12 @@
    not yet reached its destination.</simpara>
   <simpara>The default method does nothing.</simpara></listitem></varlistentry>
  <varlistentry><term><code>(<function>GRAY:STREAM-ADVANCE-TO-COLUMN</function>
-                 &stream-r; <replaceable>column</replaceable>)</code></term>
+    &stream-r; &col-r;)</code></term>
   <listitem><simpara>Ensures that the next character will be written at
-   <replaceable>column</replaceable> at least.</simpara>
+    least at &col-r;.</simpara>
   <simpara>The default method outputs an appropriate amount of space
    characters; this is sufficient for non-proportional output.</simpara>
-  </listitem></varlistentry>
+ </listitem></varlistentry>
 </variablelist>
 
 <variablelist><title>generic functions for binary input</title>




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

Message: 7
Date: Mon, 24 Jul 2006 19:52:54 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/doc Makefile,1.82,1.83
To: cli...@li...
Message-ID: <E1G...@ma...>

Update of /cvsroot/clisp/clisp/doc
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv629/doc

Modified Files:
	Makefile 
Log Message:
(search): pass "-n" to grep


Index: Makefile
===================================================================
RCS file: /cvsroot/clisp/clisp/doc/Makefile,v
retrieving revision 1.82
retrieving revision 1.83
diff -u -d -r1.82 -r1.83
--- Makefile	24 Jul 2006 19:30:06 -0000	1.82
+++ Makefile	24 Jul 2006 19:52:52 -0000	1.83
@@ -226,6 +226,6 @@
 SEARCH=
 search: force
 	@if test -z "$(SEARCH)"; then echo "usage: make search SEARCH=string"; \
-	else grep '$(SEARCH)' $(IMPNOTES); fi
+	else grep -n '$(SEARCH)' $(IMPNOTES); fi
 
 force:




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

Message: 8
Date: Mon, 24 Jul 2006 19:57:44 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/modules/berkeley-db berkeley-db.xml,1.51,1.52
To: cli...@li...
Message-ID: <E1G...@ma...>

Update of /cvsroot/clisp/clisp/modules/berkeley-db
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv2393/modules/berkeley-db

Modified Files:
	berkeley-db.xml 
Log Message:
grammar


Index: berkeley-db.xml
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/berkeley-db/berkeley-db.xml,v
retrieving revision 1.51
retrieving revision 1.52
diff -u -d -r1.51 -r1.52
--- berkeley-db.xml	23 Jan 2006 03:30:45 -0000	1.51
+++ berkeley-db.xml	24 Jul 2006 19:57:42 -0000	1.52
@@ -658,8 +658,8 @@
    environment with which it has been acquired.
    This is used to &finalize; <type>BDB:DBLOCK</type> objects.</simpara>
   <warning><simpara>If that environment has already been closed, you are
-    in big trouble (segfault), so you better release your locks or do not
-    drop them.</simpara></warning></listitem></varlistentry>
+    in a big trouble (segfault), so you better release your locks or do
+    not drop them.</simpara></warning></listitem></varlistentry>
 <varlistentry><term><code>(BDB:LOCK-STAT dbe &key-amp;
    STAT-CLEAR)</code></term>
  <listitem><simpara>Return lock subsystem statistics




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

Message: 9
Date: Mon, 24 Jul 2006 19:30:08 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/doc Makefile,1.81,1.82
To: cli...@li...
Message-ID: <E1G...@ma...>

Update of /cvsroot/clisp/clisp/doc
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv22151/doc

Modified Files:
	Makefile 
Log Message:
(search): new target


Index: Makefile
===================================================================
RCS file: /cvsroot/clisp/clisp/doc/Makefile,v
retrieving revision 1.81
retrieving revision 1.82
diff -u -d -r1.81 -r1.82
--- Makefile	15 May 2006 15:57:14 -0000	1.81
+++ Makefile	24 Jul 2006 19:30:06 -0000	1.82
@@ -61,8 +61,8 @@
 
 # Local path to DocBook XSL stylesheets on your system.
 # Make sure to use a trailing slash.
-STYLESHEETS_PATH=/usr/share/sgml/docbook/xsl-stylesheets/
-# STYLESHEETS_PATH=/home/sds/src/docbook-xsl-snapshot/
+# STYLESHEETS_PATH=/usr/share/sgml/docbook/xsl-stylesheets/
+STYLESHEETS_PATH=/home/sds/src/docbook-xsl-snapshot/
 
 # Stylesheets URI used in the CLISP project *.xsl files.
 STYLESHEETS_URI=http://docbook.sourceforge.net/release/xsl/current/
@@ -223,4 +223,9 @@
 count: $(IMPNOTES)
 	wc $^
 
+SEARCH=
+search: force
+	@if test -z "$(SEARCH)"; then echo "usage: make search SEARCH=string"; \
+	else grep '$(SEARCH)' $(IMPNOTES); fi
+
 force:




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

-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys -- and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV

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

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


End of clisp-cvs Digest, Vol 3, Issue 21
****************************************

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 Makefile.devel,1.149,1.150 (Sam Steingold)
   2. clisp/unix INSTALL,1.27,1.28 (Sam Steingold)
   3. clisp/src/build-aux README,1.1,1.2 (Sam Steingold)


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

Message: 1
Date: Mon, 24 Jul 2006 17:07:45 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp Makefile.devel,1.149,1.150
To: cli...@li...
Message-ID: <E1G...@ma...>

Update of /cvsroot/clisp/clisp
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv8736

Modified Files:
	Makefile.devel 
Log Message:
Pre-release: update src/build-aux, modules/regexp, modules/wildcard from gnulib


Index: Makefile.devel
===================================================================
RCS file: /cvsroot/clisp/clisp/Makefile.devel,v
retrieving revision 1.149
retrieving revision 1.150
diff -u -d -r1.149 -r1.150
--- Makefile.devel	20 Jul 2006 04:15:50 -0000	1.149
+++ Makefile.devel	24 Jul 2006 17:07:43 -0000	1.150
@@ -391,6 +391,7 @@
 
 ## Pre-release TODO:
 # echo URL-tar.bz2| mail -s "clisp-`cat VERSION`" tra...@IR...
+# update src/build-aux, modules/regexp and modules/wildcard from gnulib
 ## RELEASE TODO:
 # Before doing a "make src-distrib":
 # * update version.sh, src/NEWS, src/HISTORY




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

Message: 2
Date: Mon, 24 Jul 2006 18:02:09 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/unix INSTALL,1.27,1.28
To: cli...@li...
Message-ID: <E1G...@ma...>

Update of /cvsroot/clisp/clisp/unix
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv4437/unix

Modified Files:
	INSTALL 
Log Message:
Bruno's comments to Additional Information for Maintainers of Binary Packages


Index: INSTALL
===================================================================
RCS file: /cvsroot/clisp/clisp/unix/INSTALL,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -d -r1.27 -r1.28
--- INSTALL	24 Jul 2006 16:09:37 -0000	1.27
+++ INSTALL	24 Jul 2006 18:02:04 -0000	1.28
@@ -231,16 +231,19 @@
 1. CLISP build process respects the CFLAGS environment variable,
    and, when GCC is used and CFLAGS is unset, "-g -O2" is used, see
    <." rel="nofollow">http://www.gnu.org/software/autoconf/manual/html_node/C-Compiler.html>.
-   This means that you should configure CLISP like this:
-        CFLAGS="" ./configure ...
+   This means that if your distribution's policy is to minimize executables'
+   size at the expense of debuggability you should configure CLISP like this:
+        CFLAGS="-O" ./configure ...
    The often used alternative - to strip the executables before packaging -
    breaks DISASSEMBLE on functions written in C: (DISASSEMBLE #'CAR) prints
    the disassembly of the whole executable instead of just a few lines
    that constitute the function CAR.
+   Note that makemake (see above) will set the appropriate optimization level,
+   so it does not matter if you set CFLAGS to "-O", "-O2" or just "".
    See <." rel="nofollow">https://bugzilla.redhat.com/bugzilla/show_bug.cgi?id=199887>.
 
 2. Despite whatever ldd may say to the contrary, CLISP is linked
-   statically against libsigsegv, so whenever you upgrade libsigsegv,
+   _statically_ against libsigsegv, so whenever you upgrade libsigsegv,
    you MUST recompile CLISP.
    See <." rel="nofollow">https://bugzilla.redhat.com/bugzilla/show_bug.cgi?id=199525>.
 




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

Message: 3
Date: Mon, 24 Jul 2006 18:03:06 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src/build-aux README,1.1,1.2
To: cli...@li...
Message-ID: <E1G...@ma...>

Update of /cvsroot/clisp/clisp/src/build-aux
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv5026/src/build-aux

Modified Files:
	README 
Log Message:
update on config.dynamic


Index: README
===================================================================
RCS file: /cvsroot/clisp/clisp/src/build-aux/README,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- README	24 Jul 2006 16:22:40 -0000	1.1
+++ README	24 Jul 2006 18:03:04 -0000	1.2
@@ -2,7 +2,8 @@
 They are not maintained by us, but updated from an external source:
 
 file name      how to update
-config.dynamic ???
+config.dynamic not used
+               (Bruno wrote it based on libtool to replace -export-dynamic)
 config.guess   gnulib/build-aux/ or ftp://ftp.gnu.org/pub/gnu/config/
 config.rpath   gnulib/build-aux/
 config.sub     gnulib/build-aux/ or ftp://ftp.gnu.org/pub/gnu/config/




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

-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys -- and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV

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

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


End of clisp-cvs Digest, Vol 3, Issue 20
****************************************