upscheme/femtolisp/wt.lsp

(setq i 0)
(defmacro while- (test . forms)
  `((label -loop- (lambda ()
                    (if ,test
                        (progn ,@forms
                               (-loop-))
                      nil)))))
(while (< i 10000000) (setq i (+ i 1)))
import femtolisp source 2008-06-30 21:54:22 -04:00			`(setq i 0)`
			`(defmacro while- (test . forms)`
			`((label -loop- (lambda ()
			`(if ,test`
			`(progn ,@forms`
			`(-loop-))`
			`nil)))))`
I decided it was rather random that set was the only function that could access the current environment dynamically. It also differed unnecessarily from common lisp set in this respect. So now setq is a builtin special form that sets lexical or global variables, and set is a function that sets global variables. Rather than eliminate the power of the dynamic set, I extended it by adding eval*, which evaluates its argument in the current environment. The justification for this is that the interpreter is already dynamic enough to allow it with no overhead, so the ability might as well be exposed. cleanup; removing some magic numbers beginning hash tables 2008-09-06 18:19:51 -04:00			`(while (< i 10000000) (setq i (+ i 1)))`