不使用COND、IF、WHEN、UNLESS或CASE语句来检查参数类型可能会很困难，因为这些语句是常用的条件语句。不过，我们可以使用其他的方法来实现相同的功能。

一种可能的解决方法是使用类型检查函数来检查参数的类型。下面是一个示例代码，展示了如何使用类型检查函数来检测参数的类型。

(defun check-argument-type (arg expected-type)
  (typecase arg
    (integer (if (typep arg expected-type)
                 t
                 (error "Argument is not of the expected type.")))
    (float (if (typep arg expected-type)
               t
               (error "Argument is not of the expected type.")))
    (string (if (typep arg expected-type)
                t
                (error "Argument is not of the expected type.")))
    (t (error "Argument type is not supported."))))

(defun my-function (arg)
  (check-argument-type arg 'integer)
  ;; 继续执行函数的逻辑
  )

在这个示例中，我们定义了一个check-argument-type函数，它接受两个参数：arg和expected-type。该函数使用typecase语句来检查arg的类型，并根据expected-type来判断是否满足条件。如果参数的类型不符合预期，函数将抛出错误。

在my-function中，我们调用了check-argument-type来检查参数的类型。如果参数的类型不是整数，函数将抛出错误。否则，我们可以继续执行函数的逻辑。

请注意，尽管我们没有使用COND、IF、WHEN、UNLESS或CASE语句，但typecase语句本质上也是一种条件语句。这个解决方法仅仅是为了避免使用所提到的特定条件语句。