Author: fperrad Date: Fri Dec 19 08:54:27 2008 New Revision: 34111 Modified: trunk/languages/lisp/cl.pir
Log: [lisp] - fix opcode removed Modified: trunk/languages/lisp/cl.pir ============================================================================== --- trunk/languages/lisp/cl.pir (original) +++ trunk/languages/lisp/cl.pir Fri Dec 19 08:54:27 2008 @@ -311,7 +311,7 @@ if k > leng goto BOUNDS if k < 0 goto BOUNDS - sstr = str[k] + sstr = substr str, k, 1 retval = new 'LispString' retval = sstr goto DONE
