(defpackage #:safer-lisp
  (:use #:cl)
  (:import-from #:alexandria #:with-unique-names)
  (:import-from #:split-sequence #:split-sequence)
  (:export
   ;; conditions
   #:safer-lisp-error

   ;; packages and symbols
   #:safer-package
   #:define-safer-package
   #:make-safer-package
   #:find-safer-package

   #:safer-use-package
   #:safer-import-from
   #:safer-export
   #:safer-find-symbol
   #:add-safe-keywords

   #:safer-package-error

   ;; eval
   #:safer-eval
   #:safer-eval-error

   ;; reader
   #:safer-read

   ;; pathnames
   #:*safer-pathname-root*
   #:*safer-pathname-validator*
   #:make-safer-pathname

   #:safer-pathname-error
   ))

(in-package #:safer-lisp)

(define-condition safer-lisp-error (simple-error) ())