- (expected-version (sb!xc:lisp-implementation-version))
- (expected-implementation +backend-fasl-file-implementation+))
- (cond ((string/= expected-implementation implementation)
- (error 'invalid-fasl-implementation
- :stream stream
- :implementation implementation
- :expected expected-implementation))
- ((string/= expected-version sbcl-version)
- (restart-case
- (error 'invalid-fasl-version
- :stream stream
- :version sbcl-version
- :expected expected-version)
- (continue ()
- :report "Load the fasl file anyway")))))
+ (expected-version (sb!xc:lisp-implementation-version)))
+ (unless (string= expected-version sbcl-version)
+ (restart-case
+ (error 'invalid-fasl-version
+ :stream stream
+ :version sbcl-version
+ :expected expected-version)
+ (continue () :report "Load the fasl file anyway"))))