Update of /project/cells/cvsroot/cell-cultures/celtic In directory common-lisp.net:/tmp/cvs-serv20704/celtic
Modified Files: widget-item.lisp Log Message: Changes for SBCL
Date: Mon Jul 5 12:29:53 2004 Author: tburdick
Index: cell-cultures/celtic/widget-item.lisp diff -u cell-cultures/celtic/widget-item.lisp:1.3 cell-cultures/celtic/widget-item.lisp:1.4 --- cell-cultures/celtic/widget-item.lisp:1.3 Sun Jul 4 11:59:43 2004 +++ cell-cultures/celtic/widget-item.lisp Mon Jul 5 12:29:53 2004 @@ -83,8 +83,9 @@ (loop for tk-option-def in tk-options for slot-name = (de- (if (atom tk-option-def) tk-option-def (car tk-option-def))) - collecting `(,slot-name :initform nil :initarg ,(intern slot-name :keyword) - :accessor ,slot-name) + collecting `(,slot-name :initform nil + :initarg ,(intern (string slot-name) :keyword) + :accessor ,slot-name) into slot-defs when (or (atom tk-option-def) (cadr tk-option-def)) @@ -142,8 +143,9 @@ tk-option-def (cadr tk-option-def)) for slot-name = (de- (if (atom tk-option-def) tk-option-def (car tk-option-def))) - collecting `(,slot-name :initform nil :initarg ,(intern slot-name :keyword) - :accessor ,slot-name) + collecting `(,slot-name :initform nil + :initarg ,(intern (string slot-name) :keyword) + :accessor ,slot-name) into slot-defs collecting `(def-c-output ,slot-name ((self ,class)) (when (and (id-no self) new-value)