Changeset 171

Timestamp:

Jan 3, 2004, 11:35:13 AM (21 years ago)

Author:

Gary Byers

Message:

Move FOREIGN-OBJECT-DOMAIN accessors here.

File:

• trunk/ccl/library/lispequ.lisp (modified) (1 diff)

trunk/ccl/library/lispequ.lisp

@@ -1220 +1220 @@
   )
 
+(def-accessors (foreign-object-domain) %svref
+  nil                                   ; foreign-object-domain
+  foreign-object-domain-index           ; 1..n
+  foreign-object-domain-name            ;
+  foreign-object-domain-recognize       ; function: is object one of ours ?
+  foreign-object-domain-class-of        ; function: returns class of object
+  foreign-object-domain-classp          ; function: true if object is a class
+  foreign-object-domain-instance-class-wrapper ; function: returns wrapper of object's class
+  foreign-object-domain-class-own-wrapper ; function: returns class own wrapper if class
+  foreign-object-domain-slots-vector    ; returns slots vector of object or nil
+  )
+
 (provide "LISPEQU")