Update of /project/oct/cvsroot/oct In directory clnet:/tmp/cvs-serv16645 Modified Files: qd-class.lisp Log Message: Add or cleanup some docstrings. --- /project/oct/cvsroot/oct/qd-class.lisp 2007/10/16 02:39:21 1.29 +++ /project/oct/cvsroot/oct/qd-class.lisp 2008/07/18 17:01:51 1.30 @@ -33,7 +33,8 @@ ((qd :initform +qd-zero+ :reader qd-value :initarg :value - :type %quad-double))) + :type %quad-double)) + (:documentation "QUAD-DOUBLE real number")) (defclass qd-complex () ((real :initform +qd-zero+ @@ -43,7 +44,8 @@ (imag :initform +qd-zero+ :reader qd-imag :initarg :imag - :type %quad-double))) + :type %quad-double)) + (:documentation "Complex number consisting of QUAD-DOUBLE components")) #-cmu (defmethod print-object ((qd qd-real) stream)