(defun alpha-char-p (x)
(or (<= (char-code #\a) (char-code x) (char-code #\z))
- (<= (char-code #\Z) (char-code x) (char-code #\Z))))
+ (<= (char-code #\A) (char-code x) (char-code #\Z))))
(defun digit-char-p (x)
(if (and (<= (char-code #\0) (char-code x) (char-code #\9)))
(equal (cdr x) (cdr y))))
((stringp x)
(and (stringp y) (string= x y)))
- ((arrayp x)
- (let ((n (length x)))
- (and (arrayp y)
- (eql n (length y))
- (do ((i 0 (1+ i)))
- ((or (= i n)
- (not (equal (aref x i) (aref y i))))
- (= i n))))))
(t nil)))
(defun fdefinition (x)