Add missing call when finalizing class

[hyperobject.git] / hyperobject.asd

diff --git a/hyperobject.asd b/hyperobject.asd
index ff1932628c4833ac1e2a18132b63efb344fc19f2..7848baf57a4ec45f396f20e79ab2b0741a73c101 100644 (file)
--- a/hyperobject.asd
+++ b/hyperobject.asd
@@ -7,21 +7,20 @@
 ;;;; Author:        Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: hyperobject.asd,v 1.24 2003/05/22 20:40:03 kevin Exp $
+;;;; $Id$
 ;;;; *************************************************************************
 
 (defpackage hyperobject-system (:use #:asdf #:cl))
 (in-package :hyperobject-system)
 
-#+(or allegro lispworks sbcl cmu scl)
-(defsystem hyperobject 
+(defsystem hyperobject
   :name "hyperobject"
   :author "Kevin M. Rosenberg <kevin@rosenberg.net>"
   :version "2.7.x"
   :maintainer "Kevin M. Rosenberg <kmr@debian.org>"
   :licence "BSD-like License"
 
-  :components 
+  :components
   ((:file "package")
    (:file "metaclass" :depends-on ("package"))
    (:file "mop" :depends-on ("metaclass"))
@@ -33,10 +32,6 @@
    )
   :depends-on (:kmrcl :clsql))
 
-#+(or allegro lispworks sbcl cmu scl)
 (defmethod perform ((o test-op) (c (eql (find-system :hyperobject))))
-  (oos 'load-op 'hyperobject-tests)
-  (oos 'test-op 'hyperobject-tests))
-
-
-
+  (operate 'load-op 'hyperobject-tests)
+  (operate 'test-op 'hyperobject-tests :force t))