r8099: add reader macro for svuc

[hyperobject.git] / rules.lisp

diff --git a/rules.lisp b/rules.lisp
index 246ecb366c0d0fb02599c341ca94be82e7b76ecf..dad93ad91278d862fc1998d333a0536945b551ad 100644 (file)
--- 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))