#+xcvb (module ())

(in-package #:cl-user)

(defpackage #:fare-matcher

  (:use #:xcvb-utils #:common-lisp)

  (:export #:match #:ifmatch #:ematch
	   #:_ ;;; #:*
	   #:like-when #:value #:of-type
	   #:slot* #:accessor* #:instance
	   ;;; #:quote #:when #:or #:and #:values
	   ;;; #:cons #:list #:list* #:vector #:satisfies
	   #:letm #:ifm
	   #:define-symbol-matcher
	   #:define-macro-matcher
	   #:define-function-matcher
	   #:define-constructor-matcher
	   #:define-varary-constructor-matcher
	   #:copy-symbol-matcher #:copy-symbol-and-matcher
	   #:copy-function-matcher #:copy-function-and-matcher
	   #:pattern-matcher
	   #:merge-matcher-variables

	   #:m%and #:m%fail #:m%when #:m%values)

  (:documentation
   "Lisp2-style Erlang/ML-like Pattern-Matcher for Common LISP")
  (:export))

(defpackage #:fare-quasiquote
  (:use #:fare-matcher #:fare-utils #:common-lisp)

  (:shadow #:list #:append #:nconc #:list* #:cons #:quote
           #:kwote #:quotep #:vector #:make-vector)

  (:documentation
   "Quasiquote implementation with and for pattern-matching")
  (:export #:quasiquote-expand #:quasiquote #:unquote #:unquote-splicing

	   #:enable-quasiquote
           #:call-with-quasiquote-reader
           #:call-with-unquote-reader
           #:call-with-unquote-splicing-reader
           #:call-with-unquote-nsplicing-reader))

(defpackage #:fare-clos-match
  #+openmcl (:shadowing-import-from #:ccl #:quit)
  (:use #:common-lisp #:fare-utils #:fare-matcher

        #+allegro #:aclmop

	#+cmu #:pcl #+sbcl #:sb-mop #+clisp :clos #+clozure #:ccl)

  (:export #:simple-load-form #:class-initarg-to-slot