(require :asdf)

(jstatic "initAux" "snow.Snow")
(pushnew :snow-cells *features*)
(format t "Compiling snow...~%")
(handler-bind ((error
		#'(lambda (c)
		    (format t "Compilation failed: ~A~%" c)
		    (break)
		    (let ((bt (sys::backtrace-as-list)))
		      (dolist (x bt)
			(ignore-errors
			  (progn
			    (print "foo")
			    (terpri)
			    (print x)
			    (terpri)))))
		    (quit :status 1))))
  (asdf:oos 'asdf:compile-op :snow)
  (format t "Success!~%")
  (quit))