#+cmu
(eval-when (:compile-toplevel :load-toplevel :execute)
(if (eq (symbol-package 'pcl:find-class)
- (find-package 'common-lisp))
+ (find-package 'common-lisp))
(pushnew :kmr-cmucl-mop cl:*features*)
(pushnew :kmr-cmucl-pcl cl:*features*)))
(defpackage #:hyperobject
(:nicknames #:ho)
(:use #:common-lisp #:kmrcl
- #+kmr-sbcl-mop #:sb-mop
- #+kmr-cmucl-mop #:mop
- #+allegro #:mop
- #+lispworks #:clos
- #+scl #:clos
- #+openmcl #:openmcl-mop)
+ #+kmr-sbcl-mop #:sb-mop
+ #+kmr-cmucl-mop #:mop
+ #+allegro #:mop
+ #+lispworks #:clos
+ #+scl #:clos
+ #+openmcl #:openmcl-mop)
(:export
#:package
#:hyperobject