feat: add examples/

TheStalkerDen · TheStalkerDen · commit 6fe7952e37e0 · 2021-09-07T16:46:23.000+03:00
diff --git a/examples/errors/fl1_1.lisp b/examples/errors/fl1_1.lisp
@@ -0,0 +1,19 @@
+;fun k
+(defun k1 () ;good
+  (f 1))
+
+(defun c () 3)
+
+(defun b () 
+   2
+   4
+   (r 1)
+   +4 ;;;hoho
+   7
+   "12 3 4"
+   (r -2)
+   (k 10 (20 89) 30)
+   "12 c"
+   (rata 1)
+   8
+   2)
diff --git a/examples/errors/fl1_2.lisp b/examples/errors/fl1_2.lisp
@@ -0,0 +1,21 @@
+(defun c ()
+   3)
+
+(defun k1 () (f 1))
+
+(defun b ()
+   2
+   4
+   (a 1 2 3)
+   (r 1)
+   4
+   7
+   (k 10 (20 89
+             666)   
+      30
+      (rata 1))
+   "12 c"
+   8
+   2)
+
+(defun c2 () 3)
diff --git a/examples/errors/fl2_1.lisp b/examples/errors/fl2_1.lisp
@@ -0,0 +1,19 @@
+;fun k
+(defun k1 () ;good
+  (f :222 1))
+
+(defun c |243| () 3)
+
+(defun b () 
+   2
+   4
+   (r 1)
+   +4 ;;;hoho
+   7
+   "12 3 4"
+   (r -2)
+   (k 10 (20 89) 30)
+   "12 c
+   (rata 1)
+   8
+   2)
diff --git a/examples/errors/fl2_2.lisp b/examples/errors/fl2_2.lisp
@@ -0,0 +1,21 @@
+(defun c ()
+   3)
+
+(defun k1 () (f 1))
+
+(defun b ()
+   2
+   4
+   (a 1 2 3)
+   (r 1)
+   4
+   7
+   (k 10 (20 89
+             666)   
+      30
+      (rata 1))
+   "12 c"
+   8
+   2)
+
+(defun c2 () 3)
diff --git a/examples/errors/fl3_1.lisp b/examples/errors/fl3_1.lisp
@@ -0,0 +1,19 @@
+;fun k
+(defun k1 () ;good
+  (f :222 1))
+
+(defun c |243| () 3)
+
+(defun b () 
+   2
+   4
+   (r 1)
+   +4 ;;;hoho
+   7
+   "12 3 4"
+   (r -2)
+   (k 10 (20 89) 30)
+   "12 c
+   (rata 1)
+   8
+   2)
diff --git a/examples/errors/fl3_2.lisp b/examples/errors/fl3_2.lisp
@@ -0,0 +1,21 @@
+(defun c ()
+   3)
+
+(defun k1 () (f 1))
+
+(defun b ()
+   2
+   4
+   (a 1 2 3)
+   (r 1)
+   4
+   7
+   (k 10 (20 89
+             |666)
+      30
+      (rata 1||))
+   "12 c"
+   8
+   2)
+
+(defun c2 () 3)
diff --git a/examples/errors/fl4_1.lisp b/examples/errors/fl4_1.lisp
@@ -0,0 +1,19 @@
+;fun k
+(defun k1 () ;good
+  (f 1))
+
+(defun c () 3)
+
+(defun b () 
+   2
+   4
+   (r 1)
+   +4 ;;;hoho
+   7
+   "12 3 4"
+   (r -2)
+   (k 10 (20 89 30)
+   "12 c
+   (rata 1)
+   8
+   2")
diff --git a/examples/errors/fl4_2.lisp b/examples/errors/fl4_2.lisp
@@ -0,0 +1,21 @@
+(defun c ()
+   3)
+
+defun k1 () (f 1))
+
+(defun b ()
+   2
+   4
+   (a 1 2 3)
+   (r 1)
+   4
+   7
+   (k 10 (20 89
+             666)
+      30
+      (rata 1))
+   "12 c"
+   8
+   2)
+
+(defun c2 () 3)
diff --git a/examples/normal/f4_1.lisp b/examples/normal/f4_1.lisp
@@ -0,0 +1,3 @@
+(defun f1 () 
+   (let ((a 2)) 
+     a))
diff --git a/examples/normal/f4_2.lisp b/examples/normal/f4_2.lisp
@@ -0,0 +1,4 @@
+(defun f1 ()
+   (let ((a 2) 
+         (b 3)) 
+        a))
diff --git a/examples/normal/fl1_1.lisp b/examples/normal/fl1_1.lisp
@@ -0,0 +1,19 @@
+;fun k
+(defun k1 () ;good
+  (f 1))
+
+(defun c () 3)
+
+(defun b () 
+   2
+   4
+   (r 1)
+   +4 ;;;hoho
+   7
+   "12 3 4"
+   (r -2)
+   (k 10 (c 89) 30)
+   "12 c"
+   (rata 1)
+   8
+   2)
diff --git a/examples/normal/fl1_2.lisp b/examples/normal/fl1_2.lisp
@@ -0,0 +1,21 @@
+(defun c ()
+   3)
+
+(defun k1 () (f 1))
+
+(defun b ()
+   2
+   4
+   (a 1 2 3)
+   (r 1)
+   4
+   7
+   (k 10 (b 89
+             666)   
+      30
+      (rata 1))
+   "12 c"
+   8
+   2)
+
+(defun c2 () 3)
diff --git a/examples/normal/fl2_1.lisp b/examples/normal/fl2_1.lisp
@@ -0,0 +1,19 @@
+;fun k
+(defun k1 () ;good
+  (f 1))
+
+(defun c () 3)
+
+(defun b () 
+   2
+   4
+   (r 1)
+   +4 ;;;hoho
+   'a
+   "12 3 4"
+   (r -2)
+   (k 10 (c 89) 30)
+   "12 c"
+   (rata 1)
+   8
+   2)
diff --git a/examples/normal/fl2_2.lisp b/examples/normal/fl2_2.lisp
@@ -0,0 +1,22 @@
+(defun c ()
+   3)
+
+(defun k1 () (f 1))
+
+(defun b ()
+   2
+   4
+   (a 1 2 3)
+   (r 1)
+   4
+   7
+   'a
+   (k 10 (b 89
+             666)   
+      30
+      (rata 1))
+   "12 c"
+   8
+   2)
+
+(defun c2 () 3)
diff --git a/examples/normal/fl3_1.lisp b/examples/normal/fl3_1.lisp
@@ -0,0 +1,17 @@
+;fun k
+(defun k1 ()
+  (f 1))
+
+(defun c () (* 2 2))
+
+(defun b () 
+   (f 2)
+   (let ((a 6)
+         (b 9))
+        (if (* a b)
+            (k1)
+            (fun2 123)))
+  (f 3)
+  (c)
+  (when (atom 1)
+    (print "Good day!")))
diff --git a/examples/normal/fl3_2.lisp b/examples/normal/fl3_2.lisp
@@ -0,0 +1,18 @@
+;fun k
+(defun k1 ()
+  (f 1))
+
+(defun c () (* 2 2))
+
+(defun b () 
+   (r 1)
+   (let ((a 6)
+         (b 9))
+        (f 2)
+        (if (* a b)
+            (k1)
+            (fun2 123)
+        (f 3)))
+  (when (atom 1)
+    (print "Good day!")
+  (d 2)))
diff --git a/examples/normal/fl5_1.lisp b/examples/normal/fl5_1.lisp
@@ -0,0 +1,21 @@
+(defun k1 ()
+  (f 1))
+
+;fun c
+(defun c () (* 2 2))
+
+(defun del-func (v) v)
+
+(defun b ()
+   (d 9) 
+   (wrap1 (f 2))
+   (let ((a 6)
+         (b 9)
+         (c 12))
+        (if (* a b)
+            (k1)
+            (fun2 123)))
+  (f 3)
+  (c)
+  (when (atom 1)
+    (print "Good day!")))
diff --git a/examples/normal/fl5_2.lisp b/examples/normal/fl5_2.lisp
@@ -0,0 +1,25 @@
+;fun k1
+(defun k1 ()
+  (f 1))
+
+(defun c () (* 2 2))
+
+(defparameter par-1 1)
+
+(defun b () 
+   (r 1)
+   (let ((d 9)
+     (a 6)
+         (b 9))
+        (z (f 2))
+        (if (* a b)
+            (k1)
+            (fun2 123))
+        (f 3))
+  (wrapper1
+    (wrapper2
+      (when (atom 1)
+        (print "Good day!"))))
+  (d 2))
+
+  (defun new-func (a) a)
diff --git a/examples/normal/fl6_1.lisp b/examples/normal/fl6_1.lisp
@@ -0,0 +1,23 @@
+(defun k1 ()
+  (f 1))
+
+;fun c
+(defun c () (* 2 2))
+
+(defun del-func (v) v)
+
+(defparameter par-1 1)
+
+(defun b ()
+   (d 9) 
+   (wrap1 (f 2))
+   (let ((a 6)
+         (b 9)
+         (c 12))
+        (if (* a b)
+            (k1)
+            (fun2 123)))
+  (f 3)
+  (c)
+  (when (atom 1)
+    (print "Good day!")))
diff --git a/examples/normal/fl6_2.lisp b/examples/normal/fl6_2.lisp

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+(defun f1 ()`
	`2`	`+ (let ((a 2))`
	`3`	`+ a))`
-Original file line number
+Diff line change
@@ @@ -0,0 +1,4 @@ @@
 +(defun f1 ()
 +   (let ((a 2)
 +         (b 3))
 +        a))