Function Car-Safe

Part of:

package metabang.utilities
( car-safe < x > )
Returns the car of `x' if it's a cons, NIL otherwise.