-(export '*build-version*)
-(defvar *build-version* nil)
-
-(def-test-method check-version ((test base-test) :run nil)
- (unless (or (null *build-version*)
- (and (>= (length *build-version*) (length *sod-version*))
- (string= *build-version* *sod-version*
- :end1 (length *sod-version*))))
- (failure "Build version ~A doesn't match package version ~A."
- *build-version* *sod-version*)))
-