Add Sacla to the repository.

1 files changed, 55 insertions, 0 deletions

diff --git a/Sacla/tests/must-hash-table.patch b/Sacla/tests/must-hash-table.patch
new file mode 100644
index 0000000..c9ea48c
--- /dev/null
+++ b/Sacla/tests/must-hash-table.patch
@@ -0,0 +1,55 @@
+*** 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))
+