More control over automatic placement

[mmontone]

I would like to be able to use this version of create-child, that provides more control over automatic placement:

(defmethod create-child ((obj clog-obj) html &key (html-id nil)
                                               (auto-place t)
                                               (clog-type 'clog-element))
  (let ((child (create-with-html (connection-id obj) (escape-string html)
                                 :clog-type clog-type
                                 :html-id   html-id)))
    (if auto-place
        (case auto-place
      (:bottom (place-inside-bottom-of obj child))
      (:top (place-inside-top-of obj child))
      (t (place-inside-bottom-of obj child)))
        child)))

[rabbibotton]

I think very reasonable. You want to create the pull request?