Skip to content
Snippets Groups Projects
Commit 10afe02c authored by pfdietz's avatar pfdietz
Browse files

Added two clisp bugs and a new cmucl bug.

parent 64f0fa4c
No related branches found
No related tags found
No related merge requests found
...@@ -1068,3 +1068,26 @@ ...@@ -1068,3 +1068,26 @@
156))) 156)))
0) 0)
156) 156)
;;; Two tests showing bug(s) in clisp (2.31)
(deftest misc.86
(funcall (compile nil '(lambda (b)
(flet ((%f10 nil :bad))
(let ((v7 (let ((v2 (%f10))) b)))
(unwind-protect b)))))
:good)
:good)
(deftest misc.87
(apply (compile nil '(lambda (a b c)
(let ((v9 a))
(let ((v2 (setq v9 c)))
(unwind-protect c)))))
'(x y z))
z)
(deftest misc.88
(eval '(block b3
(max (return-from b3 1)
(if (unwind-protect (unwind-protect 2)) 3 4))))
1)
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment