(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)