Before implementing import name resolution, then after fic macro imports

bin/tests/lexical_scope.slime

@@ -1,3 +1,5 @@
+;; regular arguments
+
 (define (make-counter)
   (let ((var 0))
     (lambda ()
@@ -5,12 +7,47 @@
       var)))
 
 (define counter1 (make-counter))
+
 (assert (= (counter1) 1))
 
 (define counter2 (make-counter))
+
 (assert (= (counter2) 1))
 
 (assert (= (counter2) 2))
 (assert (= (counter1) 2))
 (assert (= (counter1) 3))
 (assert (= (counter2) 3))
+(assert (= (counter2) 4))
+(assert (= (counter2) 5))
+(assert (= (counter1) 4))
+(assert (= (counter1) 5))
+
+;; key arguments
+
+(define (make-key-counter)
+  ((lambda (:keys var)
+     (lambda ()
+       (mutate var (+ 1 var))
+       var))
+   :var 0))
+
+
+(define key-counter1 (make-key-counter))
+
+(assert (= (key-counter1) 1))
+
+(define key-counter2 (make-key-counter))
+
+(assert (= (key-counter2) 1))
+
+(assert (= (key-counter2) 2))
+(assert (= (key-counter1) 2))
+(assert (= (key-counter1) 3))
+(assert (= (key-counter2) 3))
+(assert (= (key-counter2) 4))
+(assert (= (key-counter2) 5))
+(assert (= (key-counter1) 4))
+(assert (= (key-counter1) 5))
+
+;; rest arguments will no be copied so we don't need to test them here