fix for allegro (excl) on sun4

[jkf%frisky%franz@ucbarpa.Berkeley.EDU (John Foderaro)]

 in version:  8/24/88 (beta) AAAI PCL
 obtained:    8/26/88 2pm pdt
 file:        fin.lisp
 
 under the #+excl #+(and gsgc sun4) conditionalization the
function allocate-funcallable-instance-1 has the line
    (set-funcallable-instance-function new-fin #'init-fn-fun)
it should be
    (set-funcallable-instance-function new-fin #'init-fin-fun)
				
						       ^---- add the i