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