<HTML><BODY style="word-wrap: break-word; -khtml-nbsp-mode: space; -khtml-line-break: after-white-space; "><DIV>Hi all:</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>I do have a strange behaviour of a small code snippet ...:</DIV><DIV>(the used macro with-html-output is from CL-WHO - see <A href="http://www.weitz.de/cl-who">http://www.weitz.de/cl-who</A> - it generates HTML markup)</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV><FONT class="Apple-style-span" face="Courier">(defmacro as-html (&body body)</FONT></DIV><DIV><FONT class="Apple-style-span" face="Courier"> `(with-html-output (*standard-output*)</FONT></DIV><DIV><FONT class="Apple-style-span" face="Courier"> ,@body))</FONT></DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV><FONT class="Apple-style-span" face="Courier">(defmodel simple (family)</FONT></DIV><DIV><FONT class="Apple-style-span" face="Courier"> </FONT><FONT class="Apple-style-span" face="Courier">((slot-1 :accessor slot-1 :initform (c-in nil) :initarg :slot-1))</FONT></DIV><DIV><FONT class="Apple-style-span" face="Courier"> (:default-initargs</FONT></DIV><DIV><FONT class="Apple-style-span" face="Courier"> :value (c? (as-html</FONT></DIV><DIV><SPAN class="Apple-tab-span" style="white-space:pre"> </SPAN> <FONT class="Apple-style-span" face="Courier">(:h1 (^slot-1))))))</FONT></DIV><DIV><FONT class="Apple-style-span" face="Courier"><BR class="khtml-block-placeholder"></FONT></DIV><DIV>Now when inspecting the result of</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV><FONT class="Apple-style-span" face="Courier">(make-instance 'simple :slot-1 "Hi")</FONT></DIV><DIV><FONT class="Apple-style-span" face="Courier"><BR class="khtml-block-placeholder"></FONT></DIV><DIV>I get no value back for slot-1 but simply see </DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV><FONT class="Apple-style-span" face="Courier"><h1></h1></FONT></DIV><DIV><FONT class="Apple-style-span" face="Courier"><BR class="khtml-block-placeholder"></FONT></DIV><DIV>... - what the f*ck am I doing wrong ???</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Inspecting the instance reveals:</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV><FONT class="Apple-style-span" face="Courier">SIMPLE15 is a standard-object.</FONT></DIV><DIV><FONT class="Apple-style-span" face="Courier"> [type: SIMPLE]</FONT></DIV><DIV><FONT class="Apple-style-span" face="Courier">--------------------</FONT></DIV><DIV><FONT class="Apple-style-span" face="Courier">Class: #<STANDARD-CLASS SIMPLE></FONT></DIV><DIV><FONT class="Apple-style-span" face="Courier">.MD-STATE: :AWAKE</FONT></DIV><DIV><FONT class="Apple-style-span" face="Courier">.AWAKEN-ON-INIT-P: NIL</FONT></DIV><DIV><FONT class="Apple-style-span" face="Courier">.CELLS: ((.KIDS . =0/.KIDS/SIMPLE15]))</FONT></DIV><DIV><FONT class="Apple-style-span" face="Courier">.CELLS-FLUSHED: ((.VALUE . <vld>=1/.VALUE/SIMPLE15]))</FONT></DIV><DIV><FONT class="Apple-style-span" face="Courier">ADOPT-CT: 0</FONT></DIV><DIV><FONT class="Apple-style-span" face="Courier">.MD-NAME: SIMPLE15</FONT></DIV><DIV><FONT class="Apple-style-span" face="Courier">.FM-PARENT: NIL</FONT></DIV><DIV><FONT class="Apple-style-span" face="Courier">.VALUE: "</h1>"</FONT></DIV><DIV><FONT class="Apple-style-span" face="Courier">ZDBG: NIL</FONT></DIV><DIV><FONT class="Apple-style-span" face="Courier">.KID-SLOTS: NIL</FONT></DIV><DIV><FONT class="Apple-style-span" face="Courier">.KIDS: NIL</FONT></DIV><DIV><FONT class="Apple-style-span" face="Courier">SLOT-1: "Hallo"</FONT></DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Hunh? Slot ".value" is "</h1>" ?? </DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Any help really appreciated ...</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Oh - ah - this is going to be part of marrying Cells with Edi Weitz's Hunchentoot Web Server (see <A href="http://www.weitz.de/hunchentoot">http://www.weitz.de/hunchentoot</A> )</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Thx!!!</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Cheers - </DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV> Frank </DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV><BR class="khtml-block-placeholder"></DIV></BODY></HTML>