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