;;; -*- Mode:LISP; Package:USER; Fonts:(MEDFNT MEDFNB); Readtable:CL; Base:10 -*-

(in-package 'user)
(use-package 'obj)

(unintern 'thing)
(defkind thing)

(defclassvars thing thinglist)

(defobfun (thing thing) (&rest args &key edit)
  (have 'thinglist edit))