diff --git a/ase/lsp/eval.c b/ase/lsp/eval.c
index 948784f7..a6285801 100644
--- a/ase/lsp/eval.c
+++ b/ase/lsp/eval.c
@@ -1,5 +1,5 @@
 /*
- * $Id: eval.c,v 1.27 2007-02-17 15:27:19 bacon Exp $
+ * $Id: eval.c,v 1.28 2007-03-07 12:14:28 bacon Exp $
  *
  * {License}
  */
@@ -112,7 +112,7 @@ static ase_lsp_obj_t* eval_cons (ase_lsp_t* lsp, ase_lsp_obj_t* cons)
 {
 	ase_lsp_obj_t* car, * cdr;
    
-	ASE_LSP_ASSERT (lsp, ASE_LSP_TYPE(cons) == ASE_LSP_OBJ_CONS);
+	ASE_ASSERT (ASE_LSP_TYPE(cons) == ASE_LSP_OBJ_CONS);
 
 	car = ASE_LSP_CAR(cons);
 	cdr = ASE_LSP_CDR(cons);
@@ -218,12 +218,10 @@ static ase_lsp_obj_t* apply (
 	ase_lsp_obj_t* value;
 	ase_lsp_mem_t* mem;
 
-	ASE_LSP_ASSERT (lsp,
-		ASE_LSP_TYPE(func) == ASE_LSP_OBJ_FUNC ||
-		ASE_LSP_TYPE(func) == ASE_LSP_OBJ_MACRO);
+	ASE_ASSERT (ASE_LSP_TYPE(func) == ASE_LSP_OBJ_FUNC ||
+	            ASE_LSP_TYPE(func) == ASE_LSP_OBJ_MACRO);
 
-	ASE_LSP_ASSERT (lsp,
-		ASE_LSP_TYPE(ASE_LSP_CDR(func)) == ASE_LSP_OBJ_CONS);
+	ASE_ASSERT (ASE_LSP_TYPE(ASE_LSP_CDR(func)) == ASE_LSP_OBJ_CONS);
 
 	mem = lsp->mem;
 
@@ -352,7 +350,7 @@ static ase_lsp_obj_t* apply_to_prim (
 	ase_lsp_obj_t* obj;
 	ase_size_t count = 0;
 
-	ASE_LSP_ASSERT (lsp, ASE_LSP_TYPE(func) == ASE_LSP_OBJ_PRIM);
+	ASE_ASSERT (ASE_LSP_TYPE(func) == ASE_LSP_OBJ_PRIM);
 
 	obj = actual;
 	while (ASE_LSP_TYPE(obj) == ASE_LSP_OBJ_CONS) 
diff --git a/ase/lsp/lsp.c b/ase/lsp/lsp.c
index 70b1ecd5..1250112d 100644
--- a/ase/lsp/lsp.c
+++ b/ase/lsp/lsp.c
@@ -1,5 +1,5 @@
 /*
- * $Id: lsp.c,v 1.27 2007-03-06 14:58:00 bacon Exp $
+ * $Id: lsp.c,v 1.28 2007-03-07 12:14:29 bacon Exp $
  *
  * {License}
  */
@@ -105,7 +105,7 @@ int ase_lsp_attinput (ase_lsp_t* lsp, ase_lsp_io_t input, void* arg)
 {
 	if (ase_lsp_detinput(lsp) == -1) return -1;
 
-	ASE_LSP_ASSERT (lsp, lsp->input_func == ASE_NULL);
+	ASE_ASSERT (lsp->input_func == ASE_NULL);
 
 	if (input(ASE_LSP_IO_OPEN, arg, ASE_NULL, 0) == -1) 
 	{
@@ -141,7 +141,7 @@ int ase_lsp_attoutput (ase_lsp_t* lsp, ase_lsp_io_t output, void* arg)
 {
 	if (ase_lsp_detoutput(lsp) == -1) return -1;
 
-	ASE_LSP_ASSERT (lsp, lsp->output_func == ASE_NULL);
+	ASE_ASSERT (lsp->output_func == ASE_NULL);
 
 	if (output(ASE_LSP_IO_OPEN, arg, ASE_NULL, 0) == -1) 
 	{
diff --git a/ase/lsp/misc.c b/ase/lsp/misc.c
index 1977263a..2698a0bd 100644
--- a/ase/lsp/misc.c
+++ b/ase/lsp/misc.c
@@ -1,5 +1,5 @@
 /*
- * $Id: misc.c,v 1.11 2007-03-06 14:58:00 bacon Exp $
+ * $Id: misc.c,v 1.12 2007-03-07 12:14:29 bacon Exp $
  *
  * {License}
  */
@@ -16,7 +16,7 @@ ase_long_t ase_lsp_strxtolong (
 	ase_size_t rem;
 	int digit, negative = 0;
 
-	ASE_LSP_ASSERT (lsp, base < 37); 
+	ASE_ASSERT (base < 37); 
 
 	p = str; 
 	end = str + len;
diff --git a/ase/lsp/name.c b/ase/lsp/name.c
index b1c883ed..cf889e93 100644
--- a/ase/lsp/name.c
+++ b/ase/lsp/name.c
@@ -1,5 +1,5 @@
 /*
- * $Id: name.c,v 1.15 2007-02-23 10:53:39 bacon Exp $
+ * $Id: name.c,v 1.16 2007-03-07 12:14:29 bacon Exp $
  *
  * {License}
  */
@@ -47,7 +47,7 @@ void ase_lsp_name_close (ase_lsp_name_t* name)
 {
 	if (name->capa >= ASE_COUNTOF(name->static_buf)) 
 	{
-		ASE_LSP_ASSERT (name->lsp, name->buf != name->static_buf);
+		ASE_ASSERT (name->buf != name->static_buf);
 		ASE_LSP_FREE (name->lsp, name->buf);
 	}
 	if (name->__dynamic) ASE_LSP_FREE (name->lsp, name);
diff --git a/ase/lsp/prim.c b/ase/lsp/prim.c
index 71617d0e..fa03d7e9 100644
--- a/ase/lsp/prim.c
+++ b/ase/lsp/prim.c
@@ -1,5 +1,5 @@
 /*
- * $Id: prim.c,v 1.23 2007-02-13 06:00:20 bacon Exp $
+ * $Id: prim.c,v 1.24 2007-03-07 12:14:29 bacon Exp $
  *
  * {License}
  */
@@ -69,7 +69,7 @@ ase_lsp_obj_t* ase_lsp_prim_eval (ase_lsp_t* lsp, ase_lsp_obj_t* args)
 {
 	ase_lsp_obj_t* tmp1, * tmp2;
 
-	ASE_LSP_ASSERT (lsp, ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
+	ASE_ASSERT (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
 
 	tmp1 = ase_lsp_eval (lsp, ASE_LSP_CAR(args));
 	if (tmp1 == ASE_NULL) return ASE_NULL;
@@ -170,7 +170,7 @@ ase_lsp_obj_t* ase_lsp_prim_if (ase_lsp_t* lsp, ase_lsp_obj_t* args)
 {
 	ase_lsp_obj_t* tmp;
 
-	ASE_LSP_ASSERT (lsp, ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
+	ASE_ASSERT (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
 	
 	tmp = ase_lsp_eval (lsp, ASE_LSP_CAR(args));
 	if (tmp == ASE_NULL) return ASE_NULL;
@@ -241,7 +241,7 @@ ase_lsp_obj_t* ase_lsp_prim_while (ase_lsp_t* lsp, ase_lsp_obj_t* args)
 
 	ase_lsp_obj_t* tmp;
 
-	ASE_LSP_ASSERT (lsp, ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
+	ASE_ASSERT (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
 
 	while (1)
 	{
@@ -285,7 +285,7 @@ ase_lsp_obj_t* ase_lsp_prim_car (ase_lsp_t* lsp, ase_lsp_obj_t* args)
 
 	ase_lsp_obj_t* tmp;
 
-	ASE_LSP_ASSERT (lsp, ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
+	ASE_ASSERT (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
 
 	tmp = ase_lsp_eval (lsp, ASE_LSP_CAR(args));
 	if (tmp == ASE_NULL) return ASE_NULL;
@@ -308,7 +308,7 @@ ase_lsp_obj_t* ase_lsp_prim_cdr (ase_lsp_t* lsp, ase_lsp_obj_t* args)
 
 	ase_lsp_obj_t* tmp;
 
-	ASE_LSP_ASSERT (lsp, ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
+	ASE_ASSERT (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
 
 	tmp = ase_lsp_eval (lsp, ASE_LSP_CAR(args));
 	if (tmp == ASE_NULL) return ASE_NULL;
@@ -332,7 +332,7 @@ ase_lsp_obj_t* ase_lsp_prim_cons (ase_lsp_t* lsp, ase_lsp_obj_t* args)
 
 	ase_lsp_obj_t* car, * cdr, * cons;
 
-	ASE_LSP_ASSERT (lsp, ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
+	ASE_ASSERT (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
 
 	car = ase_lsp_eval (lsp, ASE_LSP_CAR(args));
 	if (car == ASE_NULL) return ASE_NULL;
@@ -370,7 +370,7 @@ ase_lsp_obj_t* ase_lsp_prim_length (ase_lsp_t* lsp, ase_lsp_obj_t* args)
 	ase_lsp_obj_t* body, * tmp;
 	ase_long_t len = 0;
 
-	ASE_LSP_ASSERT (lsp, ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
+	ASE_ASSERT (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
 
 	body = args;
 	while (ASE_LSP_TYPE(body) == ASE_LSP_OBJ_CONS) 
@@ -421,7 +421,7 @@ ase_lsp_obj_t* ase_lsp_prim_length (ase_lsp_t* lsp, ase_lsp_obj_t* args)
 		body = ASE_LSP_CDR(body);
 	}
 
-	ASE_LSP_ASSERT (lsp, body == lsp->mem->nil);
+	ASE_ASSERT (body == lsp->mem->nil);
 	return ase_lsp_makeintobj (lsp->mem, len);
 }
 
@@ -435,7 +435,7 @@ ase_lsp_obj_t* ase_lsp_prim_set (ase_lsp_t* lsp, ase_lsp_obj_t* args)
 
 	ase_lsp_obj_t* p1, * p2;
 
-	ASE_LSP_ASSERT (lsp, ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
+	ASE_ASSERT (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
 
 	p1 = ase_lsp_eval (lsp, ASE_LSP_CAR(args));
 	if (p1 == ASE_NULL) return ASE_NULL;
@@ -486,7 +486,7 @@ ase_lsp_obj_t* ase_lsp_prim_setq (ase_lsp_t* lsp, ase_lsp_obj_t* args)
 
 	while (p != lsp->mem->nil) 
 	{
-		ASE_LSP_ASSERT (lsp, ASE_LSP_TYPE(p) == ASE_LSP_OBJ_CONS);
+		ASE_ASSERT (ASE_LSP_TYPE(p) == ASE_LSP_OBJ_CONS);
 
 		p1 = ASE_LSP_CAR(p);
 		if (ASE_LSP_TYPE(p1) != ASE_LSP_OBJ_SYM) 
@@ -525,7 +525,7 @@ ase_lsp_obj_t* ase_lsp_prim_quote (ase_lsp_t* lsp, ase_lsp_obj_t* args)
 	 * (quote (10 20 30 50))
 	 */
 
-	ASE_LSP_ASSERT (lsp, ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
+	ASE_ASSERT (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
 	return ASE_LSP_CAR(args);
 }
 
diff --git a/ase/lsp/prim_compar.c b/ase/lsp/prim_compar.c
index 8a8b373f..ebc91126 100644
--- a/ase/lsp/prim_compar.c
+++ b/ase/lsp/prim_compar.c
@@ -1,5 +1,5 @@
 /*
- * $Id: prim_compar.c,v 1.14 2007-02-23 10:53:39 bacon Exp $
+ * $Id: prim_compar.c,v 1.15 2007-03-07 12:14:29 bacon Exp $
  *
  * {License}
  */
@@ -10,7 +10,7 @@
 { \
 	ase_lsp_obj_t* p1, * p2; \
 	int res; \
-	ASE_LSP_ASSERT (lsp, ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS); \
+	ASE_ASSERT (lsp, ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS); \
 \
 	p1 = ase_lsp_eval (lsp, ASE_LSP_CAR(args)); \
 	if (p1 == ASE_NULL) return ASE_NULL; \