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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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))

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

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