Plaster
New
List
Login
common-lisp
default
phoe
2022.01.30 17:37:34
(progn (defun test-function () (let ((counter-var (load-time-value (cons 0 nil)))) (symbol-macrolet ((counter (car counter-var))) (incf counter)))) (format t "Possibly not compiled code: ~D ~D ~D~%" (test-function) (test-function) (test-function)) (defun test-function-2 () (let ((counter-var (load-time-value (cons 0 nil)))) (symbol-macrolet ((counter (car counter-var))) (incf counter)))) (compile 'test-function-2) (format t "Compiled code: ~D ~D ~D~%" (test-function-2) (test-function-2) (test-function-2)))
Raw
Annotate
Repaste