A função sort
assume que a lista inicial é descartável e deixa a lista em um estado incomum. A seguir, uma solução alternativa que deixa a lista inicial ilesa:
(defun lawlist-sort (seq predicate)
(let ((disposable-list (copy-list seq)))
(sort disposable-list predicate)))