Commit 2eb6491b authored by pfdietz's avatar pfdietz
Browse files

Added IS-EQL-P, IS-NOT-EQL-P, ONEP (used in various sequence tests.)

parent aa50b824
......@@ -205,6 +205,11 @@ the condition to go uncaught if it cannot be classified."
(defun is-eq-p (x) #'(lambda (y) (eqt x y)))
(defun is-not-eq-p (x) #'(lambda (y) (not (eqt x y))))
(defun is-eql-p (x) #'(lambda (y) (eqlt x y)))
(defun is-not-eql-p (x) #'(lambda (y) (not (eqlt x y))))
(defun onep (x) (eql x 1))
(defun char-invertcase (c)
(if (upper-case-p c) (char-downcase c)
(char-upcase c)))
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment