(load "/s/bach/a/class/cs540/ucpop/loader.lisp")
(load-ucpop)

;;;Set package here so all functions defined in this file are in the
;;;ucpop package.
(in-package ucpop)

;;;Run  new  everytime you have modified your lab3.lsp file.
(defun update ()
  (let ((filename "lab3.lisp"))
    (compile-file filename)
    (load filename)))

;;;Simplifies typing the search control function name
(defun run (x)
  (bf-control x))

;;;Get ready to do some heavy crunching.
;;;This much takes 5 minutes on schubert
(setf *search-limit* 50000)
(format t "~&*search-limit* set to ~d" *search-limit*)

;(system:allocate-relocatable-pages 5000)
;(format t "~&allocated-relocatable-pages set to 5000")

;;;Remind user that they must set the package.
(format t "~%~%****Don't forget to do  (in-package ucpop)****~%~%")