From 644c54fa10e380f35a1d0880a79afbd29a8b2af7 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 28 Apr 2012 15:23:15 +0000 Subject: * interp/boot-pkg.lisp (gensym?): Check for non-null object. * interp/clammed.boot: Use it in lieu of GENSYMP. * interp/debug.lisp: Likewise. * interp/g-opt.boot: Likewise. * interp/g-util.boot: Likewise. * interp/i-analy.boot: Likewise. * interp/trace.boot: Likewise. * interp/vmlisp.lisp (GENSYMP): Remove. --- src/interp/g-util.boot | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/interp/g-util.boot') diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot index 95d26cb4..9ed9468b 100644 --- a/src/interp/g-util.boot +++ b/src/interp/g-util.boot @@ -1101,7 +1101,7 @@ charDigitVal c == n gensymInt g == - not GENSYMP g => error '"Need a GENSYM" + not gensym? g => error '"Need a GENSYM" p := symbolName g n := 0 for i in 2..maxIndex p repeat -- cgit v1.2.3