Skip to content
Snippets Groups Projects
Commit 6d4409d6 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Have output-translations use the recently improved ensure-function for function designators.

Fixes lp#1207005.
parent c819bb83
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
......@@ -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 '())
......
......@@ -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* '())
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment