diff options
Diffstat (limited to 'src/interp/lisp-backend.boot')
| -rw-r--r-- | src/interp/lisp-backend.boot | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/interp/lisp-backend.boot b/src/interp/lisp-backend.boot index 73af3a96..efc3e8a6 100644 --- a/src/interp/lisp-backend.boot +++ b/src/interp/lisp-backend.boot @@ -486,6 +486,11 @@ expandTry ['%try,expr,handlers,cleanup] == ++ Opcodes with direct mapping to target operations. for x in [ + -- Lisp keywords + ['%elementType, : KEYWORD::ELEMENT_-TYPE], + ['%initialElement, : KEYWORD::INITIAL_-ELEMENT], + ['%initialContents, : KEYWORD::INITIAL_-CONTENTS], + -- Boolean constants -- ['%false, :'NIL], ['%true, :'T], @@ -620,6 +625,7 @@ for x in [ ['%lconcat, :'APPEND], -- simple vector operations + ['%array, :'MAKE_-ARRAY], ['%vfill, :'FILL], ['%vlength, :'sizeOfSimpleArray], ['%vector, :'VECTOR], @@ -642,6 +648,7 @@ for x in [ ['%strcopy, :'COPY_-SEQ], -- general utility + ['%type2form,:'getVMType], ['%hash, :'SXHASH], ['%equal, :'EQUAL], ['%tref, :'shellEntry], |