Another update from ingydotnet^djgoku

Task/Associative-array-Iteration/TXR/associative-array-iteration.txr

@@ -1,6 +1,8 @@
-@(do (defvar *h* (make-hash nil nil nil))
-     (each ((k '(a b c))
-            (v '(1 2 3)))
-       (set [*h* k nil] v))
-     (dohash (k v *h*)
-       (format t "~a -> ~a\n" k v))))
+(defvarl h (hash))
+
+(each ((k '(a b c))
+       (v '(1 2 3)))
+  (set [h k] v))
+
+(dohash (k v h)
+  (put-line `@k -> @v`))