[movitz-cvs] CVS update: movitz/compiler-types.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv10017

Modified Files:
	compiler-types.lisp 
Log Message:
Added docstring to member-type-encode.

Date: Thu Feb 12 12:51:41 2004
Author: ffjeld

Index: movitz/compiler-types.lisp
diff -u movitz/compiler-types.lisp:1.4 movitz/compiler-types.lisp:1.5
--- movitz/compiler-types.lisp:1.4	Thu Feb 12 06:32:56 2004
+++ movitz/compiler-types.lisp	Thu Feb 12 12:51:41 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Wed Sep 10 00:40:07 2003
 ;;;;                
-;;;; $Id: compiler-types.lisp,v 1.4 2004/02/12 11:32:56 ffjeld Exp $
+;;;; $Id: compiler-types.lisp,v 1.5 2004/02/12 17:51:41 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -531,6 +531,7 @@
 	     (type-specifier-encode (apply deriver (cdr type-specifier))))))))))
 
 (defun member-type-encode (&rest member-objects)
+  "Encode a member type-specifier holding member-objects."
   (declare (dynamic-extent members))
   (multiple-value-bind (code integer-range members include complement)
       (type-specifier-encode nil)