;;;; -*-  Mode: LISP; Syntax: Common-Lisp; Base: 10                          -*-
;;;; ---------------------------------------------------------------------------
;;;; File name: dte-stub.lsp
;;;;    System: FIRE
;;;;    Author: Ken Forbus
;;;;   Created: January 3, 2003 10:05:52
;;;;   Purpose: Provide backwards compatibility when loading DTE files
;;;; ---------------------------------------------------------------------------
;;;;  Modified: Friday, January 3, 2003 at 10:07:37 by forbus
;;;; ---------------------------------------------------------------------------

;; As our KB flat files evolve, at some point we can flush this.

(in-package :dte-db)

(defun add-pidgin-string (&rest args) t)

(eval-when (:load-toplevel :compile-toplevel :execute)
  (export '(add-pidgin-string)))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; End of Code