(define-class (student name)
  (method (greet)
	  (print (list 'hi 'i 'am name)))
  (method (change-name new-name)
	  (set! name new-name)))


;;;; in-n-out class defn ;;;;;;;;

(define-class (in-n-out location)
  (instance-vars (employees '()))
  (method (hire student)
	  (set! employees (cons student employees)))
  (method (all-greet)
	  (for-each (lambda (p) (ask p 'greet)) employees)))


(define min (instantiate student 'minxu))
(define chris (instantiate student 'chrislin))
(define in1 (instantiate in-n-out 'pinole))