X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-rt%2Fsb-rt.asd;h=9ebb1ae1f86e8c0b9ad24b5469856d4e0598f4e8;hb=c553e4be6da2d18f0827f190589c88e837b8b8a6;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..9ebb1ae 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 "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)