;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; This file is part of AIslash.
;
; AIslash 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.
;
; AIslash 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
; along with AIslash.  If not, see <http://www.gnu.org/licenses/>.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defstruct fixed-t "fixed stuff"
  (ignore    #\?)
  (numeric   #\*)
  (inf       most-positive-fixnum)
  (ninf      (* -1 most-positive-fixnum))
)

(defstruct wm-t "runtime working memory"
  (bins       10)
  (best       0.2)
  (num-sorter "~20,10f")
  )

(defparameter *w4t* (make-wm-t))
(defparameter *f4t* (make-fixed-t))

(defun zap ()
  (setf *w4t* (make-wm)))