- '(pprint (multiple-value-bind (pgf pm)
- (prototypes-for-make-method-lambda
- 'meth-structure-slot-value)
- (expand-defmethod
- 'meth-structure-slot-value pgf pm
- nil '((object str))
- '(#'(lambda () (slot-value object 'slot)))
- nil))))
+ '(pprint (multiple-value-bind (pgf pm)
+ (prototypes-for-make-method-lambda
+ 'meth-structure-slot-value)
+ (expand-defmethod
+ 'meth-structure-slot-value pgf pm
+ nil '((object str))
+ '((lambda () (slot-value object 'slot)))
+ nil))))