Presentation type definition question

[Laura Bagnall <LAURA@ZERMATT.LCS.MIT.EDU>]

Try this.  This should give you the error message
"The object read, <foo>, was not a mumble form."

(DEFINE-PRESENTATION-TYPE MUMBLE-FORM ()
   :HISTORY T
   :PARSER ((STREAM &KEY ORIGINAL-TYPE)
	    (ACCEPT '((AND SYS:FORM ((SATISFIES HNAME:FORM-P)))  :description "a mumble form")
		    :PROMPT NIL
		    :DEFAULT (DW:PRESENTATION-TYPE-DEFAULT 'MUMBLE-FORM)
		    :STREAM STREAM
		    :ORIGINAL-TYPE ORIGNINAL-TYPE))
   :PRINTER ((OBJECT STREAM)
	     (HNAME::PRINT-FORM OBJECT STREAM 0)))

Laura D. Bagnall                          617-253-2621
UUCP: {harvard|rutgers|seismo}!mit-eddie!mit-vax!laura
ARPA: laura@vx.lcs.mit.edu       BITNET: laura%vx.lcs.mit.edu@MITVMA.MIT.EDU
MIT Lab for Computer Science,545 Technology Sq., NE43-232,Cambridge,MA 02139