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

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

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

revision 1.37 by pfdietz, Wed Nov 5 13:47:31 2003 UTC revision 1.38 by pfdietz, Fri Nov 7 11:06:49 2003 UTC
# Line 2051  Line 2051 
2051     17)     17)
2052    17)    17)
2053    
2054    ;;; SBCL (0.8.5.24) bug:  "bogus operands to XOR"
2055    
2056    (deftest misc.158
2057      (funcall
2058       (compile nil
2059                '(lambda (a b c)
2060                   (declare (type (integer 79828 2625480458) a))
2061                   (declare (type (integer -4363283 8171697) b))
2062                   (declare (type (integer -301 0) c))
2063                   (if (equal 6392154 (logxor a b))
2064                       1706
2065                     (let ((v5 (abs c)))
2066                       (logand v5
2067                               (logior (logandc2 c v5)
2068                                       (common-lisp:handler-case
2069                                        (ash a (min 36 22477)))))))))
2070       100000 0 0)
2071      0)

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38

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