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

(defconstant valid-types '(lam sym vax unix))

(defconst valid-menu
	  `((valid :choose ,valid-types)))