;; but it's better than nothing -wcp10/4/10.
#+(and sbcl #.(cl:if (cl:and (cl:find-package :sb-pcl)
(cl:find-symbol "%TYPE-CHECK-FUNCTION" :sb-pcl))
;; but it's better than nothing -wcp10/4/10.
#+(and sbcl #.(cl:if (cl:and (cl:find-package :sb-pcl)
(cl:find-symbol "%TYPE-CHECK-FUNCTION" :sb-pcl))