Thanks for all. That's really helpful.
Anyway, I give the "sort-slots" definition,
(eval-when (:compile-toplevel :load-toplevel)
(defparameter sort-slots
'((documentation nil)
(source nil) ;for KIF
(author nil) ;for KIF
)))
--
peng
------------------------------------------------------------------------
Posted via http://www.codecomments.com
------------------------------------------------------------------------