How do I pass other arguments to presentation methods? I would like to do: (present object 'type :stream stream :view view :my-keyword my-keyword-value) (define-presentation-method present (object (type 'type) stream &key my-keyword) (print my-keyword)) But I can't figure how to get the new keyword value across.