diff --git a/output-translations.lisp b/output-translations.lisp
index 2b916939103a4ac49b4cb94a0f21a1186752a3d5..f0c5547a799432fe78640ea45404d0af4484e7d6 100644
--- a/output-translations.lisp
+++ b/output-translations.lisp
@@ -197,10 +197,7 @@ and the order is by decreasing length of namestring of the source pathname.")
                   (cond
                     ((location-function-p dst)
                      (funcall collect
-                              (list trusrc
-                                    (if (symbolp (second dst))
-                                        (fdefinition (second dst))
-                                        (eval (second dst))))))
+                              (list trusrc (ensure-function (second dst)))))
                     ((eq dst t)
                      (funcall collect (list trusrc t)))
                     (t
diff --git a/test/test-utilities.script b/test/test-utilities.script
index 7bc8d61200275044bdcd11e4dcf58be905add4c7..5b67b547cc3d9d3003395e78699cad36cfd43cc8 100644
--- a/test/test-utilities.script
+++ b/test/test-utilities.script
@@ -61,10 +61,8 @@
                         (declare (ignore absolute-source))
                         path))
            (function previous-isnt-keyword)
-           (:function f too many arguments)
-           (:function (:lambda isnt lambda))
-           (:function (lambda (too many args) blah))))
- '(t t nil nil nil nil))
+           (:function f too many arguments)))
+ '(t t nil nil))
 
 (initialize-source-registry '())
 
diff --git a/uiop/configuration.lisp b/uiop/configuration.lisp
index edcd57d51814a4a2709e4ec7173e5a95af1265fb..d064c68833640995353d67e2ae16640def156b54 100644
--- a/uiop/configuration.lisp
+++ b/uiop/configuration.lisp
@@ -274,11 +274,7 @@ directive.")
   (defun location-function-p (x)
     (and
      (length=n-p x 2)
-     (eq (car x) :function)
-     (or (symbolp (cadr x))
-         (and (consp (cadr x))
-              (eq (caadr x) 'lambda)
-              (length=n-p (cadadr x) 2)))))
+     (eq (car x) :function)))
 
   (defvar *clear-configuration-hook* '())