Menu
▾
▴
clisp-cvs digest, Vol 1 #918 - 6 msgs
|
From: <cli...@li...> - 2005-01-22 04:13:34
|
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 compiler.lisp,1.240,1.241 (Sam Steingold) 2. clisp/src condition.lisp,1.74,1.75 clos-methcomb2.lisp,1.63,1.64 clos-genfun4.lisp,1.43,1.44 clos-class3.lisp,1.79,1.80 (Sam Steingold) 3. clisp/src control.d,1.120,1.121 ChangeLog,1.4112,1.4113 (Sam Steingold) 4. clisp/src control.d,1.121,1.122 ChangeLog,1.4113,1.4114 (Sam Steingold) 5. clisp/src control.d,1.122,1.123 (Sam Steingold) 6. clisp/src spvw_fault.d,1.22,1.23 ChangeLog,1.4114,1.4115 (Sam Steingold) --__--__-- Message: 1 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src compiler.lisp,1.240,1.241 Date: Fri, 21 Jan 2005 17:42:12 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7278/src Modified Files: compiler.lisp Log Message: updated maintenance dates Index: compiler.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/compiler.lisp,v retrieving revision 1.240 retrieving revision 1.241 diff -u -d -r1.240 -r1.241 --- compiler.lisp 21 Jan 2005 17:35:52 -0000 1.240 +++ compiler.lisp 21 Jan 2005 17:42:07 -0000 1.241 @@ -41,7 +41,7 @@ ;; - poss. better Optimization by data-flow-analysis ;; - Inline-Compilation of calls of local functions -;; Sam Steingold 1999-2004 +;; Sam Steingold 1999-2005 ;; German comments translated into English: Stefan Kain 2001-12-18 ;; "z" at the end of a variable name stands for "zustand" (German for "state") --__--__-- Message: 2 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src condition.lisp,1.74,1.75 clos-methcomb2.lisp,1.63,1.64 clos-genfun4.lisp,1.43,1.44 clos-class3.lisp,1.79,1.80 Date: Fri, 21 Jan 2005 17:42:30 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7398/src Modified Files: condition.lisp clos-methcomb2.lisp clos-genfun4.lisp clos-class3.lisp Log Message: updated maintenance dates Index: clos-genfun4.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/clos-genfun4.lisp,v retrieving revision 1.43 retrieving revision 1.44 diff -u -d -r1.43 -r1.44 --- clos-genfun4.lisp 21 Jan 2005 17:35:57 -0000 1.43 +++ clos-genfun4.lisp 21 Jan 2005 17:42:27 -0000 1.44 @@ -2,7 +2,7 @@ ;;;; Generic Functions ;;;; Part n-2: make/initialize-instance methods, generic functions. ;;;; Bruno Haible 21.8.1993 - 2004 -;;;; Sam Steingold 1998 - 2004 +;;;; Sam Steingold 1998 - 2005 ;;;; German comments translated into English: Stefan Kain 2002-04-08 (in-package "CLOS") Index: clos-class3.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/clos-class3.lisp,v retrieving revision 1.79 retrieving revision 1.80 diff -u -d -r1.79 -r1.80 --- clos-class3.lisp 21 Jan 2005 17:35:57 -0000 1.79 +++ clos-class3.lisp 21 Jan 2005 17:42:27 -0000 1.80 @@ -2,7 +2,7 @@ ;;;; Class metaobjects ;;;; Part 3: Class definition and redefinition. ;;;; Bruno Haible 21.8.1993 - 2004 -;;;; Sam Steingold 1998 - 2004 +;;;; Sam Steingold 1998 - 2005 ;;;; German comments translated into English: Stefan Kain 2002-04-08 (in-package "CLOS") Index: condition.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/condition.lisp,v retrieving revision 1.74 retrieving revision 1.75 diff -u -d -r1.74 -r1.75 --- condition.lisp 21 Jan 2005 17:35:51 -0000 1.74 +++ condition.lisp 21 Jan 2005 17:42:27 -0000 1.75 @@ -1,7 +1,7 @@ ;;; Condition System for CLISP ;;; David Gadbois <ga...@cs...> 30.11.1993 ;;; Bruno Haible 24.11.1993, 2.12.1993 -- 2005 -;;; Sam Steingold 1998-2004 +;;; Sam Steingold 1998-2005 (in-package "COMMON-LISP") ;;; exports: Index: clos-methcomb2.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/clos-methcomb2.lisp,v retrieving revision 1.63 retrieving revision 1.64 diff -u -d -r1.63 -r1.64 --- clos-methcomb2.lisp 21 Jan 2005 17:35:57 -0000 1.63 +++ clos-methcomb2.lisp 21 Jan 2005 17:42:27 -0000 1.64 @@ -1,6 +1,6 @@ ;;;; Common Lisp Object System for CLISP: Method Combination ;;;; Bruno Haible 21.8.1993 - 2004 -;;;; Sam Steingold 1998 - 2004 +;;;; Sam Steingold 1998 - 2005 ;;;; German comments translated into English: Stefan Kain 2002-04-08 ;;;; James Anderson 2003 --__--__-- Message: 3 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src control.d,1.120,1.121 ChangeLog,1.4112,1.4113 Date: Fri, 21 Jan 2005 17:50:29 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9314/src Modified Files: control.d ChangeLog Log Message: (SET_BIT): new macro Index: control.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/control.d,v retrieving revision 1.120 retrieving revision 1.121 diff -u -d -r1.120 -r1.121 --- control.d 20 Jan 2005 22:06:37 -0000 1.120 +++ control.d 21 Jan 2005 17:50:24 -0000 1.121 @@ -413,6 +413,9 @@ return value1; } +/* add a bit to the object */ +#define SET_BIT(o,b) as_object(as_oint(o) | wbit(b)); + /* UP for LET, LET*, LOCALLY, MULTIPLE-VALUE-BIND, SYMBOL-MACROLET: Analyzes the variables and declarations, builds up a variable binding- frame and extends VENV and poss. also DENV by a frame. @@ -520,7 +523,7 @@ } } while (--count); #else - var object to_compare = as_object(as_oint(symbol) | wbit(active_bit_o)); + var object to_compare = SET_BIT(symbol,active_bit_o); var gcv_object_t* ptr = spec_pointer; var uintL count = spec_anz; do { @@ -560,9 +563,9 @@ if (specdecled || special_var_p(TheSymbol(symbol))) { /* bind dynamically */ #if (varframe_binding_mark == varframe_binding_sym) - STACK_(varframe_binding_mark) = as_object(as_oint(symbol) | wbit(dynam_bit_o)); + STACK_(varframe_binding_mark) = SET_BIT(symbol,dynam_bit_o); #else - STACK_(varframe_binding_mark) = as_object(as_oint(Fixnum_0) | wbit(dynam_bit_o)); + STACK_(varframe_binding_mark) = SET_BIT(Fixnum_0,dynam_bit_o); #endif } else { /* bind statically */ @@ -635,7 +638,7 @@ *(markptr STACKop varframe_binding_value) = TheSymbolflagged(symbol)->symvalue; /* save old value in frame */ TheSymbolflagged(symbol)->symvalue = newval; /* new value */ } - *markptr = as_object(as_oint(*markptr) | wbit(active_bit_o)); /* activate binding */ + *markptr = SET_BIT(*markptr,active_bit_o); /* activate binding */ } while (--count); } @@ -701,7 +704,7 @@ } else { *initptr = newval; /* new value into the frame */ } - *markptr = as_object(as_oint(*markptr) | wbit(active_bit_o)); /* activate binding */ + *markptr = SET_BIT(*markptr,active_bit_o); /* activate binding */ } while (--count); } /* interpret body: */ @@ -1115,7 +1118,7 @@ TheSymbolmacro(sm)->symbolmacro_expansion = *initptr; *initptr = sm; frame_pointer skipSTACKop -(varframe_binding_size-1); - Before(frame_pointer) = as_object(as_oint(Before(frame_pointer)) | wbit(active_bit_o)); + Before(frame_pointer) = SET_BIT(Before(frame_pointer),active_bit_o); } while (--count); } /* interpret body: */ @@ -1759,7 +1762,7 @@ TheSymbolflagged(sym)->symvalue = (value); /* new value into the value cell */ \ } else /* static binding : */ \ *valptr = (value); /* new value into the frame */ \ - *markptr = as_object(as_oint(*markptr) | wbit(active_bit_o)); /* activate binding */ \ + *markptr = SET_BIT(*markptr,active_bit_o); /* activate binding */ \ }} /* bind the r:=bind_count variables to the s:=mv_count values: (if there are not enough variables: discard remaining values; Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4112 retrieving revision 1.4113 diff -u -d -r1.4112 -r1.4113 --- ChangeLog 21 Jan 2005 17:36:00 -0000 1.4112 +++ ChangeLog 21 Jan 2005 17:50:25 -0000 1.4113 @@ -1,5 +1,11 @@ 2005-01-21 Sam Steingold <sd...@gn...> + * control.d (SET_BIT): new macro + (make_variable_frame, activate_bindings, LET*, SYMBOL-MACROLET): + (MULTIPLE-VALUE-BIND): use it + +2005-01-21 Sam Steingold <sd...@gn...> + * condition.lisp (handler-bind): use the function syntax for %HANDLER-BIND * compiler.lisp (quote-p): new function --__--__-- Message: 4 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src control.d,1.121,1.122 ChangeLog,1.4113,1.4114 Date: Fri, 21 Jan 2005 18:35:44 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19540/src Modified Files: control.d ChangeLog Log Message: (make_variable_frame): fixed the check whether the variable is special Index: control.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/control.d,v retrieving revision 1.121 retrieving revision 1.122 diff -u -d -r1.121 -r1.122 --- control.d 21 Jan 2005 17:50:24 -0000 1.121 +++ control.d 21 Jan 2005 18:35:36 -0000 1.122 @@ -515,7 +515,7 @@ do { NEXT(ptr); if (eq(NEXT(ptr),symbol)) { - if (eq(NEXT(ptr),fixnum(bit(active_bit)))) { + if (eq(NEXT(ptr),Fixnum_0)) { specdecled = true; break; } } else { @@ -523,7 +523,7 @@ } } while (--count); #else - var object to_compare = SET_BIT(symbol,active_bit_o); + var object to_compare = SET_BIT(symbol,0); var gcv_object_t* ptr = spec_pointer; var uintL count = spec_anz; do { Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4113 retrieving revision 1.4114 diff -u -d -r1.4113 -r1.4114 --- ChangeLog 21 Jan 2005 17:50:25 -0000 1.4113 +++ ChangeLog 21 Jan 2005 18:35:38 -0000 1.4114 @@ -1,5 +1,10 @@ 2005-01-21 Sam Steingold <sd...@gn...> + * control.d (make_variable_frame): fixed the check whether the + variable is special + +2005-01-21 Sam Steingold <sd...@gn...> + * control.d (SET_BIT): new macro (make_variable_frame, activate_bindings, LET*, SYMBOL-MACROLET): (MULTIPLE-VALUE-BIND): use it --__--__-- Message: 5 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src control.d,1.122,1.123 Date: Fri, 21 Jan 2005 18:37:04 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19770 Modified Files: control.d Log Message: simplified last patch Index: control.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/control.d,v retrieving revision 1.122 retrieving revision 1.123 diff -u -d -r1.122 -r1.123 --- control.d 21 Jan 2005 18:35:36 -0000 1.122 +++ control.d 21 Jan 2005 18:37:01 -0000 1.123 @@ -523,12 +523,11 @@ } } while (--count); #else - var object to_compare = SET_BIT(symbol,0); var gcv_object_t* ptr = spec_pointer; var uintL count = spec_anz; do { NEXT(ptr); - if (eq(NEXT(ptr),to_compare)) { + if (eq(NEXT(ptr),symbol)) { specdecled = true; break; } } while (--count); --__--__-- Message: 6 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src spvw_fault.d,1.22,1.23 ChangeLog,1.4114,1.4115 Date: Fri, 21 Jan 2005 18:52:46 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23942/src Modified Files: spvw_fault.d ChangeLog Log Message: (handle_read_fault): fixed the mingw build by using OS_set_errno(0) instead of errno=0 Index: spvw_fault.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/spvw_fault.d,v retrieving revision 1.22 retrieving revision 1.23 diff -u -d -r1.22 -r1.23 --- spvw_fault.d 15 Dec 2004 20:50:39 -0000 1.22 +++ spvw_fault.d 21 Jan 2005 18:52:27 -0000 1.23 @@ -66,7 +66,7 @@ # so don't use it. if (inside_gc) { fprintf(stderr,"\n*** - " "handle_fault called at a point inside GC where it shouldn't!\n"); - errno = 0; + OS_set_errno(0); return -1; } # bring page up to date with the state of the cache: Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4114 retrieving revision 1.4115 diff -u -d -r1.4114 -r1.4115 --- ChangeLog 21 Jan 2005 18:35:38 -0000 1.4114 +++ ChangeLog 21 Jan 2005 18:52:28 -0000 1.4115 @@ -1,5 +1,10 @@ 2005-01-21 Sam Steingold <sd...@gn...> + * spvw_fault.d (handle_read_fault): fixed the mingw build by using + OS_set_errno(0) instead of errno=0 + +2005-01-21 Sam Steingold <sd...@gn...> + * control.d (make_variable_frame): fixed the check whether the variable is special --__--__-- _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest |
