diff --git a/hemlock/search1.lisp b/hemlock/search1.lisp index 7d88691475d61ed49154d3ed9606686751f4b2d2..8a85603a9549af8113802a7a0014862c5df445ac 100644 --- a/hemlock/search1.lisp +++ b/hemlock/search1.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/search1.lisp,v 1.1.1.3 1991/02/08 16:37:27 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/search1.lisp,v 1.1.1.4 1992/01/06 16:24:15 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -66,7 +66,6 @@ ;;; is put on the search-pattern-documentation property of the kind ;;; keyword. ;;; -(eval-when (compile eval) (defmacro define-search-kind (kind lambda-list documentation &body forms) (let ((dummy (gensym))) `(progn @@ -75,7 +74,6 @@ (setf (gethash ,kind *search-pattern-experts*) #'(lambda ,lambda-list ,@forms))) (,dummy)))) -); eval-when (compile eval) ;;; new-search-pattern -- Public ;;; @@ -126,7 +124,6 @@ ;;; match ocurred. Something non-nil is returned if something is ;;; found and line and start are set to where it was found. ;;; -(eval-when (compile eval) (defmacro search-once-forward-macro (line start search-fun &rest other-args) `(do* ((l ,line) (chars (line-chars l) (line-chars l)) @@ -163,7 +160,7 @@ (return t)) (setq l (line-previous l)) (when (null l) (return nil)))) -); eval-when (compile eval) + ;;;; String Searches. ;;;