render-methods.lisp

(defmethod render ((form form-component))
  (<:form :method "post" :action "mailto:[email protected]"
	  (<:as-html "Name: ") (<:text :name "Name") (<:br)
	  (<:as-html "Address: ") (<:text :name "Address") (<:br)
	  (<:as-html "Phone: ") (<:text :name "Phone") (<:br)
	  (<:p) (render (make-instance 'products-dropdown))
	  (<:p) (<:submit :value "Place Order")))

(defmethod render ((products products-dropdown))
  (<:select :name "Product"
   (<:option :value "PCL" "Practical Common Lisp")
   (<:option :value "C@W" "Coders At Work")
   (<:option :value "OOPCLOS"
	     "OOP in Common Lisp: A Programmer's Guide to CLOS")
   (<:option :value "AMOP" "The Art of the Metaobject Protocol")
   (<:option :value "GENTLE"
	     "Common Lisp: A Gentle Introduction to Symbolic Computation")))