Commit a25f162e authored by pfdietz's avatar pfdietz
Browse files

A gcl test involving two nested bindings to the same special variable

parent 83a8d535
......@@ -9537,3 +9537,18 @@ Broken at C::WT-MAKE-CLOSURE.
(1+ *s2*)))))
-7111879291)
;;; gcl 29 Dec 2004
;;; Interference of special variable bindings?
(deftest misc.517
(funcall
(compile nil '(lambda ()
(declare (optimize (safety 3) (space 3) (debug 1) (speed 1)
(compilation-speed 0)))
(let* ((*s8* (let ((*s8* (make-array nil :initial-element 0)))
(declare (special *s8*))
(progn (shiftf (aref *s8*) 31508066) 0))
))
(declare (special *s8*))
0))))
0)
\ No newline at end of file
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment