From ee23f1128d87a554b854c356eb5456c1f4db80a6 Mon Sep 17 00:00:00 2001 From: Ana Romero Date: Wed, 19 Jun 2019 11:52:38 +0200 Subject: [PATCH] Problem with the order of generators in some computations solved --- src/smith.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/smith.lisp b/src/smith.lisp index 60fba3f..0e6dc4e 100644 --- a/src/smith.lisp +++ b/src/smith.lisp @@ -644,7 +644,9 @@ (if (and (symbolp gnrt1) (eq (symbol-package gnrt1) +gnrts-pckg+)) - (s-cmpr gnrt1 gnrt2) + ;;(s-cmpr gnrt1 gnrt2) + (f-cmpr (parse-integer (subseq (string gnrt1) 3)) + (parse-integer (subseq (string gnrt2) 3))) (funcall cmpr gnrt1 gnrt2))) :basis #'(lambda (degr) (declare (fixnum degr))