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* '())