From 872e560e6730843b690118a195c1c46b3c593295 Mon Sep 17 00:00:00 2001 From: "Robert P. Goldman" <rpgoldman@gmail.com> Date: Sat, 18 Jan 2014 15:55:26 -0600 Subject: [PATCH] Comment about INITIALIZE-INSTANCE. --- operation.lisp | 2 ++ 1 file changed, 2 insertions(+) diff --git a/operation.lisp b/operation.lisp index 7f18c45a4..6949114fc 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)) -- GitLab