Function: CHECK-P-VECTOR

Source

(defun check-p-vector (persistent-array function-name)
  (unless (= 1 (length (p-array-dimensions persistent-array)))
    (error "~S expected a persistent vector instead of ~S."
           function-name
           persistent-array)))