From 43d83255c64f03e2fa77591622a970d7a8a2f4e6 Mon Sep 17 00:00:00 2001 From: Douglas Katzman Date: Sun, 19 Feb 2017 09:54:18 -0500 Subject: [PATCH] Eliminate needless defvar. --- src/pcl/std-class.lisp | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/src/pcl/std-class.lisp b/src/pcl/std-class.lisp index b47240aa1..eb8b211f3 100644 --- a/src/pcl/std-class.lisp +++ b/src/pcl/std-class.lisp @@ -1514,8 +1514,6 @@ value))) (defvar *in-obsolete-instance-trap* nil) -(defvar *the-wrapper-of-structure-object* - (class-wrapper (find-class 'structure-object))) (define-condition obsolete-structure (error) ((datum :reader obsolete-structure-datum :initarg :datum)) @@ -1606,8 +1604,7 @@ instance added discarded plist) nwrapper)) - (*in-obsolete-instance-trap* - *the-wrapper-of-structure-object*) + (*in-obsolete-instance-trap* #.(find-layout 'structure-object)) (t (let ((*in-obsolete-instance-trap* t)) (error 'obsolete-structure :datum instance))))) -- 2.11.4.GIT