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

Very close to working FSUBRs - but not quite there.

Browse source
This commit is contained in:
Simon Brooke 2023-04-12 09:04:44 +01:00
parent 7c4d3668a8
commit e9406d5574
6 changed files with 126 additions and 52 deletions
Download patch file Download diff file Expand all files Collapse all files

8
resources/sexpr/conc.lsp
View file

@ -1 +1,7 @@
;; TODO
;; This isn't working but it's really not far off.
(PUT 'CONC 'FEXPR
;; possibly ARGS should be (ARGS)...
'(LABEL ARGS
(COND ((COND ((ONEP (LENGTH ARGS)) ARGS)
(T (ATTRIB (CAR ARGS) (APPLY CONC (CDR ARGS) NIL)))) ARGS))))