Closed sasagawa888 closed 1 year ago
(defgeneric foo-41 (a &rest r)) (defmethod foo-41 ((a ) &rest r) (setf (car r) 9) (call-next-method)) (defmethod foo-41 ((a ) &rest r) (car r)) ;($test (foo-41 1 2) 2 eql)
(foo-41 1 2) should return 2. not 9.
Fixed.
(defgeneric foo-41 (a &rest r)) (defmethod foo-41 ((a) &rest r)
(setf (car r) 9)
(call-next-method))
(defmethod foo-41 ((a ) &rest r)
(car r))
;($test (foo-41 1 2) 2 eql)
(foo-41 1 2) should return 2. not 9.