(make-instance class &rest initargs &allow-other-keys)
(defun make-format (format-type) "constructor for formats.. supply a symbol identifying the format-type" (make-instance format-type))
(make-instances-obsolete class)