Plaster
New
List
Login
common-lisp
default
anonymous
2019.03.16 21:32:43
(declaim (inline foo)) (defun foo () (assoc 'speed (introspect-environment:declaration-information 'optimize))) (declaim (notinline foo)) CL-USER> (foo) (SPEED 1) CL-USER> (locally (declare (optimize speed) (inline foo)) (foo)) (SPEED 1)
Raw
Annotate
Repaste
Edit