diff options
| author | Robert Brown <robert.brown@gmail.com> | 2022-12-03 14:18:10 -0500 |
|---|---|---|
| committer | Robert Brown <robert.brown@gmail.com> | 2022-12-03 14:18:10 -0500 |
| commit | 2fb83983825440fb650925aa959448982dbb290a (patch) | |
| tree | 27cd7f9212b62f5aa9b3fa722d36013d66d9dba0 | |
| parent | 4ec6a63644056aa70da44e4fdae567270e3e1efe (diff) | |
Ensure required slots of SWANK-CONNECTION are initialized.
Add :INITFORMs that call MISSING-ARGUMENT for slots HOST-NAME, PORT, and
USOCKET of class SWANK-CONNECTION to ensure these slots are initialized.
| -rw-r--r-- | swank-client.lisp | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/swank-client.lisp b/swank-client.lisp index fd7a776..8271c58 100644 --- a/swank-client.lisp +++ b/swank-client.lisp @@ -43,14 +43,17 @@ ((host-name :reader host-name :type string :initarg :host-name + :initform (missing-argument) :documentation "Name of the host where the Swank server is running.") (port :reader port :type port :initarg :port + :initform (missing-argument) :documentation "Port number used to make a Swank server connection.") (usocket :reader usocket :type stream-usocket :initarg :usocket + :initform (missing-argument) :documentation "USOCKET used to communicate with the Swank server.") (thread-offset :reader thread-offset :initform (incf *thread-offset* +maximum-thread-count+) |