r5401: *** empty log message ***

[hyperobject.git] / package.lisp

diff --git a/package.lisp b/package.lisp
index 25f5a4f048b942c280fc4ac0f2c2936c4525285b..a52e65eebc74665d559e1610b4435b8935c416c7 100644 (file)
--- a/package.lisp
+++ b/package.lisp
@@ -7,15 +7,12 @@
 ;;;; Programmer:    Kevin M. Rosenberg\r
 ;;;; Date Started:  Apr 2000\r
 ;;;;\r
-;;;; $Id: package.lisp,v 1.48 2003/05/17 22:24:38 kevin Exp $\r
+;;;; $Id: package.lisp,v 1.51 2003/07/14 04:10:02 kevin Exp $\r
 ;;;;\r
 ;;;; This file is Copyright (c) 2000-2003 by Kevin M. Rosenberg\r
 ;;;; *************************************************************************\r
 \r
-(eval-when (:compile-toplevel :execute)\r
-  (declaim (optimize (speed 2) (safety 2) (compilation-speed 0) (debug 2))))\r
-\r
-(in-package :cl-user)\r
+(in-package #:cl-user)\r
 \r
 #+sbcl\r
 (eval-when (:compile-toplevel :load-toplevel :execute)\r
@@ -38,7 +35,8 @@
        #+kmr-cmucl-mop #:mop\r
        #+allegro #:mop\r
        #+lispworks #:clos\r
-       #+scl #:clos)\r
+       #+scl #:clos\r
+       #+openmcl #:openmcl-mop)\r
   (:export\r
    #:package\r
    #:hyperobject\r
@@ -46,6 +44,7 @@
    #:hyperobject-class-user-name\r
    #:load-all-subobjects\r
    #:view\r
+   #:view-subobjects\r
    #:fmt-comma-integer\r
    #:processed-queued-definitions\r
    #:all-subobjects\r