set-pprint-dispatch类型说明符和函数之间的额外参数？

Question

我想我现在已经了解http://clhs.lisp.se/Body/22_bb.htm的大部分内容，除了：

(set-pprint-dispatch '(cons (member quote)) () 
   #'(lambda (s list)
       (if (and (consp (cdr list)) (null (cddr list)))
          (funcall (formatter "'~W") s (cadr list))
          (pprint-fill s list))))

具体来说，第一行的末尾()。根据上页的http://clhs.lisp.se/Body/f_set_pp.htm#set-pprint-dispatch和其他用法，set-pprint-dispatch的前两个参数应该是类型说明符和函数，但是此示例之间有()；如果不是错字，那我误会了一些潜在的重要内容。那它在做什么？