[cldoc-devel] Re : Patch for handle-slots in cludg.lisp

Iban HATCHONDO hatchond at yahoo.fr
Wed Aug 11 13:07:07 UTC 2010


Hi Joshua,

Thanks for the patch. I'm adding this to handle-slots as well as the second 
patch you're proposing. I've indeed missed this short coding option and the 
custom method qualifiers. Thanks a lot. Do not hesitate if you have any other 
patches.

Best,
Iban.



----- Message d'origine ----
De : Joshua TAYLOR <tayloj at cs.rpi.edu>
À : cldoc-devel at common-lisp.net
Envoyé le : Mer 4 août 2010, 17h 41min 35s
Objet : [cldoc-devel] Patch for handle-slots in cludg.lisp

Here's a little bugfix for handle-slots in cludg.lisp.  The current
version chokes on slot-specifiers that are just the name of the slot,
e.g., in (defclass foo () (slot1 slot2 slot3)).  The update just makes
sure that each slot-specifier is a list (using listify, which was
already present in handle-slots).

@@ -865,7 +865,7 @@
         when (eq key :initarg) collect value into initargs end
         finally (return (list readers writers accessors initargs))))
     (listify (a) (if (listp a) a (list a))))
-    (loop for slot in (mapcar #'listify slots)
+    (loop for slot in slots
      for options = (cdr slot)
      for (readers writers accessors initargs) = (get-repeated options)
      collect

//JT

_______________________________________________
cldoc-devel mailing list
cldoc-devel at common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/cldoc-devel



      





More information about the cldoc-devel mailing list