+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (defclass param-spec-class (ginstance-class)
+ ())
+
+ (defmethod validate-superclass
+ ((class param-spec-class) (super pcl::standard-class))
+ t ;(subtypep (class-name super) 'param)
+))
+
+
+(defbinding %param-spec-ref () pointer
+ (location pointer))
+
+(defbinding %param-spec-unref () nil
+ (location pointer))
+
+(defmethod reference-foreign ((class param-spec-class) location)
+ (declare (ignore class))
+ (%param-spec-ref location))
+
+(defmethod unreference-foreign ((class param-spec-class) location)
+ (declare (ignore class))
+ (%param-spec-unref location))
+
+
+