title: Sort a list according to another list in common lisp
body: <p>How would you sort <code>list</code> according to the order defined in another list <code>sorter</code>:</p>
  
  <pre><code>list = ( (:value "A" :index 0) (:value "B" :index 1) (:value "C" :index 2) )
  sorter = (1 2 0)
  </code></pre>
  
  <p>Resulting in:</p>
  
  <pre><code>list* = ( (:value "B" :index 1) (:value "C" :index 2) (:value "A" :index 0) )
  </code></pre>
  
  <p>Thanks</p>