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

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

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

revision 1.1 by pfdietz, Tue Sep 9 11:55:16 2003 UTC revision 1.2 by pfdietz, Wed Sep 10 12:25:08 2003 UTC
# Line 73  Line 73 
73          for args = (nconc (make-list (1- i) :initial-element -1)          for args = (nconc (make-list (1- i) :initial-element -1)
74                            (list 183))                            (list 183))
75          always (eql (apply #'logand args) 183))          always (eql (apply #'logand args) 183))
76    t)        t)
77    
78    (deftest logand.9
79      (loop for i from -1 to 0 always
80            (loop for j from -1 to 0 always
81                  (locally (declare (type (integer -1 0) i j))
82                           (eql (logand i j) (if (or (zerop i) (zerop j)) 0 -1)))))
83      t)
84    
85  (deftest logand.order.1  (deftest logand.order.1
86    (let ((i 0) a b)    (let ((i 0) a b)

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