diff --git a/compiler/ltn.lisp b/compiler/ltn.lisp index c04a37c575ca24d42598f7d0ce39101993b9fede..afd86ba143468496f49a8314d9431b02eeb3ea0a 100644 --- a/compiler/ltn.lisp +++ b/compiler/ltn.lisp @@ -34,10 +34,9 @@ (cookie-cspeed dcookie)))) (speed (or (cookie-speed cookie) (cookie-speed dcookie)))) - (cond ((>= safety speed space) :fast-safe) - ((>= speed (max space safety)) :fast) - ((>= space (max speed safety)) :small) - (t :safe)))) + (if (zerop safety) + (if (>= speed space) :fast :small) + (if (>= speed space) :fast-safe :safe)))) ;;; Policy-Safe-P -- Interface