;;; -*- Mode: LISP; Syntax: Common-Lisp; Base: 10; Package: DICT -*-

; By no means does this cover everything recorded in the database.
;  Definitions are structured heirarchically...including parts of speech.
; We're also discarding all font shift info
; But we're being simple minded about this for now
(defstruct (webster-entry :conc-name
			  (:print
			    "#<Webster: ~A>" (webster-entry-name webster-entry)))
  name						;string
  pronunciation					;string
  (definition "")				;string
  part-of-speech				;nil or symbol
  )

(export '(webster-entry-name webster-entry-pronunciation webster-entry-definition))