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

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

which included commits to RCS files with non-trunk default branches.
parents c5dc9f4e 3abb62d5
No related branches found
No related tags found
No related merge requests found
......@@ -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-corr.lisp,v 1.1.1.6 1991/09/04 14:08:30 ram Exp $")
"$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 $")
;;;
;;; **********************************************************************
;;;
......@@ -719,7 +719,8 @@
(setf ,contents-var (dictionary-ref ,location-var))
(if (zerop ,contents-var) (return ,zero-contents-form))
,@(if for-insertion-p
`((if (= ,contents-var -1) (return ,zero-contents-form))))
`((if (= ,contents-var spell-deleted-entry)
(return ,zero-contents-form))))
(if (= ,location-var ,loc) (return nil))
,@(if body-form `(,body-form))))))
......
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