HTML code for sharing source code

HTML Copy To Clipboarddone!

<div class="highlight" style="background: #f8f8f8"><pre style="line-height: 125%"><div id="lc1">(defmacro defun-mem (name params &amp;body body)
</div><div id="lc2">	(let ((*name-vals* (gensym))
</div><div id="lc3">	 (value (gensym))
</div><div id="lc4">	 (exist (gensym)))
</div><div id="lc5">		`(progn
</div><div id="lc6">		 	(defvar ,*name-vals* (make-hash-table))
</div><div id="lc7">			(defun ,name ,params
</div><div id="lc8">				(multiple-value-bind
</div><div id="lc9">					(,value ,exist)
</div><div id="lc10">					(gethash (list ,@params) ,*name-vals*)
</div><div id="lc11">					(if ,exist
</div><div id="lc12">						,value
</div><div id="lc13">						(setf
</div><div id="lc14">							(gethash (list ,@params) ,*name-vals*)
</div><div id="lc15">							(progn ,@body))))))))
</div><div id="lc16">(format t &quot;~a~%&quot; (macroexpand-1
</div><div id="lc17">	&#39;(defun-mem ack-mem (m n)
</div><div id="lc18">		(if (= m 0)
</div><div id="lc19">			(+ n 1)
</div><div id="lc20">			(if (= n 0)
</div><div id="lc21">				(ack-mem (- m 1) 1)
</div><div id="lc22">				(ack-mem (- m 1) (ack-mem m (- n 1))))))))
</div></pre></div>
 Colored with <a style="color: #333" href="http://dumpz.org">dumpz.org</a>

BBCODE Copy To Clipboarddone!

([color=#008000]defmacro[/color] [color=#19177C]defun-mem[/color] ([color=#19177C]name[/color] [color=#19177C]params[/color] [color=#008000][b]&body[/b][/color] [color=#19177C]body[/color])
	([color=#008000][b]let[/b][/color] (([color=#19177C]*name-vals*[/color] ([color=#008000]gensym[/color]))
	      ([color=#19177C]value[/color]       ([color=#008000]gensym[/color]))
	      ([color=#19177C]exist[/color]       ([color=#008000]gensym[/color])))
		[color=#666666]`[/color]([color=#008000][b]progn[/b][/color]
		 	([color=#008000]defvar[/color] [color=#666666],[/color][color=#19177C]*name-vals*[/color] ([color=#008000]make-hash-table[/color]))
			([color=#008000]defun[/color] [color=#666666],[/color][color=#19177C]name[/color] [color=#666666],[/color][color=#19177C]params[/color]
				([color=#008000]multiple-value-bind[/color]
					([color=#666666],[/color][color=#19177C]value[/color] [color=#666666],[/color][color=#19177C]exist[/color])
					([color=#008000]gethash[/color] ([color=#008000]list[/color] [color=#666666],@[/color][color=#19177C]params[/color]) [color=#666666],[/color][color=#19177C]*name-vals*[/color])
					([color=#008000][b]if[/b][/color] [color=#666666],[/color][color=#19177C]exist[/color]
						[color=#666666],[/color][color=#19177C]value[/color]
						([color=#008000]setf[/color]
							([color=#008000]gethash[/color] ([color=#008000]list[/color] [color=#666666],@[/color][color=#19177C]params[/color]) [color=#666666],[/color][color=#19177C]*name-vals*[/color])
							([color=#008000][b]progn[/b][/color] [color=#666666],@[/color][color=#19177C]body[/color]))))))))
([color=#008000]format[/color] [color=#880000]t[/color] [color=#BA2121]"~a~%"[/color] ([color=#008000]macroexpand-1[/color]
	[color=#666666]'[/color]([color=#19177C]defun-mem[/color] [color=#19177C]ack-mem[/color] ([color=#19177C]m[/color] [color=#19177C]n[/color])
		([color=#008000][b]if[/b][/color] ([color=#008000]=[/color] [color=#19177C]m[/color] [color=#666666]0[/color])
			([color=#008000]+[/color] [color=#19177C]n[/color] [color=#666666]1[/color])
			([color=#008000][b]if[/b][/color] ([color=#008000]=[/color] [color=#19177C]n[/color] [color=#666666]0[/color])
				([color=#19177C]ack-mem[/color] ([color=#008000]-[/color] [color=#19177C]m[/color] [color=#666666]1[/color]) [color=#666666]1[/color])
				([color=#19177C]ack-mem[/color] ([color=#008000]-[/color] [color=#19177C]m[/color] [color=#666666]1[/color]) ([color=#19177C]ack-mem[/color] [color=#19177C]m[/color] ([color=#008000]-[/color] [color=#19177C]n[/color] [color=#666666]1[/color]))))))))

--------------------------------------
Colored with http://dumpz.org

Light HTML Copy To Clipboarddone!

That method generates HTML with CSS classes. Hence you'll need the style sheet file

<div class="highlight"><pre><div id="lc1">(defmacro defun-mem (name params &amp;body body)
</div><div id="lc2">	(let ((*name-vals* (gensym))
</div><div id="lc3">	 (value (gensym))
</div><div id="lc4">	 (exist (gensym)))
</div><div id="lc5">		`(progn
</div><div id="lc6">		 	(defvar ,*name-vals* (make-hash-table))
</div><div id="lc7">			(defun ,name ,params
</div><div id="lc8">				(multiple-value-bind
</div><div id="lc9">					(,value ,exist)
</div><div id="lc10">					(gethash (list ,@params) ,*name-vals*)
</div><div id="lc11">					(if ,exist
</div><div id="lc12">						,value
</div><div id="lc13">						(setf
</div><div id="lc14">							(gethash (list ,@params) ,*name-vals*)
</div><div id="lc15">							(progn ,@body))))))))
</div><div id="lc16">(format t &quot;~a~%&quot; (macroexpand-1
</div><div id="lc17">	&#39;(defun-mem ack-mem (m n)
</div><div id="lc18">		(if (= m 0)
</div><div id="lc19">			(+ n 1)
</div><div id="lc20">			(if (= n 0)
</div><div id="lc21">				(ack-mem (- m 1) 1)
</div><div id="lc22">				(ack-mem (- m 1) (ack-mem m (- n 1))))))))
</div></pre></div>
 Colored with <a style="color: #333" href="http://dumpz.org">dumpz.org</a>

Habrahabr.ru HTML Copy To Clipboarddone!

Use that HTML for publications on habrahabr.ru

<blockquote><code>(defmacro&nbsp;defun-mem&nbsp;(name&nbsp;params&nbsp;&amp;body&nbsp;body)
&nbsp;&nbsp;&nbsp;&nbsp;(let&nbsp;((*name-vals*&nbsp;(gensym))
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(value&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(gensym))
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(exist&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(gensym)))
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;`(progn
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(defvar&nbsp;,*name-vals*&nbsp;(make-hash-table))
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(defun&nbsp;,name&nbsp;,params
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(multiple-value-bind
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(,value&nbsp;,exist)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(gethash&nbsp;(list&nbsp;,@params)&nbsp;,*name-vals*)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;,exist
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;,value
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(setf
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(gethash&nbsp;(list&nbsp;,@params)&nbsp;,*name-vals*)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(progn&nbsp;,@body))))))))
(format&nbsp;t&nbsp;&quot;~a~%&quot;&nbsp;(macroexpand-1
&nbsp;&nbsp;&nbsp;&nbsp;&#39;(defun-mem&nbsp;ack-mem&nbsp;(m&nbsp;n)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(=&nbsp;m&nbsp;0)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(+&nbsp;n&nbsp;1)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(if&nbsp;(=&nbsp;n&nbsp;0)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(ack-mem&nbsp;(-&nbsp;m&nbsp;1)&nbsp;1)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(ack-mem&nbsp;(-&nbsp;m&nbsp;1)&nbsp;(ack-mem&nbsp;m&nbsp;(-&nbsp;n&nbsp;1))))))))
</code></blockquote>Colored with <a href="http://dumpz.org">dumpz.org</a>