/[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.12 by pfdietz, Mon Oct 13 13:01:27 2003 UTC revision 1.13 by pfdietz, Fri Oct 17 02:53:19 2003 UTC
# Line 1068  Line 1068 
1068                       156)))                       156)))
1069     0)     0)
1070    156)    156)
1071    
1072    ;;; Two tests showing bug(s) in clisp (2.31)
1073    (deftest misc.86
1074      (funcall (compile nil '(lambda (b)
1075                               (flet ((%f10 nil :bad))
1076                                 (let ((v7 (let ((v2 (%f10))) b)))
1077                                   (unwind-protect b)))))
1078               :good)
1079      :good)
1080    
1081    (deftest misc.87
1082      (apply (compile nil '(lambda (a b c)
1083                             (let ((v9 a))
1084                               (let ((v2 (setq v9 c)))
1085                                 (unwind-protect c)))))
1086             '(x y z))
1087      z)
1088    
1089    (deftest misc.88
1090      (eval '(block b3
1091               (max (return-from b3 1)
1092                    (if (unwind-protect (unwind-protect 2)) 3 4))))
1093      1)

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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