r8885: pre 2.3.4
[clsql.git] / clsql-classic.asd
index d10438812966b761504e5ab0a9d27e7afd385484..a700cfd3b33143e388a253a1183d753ce0add7bf 100644 (file)
@@ -38,6 +38,6 @@
             (:file "functional" :depends-on ("sql"))))))
 
 #+(or allegro lispworks cmu sbcl openmcl mcl scl)
-(defmethod perform ((o test-op) (c (eql (find-system :clsql-classic))))
-  (oos 'load-op 'clsql-classic-tests)
-  (oos 'test-op 'clsql-classic-tests))
+(defmethod perform ((o test-op) (c (eql (find-system 'clsql-classic))))
+  (operate 'load-op 'clsql-classic-tests)
+  (operate 'test-op 'clsql-classic-tests))