diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-08-11 04:58:15 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-08-11 04:58:15 +0000 |
| commit | 7d8802bb51e5f907e661469b94bf352766d7ffde (patch) | |
| tree | 0df2118585747139d2e6a0a0c50086f73abe6b55 /src/interp | |
| parent | 7c7d44f1dc284e4c4e231d97023aa87ecd5f8e44 (diff) | |
| download | open-axiom-7d8802bb51e5f907e661469b94bf352766d7ffde.tar.gz | |
* interp/lisp-backend.boot (expandBytevec2str): Use MAP instead of
COERCE. Eliminate second argument.
(expandStr2bytevec): Use MAP instead of COERCE.
* algebra/data.spad.pamphlet (ByteBuffer) [coerce]: Adjust call to
%bytevec2str.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/lisp-backend.boot | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/interp/lisp-backend.boot b/src/interp/lisp-backend.boot index 8426a531..36075241 100644 --- a/src/interp/lisp-backend.boot +++ b/src/interp/lisp-backend.boot @@ -317,11 +317,13 @@ expandStrlt ['%strlt,x,y] == expandStrstc ['%strstc,x,y,z] == expandToVMForm ['%store,['%schar,x,y],z] -expandBytevec2str ['%bytevec2str,x,y] == - ['COERCE,['SUBSEQ,expandToVMForm x,0,expandToVMForm y],quoteForm '%String] +expandBytevec2str ['%bytevec2str,x] == + ['MAP,quoteForm 'STRING, --FIXME: should be '%String, fix when SBCL is fixed. + ['FUNCTION,['LAMBDA,['c],['CODE_-CHAR,'c]]],expandToVMForm x] expandStr2bytevec ['%str2bytevec,x] == - ['COERCE,expandToVMForm x,quoteForm ['%Vector,'%Byte]] + ['MAP,quoteForm ['%Vector,'%Byte], + ['FUNCTION,['LAMBDA,['c],['CHAR_-CODE,'c]]],expandToVMForm x] -- bit vector operations expandBitvecnot ['%bitvecnot,x] == |