Plaster
New
List
Login
common-lisp
default
phoe
2019.11.26 12:54:43
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")
Raw
Annotate
Repaste
Annotations
common-lisp
default
phoe
2019.11.26 12:55:34
CL-TEST> (FLET ((%F NIL (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (COMPILATION-SPEED 0) (DEBUG 0))) (STRING #\A))) (let ((x (%f))) (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (COMPILATION-SPEED 0) (DEBUG 0))) (setf (char x 0) #\D) (list x (string #\a))))
Raw
Repaste