Google
 

Trailing-Edge - PDP-10 Archives - clisp - clisp/flavors/upsala/hallon.clisp
There are no other files named hallon.clisp in the archive.
(in-package 'flavors)

(defflavor hallon
  (foo bar)
  ()
  :initable-instance-variables
  :settable-instance-variables)

(defmethod (hallon :list) ()
  (list foo bar))

(defmethod (hallon :foo-set) (new-foo)
  (setq foo new-foo))

(defmethod (hallon :bar-set) (new-bar)
  (setq bar new-bar))

(defmethod (hallon :foo?) ()
  foo)

(defmethod (hallon :bar?) ()
  bar)