simon/post-scarcity
1
0
Fork 0
Code Issues 9 Pull requests Projects Releases Packages Wiki Activity Actions

Fixed a segfault when the system can initialise no more pages.

Browse source 
Still not fixed the `member?` bug.
This commit is contained in:
Simon Brooke 2026-03-18 13:27:19 +00:00
parent 69b199fecd
commit 7d0ce67373
3 changed files with 25 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

28
lisp/member.lisp
View file

@ -1,14 +1,18 @@
(set! nil? (lambda
(o)
"`(nil? object)`: Return `t` if object is `nil`, else `t`."
(= o nil)))
(set! nil? (lambda (o) (= (type o) "NIL ")))
(set! member? (lambda
(item collection)
"`(member? item collection)`: Return `t` if this `item` is a member of this `collection`, else `nil`."
(cond
((nil? collection) nil)
((= item (car collection)) t)
(t (member? item (cdr collection))))))
(set! CDR (lambda (o)
(print (list "in CDR; o is: " o) *log*)
(let ((r . (cdr o)))
(print (list "; returning: " r) *log*)
(println *log*)
(println *log*)
r)))
;; (member? (type member?) '("LMDA" "NLMD"))
(set! member?
(lambda
(item collection)
(print (list "in member?: " 'item item 'collection collection) *log*)(println *log*)
(cond
((nil? collection) nil)
((= item (car collection)) t)
(t (member? item (CDR collection))))))