X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fsort.lisp;h=49aa8f096ec5e487deb23127ffca6af120153550;hb=b6aa15328871678a3475e82c150b251dffb49ba1;hp=372f2c51c03b5a71dd8b8927d418514d91216fff;hpb=f43f136f9b3ff6cae501e850fa67b2183317e212;p=sbcl.git

diff --git a/src/code/sort.lisp b/src/code/sort.lisp
index 372f2c5..49aa8f0 100644
--- a/src/code/sort.lisp
+++ b/src/code/sort.lisp
@@ -104,8 +104,8 @@
   #!+sb-doc
   "Destructively sort SEQUENCE. PREDICATE should return non-NIL if
    ARG1 is to precede ARG2."
-  (let ((predicate-function (%coerce-callable-to-function predicate))
-	(key-function (and key (%coerce-callable-to-function key))))
+  (let ((predicate-function (%coerce-callable-to-fun predicate))
+	(key-function (and key (%coerce-callable-to-fun key))))
     (typecase sequence
       (list (sort-list sequence predicate-function key-function))
       (vector