Blame - lib/lisp/std/list-functions.lisp - bluejay - Git - code.swisschili.sh

blob: a7774015ba07e3bdb2dc4f416e73c509c0960eba [file] [log] [blame]

swissChili	7e1393c	2021-07-07 12:59:12 -0700	[diff] [blame^]	1	(defun mapcar (fun list)
				2	(if list
				3	(cons (funcall fun (car list))
				4	(mapcar fun (cdr list)))
				5	nil))