From 1f9108e3fcae86cbddf8590bc258b8c77b29b706 Mon Sep 17 00:00:00 2001 From: AJ Rossini Date: Sat, 18 Jul 2009 11:46:33 +0200 Subject: [PATCH] macro problem -- code was out of quote, fixed. Signed-off-by: AJ Rossini --- src/data/data.lisp | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/src/data/data.lisp b/src/data/data.lisp index 7aaa7ed..cb03677 100644 --- a/src/data/data.lisp +++ b/src/data/data.lisp @@ -1,6 +1,6 @@ ;;; -*- mode: lisp -*- -;;; Time-stamp: <2009-07-14 19:32:04 tony> +;;; Time-stamp: <2009-07-18 11:44:57 tony> ;;; Creation: <2005-08-xx 21:34:07 rossini> ;;; File: data.lisp ;;; Author: AJ Rossini @@ -263,12 +263,13 @@ VAR is not evaluated and must be a symbol. Assigns the value of FORM to VAR and adds VAR to the list *VARIABLES* of def'ed variables. Returns VAR. If VAR is already bound and the global variable *ASK-ON-REDEFINE* is not nil then you are asked if you want to redefine the variable." - `(unless (and *ask-on-redefine* - (boundp ',symbol) - (not (y-or-n-p "Variable has a value. Redefine?"))) - (defparameter ,symbol ,value)) - (pushnew ',symbol *variables*) - ',symbol) + `(progn + (unless (and *ask-on-redefine* + (boundp ',symbol) + (not (y-or-n-p "Variable has a value. Redefine?"))) + (defparameter ,symbol ,value)) + (pushnew ',symbol *variables*) + ',symbol)) (defun variables-list () "Return list of variables as a lisp list of strings." -- 2.11.4.GIT