simon/beowulf
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

That's probably the new property list functions done...

Browse source 
but too tired to test!
This commit is contained in:
Simon Brooke 2023-04-04 21:20:29 +01:00
parent 31d8f0b8f9
commit 64a27be8e5
4 changed files with 284 additions and 210 deletions
Download patch file Download diff file Expand all files Collapse all files

9
resources/lisp1.5.lsp
View file

@ -147,4 +147,11 @@
((ATOM Z) Z)
((QUOTE T) (CONS (SUBST X Y (CAR Z)) (SUBST X Y (CDR Z))))))
(SYSIN)
(SYSOUT) (TERPRI) (TIMES) (TRACE) (UNTRACE) (ZEROP LAMBDA (N) (EQ N 0)))
(SYSOUT) (TERPRI) (TIMES) (TRACE)
(UNION LAMBDA (X Y)
(COND
((NULL X) Y)
((MEMBER (CAR X) Y) (UNION (CDR X) Y))
(T (CONS (CAR X) (UNION (CDR X) Y)))))
(UNTRACE)
(ZEROP LAMBDA (N) (EQ N 0)))