/[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.4 by pfdietz, Sun Oct 13 15:53:24 2002 UTC revision 1.5 by pfdietz, Thu Oct 17 13:16:55 2002 UTC
# Line 8  Line 8 
8    
9  (declaim (optimize (safety 3)))  (declaim (optimize (safety 3)))
10    
11    (defun eqt (x y)
12      "Function like EQ, but guaranteed to return T for true."
13      (if (eq x y) t nil))
14    
15    (defun notnot (x) (not (not x)))
16    
17  (defun make-int-list (n)  (defun make-int-list (n)
18    (loop for i from 0 to (1- n) collect i))    (loop for i from 0 to (1- n) collect i))
19    
# Line 178  the condition to go uncaught if it canno Line 184  the condition to go uncaught if it canno
184  (defun nextdigit (c)  (defun nextdigit (c)
185    (cadr (member c '(#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9))))    (cadr (member c '(#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9))))
186    
187  (defun is-eq-p (x) #'(lambda (y) (eq x y)))  (defun is-eq-p (x) #'(lambda (y) (eqt x y)))
188  (defun is-not-eq-p (x) #'(lambda (y) (not (eq x y))))  (defun is-not-eq-p (x) #'(lambda (y) (not (eqt x y))))
189    
190  (defun char-invertcase (c)  (defun char-invertcase (c)
191    (if (upper-case-p c) (char-downcase c)    (if (upper-case-p c) (char-downcase c)

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

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