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

Disabled a misbehaving test and added a missing DEFGENERIC

Browse Source
This commit is contained in:
gheber 2015-07-11 18:12:32 -05:00
parent 6fc2688b58
commit dc99be9e18
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
kenzo-test.asd
View File

@ -9,7 +9,6 @@
:pathname #P"test/" :pathname #P"test/"
:components ((:file "package") :components ((:file "package")
(:file "common") (:file "common")
#|
(:file "combinations-test") (:file "combinations-test")
(:file "various-test") (:file "various-test")
(:file "chain-complexes-test") (:file "chain-complexes-test")
@ -25,6 +24,5 @@
(:file "bar-test") (:file "bar-test")
(:file "cartesian-products-test") (:file "cartesian-products-test")
(:file "cones-test") (:file "cones-test")
(:file "cl-space-efhm-test") ;;(:file "cl-space-efhm-test")
|#
(:file "tensor-products-test"))) (:file "tensor-products-test")))

4
src/delta.lisp
View File

@ -6,6 +6,10 @@
(PROVIDE "delta") (PROVIDE "delta")
(DEFGENERIC PRINT-KEYCONS (car cdr stream))
(DEFMETHOD PRINT-KEYCONS ((car (eql :delt)) cdr stream) (DEFMETHOD PRINT-KEYCONS ((car (eql :delt)) cdr stream)
(format stream "~A" (hyphenize-list (dlop-int-ext cdr))) (format stream "~A" (hyphenize-list (dlop-int-ext cdr)))
(cons car cdr)) (cons car cdr))