.....
Note: implicitly defining generic-procedure: empty?
#t
#;5> (define ts (make <stack> 'content '(1 2)))
#;6> ts
#<coops instance of `<stack>'>
#;7> (describe-object ts)
coops instance of class `<stack>':
content: (1 2)