(redef sref (ob v . rest)
(if (is-perm-table ob) ; need to implement this function
(if v
(permset ob (car rest) v)
(permdel ob (car rest)))
(apply old ob v rest)))
For example, you might want to use (annotate 'perm-table ...), or better yet just use the settable-fn framework which provides you with 'keys, 'sref, etc. "for free"