/[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.3 by pfdietz, Thu Sep 25 01:42:37 2003 UTC revision 1.4 by pfdietz, Thu Sep 25 02:34:30 2003 UTC
# Line 763  Line 763 
763                     (truncate (max (round a) c) (* (* a a) a))))                     (truncate (max (round a) c) (* (* a a) a))))
764     -10 1000)     -10 1000)
765    -1 0)    -1 0)
766    
767    (deftest misc.57
768      (funcall
769       (compile nil '(lambda (a b c)
770                             (declare (type (integer -1907 58388940297) a)
771                                      (type (integer -646968358 294016) b)
772                                      (type (integer -708435313 89383896) c)
773                                      (optimize (speed 3) (safety 1) (debug 1)))
774                             (let ((v6 (abs (min a (signum c)))))
775                                  (if (ceiling v6 (max 77 v6)) b 2))))
776       50005747335 -363030456 17382819)
777      -363030456)
778    

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

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