diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-10-03 02:10:23 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-10-03 02:10:23 +0000 |
| commit | 5a03f408233bf4e17759ace9a83dcf6012f72dcc (patch) | |
| tree | 5af46b5ebca646527bb7ec115cfaaf68d5e00d23 /src/interp/lisp-backend.boot | |
| parent | a2fd94946c6b380e2ee7ec242fd56aa4d52d9c92 (diff) | |
| download | open-axiom-5a03f408233bf4e17759ace9a83dcf6012f72dcc.tar.gz | |
Cleanup.
Diffstat (limited to 'src/interp/lisp-backend.boot')
| -rw-r--r-- | src/interp/lisp-backend.boot | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/interp/lisp-backend.boot b/src/interp/lisp-backend.boot index 778f6d91..89972184 100644 --- a/src/interp/lisp-backend.boot +++ b/src/interp/lisp-backend.boot @@ -194,7 +194,7 @@ expandList(x is ['%list,:args]) == arg is ['QUOTE,form] => form nil args' = 'failed => ['LIST,:args] - quoteForm args' + quote args' expandReturn(x is ['%return,.,y]) == $FUNNAME = nil => systemErrorHere ['expandReturn,x] @@ -290,7 +290,7 @@ expandFgt ['%fgt,x,y] == expandFlt ['%flt,y,x] expandFcstpi ['%fcstpi] == - ['COERCE,'PI,quoteForm '%DoubleFloat] + ['COERCE,'PI,quote '%DoubleFloat] expandFsqrt ['%fsqrt,x] == ['C_-TO_-R,['SQRT,expandToVMForm x]] @@ -338,11 +338,11 @@ expandStrstc ['%strstc,x,y,z] == expandToVMForm ['%store,['%schar,x,y],z] expandBytevec2str ['%bytevec2str,x] == - ['MAP,quoteForm 'STRING, --FIXME: should be '%String, fix when SBCL is fixed. + ['MAP,quote 'STRING, --FIXME: should be '%String, fix when SBCL is fixed. ['FUNCTION,['LAMBDA,['c],['CODE_-CHAR,'c]]],expandToVMForm x] expandStr2bytevec ['%str2bytevec,x] == - ['MAP,quoteForm ['%Vector,'%Byte], + ['MAP,quote ['%Vector,'%Byte], ['FUNCTION,['LAMBDA,['c],['CHAR_-CODE,'c]]],expandToVMForm x] -- bit vector operations @@ -371,7 +371,7 @@ expandBitveccopy ['%bitveccopy,x] == ['COPY_-SEQ,expandToVMForm x] expandBitvecconc ['%bitvecconc,x,y] == - ['CONCATENATE, quoteForm '%BitVector,expandToVMForm x,expandToVMForm y] + ['CONCATENATE, quote '%BitVector,expandToVMForm x,expandToVMForm y] expandBitvecref ['%bitvecref,x,y] == ['SBIT,expandToVMForm x,expandToVMForm y] @@ -384,7 +384,7 @@ expandBitveclt ['%bitveclt,x,y] == expandBitvector ['%bitvector,x,y] == ['MAKE_-ARRAY,['LIST,expandToVMForm x], - KEYWORD::ELEMENT_-TYPE,quoteForm '%Bit, + KEYWORD::ELEMENT_-TYPE,quote '%Bit, KEYWORD::INITIAL_-ELEMENT,expandToVMForm y] --% complex number conversions |