;;;; -*- Mode: LISP; Syntax: Common-Lisp; Base: 10 -*- ;;;; --------------------------------------------------------------------------- ;;;; File name: dte-read-hack.lsp ;;;; System: FIRE ;;;; Version: 1.0 ;;;; Author: Ken Forbus ;;;; Created: November 18, 2000 12:32:28 ;;;; Purpose: Avoiding package errors when loading old DTE domain theory files ;;;; --------------------------------------------------------------------------- ;;;; Modified: Saturday, November 18, 2000 at 12:44:04 by forbus ;;;; --------------------------------------------------------------------------- (in-package :common-lisp-user) (defpackage :dte (:use :common-lisp :common-graphics :common-lisp-user :common-graphics-user)) (defpackage :dte-db (:use :common-lisp :common-graphics :common-lisp-user :common-graphics-user)) (in-package :dte-db) (defun add-pidgin-string (&rest args) t) (export '(add-pidgin-string) (find-package :cl-user)) ;;;; --------------------------------------------------------------------------- ;;; END OF CODE