defmacro added, doc improvements

debug.lsp

@@ -1,3 +1,13 @@
-(def l '(nil 1 2 3))
-(print (filter (lambda (e) (eval e)) l))
-(print (filter (lambda (eval e) (print e)) l))
+
+(defn concat-lists (seq1 seq2)
+	(do	(def l seq1)
+		(dotimes i (len seq2) 
+			(set! l (push l (index seq2 i))))
+	))
+
+(print (concat-lists '(1 2 3) '(4 5 6)))
+;; (1 2 3 4 5 6)
+
+; pridat example
+; >>> (doc::man "push")
+; (push list element) - Add an item to the end of a list