X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/63c06c541289a6669a5d03c6076b71ff37e4b49d..c1869452e310290dd53fe066cf329b37e5a89217:/src/mewa.lisp diff --git a/src/mewa.lisp b/src/mewa.lisp index 37f84d9..76d3c5d 100644 --- a/src/mewa.lisp +++ b/src/mewa.lisp @@ -333,7 +333,6 @@ attributes is an alist keyed on the attribute name." type)) (plist-union initargs (cddr a))))) - (setf (slot-value i 'instance) object) (initialize-slots i) (setf (slot-value i 'initializedp) t)