Changeset 12946
- Timestamp:
- 10/03/10 21:33:34 (12 years ago)
- Location:
- trunk/abcl
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/EqHashTable.java
r11488 r12946 55 55 56 56 @Override 57 public LispObject get(LispObject key)57 public synchronized LispObject get(LispObject key) 58 58 { 59 59 final int index; … … 75 75 76 76 @Override 77 public void put(LispObject key, LispObject value)77 public synchronized void put(LispObject key, LispObject value) 78 78 { 79 79 int index; -
trunk/abcl/src/org/armedbear/lisp/EqlHashTable.java
r11488 r12946 56 56 57 57 @Override 58 public LispObject get(LispObject key)58 public synchronized LispObject get(LispObject key) 59 59 { 60 60 HashEntry e = buckets[key.sxhash() & mask]; … … 69 69 70 70 @Override 71 public void put(LispObject key, LispObject value)71 public synchronized void put(LispObject key, LispObject value) 72 72 { 73 73 int index = key.sxhash() & mask; -
trunk/abcl/src/org/armedbear/lisp/EqualHashTable.java
r12255 r12946 52 52 53 53 @Override 54 public LispObject get(LispObject key)54 public synchronized LispObject get(LispObject key) 55 55 { 56 56 HashEntry e = buckets[key.sxhash() & mask]; … … 65 65 66 66 @Override 67 public void put(LispObject key, LispObject value)67 public synchronized void put(LispObject key, LispObject value) 68 68 { 69 69 int index = key.sxhash() & mask; -
trunk/abcl/src/org/armedbear/lisp/EqualpHashTable.java
r12255 r12946 49 49 50 50 @Override 51 public LispObject get(LispObject key)51 public synchronized LispObject get(LispObject key) 52 52 { 53 53 final int index = key.psxhash() % buckets.length; … … 63 63 64 64 @Override 65 public void put(LispObject key, LispObject value)65 public synchronized void put(LispObject key, LispObject value) 66 66 { 67 67 int index = key.psxhash() % buckets.length; -
trunk/abcl/test/lisp/ansi/parse-ansi-errors.lisp
r12918 r12946 77 77 (if (find :asdf2 *features*) 78 78 (asdf:system-relative-pathname :ansi-compiled "test/lisp/ansi/ansi-test-failures") 79 (merge-pathnames "ansi-test-failures" (directory-namestring *load-truename*))) 79 (merge-pathnames "ansi-test-failures" (directory-namestring *load-truename*)))) 80 80 81 81 (defun parse (&optional (file *default-database-file*))
Note: See TracChangeset
for help on using the changeset viewer.