*** sacla/lisp/test/must-hash-table.lisp	2004-08-03 08:34:54.000000000 +0200
--- CLISP/clisp-20040712/sacla-tests/must-hash-table.lisp	2004-08-06 02:45:56.000000000 +0200
***************
*** 42,52 ****
--- 42,54 ----
  
  (make-hash-table)
  (hash-table-p (make-hash-table))
+ #-CLISP ; unfounded expectations about hash-table-test
  (dolist (test '(eq eql equal equalp) t)
    (let ((hash-table (make-hash-table :test test)))
      (unless (and (hash-table-p hash-table)
                   (eq (hash-table-test hash-table) test))
        (return nil))))
+ #-CLISP ; unfounded expectations about hash-table-test
  (dolist (test '(eq eql equal equalp) t)
    (let* ((test-function (symbol-function test))
           (hash-table (make-hash-table :test test-function)))
***************
*** 114,135 ****
--- 116,148 ----
         (= (hash-table-count table) 1)))
  
  
+ #-CLISP ; unfounded expectations about hash-table-rehash-size
  (let ((table (make-hash-table :size 100 :rehash-size 1.4)))
    (= (hash-table-rehash-size table) 1.4))
  
+ #-CLISP ; unfounded expectations about hash-table-rehash-threshold
  (let ((table (make-hash-table :size 100 :rehash-threshold 0.5)))
    (= (hash-table-rehash-threshold table) 0.5))
  
  (<= 0 (hash-table-size (make-hash-table)))
  
+ #-CLISP ; unfounded expectations about hash-table-test
  (eq 'eq (hash-table-test (make-hash-table :test 'eq)))
+ #-CLISP ; unfounded expectations about hash-table-test
  (eq 'eq (hash-table-test (make-hash-table :test #'eq)))
+ #-CLISP ; unfounded expectations about hash-table-test
  (eq 'eql (hash-table-test (make-hash-table)))
+ #-CLISP ; unfounded expectations about hash-table-test
  (eq 'eql (hash-table-test (make-hash-table :test 'eql)))
+ #-CLISP ; unfounded expectations about hash-table-test
  (eq 'eql (hash-table-test (make-hash-table :test #'eql)))
+ #-CLISP ; unfounded expectations about hash-table-test
  (eq 'equal (hash-table-test (make-hash-table :test 'equal)))
+ #-CLISP ; unfounded expectations about hash-table-test
  (eq 'equal (hash-table-test (make-hash-table :test #'equal)))
+ #-CLISP ; unfounded expectations about hash-table-test
  (eq 'equalp (hash-table-test (make-hash-table :test 'equalp)))
+ #-CLISP ; unfounded expectations about hash-table-test
  (eq 'equalp (hash-table-test (make-hash-table :test #'equalp)))
  
  (let* ((table0 (make-hash-table))