Plaster

(in-package :symbol-expansion-test) ;;; File-local symbol expansion. (with-symbol-expansion selective-symbol-expansion :expansion '(("P." "REALLY-LONG-PROTOCOL-NAME-"))) (defclass my-class () ((foo :initarg :foo :accessor p.foo :initform nil) (bar :initarg :bar :accessor p.bar :initform nil))) (defun p.sum (instance) (+ (p.foo instance) (p.bar instance))) (defun p.test () (p.sum (make-instance 'my-class :foo 1 :bar 2))) ;; (print (really-long-protocol-name-test)) ;; => 3