From: <cli...@li...> - 2005-11-22 04:18:02
|
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 clos-class3.lisp,1.85,1.86 ChangeLog,1.5106,1.5107 (Sam Steingold) 2. clisp/src NEWS,1.292,1.293 (Sam Steingold) 3. clisp/doc impbody.xml,1.418,1.419 (Sam Steingold) --__--__-- Message: 1 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src clos-class3.lisp,1.85,1.86 ChangeLog,1.5106,1.5107 Date: Mon, 21 Nov 2005 21:34:44 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17307/src Modified Files: clos-class3.lisp ChangeLog Log Message: fix bug #[ 1359066 ]: :ALLOCATION kind not extensible (defclass): permit user-defined :allocation (checked-compute-slots): require non-NIL location only from slots with standard :ALLOCATION (:CLASS or :INSTANCE) Index: clos-class3.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/clos-class3.lisp,v retrieving revision 1.85 retrieving revision 1.86 diff -u -d -r1.85 -r1.86 --- clos-class3.lisp 13 Jun 2005 13:05:01 -0000 1.85 +++ clos-class3.lisp 21 Nov 2005 21:34:41 -0000 1.86 @@ -157,13 +157,7 @@ :detail slot-options (TEXT "~S ~S, slot option ~S for slot ~S may only be given once") 'defclass name ':allocation slot-name)) - (case argument - ((:INSTANCE :CLASS) (setq allocation argument)) - (t (error-of-type 'ext:source-program-error - :form whole-form - :detail argument - (TEXT "~S ~S, slot option for slot ~S must have the value ~S or ~S, not ~S") - 'defclass name slot-name ':instance ':class argument)))) + (setq allocation argument)) (:INITARG (unless (symbolp argument) (error-of-type 'ext:source-program-error @@ -245,7 +239,7 @@ :NAME ',slot-name ,@(when readers `(:READERS ',readers)) ,@(when writers `(:WRITERS ',writers)) - ,@(when (eq allocation ':class) `(:ALLOCATION :CLASS)) + ,@(when allocation `(:ALLOCATION ',allocation)) ,@(when initargs `(:INITARGS ',(nreverse initargs))) ,@(when initform `(:INITFORM ,initform :INITFUNCTION ,initfunction)) ,@(when types `(:TYPE ',(first types))) @@ -1381,9 +1375,11 @@ (error (TEXT "Wrong ~S result for class ~S: list contains duplicate slot names: ~S") 'compute-slots (class-name class) slots)) (dolist (slot slots) - (unless (slot-definition-location slot) - (error (TEXT "Wrong ~S result for class ~S: no slot location has been assigned to ~S") - 'compute-slots (class-name class) slot))) + (case (slot-definition-allocation slot) + ((:INSTANCE :CLASS) + (unless (slot-definition-location slot) + (error (TEXT "Wrong ~S result for class ~S: no slot location has been assigned to ~S") + 'compute-slots (class-name class) slot))))) slots)) ;; The MOP lacks a way to customize the instance size as a function of the Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.5106 retrieving revision 1.5107 diff -u -d -r1.5106 -r1.5107 --- ChangeLog 21 Nov 2005 18:08:50 -0000 1.5106 +++ ChangeLog 21 Nov 2005 21:34:42 -0000 1.5107 @@ -1,5 +1,12 @@ 2005-11-21 Sam Steingold <sd...@gn...> + fix bug #[ 1359066 ]: :ALLOCATION kind not extensible + * clos-class3.lisp (defclass): permit user-defined :allocation + (checked-compute-slots): require non-NIL location only from slots + with standard :ALLOCATION (:CLASS or :INSTANCE) + +2005-11-21 Sam Steingold <sd...@gn...> + * configure: suggest setting CC when printing libsigsegv building recommendations --__--__-- Message: 2 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src NEWS,1.292,1.293 Date: Mon, 21 Nov 2005 22:53:42 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5147/src Modified Files: NEWS Log Message: DEFCLASS now permits user-defined :ALLOCATION arguments. When --with-readline is supplied, but GNU readline is not found, abort. Index: NEWS =================================================================== RCS file: /cvsroot/clisp/clisp/src/NEWS,v retrieving revision 1.292 retrieving revision 1.293 diff -u -d -r1.292 -r1.293 --- NEWS 19 Nov 2005 23:27:01 -0000 1.292 +++ NEWS 21 Nov 2005 22:53:40 -0000 1.293 @@ -8,6 +8,7 @@ + When libsigsegv is not found, print instructions on getting/building libsigsegv and bail out; override with --ignore-absence-of-libsigsegv. + When --with-dynamic-ffi is supplied, but the FFI fails to build, abort. + + When --with-readline is supplied, but GNU readline is not found, abort. + makemake no longer checks with_module_* variables. * New function EXT:OPEN-HTTP and macro EXT:WITH-HTTP-INPUT. @@ -57,6 +58,8 @@ * When a CLISP process is killed, clean-up is always executed. +* DEFCLASS now permits user-defined :ALLOCATION arguments. + * Fixed (FUNCTION-LAMBDA-EXPRESSION #'(SETF FOO)) on compiled functions. * Fixed re-exporting symbols from POSIX to EXT. --__--__-- Message: 3 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/doc impbody.xml,1.418,1.419 Date: Mon, 21 Nov 2005 23:15:43 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13192/doc Modified Files: impbody.xml Log Message: (def-class): fixed :metaclass doc Index: impbody.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/impbody.xml,v retrieving revision 1.418 retrieving revision 1.419 diff -u -d -r1.418 -r1.419 --- impbody.xml 21 Nov 2005 18:59:40 -0000 1.418 +++ impbody.xml 21 Nov 2005 23:15:41 -0000 1.419 @@ -486,8 +486,9 @@ <ulink url="&clhs;/Body/sec_4-3-2.html">[CLHS-4.3.2]</ulink></title> <para>&defclass; supports the &metaclass-k; option. Possible values are - &standard-class; (the default) and &structure-class; (which creates - structure classes, like &defstruct; does).</para> + &standard-class; (the default), &structure-class; (which creates + structure classes, like &defstruct; does), and user-defined + meta-classes (see <xref linkend="validate-superclass"/>).</para> <para>It is ¬-e; required that the superclasses of a class are defined before the &defclass; form for the class is evaluated. --__--__-- _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest |