X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-rt%2Fsb-rt.asd;h=a6177a3bc51eddd9dcc4aebf93eacf2be846af3c;hb=5a2b6553fbbbb62fa789350facd0d56bb136045f;hp=1fee8e89735ce216fddf83a75c5c362589973cf5;hpb=65a01dae3d437a48e8dd0d051a446245f9e29929;p=sbcl.git

diff --git a/contrib/sb-rt/sb-rt.asd b/contrib/sb-rt/sb-rt.asd
index 1fee8e8..a6177a3 100644
--- a/contrib/sb-rt/sb-rt.asd
+++ b/contrib/sb-rt/sb-rt.asd
@@ -6,8 +6,11 @@
 
 (defsystem sb-rt
   :version "0.1.7" ; our version "0", GCL CVS version "1.7"
-  :components ((:file "sb-rt")))
+  :components ((:file "rt")))
+
+(defmethod perform :after ((o load-op) (c (eql (find-system :sb-rt))))
+  (provide 'sb-rt))
 
 (defmethod perform ((o test-op) (c (eql (find-system :sb-rt))))
   ;; FIXME: Maybe also import rt-tests.lisp?
-  t)
\ No newline at end of file
+  t)