(defmacro define-lookup-display (newfuncname lookup-func)
"Defines functions for looking up and displaying objects"
`(defun ,newfuncname (keyval &key (stream *standard-output*) (vid :compact-text)
(defmacro define-lookup-display (newfuncname lookup-func)
"Defines functions for looking up and displaying objects"
`(defun ,newfuncname (keyval &key (stream *standard-output*) (vid :compact-text)