Skip to content
Snippets Groups Projects
Commit d47e681b authored by ram's avatar ram
Browse files

Fix load-code check-version to actually indicate success.

parent 6bf9e41d
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/load.lisp,v 1.52 1993/05/11 22:18:12 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/load.lisp,v 1.53 1993/05/11 23:08:41 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -986,13 +986,14 @@ ...@@ -986,13 +986,14 @@
(let ((implementation (read-arg 1)) (let ((implementation (read-arg 1))
(version (read-arg 1))) (version (read-arg 1)))
(flet ((check-version (imp vers) (flet ((check-version (imp vers)
(when (and (eql imp implementation) (when (eql imp implementation)
(not (eql version vers))) (unless (eql version vers)
(error "~A was compiled for fasl-file version ~A, ~ (error "~A was compiled for fasl-file version ~A, ~
but this is version ~A" but this is version ~A"
*Fasl-file* version vers))) *fasl-file* version vers))
t))
(imp-name (imp) (imp-name (imp)
(or (nth imp c:fasl-file-implementations) (or (nth imp '#.c:fasl-file-implementations)
"unknown machine"))) "unknown machine")))
(unless (or (check-version #.(c:backend-fasl-file-implementation (unless (or (check-version #.(c:backend-fasl-file-implementation
c:*backend*) c:*backend*)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment