[closer-devel] Closer-mop support for ABCL

[Rudolf Schlatte]

On Aug 26, 2012, at 18:40, Pascal Costanza <pc at p-cos.net> wrote:

[...]

> However, the error message doesn't seem to make any sense:
> 
> Error loading /Users/costanza/lisp/develop/closer/contextl/test/demo3.lisp at line 51 (offset 1410)
> #<THREAD "interpreter" {3ADE1520}>: Debugger invoked on condition of type TYPE-ERROR
>  The value 1 is not of type (INTEGER 0 1).

Ah, I copied the type-error-generating code from standard-instance-access which already implemented the bounds check, clearly the upper bound is mis-reported in both places.  Will fix.

> Restarts:
>  0: TOP-LEVEL Return to top level.
> [1] CX-USER(2): :bt
> 
>  0: (SYSTEM:BACKTRACE)
>  1: (INVOKE-DEBUGGER #<TYPE-ERROR {4ADA1DC}>)
>  2: org.armedbear.lisp.Lisp.error(Lisp.java:382)
>  3: org.armedbear.lisp.Lisp.type_error(Lisp.java:423)
>  4: org.armedbear.lisp.StandardObject$pf__set_standard_instance_access.execute(StandardObject.java:489)
>  5: org.armedbear.lisp.Symbol.execute(Symbol.java:825)
>  6: org.armedbear.lisp.LispThread.execute(LispThread.java:666)
>  7: org.armedbear.lisp.clos_671.execute(clos.lisp:3409)

Frame 7 is from (setf slot-value-using-class); expanding the backtrace further will show where that one is called.

Rudi