refactor: keep enums inside messages when sanitizing

ndantam · Feb 23, 2010 · 19020eb · 19020eb
1 parent 1da9981
commit 19020eb
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/descriptor-functions.lisp b/descriptor-functions.lisp
@@ -159,10 +159,11 @@
 ;; a message
 (defmethod sanitize ((object descriptor-proto) &key parent package)
   (declare (ignore parent))
-  `(,@(map 'list (sanitizer object package) 
-           (slot-bound-value object 'enum-type))
-    (message ,(sanitize-name-slot object 'name package)
-            ,@(map 'list (sanitizer object package) (slot-value object 'field)))))
+  `( (message ,(sanitize-name-slot object 'name package)
+              ,@(map 'list (sanitizer nil package) 
+                     (slot-bound-value object 'enum-type))
+              ,@(map 'list (sanitizer object package) 
+                     (slot-value object 'field)))))
 
 (defun sanitize-type (field-desc package)
   (let ((base-type (slot-value field-desc 'type)))