diff options
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 |