Having nil in decl

[kiselgra]

When generating decl forms we might have conditional declarations such as

(defmacro my-decls (decls &body body)
  (decl ,(loop for d in decls collect (if (keep d) d))))

This works fine, but for the filtered-out declarations a superflous line containing a ';' appears.

This is more easily reproduced by

(decl ((int x)
      nil
      (int y))

[lispbub]

,(remove nil (loop ... )) usually solves that

[kiselgra]

Could have thought of that, sorry.

But thanks for the fix :)