diff --git a/ansi-tests/documentation.lsp b/ansi-tests/documentation.lsp index aa37bbf0dc43ad63b3b3699e6941fe51b166d008..cc4cd65882404bcdf4b0a71e32551bd22bd5ae3b 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)))