/[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.28 by pfdietz, Thu Oct 30 13:26:09 2003 UTC revision 1.29 by pfdietz, Sat Nov 1 01:17:46 2003 UTC
# Line 1596  Line 1596 
1596    :good)    :good)
1597    
1598    
1599    ;;; clisp optional argument bug: "SYMBOL-VALUE: 1 is not a SYMBOL"
1600    
1601    (deftest misc.126
1602      (funcall
1603       (compile
1604        nil
1605        '(lambda ()
1606           (declare (special *should-always-be-true*))
1607           (labels ((%f10 (f10-1 &optional
1608                                 (f10-2 (cl:handler-bind nil
1609                                                         (if *should-always-be-true*
1610                                                             (progn 878)
1611                                                           (should-never-be-called)
1612                                                           )))
1613                                 (f10-3 (cl:handler-case 10)))
1614                          -15))
1615             (%f10 -144)))))
1616      -15)
1617    
1618    (deftest misc.127
1619      (funcall
1620       (compile
1621        nil
1622        '(lambda (a c)
1623           (flet ((%f10 (f10-1 f10-2) 10))
1624             (flet ((%f4
1625                     (&optional
1626                      (f4-1 (ldb (byte 10 6)
1627                                 (* 828
1628                                    (+ 30 (dpb c (byte 9 30) (%f10 1918433 34107)))
1629                                    )))
1630                      (f4-2 (setq a 0)))
1631                     2))
1632               (%f4 -5)))))
1633       0 0)
1634      2)
1635    

Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29

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