🚀 go-pugleaf

Suppose I want to write a no-applicable-method that can be used to
delegate messages to an object's prototype,  I'll have something that
looks like this:

(defclass foo () ((prototype)))

(defmethod no-applicable-method ((gf standard-generic-function)
					&rest args)
	(let ((prototype (prototype (first args))))
	   (if prototype
	        (apply gf prototype (cdr args))
	        (call-next-method))))


This seems to work fine.  However, it blows up when it is used with a
writer method (setf . .), because for (setf . .) the first argument in
&rest passed to no-applicable-method is the value of the slot not the
object instance. Is there a better way to do this. Also, how can I do
this for multiple qualified arguments?


Maher Hakim
Carnegie Mellon University