X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fpolicy.lisp;h=e780e4bc9af9e5cf2ca4ec553d82bce02927e54f;hb=4e3b57699314dbd3883470d9b196287b178f3e6d;hp=6139039ea027274ca4ab8d6e92e1f436b8332a81;hpb=0c7ffa8fb85a94482814835c9f28abfd0400ab99;p=sbcl.git diff --git a/src/compiler/policy.lisp b/src/compiler/policy.lisp index 6139039..e780e4b 100644 --- a/src/compiler/policy.lisp +++ b/src/compiler/policy.lisp @@ -90,7 +90,7 @@ ;;; FIXME: Doing this is slightly flaky (since we can't do it right ;;; without all the headaches of true code walking), and it shouldn't ;;; be necessary with modern Python anyway, as long as POLICY-QUALITY -;;; is properly DEFKNOWNed to have no side-effects so that it can be +;;; is properly DEFKNOWNed to have no side effects so that it can be ;;; optimized away if unused. So this should probably go away. (defun policy-qualities-used-by (expr) (let ((result nil))