;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:ZL -*-

(defun make-foothing (x y)
  (format t "~&In MAKE-FOOTHING")
  (list x y))

(defresource foothing (foo bar) "A fooish thing" :constructor 'make-foothing)

(defflavor