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)) ,@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)) ;;;