From: Alastair Bridgewater Date: Tue, 29 Mar 2011 17:35:44 +0000 (+0000) Subject: 1.0.47.4: Fix slot-documentation for SB-POSIX:TERMIOS slot CC. X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=d335afdcf50b641a0aafd32741e0777d4e12a59b;p=sbcl.git 1.0.47.4: Fix slot-documentation for SB-POSIX:TERMIOS slot CC. * Unlike every other documentation string for a DEFINE-PROTOCOL-CLASS slot, this one documentation string did not end in a period (#\.). Fixed. * While we're at it, alter the DEFINE-PROTOCOL-CLASS macro to not ignore DEFCLASS slot options after an :ARRAY-LENGTH option (reported by mon_key in #lisp). --- diff --git a/contrib/sb-posix/interface.lisp b/contrib/sb-posix/interface.lisp index 3121397..7e10319 100644 --- a/contrib/sb-posix/interface.lisp +++ b/contrib/sb-posix/interface.lisp @@ -8,7 +8,11 @@ (export ',name :sb-posix) (defclass ,name ,superclasses ,(loop for slotd in slots - collect (ldiff slotd (member :array-length slotd))) + ;; KLUDGE: Splice out :ARRAY-LENGTH options (they're + ;; for the conversion functions, not for DEFCLASS). + for array-length-option = (member :array-length slotd) + collect (append (ldiff slotd array-length-option) + (cddr array-length-option))) ,@options) (declaim (inline ,to-alien ,to-protocol)) (declaim (inline ,to-protocol ,to-alien)) @@ -601,7 +605,7 @@ not supported." (lflag :initarg :lflag :accessor sb-posix:termios-lflag :documentation "Local modes.") (cc :initarg :cc :accessor sb-posix:termios-cc :array-length nccs - :documentation "Control characters")) + :documentation "Control characters.")) (:documentation "Instances of this class represent I/O characteristics of the terminal.")) diff --git a/version.lisp-expr b/version.lisp-expr index 7464b07..e046cda 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -20,4 +20,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"1.0.47.3" +"1.0.47.4"