[cells-cvs] CVS update: cell-cultures/utils-kt/defpackage.lisp cell-cultures/utils-kt/detritus.lisp

[Kenny Tilton]

Update of /project/cells/cvsroot/cell-cultures/utils-kt
In directory common-lisp.net:/tmp/cvs-serv19757/utils-kt

Modified Files:
	defpackage.lisp detritus.lisp 
Log Message:
Patches to support cells-gtk; ongoing glut refinements cello osx port
Date: Wed Nov 17 13:32:06 2004
Author: ktilton

Index: cell-cultures/utils-kt/defpackage.lisp
diff -u cell-cultures/utils-kt/defpackage.lisp:1.6 cell-cultures/utils-kt/defpackage.lisp:1.7
--- cell-cultures/utils-kt/defpackage.lisp:1.6	Thu Oct 28 02:09:42 2004
+++ cell-cultures/utils-kt/defpackage.lisp	Wed Nov 17 13:32:01 2004
@@ -33,6 +33,7 @@
     #:wdbg #:maptimes #:bwhen #:bif #:xor
     "WITH-DYNAMIC-FN" #:last1 #:packed-flat! #:with-metrics 
     #-(or lispworks mcl) "TRUE" "SHORTC"
+    #+clisp #:slot-definition-name
     #:intern$
     #:defconstant-once "*COUNT*" "*STOP*"
     "*DBG*" "*TRCDEPTH*"


Index: cell-cultures/utils-kt/detritus.lisp
diff -u cell-cultures/utils-kt/detritus.lisp:1.2 cell-cultures/utils-kt/detritus.lisp:1.3
--- cell-cultures/utils-kt/detritus.lisp:1.2	Thu Oct 28 02:09:42 2004
+++ cell-cultures/utils-kt/detritus.lisp	Wed Nov 17 13:32:01 2004
@@ -30,11 +30,11 @@
 (defun slot-definition-name (slot)
   (clos::slotdef-name slot))
 
-(defmethod class-slot-named ((classname symbol) slotname)
-  (class-slot-named (find-class classname) slotname))
-
-(defmethod class-slot-named (class slotname)
-  (find slotname (class-slots class) :key #'slot-definition-name))
+;;;(defmethod class-slot-named ((classname symbol) slotname)
+;;;  (class-slot-named (find-class classname) slotname))
+;;;
+;;;(defmethod class-slot-named (class slotname)
+;;;  (find slotname (class-slots class) :key #'slot-definition-name))
 
 #+mcl
 (defun class-slots (c)