view test3.lisp @ 0:81137f478b5c

initial examples and some of my own functions/macros
author Lewin Bormann <lbo@spheniscida.de>
date Fri, 04 Oct 2019 11:49:00 +0200
parents
children a3dca97e5f3b
line wrap: on
line source

;; syntax test

(load "~/dev/lisp/lists.lisp")

(print (my-foldl
	(lambda (a x) (+ a (* x 2)))
	0
	(my-range 0 10000001)))