r3472: *** empty log message ***

[hyperobject.git] / package.lisp

diff --git a/package.lisp b/package.lisp
index 18acce7baefb7e2a1e115fa03b471800aea8ea2a..0a2be5018e56c541f3fbf882cee03d50b6dc87fb 100644 (file)
--- a/package.lisp
+++ b/package.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: package.lisp,v 1.1 2002/11/03 19:59:10 kevin Exp $
+;;;; $Id: package.lisp,v 1.11 2002/11/25 04:49:22 kevin Exp $
 ;;;;
 ;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
 ;;;; *************************************************************************
@@ -17,12 +17,35 @@
 (in-package :cl-user)
 
 (defpackage #:hyperobject
-  (:use #:common-lisp)
+  (:nicknames #:ho)
+  (:use #:common-lisp #:kmrcl)
   (:export
-   #:ml-class
-   #:ml-class-title
+   #:package
+   #:hyperobject
+   #:hyperobject-class
+   #:hyperobject-class-title
    #:load-all-subobjects
-   #:print-ho
+   #:print-hyperobject
    ))
 
+(defpackage #:hyperobject-no-mop
+  (:nicknames #:ho-no-mop)
+  (:use #:common-lisp #:kmrcl)
+  (:export
+   #:define-hyperobject
+   #:hyperobject
+   #:hyperobject-base-url!
+   #:load-all-subobjects
+   #:print-hyperobject
+   ))
+
+(defpackage #:hyperobject-user
+  (:nicknames #:ho-user)
+  (:use #:hyperobject #:cl #:cl-user))
+
+(defpackage #:hyperobject-no-mop-user
+  (:nicknames #:ho-no-mop-user)
+  (:use #:hyperobject-no-mop #:cl #:cl-user))
+
+