use-setf-foo.lisp 448 Bytes
Newer Older
1 2
(in-package :asdf-test/deferred-warnings)

3 4
(defclass <bar> () ())

5 6
(defun use-setf-foo (v x)
  (setf (foo x) v))
Francois-Rene Rideau's avatar
Francois-Rene Rideau committed
7

8 9 10 11 12 13 14 15 16
(defmethod gf ((x <bar>) (y (eql (+ 1 1))))
  (setf (foo (make-instance '<bar>)) #(1 2 3 4)))


(defmethod (setf gf) (value (x <bar>) (y (eql (+ 1 1))))
  (setf (foo x) (+ y value)))



Francois-Rene Rideau's avatar
Francois-Rene Rideau committed
17 18
#+clisp (eval-when (:compile-toplevel :load-toplevel :execute)
          (format t "~&~S~%" `(sys::*unknown-functions* ,sys::*unknown-functions*)))