setup_autoload / proposed FIX

$setup_autoload doesn't use $file_search; I propose changing its 
definition 
(defined in suprv1.lisp) from

#+cl
(DEFun $SETUP_AUTOLOAD (filename &rest functions)
  (LET ((FILE  (string-trim "&$" filename)))
    (DOLIST (FUNC functions)
            (NONSYMCHK FUNC '$SETUP_AUTOLOAD)
            (PUTPROP (SETQ FUNC (DOLLARIFY-NAME FUNC)) FILE 'AUTOLOAD)
            (ADD2LNC FUNC $PROPS)))
  '$DONE)

to 

#+cl
(DEFun $SETUP_AUTOLOAD (filename &rest functions)
  (LET ((FILE  ($file_search filename)))
       (DOLIST (FUNC functions)
               (NONSYMCHK FUNC '$SETUP_AUTOLOAD)
               (PUTPROP (SETQ FUNC (DOLLARIFY-NAME FUNC)) FILE 'AUTOLOAD)
               (ADD2LNC FUNC $PROPS)))
  '$DONE)

This change fixes the problem I had the other day.  The non-CL code for 
setup_autoload indicated  the fix; it has  been said before, but maybe its 

worth repeating:  expunging code for the PDP and etc might seem like the 
thing to do, but the code is still useful.

I'll file a bug report.


Barton