;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; This file is part of "NBC":  a naive bayes classifier written in LISP.
; Copyright, 2008, Tim Menzies tim@menzies.us
;
; NBC is free software: you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation, either version 3 of the License, or
; (at your option) any later version.
;
; NBC is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
; GNU General Public License for more details.
; You should have received a copy of the GNU General Public License
; a long with NBC.  If not, see <http://www.gnu.org/licenses/>.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defmacro defrelation (name &rest l)
  `(make-relation :name ',name :fields ',l))

(defmacro one (name &rest range)
  `(make-discrete :name ',name
		 :range ',range))
(defmacro num (name)
  `(make-continuous :name ',name))

(defun !? (&rest args)  (classify args) (store args))
(defun ?! (&rest args)  (store args)    (classify args))
(defun ?  (&rest args)  (classify args))
(defun !  (&rest args)  (store args))