(:documentation"A class for definining inbuilt Netfarm classes (which have names that are not hash names).
(:documentation"A class for definining inbuilt Netfarm classes (which have names that are not hash names).
Don't ever ever ever use this outside of the Netfarm system definition, or you will create inconsistent state w.r.t the rest of the world and no one will like you."))
Don't ever ever ever use this outside of the Netfarm system, or you will create inconsistent state w.r.t the rest of the world and no one will like you."))
:documentation"The script that is run when an instance of this schema receives a message. The first procedure in the script is called with the subject object, the object that sent the message, and the message itself as arguments."))
:documentation"The script that is run when an instance of this schema receives a message. The first procedure in the script is called with the subject object, the object that sent the message, and the message itself as arguments."))
"Apply the class CLASS to a VAGUE-OBJECT, matching slot names and types with
"Apply the class CLASS to a VAGUE-OBJECT, matching slot names and types with
keys in the vague-object's values table."
keys in the vague-object's values table."
...
@@ -44,12 +35,11 @@ keys in the vague-object's values table."
...
@@ -44,12 +35,11 @@ keys in the vague-object's values table."
(defunfind-netfarm-class(name&optional(error?t))
(defunfind-netfarm-class(name&optional(error?t))
"Find a Netfarm class with the provided name. If no such class exists and ERROR? is true, a NETFARM-CLASS-NOT-FOUND error will be signalled. If no such class exists and ERROR? is false, NIL will be returned."
"Find a Netfarm class with the provided name. If no such class exists and ERROR? is true, a NETFARM-CLASS-NOT-FOUND error will be signalled. If no such class exists and ERROR? is false, NIL will be returned."
@@ -85,7 +75,7 @@ keys in the vague-object's values table."
...
@@ -85,7 +75,7 @@ keys in the vague-object's values table."
(defunschema->class(schema&keyslot-names)
(defunschema->class(schema&keyslot-names)
"Convert a schema into a NETFARM-CLASS. If a class already exists that corresponds to the schema, it is returned. Otherwise, a new schema is returned. If the association list SLOT-NAMES is provided, each slot name will be looked up in the association list, and the values will be used as slot names instead of creating uninterned symbols."
"Convert a schema into a NETFARM-CLASS. If a class already exists that corresponds to the schema, it is returned. Otherwise, a new schema is returned. If the association list SLOT-NAMES is provided, each slot name will be looked up in the association list, and the values will be used as slot names instead of creating uninterned symbols."