Source

erc / erc-compat.el

Diff from to

File erc-compat.el

 		 (setq i (1+ i) start (1+ start)))
 	       res))))))
 
+(defmacro erc-destructuring-bind (args expr &rest body)
+  "Like `destructuring-bind', but don't error if ARGS don't fit EXPR."
+  `(loop for ,args = ,expr return (progn ,@body)))
+
 (provide 'erc-compat)
 
 ;;; erc-compat.el ends here