X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-rt%2Fsb-rt.asd;h=6e26cfecb978820334792ec6bb50dccffba50e4a;hb=d6db469884468ef1cbe41fdad328eda5fb9934a4;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..6e26cfe 100644
--- a/contrib/sb-rt/sb-rt.asd
+++ b/contrib/sb-rt/sb-rt.asd
@@ -6,8 +6,13 @@
 
 (defsystem sb-rt
   :version "0.1.7" ; our version "0", GCL CVS version "1.7"
-  :components ((:file "sb-rt")))
+  #+sb-building-contrib :pathname
+  #+sb-building-contrib #p"SYS:CONTRIB;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)