Common Lisp Package: HYPEROBJECT-TESTS

README:

FUNCTION

Private

Undocumented

GET-NOW

VIEW-TO-STRING (OBJ &REST ARGS)

SLOT-ACCESSOR

Private

Undocumented

ADDRESSES (OBJECT)

SETFADDRESSES (NEW-VALUE OBJECT)

CREATE-TIME (OBJECT)

SETFCREATE-TIME (NEW-VALUE OBJECT)

DOB (OBJECT)

SETFDOB (NEW-VALUE OBJECT)

FIRST-NAME (OBJECT)

SETFFIRST-NAME (NEW-VALUE OBJECT)

LAST-NAME (OBJECT)

SETFLAST-NAME (NEW-VALUE OBJECT)

PHONE-NUMBER (OBJECT)

SETFPHONE-NUMBER (NEW-VALUE OBJECT)

PHONES (OBJECT)

SETFPHONES (NEW-VALUE OBJECT)

RESUME (OBJECT)

SETFRESUME (NEW-VALUE OBJECT)

STREET (OBJECT)

SETFSTREET (NEW-VALUE OBJECT)

TITLE (OBJECT)

SETFTITLE (NEW-VALUE OBJECT)

YEARS-AT-ADDRESS (OBJECT)

SETFYEARS-AT-ADDRESS (NEW-VALUE OBJECT)

VARIABLE

Private

Undocumented

*NOW*

HOME

HOME-PHONE-1

HOME-PHONE-2

MARY

OFFICE

OFFICE-PHONE-1

OFFICE-PHONE-2

OFFICE-PHONE-3

CLASS

Private

ADDRESS

Hyperobject: Address Class description: An address Subobjects: PHONES Default print slots: TITLE STREET YEARS-AT-ADDRESS

PERSON

Hyperobject: Person Class description: A Person Subobjects: ADDRESSES Default print slots: FIRST-NAME LAST-NAME DOB RESUME

PHONE

Hyperobject: Phone Number Class description: A phone number Default print slots: TITLE PHONE-NUMBER