Plaster

text
(defun (setf foo) (new-value) (if (eq *package* (find-package :my-package)) (setf *magic-value* new-value) (error "This writer is internal and should NOT be used")))