;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-WISE; Base: 10 -*-

;;; This software is Copyright (c) Sunil Mishra, 2009.
;;; Sunil Mishra grants you the rights to distribute
;;; and use this software as governed by the terms
;;; of the Lisp Lesser GNU Public License
;;; (http://opensource.franz.com/preamble.html),
;;; known as the LLGPL.

;;; $Id: wiki-extns.lisp 151 2009-04-13 18:23:09Z smishra $

(in-package "CL-WISE")

(defun slot-required (slot class)
  "Basic utility function that signals an error that states the slot wasn't
  initialized with a value. Intended for use in the initform of a slot."
  (error "~A requires a value for ~A." class slot))

(eval-when (:compile-toplevel :load-toplevel :execute)
  (defvar *wise-software-directory*
    (make-pathname :name nil :type nil :defaults *load-pathname*)
    "Directory from where the CL-WISE software is loaded."))

(defvar *wise-server* nil
  "Holds the CL-WISE server instance.")

(defclass wise-wiki (wiki)
  ()
  (:documentation "Wiki class that implements a semantic wiki."))

;;; EOF