Add something like this to your library and you are fine: (defun isort (sequence predicate &key (key #'identity)) (sort (copy-seq sequence) predicate :k

Add something like this to your library and you are fine: (defun isort (sequence predicate &key (key #'identity)) (sort (copy-seq sequence) predicate :key key))