[cells-cvs] CVS update: cell-cultures/celtic/widget-item.lisp

[Thomas F. Burdick]

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)