Plaster

CL-USER> (defpackage #:a (:use) (:intern #:cl+ #:cl- #:cl* #:cl/)) #<PACKAGE "A"> CL-USER> (link a::cl+ +) + CL-USER> (link a::cl- -) - CL-USER> (link a::cl* *) * CL-USER> (link a::cl/ /) / CL-USER> (a::cl+ 10 20) 30 CL-USER> (a::cl/ 10 20) 1/2