205 |
(defun is-eq-p (x) #'(lambda (y) (eqt x y))) |
(defun is-eq-p (x) #'(lambda (y) (eqt x y))) |
206 |
(defun is-not-eq-p (x) #'(lambda (y) (not (eqt x y)))) |
(defun is-not-eq-p (x) #'(lambda (y) (not (eqt x y)))) |
207 |
|
|
208 |
|
(defun is-eql-p (x) #'(lambda (y) (eqlt x y))) |
209 |
|
(defun is-not-eql-p (x) #'(lambda (y) (not (eqlt x y)))) |
210 |
|
|
211 |
|
(defun onep (x) (eql x 1)) |
212 |
|
|
213 |
(defun char-invertcase (c) |
(defun char-invertcase (c) |
214 |
(if (upper-case-p c) (char-downcase c) |
(if (upper-case-p c) (char-downcase c) |
215 |
(char-upcase c))) |
(char-upcase c))) |