<?xml version="1.0"?>
<paste-with-annotations>
  <paste>
    <number>
      <integer>53660</integer>
    </number>
    <user>
      <string>rindolf</string>
    </user>
    <title>
      <string>(sort) in CL</string>
    </title>
    <contents>
      <string>(let* ((mylist (list 10 5 20 9))
       (sorted (sort mylist #'&lt;)))
  (format t &quot;mylist is: ~a~%&quot; mylist)
  (format t &quot;sorted is: ~a~%&quot; sorted))
; Prints:
; mylist is: (10 20)
; sorted is: (5 9 10 20)
</string>
    </contents>
    <universal-time>
      <integer>3408555310</integer>
    </universal-time>
    <channel>
      <string>#lispcafe</string>
    </channel>
    <colorization-mode>
      <string></string>
    </colorization-mode>
    <maybe-spam>
      <null/>
    </maybe-spam>
    <is-unicode>
      <null/>
    </is-unicode>
    <deletion-requested>
      <null/>
    </deletion-requested>
    <deletion-requested-email>
      <null/>
    </deletion-requested-email>
    <expiration-time>
      <null/>
    </expiration-time>
  </paste>
</paste-with-annotations>
