[oct-cvs] Oct commit: oct qd-class.lisp

[rtoy]

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)