(real-dx-lvars real)))
(t
(do-uses (use lvar)
- (let ((source (find-original-source (node-source-path use))))
- (unless (symbolp source)
+ (unless (ref-p use)
+ (let ((*compiler-error-context* use))
(compiler-notify "could not stack allocate the result of ~S"
- source))))
+ (find-original-source (node-source-path use))))))
(setf (lvar-dynamic-extent lvar) nil)))))
(node ; DX closure
(let* ((call what)