From 318192ed036637be505bf4f98bda512db59d6fb4 Mon Sep 17 00:00:00 2001 From: toy <toy> Date: Wed, 31 Jul 2002 15:54:33 +0000 Subject: [PATCH] Give more meaningful messages for the continue and clobber-it restarts when redefining structures. Based on suggestions from Rob MacLachlan and Mike McDonald. --- code/defstruct.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/code/defstruct.lisp b/code/defstruct.lisp index 60fdd6846..20bbb8355 100644 --- a/code/defstruct.lisp +++ b/code/defstruct.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/defstruct.lisp,v 1.75 2002/04/25 21:13:45 pmai Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/defstruct.lisp,v 1.76 2002/07/31 15:54:33 toy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1544,11 +1544,11 @@ definition." name) (continue () - :report "Invalidate current definition." + :report "Invalidate already loaded code and instances, use new definition." (warn "Previously loaded ~S accessors will no longer work." name) (register-layout new-layout)) (clobber-it () - :report "Smash current layout, preserving old code." + :report "Assume redefinition is compatible, allow old code and instances." (warn "Any old ~S instances will be in a bad way.~@ I hope you know what you're doing..." name) -- GitLab