defclass-simple

(defmacro defclass-simple (class parent-class definition) 
  `(defclass ,class ,parent-class 
      (loop for item in definition collect 
         (let ((name (car item))) 
             (append item `(:accessor ,name :initarg ,(intern (symbol- 
name name) :keyword)))))))

簡化 defclass 時, 各欄位的 accessor 及 initarg 直接和名稱相同.
( 這個版本並不相容於所有的 defclass, 但是它算是簡便的作法 )