X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fhost-alieneval.lisp;h=3fa574fe313051d24d8120c9013baab521e3cb25;hb=2db3b6b4cb740d5b6512459c223859f747807b09;hp=647dc3975be2c43ee15c4436a387ccbc10b2f7e7;hpb=86210c4e406c1b2ff10cc3bac0e71435867db48b;p=sbcl.git

diff --git a/src/code/host-alieneval.lisp b/src/code/host-alieneval.lisp
index 647dc39..3fa574f 100644
--- a/src/code/host-alieneval.lisp
+++ b/src/code/host-alieneval.lisp
@@ -599,10 +599,10 @@
 (define-alien-type-class (enum :include (integer (bits 32))
 			       :include-args (signed))
   name		; name of this enum (if any)
-  from		; alist from keywords to integers.
-  to		; alist or vector from integers to keywords.
-  kind		; Kind of from mapping, :vector or :alist.
-  offset)	; Offset to add to value for :vector from mapping.
+  from		; alist from keywords to integers
+  to		; alist or vector from integers to keywords
+  kind		; kind of from mapping, :VECTOR or :ALIST
+  offset)	; offset to add to value for :VECTOR from mapping
 
 (define-alien-type-translator enum (&whole
 				 type name