lisp:定义非符号的必需参数

在将遗留代码从clisp移植到sbcl时,我遇到了语法问题,这段代码在clisp中运行时没有明显错误:

(defun foo ((alpha integer))
  (princ (type-of alpha))
  (princ " ")
  (prin1 alpha)
  (terpri))
(foo 3)
(foo 3.5)
(foo (list "beta" "gamma" "delta"))
;;; output follows ;;;
(INTEGER 0 281474976710655) 3
SINGLE-FLOAT 3.5
CONS ("beta" "gamma" "delta")

integer

#'foo ,投诉:

Required argument is not a symbol: (ALPHA INTEGER)

具体目的是什么 在这里这两种行为中哪一种符合标准?

编辑:

所讨论的遗留代码是某种(古老的)类型 cl-lex ,但不是 this one .