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

CCL doesn't like the asterisks. Fixed.

Browse Source
This commit is contained in:
Gerd Heber 2015-07-16 17:26:26 -05:00
parent 2aecb86a50
commit b15b0b1e75
1 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
test/k-pi-n-test.lisp
View File

@ -179,7 +179,8 @@
:strt :gnrt :strt :gnrt
:orgn '(essai-1)))) :orgn '(essai-1))))
(cat:gmsm-cocycle (cat:face d) 1 4 31 chml-clss) (cat:gmsm-cocycle (cat:face d) 1 4 31 chml-clss)
(cat:z-cocycle-gbar 1 4 *) (cat:z-cocycle-gbar 1 4 (cat:gmsm-cocycle (cat:face d)
1 4 31 chml-clss))
(setf chml-clss (setf chml-clss
(cat:build-mrph :sorc d :trgt (cat:z-chcm) :degr -2 (cat:build-mrph :sorc d :trgt (cat:z-chcm) :degr -2
:intr #'(lambda (dmns gmsm) :intr #'(lambda (dmns gmsm)
@ -187,13 +188,17 @@
:strt :gnrt :strt :gnrt
:orgn '(essai-2))) :orgn '(essai-2)))
(cat:gmsm-cocycle (cat:face d) 2 2 7 chml-clss) (cat:gmsm-cocycle (cat:face d) 2 2 7 chml-clss)
(cat:z-cocycle-gbar 2 2 *) (cat:z-cocycle-gbar 2 2 (cat:gmsm-cocycle (cat:face d)
2 2 7 chml-clss))
(cat:gmsm-cocycle (cat:face d) 2 2 0 chml-clss) ;; normally illegal (cat:gmsm-cocycle (cat:face d) 2 2 0 chml-clss) ;; normally illegal
(cat:z-cocycle-gbar 2 2 *) (cat:z-cocycle-gbar 2 2 (cat:gmsm-cocycle (cat:face d)
2 2 0 chml-clss))
(cat:gmsm-cocycle (cat:face d) 2 3 15 chml-clss) (cat:gmsm-cocycle (cat:face d) 2 3 15 chml-clss)
(cat:z-cocycle-gbar 2 3 *) (cat:z-cocycle-gbar 2 3 (cat:gmsm-cocycle (cat:face d)
2 3 15 chml-clss))
(cat:gmsm-cocycle (cat:face d) 2 4 31 chml-clss) (cat:gmsm-cocycle (cat:face d) 2 4 31 chml-clss)
(cat:z-cocycle-gbar 2 4 *) (cat:z-cocycle-gbar 2 4 (cat:gmsm-cocycle (cat:face d)
2 4 31 chml-clss))
(setf chml-clss (setf chml-clss
(cat:build-mrph :sorc d :trgt (cat:z-chcm) :degr -3 (cat:build-mrph :sorc d :trgt (cat:z-chcm) :degr -3
:intr #'(lambda (dmns gmsm) :intr #'(lambda (dmns gmsm)
@ -201,7 +206,8 @@
:strt :gnrt :strt :gnrt
:orgn '(essai-3))) :orgn '(essai-3)))
(cat:gmsm-cocycle (cat:face d) 3 4 31 chml-clss) (cat:gmsm-cocycle (cat:face d) 3 4 31 chml-clss)
(cat:z-cocycle-gbar 3 4 *) (cat:z-cocycle-gbar 3 4 (cat:gmsm-cocycle (cat:face d)
3 4 31 chml-clss))
(setf chml-clss (setf chml-clss
(cat:build-mrph :sorc d :trgt (cat:z-chcm) :degr -3 (cat:build-mrph :sorc d :trgt (cat:z-chcm) :degr -3
:intr #'(lambda (dmns gmsm) :intr #'(lambda (dmns gmsm)
@ -209,4 +215,5 @@
:strt :gnrt :strt :gnrt
:orgn '(essai-33))) :orgn '(essai-33)))
(cat:gmsm-cocycle (cat:face d) 3 4 31 chml-clss) (cat:gmsm-cocycle (cat:face d) 3 4 31 chml-clss)
(cat:z-cocycle-gbar 3 4 *))) (cat:z-cocycle-gbar 3 4 (cat:gmsm-cocycle (cat:face d)
3 4 31 chml-clss))))