Hi all:

I do have a strange behaviour of a small code snippet ...:
(the used macro with-html-output is from CL-WHO - see http://www.weitz.de/cl-who  - it generates HTML markup)

(defmacro as-html (&body body)
  `(with-html-output (*standard-output*)
     ,@body))

(defmodel simple (family)
  ((slot-1 :accessor slot-1 :initform (c-in nil) :initarg :slot-1))
  (:default-initargs
       :value (c? (as-html
                               (:h1 (^slot-1))))))

Now when inspecting the result of

(make-instance 'simple :slot-1 "Hi")

I get no value back for slot-1 but simply see 

<h1></h1>

... - what the f*ck am I doing wrong ???

Inspecting the instance reveals:

SIMPLE15 is a standard-object.
[type: SIMPLE]
--------------------
Class: #<STANDARD-CLASS SIMPLE>
.MD-STATE: :AWAKE
.AWAKEN-ON-INIT-P: NIL
.CELLS: ((.KIDS . =0/.KIDS/SIMPLE15]))
.CELLS-FLUSHED: ((.VALUE . <vld>=1/.VALUE/SIMPLE15]))
ADOPT-CT: 0
.MD-NAME: SIMPLE15
.FM-PARENT: NIL
.VALUE: "</h1>"
ZDBG: NIL
.KID-SLOTS: NIL
.KIDS: NIL
SLOT-1: "Hallo"

Hunh? Slot ".value" is "</h1>" ?? 

Any help really appreciated ...

Oh - ah - this is going to be part of marrying Cells with Edi Weitz's Hunchentoot Web Server (see http://www.weitz.de/hunchentoot )

Thx!!!

Cheers - 

    Frank