Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Thu Sep 26 16:53:37 2002 UTC | revision 1.2 by pfdietz, Tue Oct 1 12:40:26 2002 UTC | |
---|---|---|
# | Line 143 condition itself on other errors." | Line 143 condition itself on other errors." |
143 | ||
144 | (defun is-eq-p (x) #'(lambda (y) (eq x y))) | (defun is-eq-p (x) #'(lambda (y) (eq x y))) |
145 | (defun is-not-eq-p (x) #'(lambda (y) (not (eq x y)))) | (defun is-not-eq-p (x) #'(lambda (y) (not (eq x y)))) |
146 | ||
147 | (defun char-invertcase (c) | |
148 | (if (upper-case-p c) (char-downcase c) | |
149 | (char-upcase c))) | |
150 | ||
151 | (defun string-invertcase (s) | |
152 | (map 'string #'char-invertcase s)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |