current_protocol(Protocol)
Enumerates, by backtracking, all currently defined protocols. All protocols are found, either static, dynamic, or built-in.
current_protocol(?protocol_identifier)
type_error(protocol_identifier, Protocol)
| ?- current_protocol(listp).