12 lines
229 B
Common Lisp
12 lines
229 B
Common Lisp
;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
|
|
|
|
(in-package :kenzo-test)
|
|
|
|
(in-suite :kenzo)
|
|
|
|
(test homology
|
|
(progn
|
|
(cat:cat-init)
|
|
(let ((d (cat:delta 3)))
|
|
(princ (cat:homology d 0)))))
|