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/must-reader.patch | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 Sacla/tests/must-reader.patch

(limited to 'Sacla/tests/must-reader.patch')

diff --git a/Sacla/tests/must-reader.patch b/Sacla/tests/must-reader.patch
new file mode 100644
index 0000000..a2db10f
--- /dev/null
+++ b/Sacla/tests/must-reader.patch
@@ -0,0 +1,26 @@
+*** sacla/lisp/test/must-reader.lisp	2004-08-03 08:34:55.000000000 +0200
+--- CLISP/clisp-20040712/sacla-tests/must-reader.lisp	2004-08-07 02:10:05.000000000 +0200
+***************
+*** 1828,1837 ****
+  
+  
+  (progn
+!   #-clisp
+    (handler-case (null (let ((*features* '())) (read-from-string "#+test1 a")))
+      (error () nil))
+!   #+clisp 'skipped)
+  
+  (let ((*features* '()))
+    (equal (with-input-from-string (stream "#+test1 a #-test1 b")
+--- 1828,1838 ----
+  
+  
+  (progn
+!   #-CLISP ; ANSI CL 2.2. refers to the spec of READ, which says that an error
+!           ; of type end-of-file is signalled.
+    (handler-case (null (let ((*features* '())) (read-from-string "#+test1 a")))
+      (error () nil))
+!   #+CLISP 'skipped)
+  
+  (let ((*features* '()))
+    (equal (with-input-from-string (stream "#+test1 a #-test1 b")
-- 
cgit v1.2.3