(def sv1
 (nlambda nil
   (prog (*a1 b)
	 (load (quote "/usr/ucb/lib/lisp/hack"))
         (load (quote "/usr/ucb/lib/lisp/saux") )
         (setq *a1 (getd (quote saveme)))
         (putd (quote saveme))
         (putd (quote sv1))
         ($mumble nil t)
         (reclaim 100 100)
         ($mumble)
	 (eval (cons *a1]