Code: Select all
(defun add ()
...(let ((sum 0) next)
......(loop
.........(setq next (read))
.........(cond ((numberp next) (incf sum next))
............(eq '= next) (print sum) (return))
............(t (format t "~&~a ignored~%" next))))
.......(values)))
(let (bindings) forms)
where (bindings) is any number of two-element lists:
Code: Select all
(let ((a 0)
(b 1))
(form))
does not seem to follow that rule
(BTW: How do I write lisp code here so that it is nicelfy formatted --- sorry - haven't had a chance to read the FAQ yet -- I will)