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

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

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

revision 1.1 by pfdietz, Sun Sep 7 15:19:30 2003 UTC revision 1.2 by pfdietz, Tue Sep 23 01:01:34 2003 UTC
# Line 54  Line 54 
54            always (eql (floor (* i (expt 2 s))) ishifted)))            always (eql (floor (* i (expt 2 s))) ishifted)))
55    t)    t)
56    
57    (deftest ash.4
58      (loop for i from -1 to -1000
59            always (eql (ash i i) -1))
60      t)
61    
62    (deftest ash.5
63      (loop for i from 1 to 100
64            for j = (- (ash 1 i))
65            always (eql (ash j j) -1))
66      t)
67    
68  (deftest ash.order.1  (deftest ash.order.1
69    (let ((i 0) x y)    (let ((i 0) x y)
70      (values (ash (progn (setf x (incf i)) 1)      (values (ash (progn (setf x (incf i)) 1)

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