isString :: [LispVal] -> ThrowsError LispVal
isString [String _] = return $ Bool True
isString :: [LispVal] -> ThrowsError LispVal
isString [String _] = return $ Bool True
isString [String _] = return $ Bool True