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

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

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

revision 1.9 by pfdietz, Sat Nov 2 03:55:07 2002 UTC revision 1.10 by pfdietz, Mon Nov 11 00:24:31 2002 UTC
# Line 205  the condition to go uncaught if it canno Line 205  the condition to go uncaught if it canno
205  (defun is-eq-p (x) #'(lambda (y) (eqt x y)))  (defun is-eq-p (x) #'(lambda (y) (eqt x y)))
206  (defun is-not-eq-p (x) #'(lambda (y) (not (eqt x y))))  (defun is-not-eq-p (x) #'(lambda (y) (not (eqt x y))))
207    
208    (defun is-eql-p (x) #'(lambda (y) (eqlt x y)))
209    (defun is-not-eql-p (x) #'(lambda (y) (not (eqlt x y))))
210    
211    (defun onep (x) (eql x 1))
212    
213  (defun char-invertcase (c)  (defun char-invertcase (c)
214    (if (upper-case-p c) (char-downcase c)    (if (upper-case-p c) (char-downcase c)
215      (char-upcase c)))      (char-upcase c)))

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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