[Gcl-devel] Bug found in random tester involving nest bindings of the same special variable

[Paul F. Dietz]

See misc.517:

(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)

(causes a type error instead)

        Paul