<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
</head>
<body bgcolor="#ffffff" text="#000000">
<br>
How about doing something like this in inspect-slot-for-emacs <br>
<br>
file: cvs/slime/contrib/swank-fancy-inspector.lisp function:
inspect-slot-for-emacs<br>
<br>
(eval (read-from-string value-string))))))))<br>
+ (:action ,(custom-inspect-name class object slot)<br>
+ ,(lambda () (custom-inspect-call class object slot)))<br>
,@(when boundp<br>
`(" " (:action "[make unbound]"<br>
<br>
With the following methods something like this:<br>
<br>
(defmethod custom-inspect-name (class object slot)<br>
"[No custom inspections]")<br>
<br>
(defmethod custom-inspect-call (class object slot)<br>
nil)<br>
<br>
And then one could make own methods specializing on your own classes
and slots.<br>
<br>
(defmethod custom-inspect-name ((class person) object (slot company))<br>
(format nil "[boss of ~a]" (name-of person))<br>
<br>
(defmethod custom-inspect-call ((class person) object (slot company))<br>
(slime-inspect (boss-of person))<br>
<br>
Or whatever object models you have. Maybe make custom-inspect-call to
follow relations in cl-sql....<br>
<br>
(and add necessary checks, restarts and handler-cases)<br>
<br>
<br>
<br>
<br>
<div class="moz-signature">-- <br>
<title>FreeCode Signature</title>
<meta http-equiv="Content-Type" content="text/html; ">
<style type="text/css">
body {
font-family: Helvetica, Verdana, "Tahoma MS", Arial, Sans-Serif;
color: black;
font-size: 11pt;
}
.name {
color: #072669;
font-weight: bold;
}
.pos {
color: #cd071e;
font-weight: bold;
}
.cat {
color: #cd071e;
font-size: 10pt;
font-weight: normal;
}
.val {
color: #072669;
font-weight: normal;
}
.quote {
color: gray;
font-size: 9pt;
font-weight: normal;
}
</style>
<span class="name">Free Software Consultant</span><br>
<span class="val">Cell:</span> <span class="val">+47 - 47 34 40 08</span><br>
<span class="val">Phone:</span> <span class="val">+47 - 21 53 69 00, </span><span
class="val">Fax:</span> <span class="val">+47 - 21 53 69 09</span><br>
<span class="val">Addr:</span> <span class="val">Slemdalsveien 70, PB 1
Vinderen, 0319 Oslo</span><br>
<a href="http://www.freecode.no/" style="text-decoration: none;"><img
style="border: medium none ; padding: 7px 0px 0px;"
src="cid:part1.07040809.06000702@online.no" alt="" height="56"
width="370"></a><br>
<pre class="quote">
</pre>
</div>
</body>
</html>