Ensure reasonable lisp type for slot in compute-lisp-type-from-specified-type