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)