Specializing on the second argument to PRINT-OBJECT

Specializing on the second argument to PRINT-OBJECT has unportable
effects,
and also interferes with precomputation of print functions for
exceptional
situations.

kenzo.lisp

@@ -7,7 +7,7 @@
   (values))
 
 ;;(PROCLAIM '(OPTIMIZE (speed 3) (safety 1) (space 0) (debug 0)))
-(DECLAIM '(OPTIMIZE (speed 0) (space 0) (debug 3)))
+(DECLAIM (OPTIMIZE (speed 0) (space 0) (debug 3)))
 
 ;; Don't mess with ANSI's definition of DEFCONSTANT!
 

package.lisp

@@ -7,6 +7,8 @@
 
 	   ;; chain-complexes.lisp
 
+	   ?2
+	   ?3
 	   +TOO-MUCH-TIME+
 	   BUILD-CHCM
 	   BUILD-MRPH

run-kenzo-test.lisp

@@ -0,0 +1,7 @@
+#+sbcl(require 'asdf)
+
+(asdf:operate 'asdf:load-op 'kenzo-test)
+(in-package :kenzo-test)
+(run!)
+
+#+sbcl(sb-ext:exit)

src/effective-homology.lisp

@@ -13,7 +13,7 @@
 
 #+clisp(eval-when (:compile-toplevel :load-toplevel :execute)
          (setf (ext:package-lock :clos) nil))
-(DEFMETHOD PRINT-OBJECT ((rdct reduction) (stream stream))
+(DEFMETHOD PRINT-OBJECT ((rdct reduction) stream)
  (the reduction
    (progn
       (format stream "[K~D Reduction K~D => K~D]"
@@ -182,7 +182,7 @@
 
 #+clisp(eval-when (:compile-toplevel :load-toplevel :execute)
          (setf (ext:package-lock :clos) nil))
-(DEFMETHOD PRINT-OBJECT ((hmeq homotopy-equivalence) (stream stream))
+(DEFMETHOD PRINT-OBJECT ((hmeq homotopy-equivalence) stream)
  (the homotopy-equivalence
    (progn
       (format stream "[K~D Homotopy-Equivalence K~D <= K~D => K~D]"