defclass

(defclass klas (superklas ...) (
  slot1
  (slot2 :initform 1)
  ))

(slot-value self 'slot-name) ;place, lze použít setf

slot-specifier::= slot-name | (slot-name [[slot-option]])
slot-name::= symbol
slot-option::= {:reader reader-function-name}* | 
               {:writer writer-function-name}* | 
               {:accessor reader-function-name}* | 
               {:allocation allocation-type} | 
               {:initarg initarg-name}* | 
               {:initform form} | 
               {:type type-specifier} | 
               {:documentation string} 

• type specifires
• 18120542/understanding-type-specifiers-in-common-lisp
• check-type
• the

defmethod

(defmethod meth1 ((self klas) ...)
  ...
  self;#return
  )

(call-next-method) “super”

(defmethod initialize-instance ((self class) &key) ;“konstruktor”

...)

• type specifires