0.pre7.68:

[sbcl.git] / src / code / defstruct.lisp

diff --git a/src/code/defstruct.lisp b/src/code/defstruct.lisp
index 00dd740..ab9d722 100644 (file)
--- a/src/code/defstruct.lisp
+++ b/src/code/defstruct.lisp
@@ -868,7 +868,6 @@
 ;;; (INFO :FUNCTION :INLINE-EXPANSSION-DESIGNATOR ..)) for the reader
 ;;; and writer functions of the slot described by DSD.
 (defun accessor-inline-expansion-designators (dd dsd)
-  ;; ordinary tagged non-raw slot case
   (values (lambda ()
            `(lambda (instance)
               (declare (type ,(dd-name dd) instance))