Problem with the order of generators in some computations solved

2019-06-19 11:52:38 +02:00 · 2019-06-19 11:52:38 +02:00 · ee23f1128d
commit ee23f1128d
parent b2d52ec3c3
1 changed files with 3 additions and 1 deletions
--- 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))