mmarco/kenzo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Problem with the order of generators in some computations solved

Browse Source
This commit is contained in:
Ana Romero 2019-06-19 11:52:38 +02:00
parent b2d52ec3c3
commit ee23f1128d
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/smith.lisp
View File

@ -644,7 +644,9 @@
(if (and (symbolp gnrt1) (if (and (symbolp gnrt1)
(eq (symbol-package gnrt1) (eq (symbol-package gnrt1)
+gnrts-pckg+)) +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))) (funcall cmpr gnrt1 gnrt2)))
:basis #'(lambda (degr) :basis #'(lambda (degr)
(declare (fixnum degr)) (declare (fixnum degr))