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