Data commit

Task/Stack/XLISP/stack-1.l

@@ -0,0 +1,17 @@
+(define-class stack
+    (instance-variables vals))
+
+(define-method (stack 'initialize)
+    (setq vals '())
+    self)
+
+(define-method (stack 'push x)
+    (setq vals (cons x vals)))
+
+(define-method (stack 'pop)
+    (define tos (car vals))
+    (setq vals (cdr vals))
+    tos)
+
+(define-method (stack 'emptyp)
+    (null vals))

Task/Stack/XLISP/stack-2.l

@@ -0,0 +1,23 @@
+; Loading 'stack.lsp'
+[1] (define st (stack 'new))
+
+ST
+[2] (st 'push 1)
+
+(1)
+[3] (st 'push 2)
+
+(2 1)
+[4] (st 'emptyp)
+
+()
+[5] (st 'pop)
+
+2
+[6] (st 'pop)
+
+1
+[7] (st 'emptyp)
+
+#T
+[8]