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

Still preparing for the big shift to property lists.

Browse source
This commit is contained in:
Simon Brooke 2023-04-02 12:57:26 +01:00
parent b61e7c3e8c
commit 50d4b4348e
26 changed files with 435 additions and 445 deletions
Download patch file Download diff file Expand all files Collapse all files

4
resources/lisp1.5.lsp
View file

@ -87,7 +87,9 @@
((NULL X) (QUOTE NIL))
((MEMBER (CAR X) Y) (CONS (CAR X) (INTERSECTION (CDR X) Y)))
((QUOTE T) (INTERSECTION (CDR X) Y))))
(LENGTH LAMBDA (L) (COND ((EQ NIL L) 0) (T (ADD1 (LENGTH (CDR L))))))
(LENGTH
LAMBDA
(L) (COND ((EQ NIL L) 0) ((CONSP (CDR L)) (ADD1 (LENGTH (CDR L)))) (T 0)))
(LESSP)
(MAPLIST LAMBDA (L F) (COND ((NULL L) NIL) ((QUOTE T) (CONS (F (CAR L)) (MAPLIST (CDR L) F)))))
(MEMBER

7
resources/sexpr/length.lsp
View file

@ -1 +1,6 @@
(SETQ LENGTH '(LAMBDA (L) (COND ((EQ NIL L) 0) (T (ADD1 (LENGTH (CDR L)))))))
(SETQ LENGTH
'(LAMBDA (L)
(COND
((EQ NIL L) 0)
((CONSP (CDR L)) (ADD1 (LENGTH (CDR L))))
(T 0))))