[cells-cvs] CVS cells/utils-kt

[ktilton]

Update of /project/cells/cvsroot/cells/utils-kt
In directory clnet:/tmp/cvs-serv1678/utils-kt

Modified Files:
	defpackage.lisp detritus.lisp 
Log Message:
Mostly dropping special handling for CLisp in re slot-definition-name

--- /project/cells/cvsroot/cells/utils-kt/defpackage.lisp	2006/03/16 05:26:47	1.2
+++ /project/cells/cvsroot/cells/utils-kt/defpackage.lisp	2006/04/01 21:47:00	1.3
@@ -43,6 +43,5 @@
     #:fifo-map #:fifo-peek #:fifo-data #:with-fifo-map #:fifo-length
 
     #-(or lispworks mcl) #:true
-    #+clisp #:slot-definition-name
     #+(and mcl (not openmcl-partial-mop)) #:class-slots
     ))
--- /project/cells/cvsroot/cells/utils-kt/detritus.lisp	2006/03/16 05:26:47	1.3
+++ /project/cells/cvsroot/cells/utils-kt/detritus.lisp	2006/04/01 21:47:00	1.4
@@ -26,10 +26,6 @@
   `(let ((*dbg* t))
      , at body))
 
-#+clisp
-(defun slot-definition-name (slot)
-  (clos::slotdef-name slot))
-
 ;;;(defmethod class-slot-named ((classname symbol) slotname)
 ;;;  (class-slot-named (find-class classname) slotname))
 ;;;