MIT/GNU Scheme running under GNU/Linux
Type `^C' (control-C) followed by `H' to obtain information about interrupts.

Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
    1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
    2006, 2007, 2008 Massachusetts Institute of Technology
This is free software; see the source for copying conditions.  There is NO
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

Image saved on Thursday March 12, 2009 at 4:17:10 AM
  Release 7.7.90.+ || Microcode 15.1 || Runtime 15.7 || SF 4.41
  LIAR/i386 4.118  || Edwin 3.116

1 ]=> (load "tiny-clos.scm")
;Loading "tiny-clos.scm"... 
;  Loading "support.scm"... done
;... done
;Value: tiny-clos-up-and-running

1 ]=> (load "tiny-examples.scm")
;Loading "tiny-examples.scm"... 
p1
(lambda args
  (apply (vector-ref vector 0) args))

(slot-ref p1 (quote x))
1

(slot-ref p1 (quote y))
2

p2
(lambda args
  (apply (vector-ref vector 0) args))

(slot-ref p2 (quote x))
3

(slot-ref p2 (quote y))
5

p3
(lambda args
  (apply (vector-ref vector 0) args))

(pos-x p3)
1

(pos-y p3)
2

p4
(lambda args
  (apply (vector-ref vector 0) args))

(pos-x p4)
3

(pos-y p4)
5

p4
(lambda args
  (apply (vector-ref vector 0) args))

(pos-x p4)
10

(pos-y p4)
11

s2
(lambda args
  (apply (vector-ref vector 0) args))

(slot-ref s2 (quote name))
s2

s1
(lambda args
  (apply (vector-ref vector 0) args))

(slot-ref s1 (quote name))
s1

s2
(lambda args
  (apply (vector-ref vector 0) args))

(slot-ref s2 (quote name))
s2

s3
(lambda args
  (apply (vector-ref vector 0) args))

(slot-ref s3 (quote name))
s3

<ship>
(lambda args
  (apply (vector-ref vector 0) args))

(class-direct-slots <ship>)
((name) (all-ships :class-allocation))

(map (lambda (x) (cons x (slot-ref x (quote name)))) (siblings s1))
((#[compound-procedure 12] . s3) (#[compound-procedure 11] . s2))

(slot-ref person1 (quote name))
sally

(slot-ref person1 (quote age))
20

(equal? (test-around (make-generic)) (quote (foo bar baz)))
#t

(equal? (test-around (make-around-generic)) (quote (bar foo baz)))
#t
;... done
;Value: examples_all_done

1 ]=> 
End of input stream reached.
Happy Happy Joy Joy.