/[gcl]/gcl/ansi-tests/char-aux.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/char-aux.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by pfdietz, Fri Dec 20 04:06:06 2002 UTC revision 1.4 by pfdietz, Sat Jan 25 18:54:40 2003 UTC
# Line 93  Line 93 
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)
# Line 101  Line 107 
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

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26