X-Git-Url: http://git.kpe.io/?p=hyperobject.git;a=blobdiff_plain;f=rules.lisp;h=dad93ad91278d862fc1998d333a0536945b551ad;hp=246ecb366c0d0fb02599c341ca94be82e7b76ecf;hb=4cd076b20dcd4d686fb684bdc82b86a9b30acfe0;hpb=0817a8721cbefca2205dcde535ff6b164033abef diff --git a/rules.lisp b/rules.lisp index 246ecb3..dad93ad 100644 --- a/rules.lisp +++ b/rules.lisp @@ -59,8 +59,7 @@ (funcall (func rule) obj))))) -;;#-ho-no-svuc -#+ignore +#+ho-svuc (defmethod (setf slot-value-using-class) :around (new-value (cl hyperobject-class) obj (slot hyperobject-esd))