- (printer `(lambda
- (,(intern (symbol-name '#:self)
- (symbol-package (object-class view)))
- ,(intern (symbol-name '#:s)
- (symbol-package (object-class view))))
- (declare (ignorable
- ,(intern (symbol-name '#:self)
- (symbol-package (object-class view)))
- ,(intern (symbol-name '#:s)
- (symbol-package (object-class view)))))
- (with-slots ,(slots view)
- ,(intern (symbol-name '#:self)
- (symbol-package (object-class view)))
- ,@source-code))))
- (setf (printer view)
+ (printer `(lambda
+ (,(intern (symbol-name '#:self)
+ (symbol-package (object-class view)))
+ ,(intern (symbol-name '#:s)
+ (symbol-package (object-class view))))
+ (declare (ignorable
+ ,(intern (symbol-name '#:self)
+ (symbol-package (object-class view)))
+ ,(intern (symbol-name '#:s)
+ (symbol-package (object-class view)))))
+ (with-slots ,(slots view)
+ ,(intern (symbol-name '#:self)
+ (symbol-package (object-class view)))
+ ,@source-code))))
+ (setf (printer view)