Skip to content
Snippets Groups Projects
Commit 872e560e authored by Robert P. Goldman's avatar Robert P. Goldman
Browse files

Comment about INITIALIZE-INSTANCE.

parent 28a5c936
No related branches found
No related tags found
No related merge requests found
...@@ -22,6 +22,8 @@ ...@@ -22,6 +22,8 @@
((original-initargs ;; for backward-compat -- used by GBBopen and swank (via operation-forced) ((original-initargs ;; for backward-compat -- used by GBBopen and swank (via operation-forced)
:initform nil :initarg :original-initargs :accessor operation-original-initargs))) :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 (defmethod initialize-instance :after ((o operation) &rest initargs
&key force force-not system verbose &allow-other-keys) &key force force-not system verbose &allow-other-keys)
(declare (ignorable force force-not system verbose)) (declare (ignorable force force-not system verbose))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment