/[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.17 by pfdietz, Sat Oct 25 20:06:58 2003 UTC revision 1.18 by pfdietz, Sat Oct 25 22:12:27 2003 UTC
# Line 1314  Line 1314 
1314                           b)))))                           b)))))
1315     2950453607 -4)     2950453607 -4)
1316    -815145134)    -815145134)
1317    
1318    ;;; Gives the error The value NIL is not of type INTEGER.  (in sbcl 0.8.4.40)
1319    
1320    (deftest misc.106
1321      (progn
1322        (eval '(defun misc.106-fn (a b c)
1323                 (declare (optimize speed))
1324                 (block b6
1325                   (flet ((%f8 (f8-1 f8-2) b))
1326                     (%f8 (%f8 c 338) (if t (return-from b6 a) c))))))
1327        (misc.106-fn -30271 -1 -3043))
1328      -30271)
1329    
1330        
1331    

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

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