anchor.diff:      (limits)))
   
   (defmethod inspect-object-using-state ((object integer)
  -                                       (state  inspected-object)
  +                                       (state  inspected-integer)
                                          (style  (eql :expanded-body))
                                          (stream t))
     (formatting-table (stream)
  
positive.code: ;;;; Boston, MA  02111-1307  USA.
  
  (cl:in-package #:clouseau)
  
  ;;; Object inspection methods
  
  
negative.code:       (format-place-cells stream object 'reader-place 'integer-length
                            :label "Length (bits)")
        (format-place-cells stream object 'reader-place 'logcount
                            :label "Hamming weight"))
  
      ;; Prime factors.
      (unless (<= -3 object 3)
        (formatting-row (stream)
          (with-style (stream :slot-like)
            (formatting-cell (stream) (write-string "Factors" stream))
            (formatting-cell (stream) (declare (ignore stream))))
          (formatting-cell (stream)
            (with-placeholder-if-emtpy (stream)
              ((not (prime-factors-p state))
               "Cowardly refusing to compute prime factors")
              (t
               ;; Print prime factors with exponents. Avoid offsetting
               ;; the whole line if all exponents are 1.
               (let ((factors (prime-factors (abs object))))
                 (flet ((print-factors (&optional sup)
                          (when (minusp object)
                            (write-string "-1 × " stream))
                          (loop for ((factor . exponent) . rest) on factors
                                do (princ factor stream)
                                   (unless (= exponent 1)
                                     (funcall sup (curry #'princ exponent)))
                                   (when rest (write-string " × " stream)))))
                   (if (find 1 factors :test #'/= :key #'cdr)
                       (call-with-superscript #'print-factors stream)
                       (print-factors)))))))))))
  
  (defmethod inspect-object-using-state ((object ratio)
                                         (state  inspected-object)
  