Method: (P-LENGTH PERSISTENT-CONS)

Source

(defmethod p-length ((list persistent-cons))
  ;; DO: Check for circular lists.
  (let ((result 0))
    (p-mapc (lambda (pair)
              (declare (ignore pair))
              (incf result))
            list)
    result))