From 0f383318a079bd0c7bb23c909f30771b1c20b29c Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Thu, 31 Jul 2008 09:33:25 +0200
Subject: Add Sacla to the repository.

---
 Sacla/tests/should-array.patch | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 Sacla/tests/should-array.patch

(limited to 'Sacla/tests/should-array.patch')

diff --git a/Sacla/tests/should-array.patch b/Sacla/tests/should-array.patch
new file mode 100644
index 0000000..113e1c7
--- /dev/null
+++ b/Sacla/tests/should-array.patch
@@ -0,0 +1,32 @@
+*** sacla/lisp/test/should-array.lisp	2004-08-03 08:34:55.000000000 +0200
+--- CLISP/clisp-20040712/sacla-tests/should-array.lisp	2004-08-06 03:27:42.000000000 +0200
+***************
+*** 31,43 ****
+    (ERROR NIL NIL)
+    (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))
+  
+  (progn
+!   #-(or cmu clisp)
+    (HANDLER-CASE (PROGN (ADJUSTABLE-ARRAY-P "not-a-symbol"))
+      (TYPE-ERROR NIL T)
+      (ERROR NIL NIL)
+      (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))
+!   #+(or cmu clisp) 'skipped)
+  
+  (progn
+    #-cmu
+--- 31,44 ----
+    (ERROR NIL NIL)
+    (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))
+  
++ #-CLISP ; Why expect an error? A string _is_ an array.
+  (progn
+!   #-(or cmu clispxxx)
+    (HANDLER-CASE (PROGN (ADJUSTABLE-ARRAY-P "not-a-symbol"))
+      (TYPE-ERROR NIL T)
+      (ERROR NIL NIL)
+      (:NO-ERROR (&REST REST) (DECLARE (IGNORE REST)) NIL))
+!   #+(or cmu clispxxx) 'skipped)
+  
+  (progn
+    #-cmu
-- 
cgit v1.2.3