218,226c218,219
< ;; madhu: changed initialize-instance of font-object to dispatch 
< ;; on a second argument
< (defgeneric %initialize-font (font-object font &key &allow-other-keys))
< 
< (defmethod initialize-instance :after ((font-object font-object) &rest init-options &key font  &allow-other-keys)
<   (apply #'%initialize-font font-object font (cddr init-options)))
< 
< (defmethod %initialize-font ((font-object font-object) (font font) &rest init-options &key
< 				       first-char last-char widths (type "Type1")
---
> (defmethod initialize-instance :after ((font-object font-object) &rest init-options &key
> 				       font first-char last-char widths (type "Type1")