diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-04-12 16:06:12 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-04-12 16:06:12 +0000 |
| commit | 0e38e0fddb31adfa138e782accc1eadb83139dd8 (patch) | |
| tree | 19e531676b7f16c00db6d2b40e5509971c18b00b /src/interp/hash.lisp | |
| parent | e10a5af76582abff22adc43658c06914ddb3543f (diff) | |
| download | open-axiom-0e38e0fddb31adfa138e782accc1eadb83139dd8.tar.gz | |
cleanup from lisp
Diffstat (limited to 'src/interp/hash.lisp')
| -rw-r--r-- | src/interp/hash.lisp | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/src/interp/hash.lisp b/src/interp/hash.lisp index affd3f6e..98ac338a 100644 --- a/src/interp/hash.lisp +++ b/src/interp/hash.lisp @@ -44,8 +44,7 @@ ((EQ ID) #'eq) (CVEC #'equal) (EQL #'eql) - #+Lucid ((UEQUAL EQUALP) #'EQUALP) - #-Lucid ((UEQUAL EQUAL) #'equal) + ((UEQUAL EQUAL) #'equal) (otherwise (error "bad arg to make-hashtable"))))) (make-hash-table :test test))) @@ -60,9 +59,6 @@ #'(lambda (key val) (declare (ignore val)) (push key keys)) table) keys)) -#+Lucid -(define-function 'HASHTABLE-CLASS #'system::hash-table-test) - #+AKCL (clines "int mem_value(x ,i)object x;int i; { return ((short *)x)[i];}") #+AKCL |