From c7a707011a5c715404d20e51761589612d524496 Mon Sep 17 00:00:00 2001 From: hallgren <hallgren> Date: Sat, 5 Mar 1994 20:25:51 +0000 Subject: [PATCH] Changed return to return-from assert-definition-type. --- compiler/ctype.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/ctype.lisp b/compiler/ctype.lisp index efa009037..c8b62b385 100644 --- a/compiler/ctype.lisp +++ b/compiler/ctype.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ctype.lisp,v 1.30 1994/03/05 14:35:57 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ctype.lisp,v 1.31 1994/03/05 20:25:51 hallgren Exp $") ;;; ;;; ********************************************************************** ;;; @@ -748,7 +748,7 @@ (declare (type functional functional) (type function *error-function*) (string where)) - (unless (function-type-p type) (return t)) + (unless (function-type-p type) (return-from assert-definition-type t)) (let ((*lossage-detected* nil)) (multiple-value-bind (vars types) -- GitLab