X-Git-Url: http://git.kpe.io/?p=umlisp.git;a=blobdiff_plain;f=parse-common.lisp;h=4c2855e282b6fa877e5789d399ccaeda3bbd9d09;hp=f712e7627dd632b3ad651cc69d29f1303043764e;hb=965bf11233f305fcb6635c319756a96c4c4202af;hpb=1156ea284d3010afd2e113fc4ddb325290b8a7a4

diff --git a/parse-common.lisp b/parse-common.lisp
index f712e76..4c2855e 100644
--- a/parse-common.lisp
+++ b/parse-common.lisp
@@ -230,14 +230,8 @@ Currently, these are the LEX and NET files."
   "Returns umls-file structure for a filename"
   (find-if #'(lambda (f) (string= filename (fil f))) *umls-files*))
 
-(defvar *position-hash* (make-hash-table :test 'eq))
-
-(defun position-field-file (filename fieldname key)
+(defun position-field-file (filename fieldname)
   "Returns the position of a field in a file"
-  (multiple-value-bind (pos found) (gethash key *position-hash*)
-    (if found
-        (return-from position-field-file pos)))
-
   (let ((ufile (find-ufile filename)))
     (unless ufile
       (warn "Unable to find ufile for filename ~A." filename)
@@ -246,7 +240,6 @@ Currently, these are the LEX and NET files."
       (unless pos
         (warn "Unable to find field ~A in ufile ~S." fieldname ufile)
         (return-from position-field-file nil))
-      (setf (gethash key *position-hash*) pos)
       pos)))
 
 (defun find-ucols-for-ufile (ufile)