develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r34111 - trunk/languages/lisp

From:
fperrad
Date:
December 19, 2008 08:54
Subject:
[svn:parrot] r34111 - trunk/languages/lisp
Message ID:
20081219165429.AFB3ECBA12@x12.develooper.com
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



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About