/[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.2 by pfdietz, Wed Nov 27 04:22:36 2002 UTC revision 1.3 by pfdietz, Fri Dec 20 04:06:06 2002 UTC
# Line 35  Line 35 
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)
# Line 86  Line 86 
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*

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

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