;;; FIXME: This probably belongs in SB-INT instead of SB-KERNEL.
;;; And couldn't it be limited to FIXNUM arguments?
(defun positive-primep (x)
;;; FIXME: This probably belongs in SB-INT instead of SB-KERNEL.
;;; And couldn't it be limited to FIXNUM arguments?
(defun positive-primep (x)