screwlisp@praetor @abrudz @ksaj
I have a followup question which I don't already know the answer to: What does this look like in python and apl?
(defun piecemeal-maker-maker (&optional (initial-clauses nil))
(let ((alist initial-clauses))
(lambda (&key view set delete make)
(cond (view (copy-list alist))
(set (copy-list (push set alist)))
(delete (delete delete alist :key 'car :test 'equal))
(make (eval `(lambda (,@Make) (cond ,@alist))))))))
er, it's self-documenting right?
All GNU social JP content and data are available under the