Skip to content
Snippets Groups Projects
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
No related branches found
No related tags found
No related merge requests found
...@@ -205,6 +205,11 @@ the condition to go uncaught if it cannot be classified." ...@@ -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-eq-p (x) #'(lambda (y) (eqt x y)))
(defun is-not-eq-p (x) #'(lambda (y) (not (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) (defun char-invertcase (c)
(if (upper-case-p c) (char-downcase c) (if (upper-case-p c) (char-downcase c)
(char-upcase c))) (char-upcase c)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment