;;;; -*- mode: scheme -*- ;;;;

(define-class 'object 'eccentric)

(define-class 'eccentric 'professor)

(define-class 'eccentric 'hacker)

(define-instance 'gerry 'hacker)

(define-instance 'patrick 'professor)

(define-instance 'mumbler 'professor)

(define-class-default 'professor 'personality 'obnoxious)

(define-class-default 'eccentric 'personality 'reclusive)

(assert-property 'patrick 'personality 'gracious)

(assert-property 'gerry 'personality 'shy)