Initial commit - fix problems & refactor code

examples/class.lsp

@@ -0,0 +1,20 @@
+; (def endl "
+; ")
+
+(def acc-class
+  (lambda ()
+    (do
+      (def get '(lambda () val))
+      (def add
+        '(lambda (delta)
+          (do
+            (set! val (+ val delta))
+            val)))
+      (def sub
+        '(lambda (delta)
+          (do
+            (def new (- val delta))
+            (if (< new 0) (print (++ "аяяй" endl)) (set val new))
+            val)))
+      (def acc-constructor (lambda (val) (lambda (method) (eval (eval method)))))
+      acc-constructor)))