A Common Lisp painting application