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

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

(defkind topthing)

(eval-when (eval compile load)
  (unintern 'testthing)
  (defkind testthing topthing))

(defclassvars testthing thinglist)

(defobfun (exist testthing)(&rest ignore)
  (print 'here))

(print 'done)