The implementation of DELTAB2-DGNL appears to be based on the old internal

representation of TPNR as (:tnpr (degr1.gnrt1).(degr2.gnrt2)). (See page 77
in the Kenzo handbook.) The current internal representation of TPNR is a
structure with slots DEGR1, GNRT1, DEGR2, GNRT2. The implementation has been
modified accordingly.

src/delta.lisp

@@ -259,11 +259,15 @@
 				     (logandc2 gmsm (mask indx))))
 			    rslt)
 		      (when (minusp (decf ldegr))
-			(setf rslt (delete 1 rslt :key #'caaddr))
+			(setf rslt (delete 1 rslt
+					   :key #'(lambda (x)
+						    (degr1 (cdr x)))))
 			(setf (gnrt1 (gnrt (first rslt)))
 			      (setf (gnrt2 (gnrt (car (last rslt))))
 				    1))
-			(return (delete 1 rslt :key #'cadddr)))))))))
+			(return (delete 1 rslt
+					:key #'(lambda (x)
+						 (gnrt1 (cdr x))))))))))))
 
 
 (DEFUN DELTAB2-BNDR (dmns gmsm)

test/delta-test.lisp

@@ -113,17 +113,10 @@
 	(t1 500)))
 
 
-#|
-()
-(dotimes (i 7)
-  (print (deltab2-dgnl i (mask (1+ i)))))
-
 (test deltab2-dgnl
       (dotimes (i 7)
 	(print (cat:deltab2-dgnl i (cat:mask (1+ i))))))
 
-|#
-
 
 (test deltab2-bndr
       (cat:deltab2-bndr 1 5)