/[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.39 by pfdietz, Fri Nov 7 12:16:51 2003 UTC revision 1.40 by pfdietz, Mon Nov 10 02:50:12 2003 UTC
# Line 2084  Line 2084 
2084                           (multiple-value-call #'%f9 (values v2 v2))))                           (multiple-value-call #'%f9 (values v2 v2))))
2085                     100)))))                     100)))))
2086    100)    100)
2087    
2088    ;;; gcl (9 Nov 2003) bug
2089    ;;; Error in FUNCALL [or a callee]: Caught fatal error [memory may be damaged]
2090    
2091    (deftest misc.160
2092      (funcall
2093       (compile nil
2094                '(lambda (c)
2095                   (declare (notinline + funcall))
2096                   (+ (labels ((%f1 () -14)) (funcall #'%f1))
2097                      (flet ((%f2 () (floor c))) (funcall #'%f2)))))
2098       0)
2099      -14)
2100    

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40

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