projects
/
umlisp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r11704: can not use keywords in :subobject functions
[umlisp.git]
/
parse-common.lisp
diff --git
a/parse-common.lisp
b/parse-common.lisp
index f712e7627dd632b3ad651cc69d29f1303043764e..4c2855e282b6fa877e5789d399ccaeda3bbd9d09 100644
(file)
--- 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*))
"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"
"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)
(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))
(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)
pos)))
(defun find-ucols-for-ufile (ufile)