Menu
▾
▴
clisp-cvs digest, Vol 1 #921 - 15 msgs
|
From: <cli...@li...> - 2005-01-24 10:38:09
|
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 condition.lisp,1.75,1.76 ChangeLog,1.4116,1.4117 (Bruno Haible) 2. clisp/doc impbody.xml,1.352,1.353 (Bruno Haible) 3. clisp/src io.d,1.274,1.275 ChangeLog,1.4117,1.4118 (Bruno Haible) 4. clisp/src io.d,1.275,1.276 ChangeLog,1.4118,1.4119 (Bruno Haible) 5. clisp/src io.d,1.276,1.277 (Bruno Haible) 6. clisp/src package.d,1.95,1.96 (Bruno Haible) 7. clisp/src spvw.d,1.341,1.342 ChangeLog,1.4119,1.4120 (Bruno Haible) 8. clisp/src socket.d,1.87,1.88 time.d,1.43,1.44 (Bruno Haible) 9. clisp/src foreign1.lisp,1.77,1.78 ChangeLog,1.4120,1.4121 (Bruno Haible) 10. clisp/src describe.lisp,1.70,1.71 ChangeLog,1.4121,1.4122 (Bruno Haible) 11. clisp/src exporting.lisp,1.4,1.5 ChangeLog,1.4122,1.4123 (Bruno Haible) 12. clisp/src exporting.lisp,1.5,1.6 (Bruno Haible) 13. clisp/src clos-package.lisp,1.43,1.44 (Bruno Haible) 14. clisp/tests type.tst,1.40,1.41 ChangeLog,1.308,1.309 (Bruno Haible) 15. clisp/tests alltest.tst,1.40,1.41 backquot.tst,1.16,1.17 eval20.tst,1.10,1.11 format.tst,1.15,1.16 lists152.tst,1.12,1.13 macro8.tst,1.56,1.57 map.tst,1.10,1.11 pack11.tst,1.18,1.19 setf.tst,1.22,1.23 ChangeLog,1.309,1.310 (Bruno Haible) --__--__-- Message: 1 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/src condition.lisp,1.75,1.76 ChangeLog,1.4116,1.4117 Date: Mon, 24 Jan 2005 10:15:56 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7366/src Modified Files: condition.lisp ChangeLog Log Message: Don't convert the error message to a string before signalling it. Index: condition.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/condition.lisp,v retrieving revision 1.75 retrieving revision 1.76 diff -u -d -r1.75 -r1.76 --- condition.lisp 21 Jan 2005 17:42:27 -0000 1.75 +++ condition.lisp 24 Jan 2005 10:15:34 -0000 1.76 @@ -1633,12 +1633,13 @@ (defun appease-cerror (condition) ; ABI (let ((restart (find-noninteractively-invokable-continue-restart condition))) (when restart - (warn "~A" (with-output-to-string (stream) - (print-condition condition stream) - (let ((report-function (restart-report restart))) - (when report-function - (terpri stream) - (funcall report-function stream))))) + (warn #'(lambda (stream &rest arguments) + (print-condition condition stream) + (let ((report-function (restart-report restart))) + (when report-function + (terpri stream) + (funcall report-function stream))) + arguments)) (invoke-restart restart)))) (defmacro appease-cerrors (&body body) "(APPEASE-CERRORS {form}*) executes the forms, but turns continuable errors Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4116 retrieving revision 1.4117 diff -u -d -r1.4116 -r1.4117 --- ChangeLog 23 Jan 2005 03:04:51 -0000 1.4116 +++ ChangeLog 24 Jan 2005 10:15:35 -0000 1.4117 @@ -1,3 +1,11 @@ +2005-01-02 Bruno Haible <br...@cl...> + + * condition.lisp (appease-cerror): Don't convert the error message + to a string before signalling it, as this leads to ugly output. + Example: (appease-cerrors + (cerror "foo" "bar ~S" + (make-sequence 'list 30 :initial-element 0 :update #'1+))) + 2005-01-21 Sam Steingold <sd...@gn...> * spvw_fault.d (handle_read_fault): fixed the mingw build by using --__--__-- Message: 2 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/doc impbody.xml,1.352,1.353 Date: Mon, 24 Jan 2005 10:18:59 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8177/doc Modified Files: impbody.xml Log Message: "~." -> the &format; directive "~." Index: impbody.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/impbody.xml,v retrieving revision 1.352 retrieving revision 1.353 diff -u -d -r1.352 -r1.353 --- impbody.xml 23 Jan 2005 15:09:00 -0000 1.352 +++ impbody.xml 24 Jan 2005 10:18:50 -0000 1.353 @@ -3785,7 +3785,7 @@ &close;.</para> <para>The functionality of &elastic-newline; is also available through - <link linkend="format-dot">~.</link>.</para> + the &format; directive <link linkend="format-dot">~.</link>.</para> <para>A technique for avoiding unnecessary blank lines in output is to begin each chunk of output with a call to &fresh-line; and to terminate it --__--__-- Message: 3 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/src io.d,1.274,1.275 ChangeLog,1.4117,1.4118 Date: Mon, 24 Jan 2005 10:20:22 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8490/src Modified Files: io.d ChangeLog Log Message: Small optimization. Index: io.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/io.d,v retrieving revision 1.274 retrieving revision 1.275 diff -u -d -r1.274 -r1.275 --- io.d 20 Jan 2005 14:19:49 -0000 1.274 +++ io.d 24 Jan 2005 10:20:04 -0000 1.275 @@ -842,7 +842,7 @@ found: /* found in table */ var object readtable = check_readtable(popSTACK()); /* readtable */ TheReadtable(readtable)->readtable_case = fixnum(rtcase); - VALUES1((&O(rtcase_0))[rtcase]); + VALUES1(*ptr); } # ============================================================================= Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4117 retrieving revision 1.4118 diff -u -d -r1.4117 -r1.4118 --- ChangeLog 24 Jan 2005 10:15:35 -0000 1.4117 +++ ChangeLog 24 Jan 2005 10:20:18 -0000 1.4118 @@ -1,3 +1,7 @@ +2005-01-23 Bruno Haible <br...@cl...> + + * io.d (SYS::SET-READTABLE-CASE): Optimize after 2004-12-18 patch. + 2005-01-02 Bruno Haible <br...@cl...> * condition.lisp (appease-cerror): Don't convert the error message --__--__-- Message: 4 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/src io.d,1.275,1.276 ChangeLog,1.4118,1.4119 Date: Mon, 24 Jan 2005 10:21:41 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9020/src Modified Files: io.d ChangeLog Log Message: Small optimization. Fix comment. Index: io.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/io.d,v retrieving revision 1.275 retrieving revision 1.276 diff -u -d -r1.275 -r1.276 --- io.d 24 Jan 2005 10:20:04 -0000 1.275 +++ io.d 24 Jan 2005 10:21:37 -0000 1.276 @@ -3783,7 +3783,7 @@ # UP: checks, if Feature-Expression is satisfied. # interpret_feature(expr) # > expr: a Feature-Expresion -# > STACK_1: Stream +# > STACK_1: Stream or unbound # < result: truth value: 0 if satisfied, ~0 if not. local uintWL interpret_feature (object expr) { check_SP(); @@ -3820,15 +3820,18 @@ } # wrong (car expr) -> error } - bad: { /* wrong structure of Feature-Expression */ - var bool called_from_read_p = streamp(STACK_1); - if (called_from_read_p) pushSTACK(STACK_1); /* STREAM-ERROR slot STREAM */ - pushSTACK(expr); /* Feature-Expression */ - if (called_from_read_p) { - pushSTACK(STACK_(1+2)); /* Stream */ + bad: { + /* Wrong structure of feature expression. */ + if (boundp(STACK_1)) { + /* Called from READ. */ + pushSTACK(STACK_1); # STREAM-ERROR slot STREAM + pushSTACK(expr); # Feature-Expression + pushSTACK(STACK_(1+2)); # Stream pushSTACK(S(read)); fehler(reader_error,GETTEXT("~S from ~S: illegal feature ~S")); } else { + /* Called from FEATUREP. */ + pushSTACK(expr); # Feature-Expression pushSTACK(TheSubr(subr_self)->name); fehler(error,GETTEXT("~S: illegal feature ~S")); } @@ -3839,7 +3842,7 @@ <http://clrfi.alu.org/clrfi/clrfi-1-featurep> */ LISPFUNNR(featurep,1) { pushSTACK(STACK_0); /* interpret_feature checks STACK_1 */ - STACK_1 = S(featurep); + STACK_1 = unbound; VALUES_IF(!interpret_feature(STACK_0)); skipSTACK(2); } Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4118 retrieving revision 1.4119 diff -u -d -r1.4118 -r1.4119 --- ChangeLog 24 Jan 2005 10:20:18 -0000 1.4118 +++ ChangeLog 24 Jan 2005 10:21:38 -0000 1.4119 @@ -1,5 +1,10 @@ 2005-01-23 Bruno Haible <br...@cl...> + * io.d (interpret_feature, FEATUREP): Optimize 2005-01-12 patch: + Use boundp instead of streamp. Also fix comment. + +2005-01-23 Bruno Haible <br...@cl...> + * io.d (SYS::SET-READTABLE-CASE): Optimize after 2004-12-18 patch. 2005-01-02 Bruno Haible <br...@cl...> --__--__-- Message: 5 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/src io.d,1.276,1.277 Date: Mon, 24 Jan 2005 10:22:19 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9334/src Modified Files: io.d Log Message: Update comment to match the code. Index: io.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/io.d,v retrieving revision 1.276 retrieving revision 1.277 diff -u -d -r1.276 -r1.277 --- io.d 24 Jan 2005 10:21:37 -0000 1.276 +++ io.d 24 Jan 2005 10:22:16 -0000 1.277 @@ -4085,7 +4085,7 @@ { # execute (GET name 'SYS::DEFSTRUCT-DESCRIPTION): var object description = get(name,S(defstruct_description)); if (boundp(description)) { - /* description must be a Simple-Vector of length 6: */ + /* description must be a Simple-Vector of length 7: */ if (simple_vector_p(description) && (Svector_length(description) == 7)) { /* fetch constructor-function: */ --__--__-- Message: 6 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/src package.d,1.95,1.96 Date: Mon, 24 Jan 2005 10:23:27 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9701/src Modified Files: package.d Log Message: Style. Index: package.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/package.d,v retrieving revision 1.95 retrieving revision 1.96 diff -u -d -r1.95 -r1.96 --- package.d 7 Jan 2005 13:30:37 -0000 1.95 +++ package.d 24 Jan 2005 10:23:24 -0000 1.96 @@ -2402,7 +2402,7 @@ var bool value = !nullp(STACK_1); if (!!pack_casesensitivep(pack) != value) { pushSTACK(pack); pushSTACK(pack); - STACK_1=CLSTEXT("One should not change the case sensitiveness of ~S."); + STACK_1 = CLSTEXT("One should not change the case sensitiveness of ~S."); funcall(S(warn),2); pack = STACK_4; /* restore for GC-safety */ } --__--__-- Message: 7 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/src spvw.d,1.341,1.342 ChangeLog,1.4119,1.4120 Date: Mon, 24 Jan 2005 10:24:42 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10064/src Modified Files: spvw.d ChangeLog Log Message: Small optimization. Index: spvw.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/spvw.d,v retrieving revision 1.341 retrieving revision 1.342 diff -u -d -r1.341 -r1.342 --- spvw.d 11 Jan 2005 12:50:50 -0000 1.341 +++ spvw.d 24 Jan 2005 10:24:36 -0000 1.342 @@ -1642,7 +1642,7 @@ var const char * const * ptr = license; var uintC count = sizeof(license)/sizeof(license[0]); pushSTACK(var_stream(S(standard_output),strmflags_wr_ch_B)); - pushSTACK(STACK_0);funcall(L(fresh_line),1);/* clean up after *INIT-HOOKS* */ + fresh_line(&STACK_0); /* The *INIT-HOOKS* might have done output. */ while (count--) write_sstring(&STACK_0,asciz_to_string(*ptr++,O(internal_encoding))); skipSTACK(1); @@ -1747,7 +1747,7 @@ var const char * const * ptr; var uintC count; pushSTACK(var_stream(S(standard_output),strmflags_wr_ch_B)); # to *STANDARD-OUTPUT* - pushSTACK(STACK_0);funcall(L(fresh_line),1);/* clean up after *INIT-HOOKS* */ + fresh_line(&STACK_0); /* The *INIT-HOOKS* might have done output. */ if (candles > 0) { ptr = banner0_hanukka; count = sizeof(banner0_hanukka)/sizeof(banner0_hanukka[0]); } else { Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4119 retrieving revision 1.4120 diff -u -d -r1.4119 -r1.4120 --- ChangeLog 24 Jan 2005 10:21:38 -0000 1.4119 +++ ChangeLog 24 Jan 2005 10:24:39 -0000 1.4120 @@ -1,5 +1,10 @@ 2005-01-23 Bruno Haible <br...@cl...> + * spvw.d (print_license, print_banner): Optimize: Use fresh_line as C + function. + +2005-01-23 Bruno Haible <br...@cl...> + * io.d (interpret_feature, FEATUREP): Optimize 2005-01-12 patch: Use boundp instead of streamp. Also fix comment. --__--__-- Message: 8 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/src socket.d,1.87,1.88 time.d,1.43,1.44 Date: Mon, 24 Jan 2005 10:26:13 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11194/src Modified Files: socket.d time.d Log Message: Use 'var'. Index: socket.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/socket.d,v retrieving revision 1.87 retrieving revision 1.88 diff -u -d -r1.87 -r1.88 --- socket.d 11 Jan 2005 17:17:38 -0000 1.87 +++ socket.d 24 Jan 2005 10:26:10 -0000 1.88 @@ -170,7 +170,7 @@ /* for syscalls & rawsock modules */ global object addr_to_string (short type, char *addr) { - char buffer[MAXHOSTNAMELEN]; + var char buffer[MAXHOSTNAMELEN]; #ifdef HAVE_IPV6 if (type == AF_INET6) return asciz_to_string(ipv6_ntop(buffer,*(const struct in6_addr*)addr), @@ -355,9 +355,9 @@ return 0; } global struct hostent* resolve_host (object arg) { - struct hostent* he; + var struct hostent* he; if (eq(arg,S(Kdefault))) { - char * host; + var char* host; get_hostname(host =); begin_system_call(); he = gethostbyname(host); @@ -370,14 +370,14 @@ end_system_call(); }); } else if (uint32_p(arg)) { - uint32 ip = I_to_uint32(arg); + var uint32 ip = I_to_uint32(arg); begin_system_call(); he = gethostbyaddr((char*)&ip,sizeof(uint32),AF_INET); end_system_call(); } else if (vectorp(arg)) { /* bit vector: treat as raw IP address data */ - uintL vec_len = vector_length(arg); - uintL data_size; /* size of data in byte */ + var uintL vec_len = vector_length(arg); + var uintL data_size; /* size of data in byte */ switch (array_atype(arg)) { /* vec_len must be a whole number of bytes */ case Atype_Bit: data_size = vec_len>>3; @@ -395,8 +395,8 @@ default: goto resolve_host_bad_vector; } if (data_size == sizeof(struct in_addr)) { - uintL index; - object data = array_displace_check(arg,vec_len,&index); + var uintL index; + var object data = array_displace_check(arg,vec_len,&index); begin_system_call(); he = gethostbyaddr((char*)(TheSbvector(data)->data+index), data_size,AF_INET); @@ -404,8 +404,8 @@ } #ifdef HAVE_IPV6 else if (data_size == sizeof(struct in6_addr)) { - uintL index; - object data = array_displace_check(arg,vec_len,&index); + var uintL index; + var object data = array_displace_check(arg,vec_len,&index); begin_system_call(); he = gethostbyaddr((char*)(TheSbvector(data)->data+index), data_size,AF_INET6); @@ -431,8 +431,8 @@ } #ifdef HAVE_IPV6 else if (fixnump(arg)) { /* what if we ever get fixnums>32 bit?! */ - uintL ip = I_to_UL(arg); - struct in6_addr addr; + var uintL ip = I_to_UL(arg); + var struct in6_addr addr; begin_system_call(); memset(&addr,0,sizeof(struct in6_addr)); memcpy(&addr,&ip,sizeof(uintL)); /* FIXME: endianness?! */ @@ -440,7 +440,7 @@ end_system_call(); } else if (bignump(arg) && positivep(arg) && Bignum_length(arg)*intDsize <= sizeof(struct in6_addr)) { - /* arg is an integer of length at most 128 big - IPv6 address */ + /* arg is an integer of length at most 128 bit - IPv6 address */ NOTREACHED; /* FIXME */ } #endif @@ -521,6 +521,7 @@ } } } + #endif /* TCPCONN */ /* ========================== X server connection ======================== */ @@ -579,7 +580,7 @@ return INVALID_SOCKET; #ifdef TCP_NODELAY { /* turn off TCP coalescence (the bandwidth saving Nagle algorithm) */ - int tmp = 1; + var int tmp = 1; setsockopt(fd, IPPROTO_TCP, TCP_NODELAY, (SETSOCKOPT_ARG_T)&tmp, sizeof(int)); } Index: time.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/time.d,v retrieving revision 1.43 retrieving revision 1.44 diff -u -d -r1.43 -r1.44 --- time.d 6 Jan 2005 22:06:40 -0000 1.43 +++ time.d 24 Jan 2005 10:26:10 -0000 1.44 @@ -448,8 +448,8 @@ return UL_to_I(real_time); } global void convert_time_from_universal (object universal, FILETIME* time) { - uint64 ut = (I_to_uint64(universal) + (uint64)109207 * (uint64)86400) - * (uint64)ticks_per_second; + var uint64 ut = (I_to_uint64(universal) + (uint64)109207 * (uint64)86400) + * (uint64)ticks_per_second; time->dwHighDateTime = (uint32)(ut>>32 & 0xFFFFFFFFul); time->dwLowDateTime = (uint32)(ut & 0xFFFFFFFFul); } --__--__-- Message: 9 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/src foreign1.lisp,1.77,1.78 ChangeLog,1.4120,1.4121 Date: Mon, 24 Jan 2005 10:28:23 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11621/src Modified Files: foreign1.lisp ChangeLog Log Message: Allow format-control function in do-c-lines. Index: foreign1.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/foreign1.lisp,v retrieving revision 1.77 retrieving revision 1.78 diff -u -d -r1.77 -r1.78 --- foreign1.lisp 21 Jan 2005 11:46:02 -0000 1.77 +++ foreign1.lisp 24 Jan 2005 10:28:20 -0000 1.78 @@ -772,8 +772,9 @@ (when (compiler::prepare-coutput-file) (prepare-module) (etypecase format-string - (string (apply #'format *coutput-stream* format-string args)) - (symbol + ((or string function) + (apply #'format *coutput-stream* format-string args)) + ((member :init-always :init-once :fini) (let ((code (apply #'format nil args))) (ecase format-string (:init-always (push code *init-always*)) Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4120 retrieving revision 1.4121 diff -u -d -r1.4120 -r1.4121 --- ChangeLog 24 Jan 2005 10:24:39 -0000 1.4120 +++ ChangeLog 24 Jan 2005 10:28:21 -0000 1.4121 @@ -1,5 +1,11 @@ 2005-01-23 Bruno Haible <br...@cl...> + * foreign1.lisp (do-c-lines): Fully check the first argument already + in the first etypecase. Allow format-control functions instead of a + format string. + +2005-01-23 Bruno Haible <br...@cl...> + * spvw.d (print_license, print_banner): Optimize: Use fresh_line as C function. --__--__-- Message: 10 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/src describe.lisp,1.70,1.71 ChangeLog,1.4121,1.4122 Date: Mon, 24 Jan 2005 10:29:44 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11890/src Modified Files: describe.lisp ChangeLog Log Message: Follow newline conventions. Index: describe.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/describe.lisp,v retrieving revision 1.70 retrieving revision 1.71 diff -u -d -r1.70 -r1.71 --- describe.lisp 7 Jan 2005 15:11:43 -0000 1.70 +++ describe.lisp 24 Jan 2005 10:29:38 -0000 1.71 @@ -43,7 +43,7 @@ (or (eq t *apropos-do-more*) (memq what *apropos-do-more*))) (defun apropos (string &optional (package nil)) - (dolist (sym (apropos-list string package) (fresh-line)) + (dolist (sym (apropos-list string package) (elastic-newline)) (format t "~&~s~40t" sym) (when (fboundp sym) (write-string " ") Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4121 retrieving revision 1.4122 diff -u -d -r1.4121 -r1.4122 --- ChangeLog 24 Jan 2005 10:28:21 -0000 1.4121 +++ ChangeLog 24 Jan 2005 10:29:41 -0000 1.4122 @@ -1,5 +1,10 @@ 2005-01-23 Bruno Haible <br...@cl...> + * describe.lisp (apropos): Terminate the output with an elastic-newline, + not a fresh-line. + +2005-01-23 Bruno Haible <br...@cl...> + * foreign1.lisp (do-c-lines): Fully check the first argument already in the first etypecase. Allow format-control functions instead of a format string. --__--__-- Message: 11 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/src exporting.lisp,1.4,1.5 ChangeLog,1.4122,1.4123 Date: Mon, 24 Jan 2005 10:31:20 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12268/src Modified Files: exporting.lisp ChangeLog Log Message: Export the copier symbol as well. Index: exporting.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/exporting.lisp,v retrieving revision 1.4 retrieving revision 1.5 diff -u -d -r1.4 -r1.5 --- exporting.lisp 4 Jan 2005 18:28:02 -0000 1.4 +++ exporting.lisp 24 Jan 2005 10:31:17 -0000 1.5 @@ -109,15 +109,16 @@ (cl:defun export-accessories (name) (export name) - (export (clos::class-kconstructor name)) - (export (clos::class-predicate name)) + (export (or (clos::class-kconstructor name) '(NIL))) (export (clos::class-boa-constructors name)) + (export (or (clos::class-copier name) '(NIL))) + (export (or (clos::class-predicate name) '(NIL))) (export (class-accessor-symbols name))) (cl:defmacro defstruct (name+options &rest slots) - `(let ((name (CL:DEFSTRUCT ,name+options ,@slots))) - (EXPORT-ACCESSORIES name) - name)) + `(LET ((NAME (CL:DEFSTRUCT ,name+options ,@slots))) + (EXPORT-ACCESSORIES NAME) + NAME)) (cl:defmacro defclass (name superclasses slot-specs &rest options) `(PROGN @@ -166,9 +167,9 @@ #+FFI (cl:defmacro def-c-struct (name+options &rest slots) - `(let ((name (FFI:DEF-C-STRUCT ,name+options ,@slots))) - (EXPORT-ACCESSORIES name) - name)) + `(LET ((NAME (FFI:DEF-C-STRUCT ,name+options ,@slots))) + (EXPORT-ACCESSORIES NAME) + NAME)) #+FFI (cl:defmacro def-c-var (name &rest options) Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4122 retrieving revision 1.4123 diff -u -d -r1.4122 -r1.4123 --- ChangeLog 24 Jan 2005 10:29:41 -0000 1.4122 +++ ChangeLog 24 Jan 2005 10:31:17 -0000 1.4123 @@ -1,5 +1,10 @@ 2005-01-23 Bruno Haible <br...@cl...> + * exporting.lisp (export-accessories): Also export the copier's name. + Fixes bug introduced on 2005-01-04. + +2005-01-23 Bruno Haible <br...@cl...> + * describe.lisp (apropos): Terminate the output with an elastic-newline, not a fresh-line. --__--__-- Message: 12 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/src exporting.lisp,1.5,1.6 Date: Mon, 24 Jan 2005 10:32:16 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12552/src Modified Files: exporting.lisp Log Message: Oops, don't export NIL. Index: exporting.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/exporting.lisp,v retrieving revision 1.5 retrieving revision 1.6 diff -u -d -r1.5 -r1.6 --- exporting.lisp 24 Jan 2005 10:31:17 -0000 1.5 +++ exporting.lisp 24 Jan 2005 10:32:13 -0000 1.6 @@ -109,10 +109,10 @@ (cl:defun export-accessories (name) (export name) - (export (or (clos::class-kconstructor name) '(NIL))) + (export (clos::class-kconstructor name)) (export (clos::class-boa-constructors name)) - (export (or (clos::class-copier name) '(NIL))) - (export (or (clos::class-predicate name) '(NIL))) + (export (clos::class-copier name)) + (export (clos::class-predicate name)) (export (class-accessor-symbols name))) (cl:defmacro defstruct (name+options &rest slots) --__--__-- Message: 13 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/src clos-package.lisp,1.43,1.44 Date: Mon, 24 Jan 2005 10:32:41 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12715/src Modified Files: clos-package.lisp Log Message: No need any more to use *keyword-package* here. Index: clos-package.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/clos-package.lisp,v retrieving revision 1.43 retrieving revision 1.44 diff -u -d -r1.43 -r1.44 --- clos-package.lisp 3 Jan 2005 21:56:52 -0000 1.43 +++ clos-package.lisp 24 Jan 2005 10:32:39 -0000 1.44 @@ -51,7 +51,6 @@ ;; clos:slot-boundp clos:slot-makunbound ; defined in record.d ;; clos:slot-exists-p ; defined in record.d ;; clos::class-gethash clos::class-tuple-gethash ; defined in hashtabl.d - ;; sys::*keyword-package* ; defined in init.lisp, compiler.lisp compiler::%generic-function-lambda ; defined in compiler.lisp compiler::%optimize-function-lambda ; defined in compiler.lisp ;; clos:generic-flet clos:generic-labels ; treated in compiler.lisp --__--__-- Message: 14 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/tests type.tst,1.40,1.41 ChangeLog,1.308,1.309 Date: Mon, 24 Jan 2005 10:34:33 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13098/tests Modified Files: type.tst ChangeLog Log Message: Avoid collisions. Index: type.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/type.tst,v retrieving revision 1.40 retrieving revision 1.41 diff -u -d -r1.40 -r1.41 --- type.tst 4 Jan 2005 17:44:48 -0000 1.40 +++ type.tst 24 Jan 2005 10:34:31 -0000 1.41 @@ -708,13 +708,13 @@ (nil t 3 -44 nil t 9 88) (let ((*break-on-signals* t) a) - (defstruct (foo130 (:predicate is-foo130)) p) - (setq a (make-foo130 :p 10)) - (list (is-foo130 a) (foo130-p a))) + (defstruct (foo139 (:predicate is-foo139)) p) + (setq a (make-foo139 :p 10)) + (list (is-foo139 a) (foo139-p a))) (T 10) (let ((*break-on-signals* t) a) - (defstruct (foo131 (:predicate is-foo131) (:type vector) :named) p) - (setq a (make-foo131 :p 10)) - (list (is-foo131 a) (foo131-p a))) + (defstruct (foo140 (:predicate is-foo140) (:type vector) :named) p) + (setq a (make-foo140 :p 10)) + (list (is-foo140 a) (foo140-p a))) (T 10) Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/tests/ChangeLog,v retrieving revision 1.308 retrieving revision 1.309 diff -u -d -r1.308 -r1.309 --- ChangeLog 20 Jan 2005 20:03:54 -0000 1.308 +++ ChangeLog 24 Jan 2005 10:34:31 -0000 1.309 @@ -1,3 +1,7 @@ +2005-01-23 Bruno Haible <br...@cl...> + + * type.tst: Rename some classes to avoid collisions with other tests. + 2005-01-20 Sam Steingold <sd...@gn...> * bind.tst: added LOCALLY tests --__--__-- Message: 15 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/tests alltest.tst,1.40,1.41 backquot.tst,1.16,1.17 eval20.tst,1.10,1.11 format.tst,1.15,1.16 lists152.tst,1.12,1.13 macro8.tst,1.56,1.57 map.tst,1.10,1.11 pack11.tst,1.18,1.19 setf.tst,1.22,1.23 ChangeLog,1.309,1.310 Date: Mon, 24 Jan 2005 10:36:18 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13533/tests Modified Files: alltest.tst backquot.tst eval20.tst format.tst lists152.tst macro8.tst map.tst pack11.tst setf.tst ChangeLog Log Message: Clean up, to avoid interferences between different tests. Index: pack11.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/pack11.tst,v retrieving revision 1.18 retrieving revision 1.19 diff -u -d -r1.18 -r1.19 --- pack11.tst 18 Dec 2004 22:00:23 -0000 1.18 +++ pack11.tst 24 Jan 2005 10:36:15 -0000 1.19 @@ -741,3 +741,8 @@ (delete-package "TEST-PACKAGE-CASE") T + + +; Clean up. +(unintern 'x) +T Index: format.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/format.tst,v retrieving revision 1.15 retrieving revision 1.16 diff -u -d -r1.15 -r1.16 --- format.tst 5 Jan 2005 11:49:39 -0000 1.15 +++ format.tst 24 Jan 2005 10:36:15 -0000 1.16 @@ -1188,6 +1188,11 @@ def") + +; Cleanup. +(unintern 'x) +T + ;; local variables: ;; eval: (make-local-variable 'write-file-functions) ;; eval: (remove-hook 'write-file-functions 'delete-trailing-whitespace t) Index: lists152.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/lists152.tst,v retrieving revision 1.12 retrieving revision 1.13 diff -u -d -r1.12 -r1.13 --- lists152.tst 30 Aug 2004 13:49:45 -0000 1.12 +++ lists152.tst 24 Jan 2005 10:36:15 -0000 1.13 @@ -883,3 +883,8 @@ (append 'a) A + + +; Clean up. +(unintern 'x) +T Index: eval20.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/eval20.tst,v retrieving revision 1.10 retrieving revision 1.11 diff -u -d -r1.10 -r1.11 --- eval20.tst 13 Dec 2004 11:55:58 -0000 1.10 +++ eval20.tst 24 Jan 2005 10:36:15 -0000 1.11 @@ -127,3 +127,8 @@ (bar zz 12) zz) (12 . 2) + + +; Clean up. +(unintern 'x) +T Index: setf.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/setf.tst,v retrieving revision 1.22 retrieving revision 1.23 diff -u -d -r1.22 -r1.23 --- setf.tst 25 Dec 2004 13:26:33 -0000 1.22 +++ setf.tst 24 Jan 2005 10:36:15 -0000 1.23 @@ -548,3 +548,8 @@ (push (make-array 2) (bothvars a b)) (eq a b)) T + + +; Clean up. +(unintern 'x) +T Index: map.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/map.tst,v retrieving revision 1.10 retrieving revision 1.11 diff -u -d -r1.10 -r1.11 --- map.tst 30 Aug 2004 13:49:45 -0000 1.10 +++ map.tst 24 Jan 2005 10:36:15 -0000 1.11 @@ -262,3 +262,8 @@ (mapcap #'list '(a b c) '(1 2 3) '(u i v)) #+CLISP (A 1 U B 2 I C 3 V) + + +; Clean up. +(unintern 'x) +T Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/tests/ChangeLog,v retrieving revision 1.309 retrieving revision 1.310 diff -u -d -r1.309 -r1.310 --- ChangeLog 24 Jan 2005 10:34:31 -0000 1.309 +++ ChangeLog 24 Jan 2005 10:36:15 -0000 1.310 @@ -1,3 +1,15 @@ +2005-01-21 Bruno Haible <br...@cl...> + + * alltest.tst: At the end, clean up symbols affected by side-effects. + * backquot.tst: Likewise. + * eval20.tst: Likewise. + * format.tst: Likewise. + * lists152.tst: Likewise. + * macro8.tst: Likewise. + * map.tst: Likewise. + * pack11.tst: Likewise. + * setf.tst: Likewise. + 2005-01-23 Bruno Haible <br...@cl...> * type.tst: Rename some classes to avoid collisions with other tests. Index: macro8.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/macro8.tst,v retrieving revision 1.56 retrieving revision 1.57 diff -u -d -r1.56 -r1.57 --- macro8.tst 7 Jan 2005 13:30:47 -0000 1.56 +++ macro8.tst 24 Jan 2005 10:36:15 -0000 1.57 @@ -908,3 +908,8 @@ ;; <http://article.gmane.org/gmane.lisp.clisp.general:9093> (multiple-value-list (compile nil #'test-constant-folding)) (#.#'test-constant-folding nil nil) + + +; Clean up. +(unintern 'x) +T Index: backquot.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/backquot.tst,v retrieving revision 1.16 retrieving revision 1.17 diff -u -d -r1.16 -r1.17 --- backquot.tst 3 Jun 2004 22:27:15 -0000 1.16 +++ backquot.tst 24 Jan 2005 10:36:15 -0000 1.17 @@ -329,3 +329,8 @@ (let ((a 12)) (macrolet ((b () (let ((c 19)) ``(,a ,@',@(list c))))) (b))) (12 . 19) + + +; Clean up. +(unintern 'x) +T Index: alltest.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/alltest.tst,v retrieving revision 1.40 retrieving revision 1.41 diff -u -d -r1.40 -r1.41 --- alltest.tst 6 Dec 2004 12:44:16 -0000 1.40 +++ alltest.tst 24 Jan 2005 10:36:15 -0000 1.41 @@ -2534,3 +2534,8 @@ ;case-every, comment, cond-every, displace, return, return-from, ACCESS, BOOLE, ;call-arguments-limit, DEFUN, errset, *errset*, *macroexpand-hook*, *package*, ;*random-state*, *SAVE-OLD-DEFINITION-WHEN-REDEFINED*, + + +; Clean up. +(UNINTERN 'X) +T --__--__-- _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest |
