X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/blobdiff_plain/1dc0d275c03f63aa59f5674b8a1b9f4dfd6ccf80..1a50efd8a9e976bf16a29ce381ea38c6b9a39ea1:/anaphora.lisp diff --git a/anaphora.lisp b/anaphora.lisp index 0b8cd3e..9e7d820 100644 --- a/anaphora.lisp +++ b/anaphora.lisp @@ -13,12 +13,12 @@ ;;; it under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 2 of the License, or ;;; (at your option) any later version. -;;; +;;; ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. -;;; +;;; ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software Foundation, ;;; Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. @@ -89,7 +89,7 @@ ,setform))) (foo rest)))))) (cons 'progn (foo pairs)))) - + (defmacro acond (&rest clauses) "Like `cond', but in each clause the consequent has `it' bound to the value of its guard."