;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: ginspect.lisp,v 1.9 2006/02/09 22:34:09 espen Exp $
+;; $Id: ginspect.lisp,v 1.11 2006/09/05 13:12:50 espen Exp $
#+sbcl(require :gtk)
#+cmu(asdf:oos 'asdf:load-op :gtk)
(defpackage "GINSPECT"
- (:use "COMMON-LISP" "GLIB" "GTK" #+cmu"PCL" #+sbcl"SB-PCL")
+ (:use "COMMON-LISP" "GFFI" "GLIB" "GTK" #+cmu"PCL" #+sbcl"SB-PCL")
(:export "GINSPECT" "GINSPECT-TOPLEVELS"))
(in-package "GINSPECT")
*ginspect-unbound-object-marker*))
(cons "Plist" (symbol-plist object)))))
-#+cmu
(defmethod decompose-describe-object ((object standard-object))
(values
- (call-next-method) t
+ (format nil "The instance is an object of type ~A."
+ (class-name (class-of object)))
+ t
(loop
for slotd in (class-slots (class-of object))
- collect (let* ((slot-name (pcl:slot-definition-name slotd))
+ when (slot-readable-p slotd)
+ collect (let* ((slot-name (slot-definition-name slotd))
(slot-value (if (slot-boundp object slot-name)
(slot-value object slot-name)
*ginspect-unbound-object-marker*)))