Plaster

CL-USER> (defmacro cout (&body body) `(constantia:out (:use smack/backend/c++-out:*c++-out-dispatch-table*) ,@body)) COUT CL-USER> (let ((*standard-output* (make-instance 'constantia:indenting-stream :stream *standard-output*))) (cout (:class "Square" (:public) (:ctordef "Square" ("double side") (("m_side" "side"))) (:fndef "area" () "double" (:return "m_side*m_side")) (:private) "int m_side;" (:%)))) class Square { public: Square::Square(double side) : m_side(side) { } double area() { return m_side*m_side; } private: int m_side; };