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

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

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

revision 1.1 by pfdietz, Tue Sep 9 12:14:04 2003 UTC revision 1.2 by pfdietz, Tue Sep 9 13:31:41 2003 UTC
# Line 61  Line 61 
61    (notnot-mv (logbitp (1+ most-positive-fixnum) -1))    (notnot-mv (logbitp (1+ most-positive-fixnum) -1))
62    t)    t)
63    
64    (deftest logbitp.7
65      (loop for len = (random 100)
66            for i = (random-from-interval (ash 1 len))
67            for k = (random (1+ len))
68            repeat 1000
69            unless (if (ldb-test (byte 1 k) i)
70                       (logbitp k i)
71                     (not (logbitp k i)))
72            collect (list i k))
73      nil)
74    
75    (deftest logbitp.8
76      (loop for k from 1 to 1000
77            always (logbitp k -1))
78      t)
79    
80  (deftest logbitp.order.1  (deftest logbitp.order.1
81    (let ((i 0) a b)    (let ((i 0) a b)
82      (values      (values

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