Skip to content
Snippets Groups Projects
Commit 93a683b4 authored by pfdietz's avatar pfdietz
Browse files

Wrap some defs in ignore-errors, so they don't abort gcl on loading

parent 71f8c40f
No related branches found
No related tags found
No related merge requests found
...@@ -614,23 +614,24 @@ ...@@ -614,23 +614,24 @@
;;; Defining new methods for DOCUMENTATION ;;; Defining new methods for DOCUMENTATION
(defgeneric documentation-test-class-1-doc-accessor (obj)) (ignore-errors
(defgeneric (setf documentation-test-class-1-doc-accessor) (newdoc obj)) (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) :type (or null string)
:initform nil))) :initform nil)))
(defmethod documentation-test-class-1-doc-accessor ((obj documentation-test-class-1) ) (defmethod documentation-test-class-1-doc-accessor ((obj documentation-test-class-1) )
(slot-value obj 'my-doc)) (slot-value obj 'my-doc))
(defmethod (setf documentation-test-class-1-doc-accessor) ((newdoc string) (obj documentation-test-class-1)) (defmethod (setf documentation-test-class-1-doc-accessor) ((newdoc string) (obj documentation-test-class-1))
(setf (slot-value obj 'my-doc) newdoc)) (setf (slot-value obj 'my-doc) newdoc))
(defmethod documentation ((obj documentation-test-class-1) (doctype (eql t))) (defmethod documentation ((obj documentation-test-class-1) (doctype (eql t)))
(documentation-test-class-1-doc-accessor obj)) (documentation-test-class-1-doc-accessor obj))
(defmethod (setf documentation) ((newdoc string) (obj documentation-test-class-1) (doctype (eql t))) (defmethod (setf documentation) ((newdoc string) (obj documentation-test-class-1) (doctype (eql t)))
(setf (documentation-test-class-1-doc-accessor obj) newdoc)) (setf (documentation-test-class-1-doc-accessor obj) newdoc)))
(deftest documentation.new-method.1 (deftest documentation.new-method.1
(let ((obj (make-instance 'documentation-test-class-1))) (let ((obj (make-instance 'documentation-test-class-1)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment