OSCL/CXML
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

name-hashtable in den context gezogen, das war wohl kaum thread-safe so.

Browse Source 
allerdings keine ahnung wofuer sie ueberhaupt da ist.
This commit is contained in:
dlichteblau
2005-11-27 20:59:00 +00:00
parent 05ad13e388
commit 44ff96c68e
2 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
xml/xml-parse.lisp
View File

@ -213,6 +213,8 @@
model-stack
(referenced-notations '())
(id-table (%make-rod-hash-table))
;; FIXME: Wofuer ist name-hashtable da? Will man das wissen?
(name-hashtable (make-rod-hashtable :size 2000))
(standalone-p nil)
(entity-resolver nil)
(disallow-internal-subset nil)
@ -479,14 +481,12 @@
(defun (setf rod-hash-get) (new-value hashtable rod &optional (start 0) (end (length rod)))
(rod-hash-set new-value hashtable rod start end))
(defparameter *name-hashtable* (make-rod-hashtable :size 2000))
(defun intern-name (rod &optional (start 0) (end (length rod)))
(multiple-value-bind (value successp key) (rod-hash-get *name-hashtable* rod start end)
(multiple-value-bind (value successp key) (rod-hash-get (name-hashtable *ctx*) rod start end)
(declare (ignore value))
(if successp
key
(nth-value 1 (rod-hash-set t *name-hashtable* rod start end)))))
(nth-value 1 (rod-hash-set t (name-hashtable *ctx*) rod start end)))))
;;;; ---------------------------------------------------------------------------
;;;;