История изменений

Исправление ados, 20.08.18 14:29 (текущая версия) :

Вот чем этот код лучше чем:

(defpackage my-package
  (:use cl)
  (:export person name))

(in-package :my-package)

(defclass person ()
  ((name :accessor name)))

(defmethod (setf name) :after (value (person person))
  ...)

Исправление ados, 20.08.18 14:26:

Вот чем этот код лучше чем:

(defpackage my-package
  (:use cl)
  (:export person person-name set-person-name))

(in-package :my-package)

(defclass person ()
  ((name :accessor name)))

(defmethod (setf name) :after (value (person person))
  ...)

Исходная версия ados, 20.08.18 14:26:

Вот чем этот код лучше чем:

(defpackage my-package
  (:use cl)
  (:export person person-name set-person-name))

(in-package :my-package)

(defclass person ()
  ((name :accessor name)))

(defmethod (setf name) :after (value (person person))
  ...)