23 lines
181 B
Text
23 lines
181 B
Text
; 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]
|