93 |
always (or (not (characterp x)) |
always (or (not (characterp x)) |
94 |
(if (or (digit-char-p x) (alpha-char-p x)) |
(if (or (digit-char-p x) (alpha-char-p x)) |
95 |
(alphanumericp x) |
(alphanumericp x) |
96 |
(not (alphanumericp x)))))) |
;; The hyperspec has an example that claims alphanumeric == |
97 |
|
;; digit-char-p or alpha-char-p, but the text seems to suggest |
98 |
|
;; that there can be numeric characters for which digit-char-p |
99 |
|
;; returns NIL. Therefore, I've weakened the next line |
100 |
|
;; (not (alphanumericp x)) |
101 |
|
t |
102 |
|
)))) |
103 |
|
|
104 |
(defun alphanumericp.5.body () |
(defun alphanumericp.5.body () |
105 |
(loop for i from 0 below (min 65536 char-code-limit) |
(loop for i from 0 below (min 65536 char-code-limit) |
107 |
always (or (not (characterp x)) |
always (or (not (characterp x)) |
108 |
(if (or (digit-char-p x) (alpha-char-p x)) |
(if (or (digit-char-p x) (alpha-char-p x)) |
109 |
(alphanumericp x) |
(alphanumericp x) |
110 |
(not (alphanumericp x)))))) |
;; The hyperspec has an example that claims alphanumeric == |
111 |
|
;; digit-char-p or alpha-char-p, but the text seems to suggest |
112 |
|
;; that there can be numeric characters for which digit-char-p |
113 |
|
;; returns NIL. Therefore, I've weakened the next line |
114 |
|
;; (not (alphanumericp x)) |
115 |
|
t |
116 |
|
)))) |
117 |
|
|
118 |
(defun digit-char.1.body () |
(defun digit-char.1.body () |
119 |
(loop |
(loop |