Skip to content
Snippets Groups Projects
Commit b3f97ccf authored by ram's avatar ram
Browse files

This commit was generated by cvs2svn to compensate for changes in r6686,

which included commits to RCS files with non-trunk default branches.
parents cc3c5886 d34ef5ac
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/spell-corr.lisp,v 1.1.1.7 1993/08/25 02:13:39 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/spell-corr.lisp,v 1.1.1.8 1993/08/25 02:34:55 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -160,19 +160,22 @@ ...@@ -160,19 +160,22 @@
;;; "M" FLAG: ;;; "M" FLAG:
;;; ... => ...'S as in DOG => DOG'S ;;; ... => ...'S as in DOG => DOG'S
(defpackage "SPELL"
(:use "LISP" "EXTENSIONS" "SYSTEM")
(:export spell-try-word spell-root-word spell-collect-close-words
maybe-read-spell-dictionary correct-spelling max-entry-length
spell-read-dictionary spell-add-entry spell-root-flags
spell-remove-entry))
(in-package "SPELL")
(in-package "SPELL" :use '("LISP" "EXTENSIONS" "SYSTEM"))
(export '(spell-try-word spell-root-word spell-collect-close-words
maybe-read-spell-dictionary correct-spelling max-entry-length))
;;;; Some Constants ;;;; Some Constants
(eval-when (compile load eval) (eval-when (compile load eval)
(defconstant spell-deleted-entry #xFFFF)
;;; The next number (using 6 bits) is 63, and that's pretty silly because ;;; The next number (using 6 bits) is 63, and that's pretty silly because
;;; "supercalafragalistic" is less than 31 characters long. ;;; "supercalafragalistic" is less than 31 characters long.
;;; ;;;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment