Changeset 5339

Timestamp:

Oct 13, 2006, 3:50:00 AM (18 years ago)

Author:

Gary Byers

Message:

Change >=-2, <=-2, /=-2 to avoid inlining issues.

File:

• trunk/ccl/level-0/l0-numbers.lisp (modified) (2 diffs)

trunk/ccl/level-0/l0-numbers.lisp

@@ -310 +310 @@
 
 (defun /=-2 (x y)
-  (not (=-2 x y)))
+  (declare (notinline =-2))
+  (not (= x y)))
 
 
 ; true iff (< x y) is false.
 (defun >=-2 (x y)
+  (declare (notinline <-2))
   (not (< x y)))
 
@@ -320 +322 @@
 
 (defun <=-2 (x y)
+  (declare (notinline >-2))
   (not (> x y)))