Cyc_eq Cyc_has_cycle Cyc_is_bignum Cyc_is_boolean Cyc_is_bytevector Cyc_is_char Cyc_is_complex Cyc_is_cond_var Cyc_is_cvar Cyc_is_eof_object Cyc_is_fixnum Cyc_is_integer Cyc_is_macro Cyc_is_mutex Cyc_is_null Cyc_is_number Cyc_is_opaque Cyc_is_pair Cyc_is_port Cyc_is_procedure Cyc_is_real Cyc_is_string Cyc_is_symbol Cyc_is_vector equal equalp

#define Cyc_is_port (   o )    (make_boolean(is_object_type(o) && ((list) o)->tag == port_tag))