diff --git a/hemlock/spell-aug.lisp b/hemlock/spell-aug.lisp index 3c13a290f0c7a73b365a1947fb219b72254cbb17..9e0c9abaa7ef9125a2107f4366a6ee6f07ad26a5 100644 --- a/hemlock/spell-aug.lisp +++ b/hemlock/spell-aug.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/spell-aug.lisp,v 1.1.1.3 1993/08/25 02:10:37 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/spell-aug.lisp,v 1.1.1.4 1993/08/25 02:34:08 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -19,10 +19,7 @@ ;;; code relies on implementation dependent code found in Spell-RT.Lisp. -(in-package "SPELL" :use '("LISP" "EXTENSIONS" "SYSTEM")) - -(export '(spell-add-entry spell-read-dictionary spell-remove-entry - spell-root-flags)) +(in-package "SPELL") ;;;; Converting Flags to Masks @@ -59,8 +56,6 @@ (defmacro string-table-replace (src-string dst-start length) `(sap-replace *string-table* ,src-string 0 ,dst-start (+ ,dst-start ,length))) -(defconstant spell-deleted-entry #xFFFF) - ;;; HASH-ENTRY is used in SPELL-ADD-ENTRY to find a dictionary location for ;;; adding a new entry. If a location contains a zero, then it has never been ;;; used, and no entries have ever been "hashed past" it. If a location