35 |
(cond |
(cond |
36 |
((null args) t) |
((null args) t) |
37 |
((car args) |
((car args) |
38 |
(every #'identity (cdr args))) |
(loop for e in (cdr args) always e)) |
39 |
(t (every #'not (cdr args))))) |
(t (loop for e in (cdr args) never e)))) |
40 |
|
|
41 |
;;; From character.lsp |
;;; From character.lsp |
42 |
(defun char-type-error-check (fn) |
(defun char-type-error-check (fn) |
86 |
(loop for x in *universe* |
(loop for x in *universe* |
87 |
always (let ((p (characterp x)) |
always (let ((p (characterp x)) |
88 |
(q (typep x 'character))) |
(q (typep x 'character))) |
89 |
(if p (not (not q)) (not q))))) |
(if p (notnot q) (not q))))) |
90 |
|
|
91 |
(defun alphanumericp.4.body () |
(defun alphanumericp.4.body () |
92 |
(loop for x in *universe* |
(loop for x in *universe* |