Menu
▾
▴
clisp-cvs digest, Vol 1 #1141 - 10 msgs
|
From: <cli...@li...> - 2005-06-22 03:11:54
|
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/ffcall/autoconf aclocal.m4,1.58,1.59 (Sam Steingold) 2. clisp/libcharset/autoconf aclocal.m4,1.10,1.11 (Sam Steingold) 3. clisp/modules/rawsock configure,1.10,1.11 config.h.in,1.7,1.8 (Sam Steingold) 4. clisp/src documentation.lisp,1.19,1.20 ChangeLog,1.4715,1.4716 (Sam Steingold) 5. clisp/src/autoconf aclocal.m4,1.151,1.152 (Sam Steingold) 6. clisp/doc mop.xml,2.54,2.55 (Sam Steingold) 7. clisp/src defs1.lisp,1.57,1.58 ChangeLog,1.4716,1.4717 (Sam Steingold) 8. clisp/src TODO,1.100,1.101 (Sam Steingold) 9. clisp/src TODO,1.101,1.102 (Sam Steingold) 10. clisp/src charstrg.d,1.116,1.117 ChangeLog,1.4717,1.4718 (Sam Steingold) --__--__-- Message: 1 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/ffcall/autoconf aclocal.m4,1.58,1.59 Date: Tue, 21 Jun 2005 15:21:01 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/ffcall/autoconf In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29268/ffcall/autoconf Modified Files: aclocal.m4 Log Message: regenerated Index: aclocal.m4 =================================================================== RCS file: /cvsroot/clisp/clisp/ffcall/autoconf/aclocal.m4,v retrieving revision 1.58 retrieving revision 1.59 diff -u -d -r1.58 -r1.59 --- aclocal.m4 27 Mar 2005 00:56:51 -0000 1.58 +++ aclocal.m4 21 Jun 2005 15:20:58 -0000 1.59 @@ -1,7 +1,7 @@ -# generated automatically by aclocal 1.9.2 -*- Autoconf -*- +# generated automatically by aclocal 1.9.5 -*- Autoconf -*- -# Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004 -# Free Software Foundation, Inc. +# Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, +# 2005 Free Software Foundation, Inc. # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. --__--__-- Message: 2 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/libcharset/autoconf aclocal.m4,1.10,1.11 Date: Tue, 21 Jun 2005 15:21:00 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/libcharset/autoconf In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29268/libcharset/autoconf Modified Files: aclocal.m4 Log Message: regenerated Index: aclocal.m4 =================================================================== RCS file: /cvsroot/clisp/clisp/libcharset/autoconf/aclocal.m4,v retrieving revision 1.10 retrieving revision 1.11 diff -u -d -r1.10 -r1.11 --- aclocal.m4 23 May 2005 19:22:01 -0000 1.10 +++ aclocal.m4 21 Jun 2005 15:20:56 -0000 1.11 @@ -1,7 +1,7 @@ -# generated automatically by aclocal 1.9.2 -*- Autoconf -*- +# generated automatically by aclocal 1.9.5 -*- Autoconf -*- -# Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004 -# Free Software Foundation, Inc. +# Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, +# 2005 Free Software Foundation, Inc. # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. --__--__-- Message: 3 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/modules/rawsock configure,1.10,1.11 config.h.in,1.7,1.8 Date: Tue, 21 Jun 2005 15:20:58 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/modules/rawsock In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29268/modules/rawsock Modified Files: configure config.h.in Log Message: regenerated Index: config.h.in =================================================================== RCS file: /cvsroot/clisp/clisp/modules/rawsock/config.h.in,v retrieving revision 1.7 retrieving revision 1.8 diff -u -d -r1.7 -r1.8 --- config.h.in 18 May 2005 21:36:02 -0000 1.7 +++ config.h.in 21 Jun 2005 15:20:56 -0000 1.8 @@ -57,7 +57,7 @@ /* Define to 1 if you have the `ntohs' function. */ #undef HAVE_NTOHS -/* Define to 1 if you have the `poll' function. */ +/* Define to 1 if you have the 'poll' function and it works. */ #undef HAVE_POLL /* Define to 1 if you have the <poll.h> header file. */ Index: configure =================================================================== RCS file: /cvsroot/clisp/clisp/modules/rawsock/configure,v retrieving revision 1.10 retrieving revision 1.11 diff -u -d -r1.10 -r1.11 --- configure 18 May 2005 21:36:02 -0000 1.10 +++ configure 21 Jun 2005 15:20:56 -0000 1.11 @@ -4459,13 +4459,9 @@ fi fi - -for ac_func in poll -do -as_ac_var=`echo "ac_cv_func_$ac_func" | $as_tr_sh` -echo "$as_me:$LINENO: checking for $ac_func" >&5 -echo $ECHO_N "checking for $ac_func... $ECHO_C" >&6 -if eval "test \"\${$as_ac_var+set}\" = set"; then +echo "$as_me:$LINENO: checking for poll" >&5 +echo $ECHO_N "checking for poll... $ECHO_C" >&6 +if test "${ac_cv_func_poll+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF @@ -4474,12 +4470,12 @@ cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ -/* Define $ac_func to an innocuous variant, in case <limits.h> declares $ac_func. +/* Define poll to an innocuous variant, in case <limits.h> declares poll. For example, HP-UX 11i <limits.h> declares gettimeofday. */ -#define $ac_func innocuous_$ac_func +#define poll innocuous_poll /* System header to define __stub macros and hopefully few prototypes, - which can conflict with char $ac_func (); below. + which can conflict with char poll (); below. Prefer <limits.h> to <assert.h> if __STDC__ is defined, since <limits.h> exists even on freestanding compilers. */ @@ -4489,7 +4485,7 @@ # include <assert.h> #endif -#undef $ac_func +#undef poll /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus @@ -4498,14 +4494,14 @@ #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ -char $ac_func (); +char poll (); /* The GNU C library defines this for functions which it implements to always fail with ENOSYS. Some functions are actually named something starting with __ and the normal name is an alias. */ -#if defined (__stub_$ac_func) || defined (__stub___$ac_func) +#if defined (__stub_poll) || defined (__stub___poll) choke me #else -char (*f) () = $ac_func; +char (*f) () = poll; #endif #ifdef __cplusplus } @@ -4514,7 +4510,7 @@ int main () { -return f != $ac_func; +return f != poll; ; return 0; } @@ -4541,27 +4537,107 @@ ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then - eval "$as_ac_var=yes" + ac_cv_func_poll=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 -eval "$as_ac_var=no" +ac_cv_func_poll=no fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext fi -echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_var'}'`" >&5 -echo "${ECHO_T}`eval echo '${'$as_ac_var'}'`" >&6 -if test `eval echo '${'$as_ac_var'}'` = yes; then - cat >>confdefs.h <<_ACEOF -#define `echo "HAVE_$ac_func" | $as_tr_cpp` 1 +echo "$as_me:$LINENO: result: $ac_cv_func_poll" >&5 +echo "${ECHO_T}$ac_cv_func_poll" >&6 +if test $ac_cv_func_poll = yes; then + # Check whether poll() works on special files (like /dev/null) and + # and ttys (like /dev/tty). On MacOS X 10.4.0, it doesn't. + if test "$cross_compiling" = yes; then + # When cross-compiling, assume that poll() works everywhere except on + # MacOS X, regardless of its version. + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ _ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +#if defined(__APPLE__) && defined(__MACH__) +This is MacOSX +#endif +_ACEOF +if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | + $EGREP "MacOSX" >/dev/null 2>&1; then + cl_cv_func_poll=no +else + cl_cv_func_poll=yes fi -done +rm -f conftest* + +else + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ + +#include <fcntl.h> +#include <poll.h> + int main() + { + struct pollfd ufd; + /* Try /dev/null for reading. */ + ufd.fd = open ("/dev/null", O_RDONLY); + if (ufd.fd < 0) /* If /dev/null does not exist, it's not MacOS X. */ + return 0; + ufd.events = POLLIN; + ufd.revents = 0; + if (!(poll (&ufd, 1, 0) == 1 && ufd.revents == POLLIN)) + return 1; + /* Try /dev/null for writing. */ + ufd.fd = open ("/dev/null", O_WRONLY); + if (ufd.fd < 0) /* If /dev/null does not exist, it's not MacOS X. */ + return 0; + ufd.events = POLLOUT; + ufd.revents = 0; + if (!(poll (&ufd, 1, 0) == 1 && ufd.revents == POLLOUT)) + return 1; + /* Trying /dev/tty may be too environment dependent. */ + return 0; + } +_ACEOF +rm -f conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && { ac_try='./conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + cl_cv_func_poll=yes +else + echo "$as_me: program exited with status $ac_status" >&5 +echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +( exit $ac_status ) +cl_cv_func_poll=no +fi +rm -f core *.core gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext +fi +fi + +if test $cl_cv_func_poll = yes; then + +cat >>confdefs.h <<\_ACEOF +#define HAVE_POLL 1 +_ACEOF -if test $ac_cv_func_poll = yes; then # Now check whether poll() works reliably on regular files, i.e. signals # immediate readability and writability, both before EOF and at EOF. # On FreeBSD 4.0, it doesn't. --__--__-- Message: 4 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src documentation.lisp,1.19,1.20 ChangeLog,1.4715,1.4716 Date: Tue, 21 Jun 2005 15:35:55 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5436/src Modified Files: documentation.lisp ChangeLog Log Message: ((setf documentation), documentation): removed the unnecessary (ignore doc-type) declarations (avoids warnings) Index: documentation.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/documentation.lisp,v retrieving revision 1.19 retrieving revision 1.20 diff -u -d -r1.19 -r1.20 --- documentation.lisp 30 May 2005 13:31:48 -0000 1.19 +++ documentation.lisp 21 Jun 2005 15:35:48 -0000 1.20 @@ -9,7 +9,6 @@ (defgeneric documentation (x doc-type) (:argument-precedence-order doc-type x) (:method ((x function) (doc-type (eql 't))) - (declare (ignore doc-type)) (if (typep-class x <standard-generic-function>) (std-gf-documentation x) (let ((name (sys::function-name x))) @@ -19,7 +18,6 @@ (fboundp name) (eq x (sys::unwrapped-fdefinition name)) (getf (gethash name sys::*documentation*) doc-type)))))) (:method ((x function) (doc-type (eql 'function))) - (declare (ignore doc-type)) (if (typep-class x <standard-generic-function>) (std-gf-documentation x) (let ((name (sys::function-name x))) @@ -29,13 +27,11 @@ (fboundp name) (eq x (sys::unwrapped-fdefinition name)) (getf (gethash name sys::*documentation*) doc-type)))))) (:method ((x list) (doc-type (eql 'function))) - (declare (ignore doc-type)) (setq x (check-function-name x 'documentation)) (if (and (fboundp x) (typep-class (sys::unwrapped-fdefinition x) <standard-generic-function>)) (std-gf-documentation (sys::unwrapped-fdefinition x)) (documentation (second x) 'setf))) (:method ((x list) (doc-type (eql 'compiler-macro))) - (declare (ignore doc-type)) (documentation (second (check-function-name x 'documentation)) 'setf-compiler-macro)) (:method ((x symbol) (doc-type (eql 'function))) @@ -56,65 +52,46 @@ (documentation class 't) (call-next-method)))) (:method ((x symbol) (doc-type (eql 'structure))) ; structure --> type - (declare (ignore doc-type)) (documentation x 'type)) (:method ((x symbol) (doc-type (eql 'class))) ; class --> type - (declare (ignore doc-type)) (documentation x 'type)) (:method ((x method-combination) (doc-type (eql 't))) - (declare (ignore doc-type)) (method-combination-documentation x)) (:method ((x method-combination) (doc-type (eql 'method-combination))) - (declare (ignore doc-type)) (method-combination-documentation x)) (:method ((x symbol) (doc-type (eql 'method-combination))) - (declare (ignore doc-type)) (method-combination-documentation (get-method-combination x 'documentation))) (:method ((x standard-method) (doc-type (eql 't))) - (declare (ignore doc-type)) (std-method-documentation x)) (:method ((x package) (doc-type (eql 't))) - (declare (ignore doc-type)) (sys::package-documentation x)) (:method ((x standard-class) (doc-type (eql 't))) - (declare (ignore doc-type)) (class-documentation x)) (:method ((x standard-class) (doc-type (eql 'type))) - (declare (ignore doc-type)) (class-documentation x)) (:method ((x structure-class) (doc-type (eql 't))) - (declare (ignore doc-type)) (class-documentation x)) (:method ((x structure-class) (doc-type (eql 'type))) - (declare (ignore doc-type)) (class-documentation x)) ;;; The following are CLISP extensions. (:method ((x standard-object) (doc-type (eql 't))) - (declare (ignore doc-type)) (documentation (class-of x) 'type)) (:method ((x standard-object) (doc-type (eql 'type))) - (declare (ignore doc-type)) (documentation (class-of x) 'type)) (:method ((x structure-object) (doc-type (eql 't))) - (declare (ignore doc-type)) (documentation (class-of x) 'type)) (:method ((x structure-object) (doc-type (eql 'type))) - (declare (ignore doc-type)) (documentation (class-of x) 'type)) (:method ((x defined-class) (doc-type (eql 't))) - (declare (ignore doc-type)) (class-documentation x)) (:method ((x defined-class) (doc-type (eql 'type))) - (declare (ignore doc-type)) (class-documentation x)) (:method ((x slot-definition) (doc-type (eql 't))) - (declare (ignore doc-type)) (slot-definition-documentation x))) (defgeneric (setf documentation) (new-value x doc-type) (:argument-precedence-order doc-type x new-value) (:method (new-value (x function) (doc-type (eql 't))) - (declare (ignore doc-type)) (if (typep-class x <standard-generic-function>) (setf (std-gf-documentation x) new-value) (let ((name (sys::function-name x))) @@ -125,7 +102,6 @@ (sys::%set-documentation name 'function new-value)) new-value))) (:method (new-value (x function) (doc-type (eql 'function))) - (declare (ignore doc-type)) (if (typep-class x <standard-generic-function>) (setf (std-gf-documentation x) new-value) (let ((name (sys::function-name x))) @@ -136,13 +112,11 @@ (sys::%set-documentation name 'function new-value)) new-value))) (:method (new-value (x list) (doc-type (eql 'function))) - (declare (ignore doc-type)) (setq x (check-function-name x '(setf documentation))) (if (and (fboundp x) (typep-class (sys::unwrapped-fdefinition x) <standard-generic-function>)) (setf (std-gf-documentation (sys::unwrapped-fdefinition x)) new-value) (sys::%set-documentation (second x) 'setf new-value))) (:method (new-value (x list) (doc-type (eql 'compiler-macro))) - (declare (ignore doc-type)) (setq x (check-function-name x '(setf documentation))) (sys::%set-documentation (second x) 'setf-compiler-macro new-value)) (:method (new-value (x symbol) (doc-type (eql 'function))) @@ -165,59 +139,41 @@ (setf (documentation class 't) new-value) (call-next-method)))) (:method (new-value (x symbol) (doc-type (eql 'structure))) - (declare (ignore doc-type)) (sys::%set-documentation x 'type new-value)) (:method (new-value (x symbol) (doc-type (eql 'class))) - (declare (ignore doc-type)) (sys::%set-documentation x 'type new-value)) (:method (new-value (x method-combination) (doc-type (eql 't))) - (declare (ignore doc-type)) (setf (method-combination-documentation x) new-value)) (:method (new-value (x method-combination) (doc-type (eql 'method-combination))) - (declare (ignore doc-type)) (setf (method-combination-documentation x) new-value)) (:method (new-value (x symbol) (doc-type (eql 'method-combination))) - (declare (ignore doc-type)) (setf (method-combination-documentation (get-method-combination x '(setf documentation))) new-value)) (:method (new-value (x standard-method) (doc-type (eql 't))) - (declare (ignore doc-type)) (setf (std-method-documentation x) new-value)) (:method (new-value (x package) (doc-type (eql 't))) - (declare (ignore doc-type)) (setf (sys::package-documentation x) new-value)) (:method (new-value (x standard-class) (doc-type (eql 't))) - (declare (ignore doc-type)) (setf (class-documentation x) new-value)) (:method (new-value (x standard-class) (doc-type (eql 'type))) - (declare (ignore doc-type)) (setf (class-documentation x) new-value)) (:method (new-value (x structure-class) (doc-type (eql 't))) - (declare (ignore doc-type)) (setf (class-documentation x) new-value)) (:method (new-value (x structure-class) (doc-type (eql 'type))) - (declare (ignore doc-type)) (setf (class-documentation x) new-value)) ;;; The following are CLISP extensions. (:method (new-value (x standard-object) (doc-type (eql 't))) - (declare (ignore doc-type)) (sys::%set-documentation (class-of x) 'type new-value)) (:method (new-value (x standard-object) (doc-type (eql 'type))) - (declare (ignore doc-type)) (sys::%set-documentation (class-of x) 'type new-value)) (:method (new-value (x structure-object) (doc-type (eql 't))) - (declare (ignore doc-type)) (sys::%set-documentation (class-of x) 'type new-value)) (:method (new-value (x structure-object) (doc-type (eql 'type))) - (declare (ignore doc-type)) (sys::%set-documentation (class-of x) 'type new-value)) (:method (new-value (x defined-class) (doc-type (eql 't))) - (declare (ignore doc-type)) (setf (class-documentation x) new-value)) (:method (new-value (x defined-class) (doc-type (eql 'type))) - (declare (ignore doc-type)) (setf (class-documentation x) new-value)) (:method (new-value (x slot-definition) (doc-type (eql 't))) - (declare (ignore doc-type)) (setf (slot-definition-documentation x) new-value))) Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4715 retrieving revision 1.4716 diff -u -d -r1.4715 -r1.4716 --- ChangeLog 20 Jun 2005 23:16:47 -0000 1.4715 +++ ChangeLog 21 Jun 2005 15:35:48 -0000 1.4716 @@ -1,3 +1,8 @@ +2005-06-21 Sam Steingold <sd...@gn...> + + * documentation.lisp ((setf documentation), documentation): + removed the unnecessary (ignore doc-type) declarations (avoids warnings) + 2005-06-20 Sam Steingold <sd...@gn...> * pathname.d (FullName): declare static to avoid a warning --__--__-- Message: 5 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src/autoconf aclocal.m4,1.151,1.152 Date: Tue, 21 Jun 2005 15:20:58 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src/autoconf In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29268/src/autoconf Modified Files: aclocal.m4 Log Message: regenerated Index: aclocal.m4 =================================================================== RCS file: /cvsroot/clisp/clisp/src/autoconf/aclocal.m4,v retrieving revision 1.151 retrieving revision 1.152 diff -u -d -r1.151 -r1.152 --- aclocal.m4 7 Jun 2005 12:18:34 -0000 1.151 +++ aclocal.m4 21 Jun 2005 15:20:50 -0000 1.152 @@ -11,6 +11,39 @@ # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. +# glibc21.m4 serial 2 (fileutils-4.1.3, gettext-0.10.40) +dnl Copyright (C) 2000-2002 Free Software Foundation, Inc. +dnl This file is free software, distributed under the terms of the GNU +dnl General Public License. As a special exception to the GNU General +dnl Public License, this file may be distributed as part of a program +dnl that contains a configuration script generated by Autoconf, under +dnl the same distribution terms as the rest of that program. + +# Test for the GNU C Library, version 2.1 or newer. +# From Bruno Haible. + +AC_DEFUN([jm_GLIBC21], + [ + AC_CACHE_CHECK(whether we are using the GNU C Library 2.1 or newer, + ac_cv_gnu_library_2_1, + [AC_EGREP_CPP([Lucky GNU user], + [ +#include <features.h> +#ifdef __GNU_LIBRARY__ + #if (__GLIBC__ == 2 && __GLIBC_MINOR__ >= 1) || (__GLIBC__ > 2) + Lucky GNU user + #endif +#endif + ], + ac_cv_gnu_library_2_1=yes, + ac_cv_gnu_library_2_1=no) + ] + ) + AC_SUBST(GLIBC21) + GLIBC21="$ac_cv_gnu_library_2_1" + ] +) + dnl -*- Autoconf -*- dnl Copyright (C) 1993-2003 Free Software Foundation, Inc. dnl This file is free software, distributed under the terms of the GNU --__--__-- Message: 6 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/doc mop.xml,2.54,2.55 Date: Tue, 21 Jun 2005 17:30:41 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22095/doc Modified Files: mop.xml Log Message: document the "redefinition of metaobject class has not effect" warning Index: mop.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/mop.xml,v retrieving revision 2.54 retrieving revision 2.55 diff -u -d -r2.54 -r2.55 --- mop.xml 16 Jun 2005 19:22:48 -0000 2.54 +++ mop.xml 21 Jun 2005 17:30:31 -0000 2.55 @@ -622,7 +622,16 @@ the time the first instance of a metaobject class is initialized, what portable methods will be applicable to it. This can make it possible to optimize calls to those specified generic functions which would have no -applicable portable methods.</simpara></note></listitem></itemizedlist> +applicable portable methods.</simpara></note> +<note id="mop-mo-redef-clisp-warn">&clisp-only; + <simpara>When a metaobject class is redefined, + &clisp; issues a &warning-t; that the redefinition has no effect. + To avoid this warning, place all metaobject class definitions in a + separate file, compile it in a <emphasis>separate</emphasis> session + (because &defclass; in &clisp; is evaluated at &compile-time; too + see <xref linkend="mop-compile-ui-macro"/>), + and then &load; it only <emphasis>once</emphasis> per session. +</simpara></note></listitem></itemizedlist> </para>&else-undefined; <note><simpara>The specification technology used in this document needs @@ -727,7 +736,7 @@ <section id="mop-compile-ui-macro"> <title>Compile-file Processing of the User Interface Macros</title> -<para>It is common practice for &cl; compilers, while processing a file +<para>It is a common practice for &cl; compilers, while processing a file or set of files, to maintain information about the definitions that have been compiled so far. Among other things, this makes it possible to ensure that a global macro definition (&defmacro; form) which appears in --__--__-- Message: 7 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src defs1.lisp,1.57,1.58 ChangeLog,1.4716,1.4717 Date: Tue, 21 Jun 2005 20:15:32 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4636/src Modified Files: defs1.lisp ChangeLog Log Message: (logical-pathname-translations "SYS"): updated for the 2005-05-06 #p"" ==> :DIRECTORY NIL patch Index: defs1.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/defs1.lisp,v retrieving revision 1.57 retrieving revision 1.58 diff -u -d -r1.57 -r1.58 --- defs1.lisp 15 Jun 2005 12:42:54 -0000 1.57 +++ defs1.lisp 21 Jun 2005 20:15:02 -0000 1.58 @@ -550,7 +550,7 @@ t))))))))) (error (TEXT "No translations for logical host ~S found") host))) (set-logical-pathname-translations "SYS" - '((";*.LISP" "*.lisp") ("*" "*")))) + '((";*.LISP" "*.lisp") (";*" "*") ("*" "/*")))) ;;; functions for time (Chapter 25.4.1) Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4716 retrieving revision 1.4717 diff -u -d -r1.4716 -r1.4717 --- ChangeLog 21 Jun 2005 15:35:48 -0000 1.4716 +++ ChangeLog 21 Jun 2005 20:15:03 -0000 1.4717 @@ -1,5 +1,10 @@ 2005-06-21 Sam Steingold <sd...@gn...> + * defs1.lisp (logical-pathname-translations "SYS"): updated + for the 2005-05-06 #p"" ==> :DIRECTORY NIL patch + +2005-06-21 Sam Steingold <sd...@gn...> + * documentation.lisp ((setf documentation), documentation): removed the unnecessary (ignore doc-type) declarations (avoids warnings) --__--__-- Message: 8 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src TODO,1.100,1.101 Date: Tue, 21 Jun 2005 20:16:25 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5645/src Modified Files: TODO Log Message: fixed (compile-file (logical-pathname "SYS:FOO.LISP")) Index: TODO =================================================================== RCS file: /cvsroot/clisp/clisp/src/TODO,v retrieving revision 1.100 retrieving revision 1.101 diff -u -d -r1.100 -r1.101 --- TODO 20 Jun 2005 23:05:49 -0000 1.100 +++ TODO 21 Jun 2005 20:16:22 -0000 1.101 @@ -8,9 +8,6 @@ workaround for an extra comma in _clisp.1 [sds] -regression: resolution of logical pathnames is broken, try - (compile-file (logical-pathname "SYS:FOO.LISP")) [sds] - regression: [bruno] =============== script.lisp ================== (print (list 'script-args *args*)) --__--__-- Message: 9 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src TODO,1.101,1.102 Date: Tue, 21 Jun 2005 20:24:03 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9291/src Modified Files: TODO Log Message: encode-universal-time is buggy around the DST switches Index: TODO =================================================================== RCS file: /cvsroot/clisp/clisp/src/TODO,v retrieving revision 1.101 retrieving revision 1.102 diff -u -d -r1.101 -r1.102 --- TODO 21 Jun 2005 20:16:22 -0000 1.101 +++ TODO 21 Jun 2005 20:24:01 -0000 1.102 @@ -89,6 +89,33 @@ get-charset-range: move the "caching" code to the test suite [bruno] +encode-universal-time is buggy around the DST switches +<http://article.gmane.org/gmane.lisp.clisp.devel:14115> +around each switch from/to DST, for 4 hours, we have a 1 hour +discrepancy between ENCODE-UNIVERSAL-TIME and DECODE-UNIVERSAL-TIME. +since this happens only from 1970 to 2037, i.e., during the "UNIX +epoque", it is safe to conclude that the problem lies around the +DEFAULT-TIME-ZONE function. +(defun check-ut (time) + (multiple-value-bind (se mi ho da mo ye time1) (decode-universal-time time) + (setq time1 (encode-universal-time se mi ho da mo ye)) + (unless (= time1 time) + (list time (list se mi ho da mo ye) time1 (- time1 time))))) +(defun time-loop (start end step) + (loop with state = nil for tm from start below end by step + for check = (check-ut tm) do + (case state + ((:good) (when check (setq state :bad) (print check))) + ((:bad) (unless check (setq state :good) (print tm))) + (t (setq state (if check :bad :good)) (print (list state tm check)))))) +(time-loop 100000 305539424200 5000) +(time-loop 4300066700 4300081201 10) +(:GOOD 4300066700 NIL) +(4300066800 (0 0 3 6 4 2036) 4300070400 3600) +4300081200 +(/ (- 4300081200 4300066800) 3600) ==> 4 + + Embeddability: additional API in spvw.d; example. <https://sourceforge.net/tracker/index.php?func=detail&aid=423264&group_id=1355&atid=351355> --__--__-- Message: 10 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src charstrg.d,1.116,1.117 ChangeLog,1.4717,1.4718 Date: Tue, 21 Jun 2005 22:15:55 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5171/src Modified Files: charstrg.d ChangeLog Log Message: (coerce_char): no INPUT-CHARACTER without KEYBOARD Index: charstrg.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/charstrg.d,v retrieving revision 1.116 retrieving revision 1.117 diff -u -d -r1.116 -r1.117 --- charstrg.d 14 May 2005 13:45:45 -0000 1.116 +++ charstrg.d 21 Jun 2005 22:15:42 -0000 1.117 @@ -1248,11 +1248,14 @@ if (code < char_code_limit) /* obj is a fixnum >=0, < char_code_limit */ return code_char(as_chart(code)); - } else if (typep_classname(obj,S(input_character))) { + } +#if defined(KEYBOARD) + else if (typep_classname(obj,S(input_character))) { /* obj is an INPUT-CHARACTER. Call (SYS::INPUT-CHARACTER-CHAR obj): */ pushSTACK(obj); funcall(S(input_character_char),1); return charp(value1) ? value1 : NIL; } +#endif /* was none of it -> can not be converted into a character */ return NIL; /* NIL as result */ } Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4717 retrieving revision 1.4718 diff -u -d -r1.4717 -r1.4718 --- ChangeLog 21 Jun 2005 20:15:03 -0000 1.4717 +++ ChangeLog 21 Jun 2005 22:15:43 -0000 1.4718 @@ -1,5 +1,10 @@ 2005-06-21 Sam Steingold <sd...@gn...> + * charstrg.d (coerce_char): no INPUT-CHARACTER without KEYBOARD + Reported by Roland Averkamp <rol...@gm...> + +2005-06-21 Sam Steingold <sd...@gn...> + * defs1.lisp (logical-pathname-translations "SYS"): updated for the 2005-05-06 #p"" ==> :DIRECTORY NIL patch --__--__-- _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest |
