;;;; -*- coding:utf-8 -*-
(eval-when (:compile-toplevel :load-toplevel :execute)
  (setf *readtable* (copy-readtable nil)))

(dolist (file  '(split-sequence
                 defpkg
                 mixins
                 attributes
                 species
                 thing
                 universe
                 comestible
                 living
                 character
                 room
                 dice
                 commands
                 comdefs
                 driver))
  (load (merge-pathnames (make-pathname :name (string file)
                                        :version :newest)
                         "PACKAGES:NET;COMMON-LISP;LMUD;LMUD;")))



;;;; lmud.lisp                        --                     --          ;;;;