Commit 51a45880 authored by wlott's avatar wlott
Browse files

Don't bother binding *info-env* in set-up-function-templates, 'cause

function-info-or-lose now does what we want.
parent 02219274
......@@ -1715,11 +1715,7 @@
(defun set-up-function-translation (parse n-template)
(declare (type vop-parse parse))
(mapcar #'(lambda (name)
`(let ((info
(let ((*info-environment*
(or (backend-info-environment *target-backend*)
*info-environment*)))
(function-info-or-lose ',name))))
`(let ((info (function-info-or-lose ',name)))
(setf (function-info-templates info)
(adjoin-template ,n-template
(function-info-templates info)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment