;;; -*- Mode: LISP; Syntax: Zetalisp; Base: 10; Package: USER -*-

(package-declare DICT COMMON-LISP-GLOBAL 1000)

(package-declare CLWIN COMMON-LISP-GLOBAL 1000)

(use-package 'clwin 'dict)

(defsystem dictionary
  (:package DICT)
  (:pathname-default "DICTIONARY:S;")
  (:patchable)

  (:module def "DEF")
  (:module webster-protocol "netword")		;WEBSTER protocol via CHAOS
  (:module dictionary-protocol "client")	;DICTIONARY protocol via TCP
  (:module parse "PARSE")			;getting definition by reading file ourself

  (:module clwin "AMT://projects//speech//utility//clwin")
  (:module print "PRINTER")
  (:module pronunciations "PRON")		;webbese to Klattese

  (:compile-load def)
  (:compile-load webster-protocol (:fasload def))
  (:compile-load dictionary-protocol (:fasload def))
  (:compile-load parse (:fasload def))
  (:compile-load pronunciations)
  (:fasload clwin)
  (:compile-load print (:fasload parse clwin))
  )