Commit 244e2b7d authored by Dave Cooper's avatar Dave Cooper

Updated cl-markdown patch to use metabang-bind as documented.

[metabang-bind](https://common-lisp.net/project/metabang-bind/user-guide.html#header3-21)
supports the use of `_` as placeholder in binding list for variables
which you want ignored. `nil` is also supposed to work, but appears
not to in some cases. So this patch changes the use from `nil` to `_`.
parent 2cf375ab
......@@ -43,10 +43,9 @@
(iterate-elements
headers
(lambda (header)
(bind (((item anchor text)
(bind (((_ anchor text)
(item-at-1 (properties header) :anchor))
(save-header-lines (copy-list (lines header))))
(declare (ignore item))
(setf (slot-value header 'lines)
`(,(format nil
"~&<a href='~a~a' ~@[title='~a'~]>"
......@@ -62,7 +61,7 @@
(defun render-handle-eval (body)
;;?? parse out commands and arguments (deal with quoting, etc)
(bind (((command arguments result processed?) body)
(bind (((command arguments result _) body)
(result
(cond ((and (member command *render-active-functions*)
(fboundp command))
......@@ -72,7 +71,6 @@
(warn "Undefined CL-Markdown function ~s" command))
(t
nil))))
(declare (ignore processed?))
(when result
(output-html (list result))
(setf *magic-space-p* nil)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment