diff --git a/operation.lisp b/operation.lisp index 7f18c45a4b8b687db157114f67364a67dd37e32d..6949114fc6ab7a7a97595ba9359f93ccb7bae3b1 100644 --- a/operation.lisp +++ b/operation.lisp @@ -22,6 +22,8 @@ ((original-initargs ;; for backward-compat -- used by GBBopen and swank (via operation-forced) :initform nil :initarg :original-initargs :accessor operation-original-initargs))) + ;; Cache a copy of the INITARGS in the ORIGINAL-INITARGS slot, if that slot is not + ;; already bound. (defmethod initialize-instance :after ((o operation) &rest initargs &key force force-not system verbose &allow-other-keys) (declare (ignorable force force-not system verbose))