pred-test.lisp 128 Bytes
Newer Older
ram's avatar
ram committed
1 2 3 4 5 6 7 8 9
;;; -*- Package: C -*-
(in-package 'c)

(defun sequence-test (x)
  (typep x 'sequence))

(defun bit-test (x)
  (typep x 'bit))