Closed sasagawa888 closed 1 year ago
(defgeneric foo-35 (x) (:method :around (x) (call-next-method)) (:method ((x )) 'primary-)) ;($test (foo-35 3) primary-) ;($error (foo-35 3.3) )
(foo-35 3.3) returns nil. but, it should return error.
Fixed.
(defgeneric foo-35 (x) (:method :around (x) (call-next-method)) (:method ((x)) 'primary-))
;($test (foo-35 3) primary-)
;($error (foo-35 3.3) )
(foo-35 3.3) returns nil. but, it should return error.