Oops, a colon got lost in the translation. It should have said: (defmethod (:SET-DISPLAY .... but you probably already figured that out.