/[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.40 by pfdietz, Mon Nov 10 02:50:12 2003 UTC revision 1.41 by pfdietz, Mon Nov 10 03:52:05 2003 UTC
# Line 2098  Line 2098 
2098     0)     0)
2099    -14)    -14)
2100    
2101    ;;; cmucl (9 Nov 2003)
2102    ;;; The assertion (NOT (MEMBER C::KIND '(:DELETED :OPTIONAL :TOP-LEVEL))) failed.
2103    
2104    (deftest misc.161
2105      (funcall
2106       (compile nil
2107                '(lambda (a b c)
2108                   (flet ((%f17 (f17-1 f17-2 f17-3)
2109                                (flet ((%f2
2110                                        (f2-1 f2-2
2111                                              &optional (f2-3 (return-from %f17 f17-1))
2112                                              (f2-4 (return-from %f17 -57)))
2113                                        b))
2114                                  (multiple-value-call #'%f2 (values c -588 55101157)))))
2115                     (if nil
2116                         (let* ((v6 (%f17 102136 3096194 a)))
2117                           b)
2118                       c))))
2119       -511 -2269809964 250738)
2120      250738)
2121    
2122    ;;; cmucl (9 Nov 2003) Incorrect result at SPEED 0.
2123    
2124    (deftest misc.162
2125      (let* ((fn `(lambda (a c)
2126                    (declare (notinline funcall)
2127                             (optimize (speed 0) (debug 0)))
2128                    (labels ((%f17 (f17-1 &optional (f17-4 c))
2129                                   (return-from %f17 (if f17-4 f17-1 49572640))))
2130                      (funcall #'%f17 15128425 a)))))
2131        (funcall (compile nil fn) 1 3))
2132      15128425)

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

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