Plaster

common-lisp
CL-TEST> (FLET ((%F NIL (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (COMPILATION-SPEED 0) (DEBUG 0))) (STRING #\A))) (let ((x (%f))) (setf (char x 0) #\D) (list x (%f)))) ("D" "D")

Annotations