Infinite loop in Complr?

[GJC at MIT-MC (George J. Carrette)]

(defun gen-name ()
       (funcall '#,((lambda (obarray) (intern 'p1pfx)) sobarray)))

Causes Complr to wegde itself for an indefinite amount
of time. 

Apply seems to work fine:

(defun gen-name ()
       (apply '#,((lambda (obarray) (intern 'p1pfx)) sobarray) nil))

(putprop 'gen-name 
  (get (let ((obarray sobarray) (intern 'p1pfx))) 'subr)
  'subr)

works even better, but is much to simple.