/[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.57 by pfdietz, Tue Nov 18 05:06:18 2003 UTC revision 1.58 by pfdietz, Tue Nov 18 13:48:43 2003 UTC
# Line 3185  Line 3185 
3185     0 0 0)     0 0 0)
3186    0)    0)
3187    
3188    ;;; acl 6.2 (trial, x86)
3189    ;;; Returns incorrect value
3190    
3191    (deftest misc.192
3192      (funcall
3193       (compile
3194        nil
3195        '(lambda (a b)
3196           (declare (optimize (speed 3)))
3197           (declare (optimize (safety 1)))
3198           (declare (optimize (debug 1)))
3199           (flet ((%f8 (f8-1 f8-2 f8-3) f8-2))
3200             (catch 'ct6 (%f8 0 b (catch 'ct6 (throw 'ct6 a)))))))
3201       1 2)
3202      2)
3203    
3204    
3205      

Legend:
Removed from v.1.57  
changed lines
  Added in v.1.58

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