From 32a1c8b32efe22d957539b94c0dd69d202e34754 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sun, 17 Aug 2008 22:04:39 +0200
Subject: init.lisp: Test SETQ.

---
 init.lisp | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'init.lisp')

diff --git a/init.lisp b/init.lisp
index 90a4911..8114103 100644
--- a/init.lisp
+++ b/init.lisp
@@ -43,6 +43,14 @@
 (ns-log (test9 1 2 3))
 (%fset 'test10 (compile '(sys::%lambda args (cons 1 2))))
 (ns-log (test10))
+(%fset 'test11 (compile '(sys::%lambda args
+                           (let ((x 'outer))
+                             (let ((x 'inner))
+                               (ns-log x)
+                               (setq x 'new-inner)
+                               (ns-log x))
+                             (ns-log x)))))
+(test11)
 
 ;; (load "util.lisp")
 ;; (load "defun-0.lisp")
-- 
cgit v1.2.3