(when (slot-boundp mc 'port) (port mc))
(when (and (slot-boundp mc 'memcached-server-storage-size)
(numberp (slot-value mc 'memcached-server-storage-size)))
(when (slot-boundp mc 'port) (port mc))
(when (and (slot-boundp mc 'memcached-server-storage-size)
(numberp (slot-value mc 'memcached-server-storage-size)))