(defpackage :foo 
  (:use :common-lisp) 
  (:export :fun1 :fun2))

(in-package #:foo)

(defun main (f) 
  (if (file-existsp f)))

 (error "asds")

(when nil (print 22) (print 23))

(defun dos (f) 
  (if (probe-file f)
      (with-open-file (is "test" :direction :input)
	(print (read is nil 'the-end)))
      (error "missing file ~a~n" f))
       )

(dos "fff")