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

[Joshua TAYLOR]

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