From 49c07f6a1fc574d29bd69d28eb3796d6848c05a0 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Sun, 31 May 1992 02:19:25 +0000
Subject: [PATCH] Encode pairs with shifting, not multiplication.

---
 contrib/ops/ops-compile.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/contrib/ops/ops-compile.lisp b/contrib/ops/ops-compile.lisp
index a94da3bde..bdf7960ff 100644
--- a/contrib/ops/ops-compile.lisp
+++ b/contrib/ops/ops-compile.lisp
@@ -405,8 +405,8 @@
 ; the following two functions encode indices so that gelm can
 ; decode them as fast as possible
 
-(defun encode-pair (a b) (+ (* 10000. (1- a)) (1- b))) 
-;"plus" changed to "+" by gdw
+(defun encode-pair (a b)
+  (logior (ash (1- a) encode-pair-shift) (1- b))) 
 
 (defun encode-singleton (a) (1- a)) 
 
-- 
GitLab