src/lsp/loadfsl.lsp

   1 ;;
   2 ;; Some compiler/loader support
   3 ;;
   4
   5 (in-package "XLISP")
   6
   7 ;; needed by the compiler -- must appear before any defmeth's
   8 #+xlisp-stat
   9 (defun add-method (object name method doc)
  10   (if doc (send object :internal-doc name doc))
  11   (send object :add-method name method))
  12
  13 ;; signal errors for old compiled defstructs
  14 (defun cmp-make-structure-constructor (structname)
  15   (declare (ignore structname))
  16   (error "obsolete defstruct code -- file needs to be recompiled"))
  17
  18 (defun cmp-do-defstruct (structname incopt others slotargs)
  19   (declare (ignore structname incopt others slotargs))
  20   (error "obsolete defstruct code -- file needs to be recompiled"))
  21
  22 ;; check fsl version
  23 (defconstant *fsl-major-version* 1)
  24 (defconstant *fsl-minor-version* 4)
  25 (defconstant *fsl-oldest-minor-version* 3)
  26
  27 (defun check-fsl-version (major minor)
  28   (unless (and (= major *fsl-major-version*)
  29                (<= *fsl-oldest-minor-version* minor *fsl-minor-version*))
  30           (error "file FSL version ~d.~d is not compatible with ~
  31                   system version ~d.~d"
  32                  major minor
  33                  *fsl-major-version* *fsl-minor-version*)))