aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--macros.lisp18
1 files changed, 9 insertions, 9 deletions
diff --git a/macros.lisp b/macros.lisp
index cee6eb5..cc8a54c 100644
--- a/macros.lisp
+++ b/macros.lisp
@@ -4,7 +4,7 @@
(defun is-substitute-var (symbol)
(and (symbolp symbol)
(eq (elt (symbol-name symbol) 0)
- #\_))))
+ #\$))))
@@ -19,22 +19,22 @@ A function is returned, it accepts exactly the number of variables as
there were unique blanks in the expression. When calling the new
function, the variables are bound in the order they appeared in EXPR.
-> (macroexpand-1 '($ (+ _a (* _b 3) _b (- _a _c) 10)))
- (LAMBDA (_A _B _C)
- (+ _A
- (* _B 3)
- _B
- (- _A _C)
+> (macroexpand-1 '($ (+ $a (* $b 3) $b (- $a $c) 10)))
+ (LAMBDA ($A $B $C)
+ (+ $A
+ (* $B 3)
+ $B
+ (- $A $C)
10))
The macro is useful for succinctly passing functions to
higher order functions:
-> (mapcar ($ (+ _ 10)) '(1 2 3 4))
+> (mapcar ($ (+ $ 10)) '(1 2 3 4))
(11 12 13 14)
> (let ((elt-num 2))
- (mapcar ($ (elt _ elt-num))
+ (mapcar ($ (elt $ elt-num))
(list \"hey dude\"
#(1 2 3 4)
\"ffffffffff\")))