There's a bug in sbcl that prevents us to use us as slot name when us is defined as a constant variable.

Pascal J. Bourguignon [2013-06-16 13:18]
There's a bug in sbcl that prevents us to use us as slot name when us is defined as a constant variable.
Filename
common-lisp/telnet/telnet.lisp
diff --git a/common-lisp/telnet/telnet.lisp b/common-lisp/telnet/telnet.lisp
index e2a36e7..0594056 100644
--- a/common-lisp/telnet/telnet.lisp
+++ b/common-lisp/telnet/telnet.lisp
@@ -834,8 +834,9 @@ accompanied by a TCP Urgent notification.")
   ((code :initarg :code
          :reader option-code)
    (name :initarg :name)
-   (us   :initform :no    :type side-option-state
-         :accessor opt-us)
+   (#-sbcl us #+sbcl sbcl-has-a-bug-so-we-cannot-name-our-slot-us-see-|https://bugs.launchpad.net/sbcl/+bug/539540|
+           :initform :no    :type side-option-state
+           :accessor opt-us)
    (usq  :initform :empty :type side-option-queue
          :accessor opt-usq)
    (him  :initform :no    :type side-option-state
ViewGit