Commit cdca4976 authored by pfdietz's avatar pfdietz

Check that generic functions associated with reader, writer, and accessor...

Check that generic functions associated with reader, writer, and accessor functions are in type generic-function.
parent c1580327
......@@ -76,7 +76,8 @@
;;;;
(defclass class-04 () ((s1 :reader s1-r) (s2 :writer s2-w) (s3 :accessor s3-a)))
(defclass class-04 ()
((s1 :reader s1-r) (s2 :writer s2-w) (s3 :accessor s3-a)))
;;; Readers, writers, and accessors
(deftest class-04.1
......@@ -95,6 +96,22 @@
(s3-a c)))
a b c a b d d c e e e)
(deftest class-04.2
(notnot-mv (typep #'s1-r 'generic-function))
t)
(deftest class-04.3
(notnot-mv (typep #'s2-w 'generic-function))
t)
(deftest class-04.4
(notnot-mv (typep #'s3-a 'generic-function))
t)
(deftest class-04.5
(notnot-mv (typep #'(setf s3-a) 'generic-function))
t)
;;;;
(defclass class-05 () (s1 (s2 :allocation :instance) (s3 :allocation :class)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment