;;; -*- Mode:LISP; Package:(TEST2 :USE (LISP GLOBAL OBJ)); Fonts:(MEDFNT MEDFNB); Readtable:CL; Base:10 -*-

(if (not (find-package 'test2))
	 (make-package 'test2 :use '(lisp global obj)))

(in-package 'test2)

(import '(obj:editable-thing
	   obj:defobedit
	   obj:editlist obj:editlabel
	   obj:edit obj:editfunc))

(defkind *test-obj* editable-thing)

(definstancevars *test-obj*
  (test "hi"))

(defclassvars *test-obj*
  (editlabel "This is a test")
  (editlist '((test "Tester" :string))))

(defobedit *test-obj*)