Little patch for lisp-find-hash-form (please try)

Current ILISP does not find the buffer package of a file starting with
the following lines:

------------------------------
(eval-when (compile load eval)
  #+clocc-lpn
  (require :port-ext (translate-logical-pathname "clocc:src;port;ext"))
  ;; `default-directory'
  #+clocc-lpn
  (require :port-path (translate-logical-pathname "port:path"))
  #+(and allegro mswindows)
  (require :ole))

(in-package :port)
------------------------------

I believe to have found a fix for this.  There was strange code in
LISP-FIND-HASH-FORM, which set the variable IN-PACKAGE-FOUND-P of its
caller LISP-BUFFER-PACKAGE-INTERNAL to true, no matter if an
IN-PACKAGE form was found or not.  Since IN-PACKAGE-FOUND-P is
properly set in L-B-P-I, I have simply removed the strange code.

I will commit this change soon unless there are objections.

--- ilisp-snd.el.~1.16.~	2002-10-25 14:29:31.000000000 +0200
+++ ilisp-snd.el	2002-10-25 14:31:15.000000000 +0200
@@ -97,9 +97,7 @@
 			 (point))
 		       (match-end 0))))
 	   
-	   (cond ((or (prog1
-                          (string-match in-package-regexp found)
-                        (setq in-package-found-p t))
+	   (cond ((or (string-match in-package-regexp found)
 		      (string-match defpackage-regexp found))
 		  (backward-char)
 		  (buffer-substring-no-properties (point) (progn (forward-sexp) (point))))

-- 
Matthias Köppe -- http://www.math.uni-magdeburg.de/~mkoeppe


-------------------------------------------------------
This SF.net email is sponsored by: ApacheCon, November 18-21 in
Las Vegas (supported by COMDEX), the only Apache event to be
fully supported by the ASF. http://www.apachecon.com