X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/079b90842fc99823554991ff3e739da9a5d42d97..4867c86f7dce578458c4130d9a8cfbf1041f7c4a:/src/attribute.lisp diff --git a/src/attribute.lisp b/src/attribute.lisp index 32279fe..5c8b03a 100644 --- a/src/attribute.lisp +++ b/src/attribute.lisp @@ -53,8 +53,6 @@ (define-layered-method attribute-value (object attribute) (funcall (attribute-function attribute) object)) - - (defmethod shared-initialize :around ((attribute standard-attribute) slots &rest initargs) (declare (ignore initargs)) (setf (attribute-function attribute)