From f73e459ca24cb3a6496ec16196b2ff69bef72ea2 Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Tue, 6 Dec 2011 02:01:01 +0200 Subject: [PATCH] defknown SC-NUMBER-OR-LOSE as foldable No point calling it all the time with constant arguments. --- src/compiler/fndb.lisp | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/compiler/fndb.lisp b/src/compiler/fndb.lisp index 9ce8a8c..1ff4843 100644 --- a/src/compiler/fndb.lisp +++ b/src/compiler/fndb.lisp @@ -1583,6 +1583,8 @@ ()) (defknown style-warn (t &rest t) null ()) +(defknown sc-number-or-lose (symbol) sc-number + (foldable)) ;;;; memory barriers -- 1.7.10.4