(load "make.lisp")
(load "apps/search1.lisp")

(defun search1-and-quit ()
  (search1)
  (quit))

(save-lisp-and-die "tmp/search1" 
		   :toplevel 'search1-and-quit
		   :executable t )