From 93a683b4c8c39ef4b67be2afab79f79748b84c27 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Fri, 12 Aug 2005 11:35:35 +0000
Subject: [PATCH] Wrap some defs in ignore-errors, so they don't abort gcl on
 loading

---
 ansi-tests/documentation.lsp | 25 +++++++++++++------------
 1 file changed, 13 insertions(+), 12 deletions(-)

diff --git a/ansi-tests/documentation.lsp b/ansi-tests/documentation.lsp
index aa37bbf0..cc4cd658 100644
--- a/ansi-tests/documentation.lsp
+++ b/ansi-tests/documentation.lsp
@@ -614,23 +614,24 @@
 
 ;;; Defining new methods for DOCUMENTATION
 
-(defgeneric documentation-test-class-1-doc-accessor (obj))
-(defgeneric (setf documentation-test-class-1-doc-accessor) (newdoc obj))
+(ignore-errors
+  (defgeneric documentation-test-class-1-doc-accessor (obj))
+  (defgeneric (setf documentation-test-class-1-doc-accessor) (newdoc obj))
 
-(defclass documentation-test-class-1 () ((my-doc :accessor documentation-test-class-1-doc-accessor
+  (defclass documentation-test-class-1 () ((my-doc :accessor documentation-test-class-1-doc-accessor
 						 :type (or null string)
 						 :initform nil)))
   
-(defmethod documentation-test-class-1-doc-accessor ((obj documentation-test-class-1) )
-  (slot-value obj 'my-doc))
-(defmethod (setf documentation-test-class-1-doc-accessor) ((newdoc string) (obj documentation-test-class-1))
-  (setf (slot-value obj 'my-doc) newdoc))
-
-(defmethod documentation ((obj documentation-test-class-1) (doctype (eql t)))
-  (documentation-test-class-1-doc-accessor obj))
+  (defmethod documentation-test-class-1-doc-accessor ((obj documentation-test-class-1) )
+    (slot-value obj 'my-doc))
+  (defmethod (setf documentation-test-class-1-doc-accessor) ((newdoc string) (obj documentation-test-class-1))
+    (setf (slot-value obj 'my-doc) newdoc))
+  
+  (defmethod documentation ((obj documentation-test-class-1) (doctype (eql t)))
+    (documentation-test-class-1-doc-accessor obj))
 
-(defmethod (setf documentation) ((newdoc string) (obj documentation-test-class-1) (doctype (eql t)))
-  (setf (documentation-test-class-1-doc-accessor obj) newdoc))
+  (defmethod (setf documentation) ((newdoc string) (obj documentation-test-class-1) (doctype (eql t)))
+    (setf (documentation-test-class-1-doc-accessor obj) newdoc)))
 
 (deftest documentation.new-method.1
   (let ((obj (make-instance 'documentation-test-class-1)))
-- 
GitLab