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

#7: Progress! No longer breaking!

Browse source 
Bug is now probably in the implementation of CONC rather than in EVAL.
This commit is contained in:
Simon Brooke 2023-04-16 10:51:17 +01:00
parent d2ce61e6a7
commit d563f390c1
No known key found for this signature in database
GPG key ID: A7A4F18D1D4DF987
4 changed files with 111 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

13
resources/sexpr/select.lsp Normal file
View file

@ -0,0 +1,13 @@
;; Bottom of page 66
(PUT 'SELECT 'FEXPR
'(LABEL FORM
(PROG (Q BODY)
(SETQ Q (EVAL (CAR FORM))) ;; not sure that Q should be evaled.
(SETQ BODY (CDR FORM))
LOOP
(COND
((EQ NIL (CDR BODY)) (RETURN (CAR BODY)))
((EQ Q (EVAL (CAAR BODY))) (RETURN (CDAR BODY))))
(SETQ BODY (CDR BODY))
(GO LOOP))))