(eval-when (:compile-toplevel :load-toplevel :execute)
(defclass proxy (virtual-slots-object)
(#?-(or (sbcl>= 0 9 17) (featurep :clisp))(%location :special t :type pointer))
(eval-when (:compile-toplevel :load-toplevel :execute)
(defclass proxy (virtual-slots-object)
(#?-(or (sbcl>= 0 9 17) (featurep :clisp))(%location :special t :type pointer))