r3454: *** empty log message ***

[hyperobject.git] / package.lisp

diff --git a/package.lisp b/package.lisp
index 6c76fb9f13b34111b0fb87d79acd944b0f0f8dc9..61b19e9854f7d030033ab83cef389b465bf2a439 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.5 2002/11/22 10:49:24 kevin Exp $
+;;;; $Id: package.lisp,v 1.6 2002/11/22 15:43:22 kevin Exp $
 ;;;;
 ;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
 ;;;; *************************************************************************
@@ -16,10 +16,11 @@
 
 (in-package :cl-user)
 
-(defpackage #:hyperobject-mop
+(defpackage #:hyperobject
   (:nicknames #:ho-mop)
   (:use #:common-lisp #:kmrcl)
   (:export
+   #:define-hyperobject
    #:hyperobject
    #:hyperobject-class
    #:hyperobject-base-url!
@@ -28,8 +29,8 @@
    #:print-hyperobject
    ))
 
-(defpackage #:hyperobject
-  (:nicknames #:ho)
+(defpackage #:hyperobject-no-mop
+  (:nicknames #:ho-no-mop)
   (:use #:common-lisp #:kmrcl)
   (:export
    #:define-hyperobject
@@ -39,10 +40,13 @@
    #:print-hyperobject
    ))
 
-(defpackage #:hyperobject-mop-user
-  (:use #:hyperobject-mop #:cl #:cl-user))
-
-
 (defpackage #:hyperobject-user
+  (:niceknames #:ho-user)
   (:use #:hyperobject #:cl #:cl-user))
 
+(defpackage #:hyperobject-no-mop-user
+  (:niceknames #:ho-no-mop-user)
+  (:use #:hyperobject-no-mop #:cl #:cl-user))
+
+
+