From d47e681b4a7990bd4e815fb9e3a3b3007e28b263 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Tue, 11 May 1993 23:08:41 +0000 Subject: [PATCH] Fix load-code check-version to actually indicate success. --- code/load.lisp | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/code/load.lisp b/code/load.lisp index 2fdacef65..161f8dfcd 100644 --- a/code/load.lisp +++ b/code/load.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (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 @@ (let ((implementation (read-arg 1)) (version (read-arg 1))) (flet ((check-version (imp vers) - (when (and (eql imp implementation) - (not (eql version vers))) - (error "~A was compiled for fasl-file version ~A, ~ - but this is version ~A" - *Fasl-file* version vers))) + (when (eql imp implementation) + (unless (eql version vers) + (error "~A was compiled for fasl-file version ~A, ~ + but this is version ~A" + *fasl-file* version vers)) + t)) (imp-name (imp) - (or (nth imp c:fasl-file-implementations) + (or (nth imp '#.c:fasl-file-implementations) "unknown machine"))) (unless (or (check-version #.(c:backend-fasl-file-implementation c:*backend*) -- GitLab