X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=hyperobject.asd;h=3b649763d3dc40a8856e24b4ed0f1b117e1d53e8;hb=c207475b8343981e273151b300f9c59d928f7c28;hp=b75e9a78221c7ba413e43f231c026fa720705272;hpb=eeecdad997c633f810028c741e9562554e6f105d;p=hyperobject.git

diff --git a/hyperobject.asd b/hyperobject.asd
index b75e9a7..3b64976 100644
--- a/hyperobject.asd
+++ b/hyperobject.asd
@@ -7,26 +7,21 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: hyperobject.asd,v 1.2 2002/11/03 20:10:48 kevin Exp $
+;;;; $Id: hyperobject.asd,v 1.5 2002/11/22 12:16:03 kevin Exp $
 ;;;;
 ;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
 ;;;; *************************************************************************
 
 (in-package :asdf)
 
-#+(or allegro lispworks cmu sbcl scl)
 (defsystem :hyperobject
     :perform (load-op :after (op hyperobject)
 		      (pushnew :hyperobject cl:*features*))
     :components 
     ((:file "package")
+     #+(or allegro lispworks sbcl cmucl scl)
+     (:file "hyperobject-mop" :depends-on ("package"))
      (:file "hyperobject" :depends-on ("package")))
     :depends-on (:kmrcl))
 
 
-#+(or allegro lispworks cmu sbcl scl)
-(when (ignore-errors (find-class 'load-compiled-op))
-  (defmethod perform :after ((op load-compiled-op)
-			     (c (eql (find-system :hyperobject))))
-    (pushnew :hyperobject cl:*features*)))
-