> The most common use of LISP macros is to avoid typing lambda quite so much LispWorks CL-USER 1 > (let ((n-macros 0) (n-with-macros 0) (with-macros nil))

> The most common use of LISP macros is to avoid typing lambda quite so much LispWorks CL-USER 1 > (let ((n-macros 0) (n-with-macros 0) (with-macros nil)) (do-all-symbols (s (values n-macros n-with-macros)) (when (macro-function s) (incf n-macros) (let ((name (symbol-name s))) (when (and name (> (length name) 4) (string-equal name "WITH" :start1 0 :end1 4)) (incf n-with-macros) (push s with-macros)))))) 1186 ; macros 182 ; with- macros Note also that (with-slots (a b) foo (+ a b)) is not the same as: (call-with-slots foo '(a b) (lambda (a b) (+ a b)))