8 |
|
|
9 |
(declaim (optimize (safety 3))) |
(declaim (optimize (safety 3))) |
10 |
|
|
11 |
|
(defun eqt (x y) |
12 |
|
"Function like EQ, but guaranteed to return T for true." |
13 |
|
(if (eq x y) t nil)) |
14 |
|
|
15 |
|
(defun notnot (x) (not (not x))) |
16 |
|
|
17 |
(defun make-int-list (n) |
(defun make-int-list (n) |
18 |
(loop for i from 0 to (1- n) collect i)) |
(loop for i from 0 to (1- n) collect i)) |
19 |
|
|
184 |
(defun nextdigit (c) |
(defun nextdigit (c) |
185 |
(cadr (member c '(#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9)))) |
(cadr (member c '(#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9)))) |
186 |
|
|
187 |
(defun is-eq-p (x) #'(lambda (y) (eq x y))) |
(defun is-eq-p (x) #'(lambda (y) (eqt x y))) |
188 |
(defun is-not-eq-p (x) #'(lambda (y) (not (eq x y)))) |
(defun is-not-eq-p (x) #'(lambda (y) (not (eqt x y)))) |
189 |
|
|
190 |
(defun char-invertcase (c) |
(defun char-invertcase (c) |
191 |
(if (upper-case-p c) (char-downcase c) |
(if (upper-case-p c) (char-downcase c) |