diff options
| author | dos-reis <gdr@axiomatics.org> | 2013-05-14 21:17:18 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2013-05-14 21:17:18 +0000 |
| commit | a97a8e2cbc7d6c86f79a5465cba20212deff66c9 (patch) | |
| tree | 5f0b1963e418af41b54cf4fea0ff6a4bc8b48762 /src/interp/define.boot | |
| parent | 99e0f1d94fc9b0326b2b1e3afc6b17708304eadb (diff) | |
| download | open-axiom-a97a8e2cbc7d6c86f79a5465cba20212deff66c9.tar.gz | |
* interp/c-util.boot (cleanParameterList!): New.
* interp/define.boot (spadCompileOrSetq): Use it.
Diffstat (limited to 'src/interp/define.boot')
| -rw-r--r-- | src/interp/define.boot | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index bef1da67..89244baf 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -1,6 +1,6 @@ -- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd. -- All rights reserved. --- Copyright (C) 2007-2012, Gabriel Dos Reis. +-- Copyright (C) 2007-2013, Gabriel Dos Reis. -- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without @@ -2051,14 +2051,7 @@ spadCompileOrSetq(db,form is [nam,[lam,vl,body]]) == --good for performance (LISPLLIB size, BPI size, NILSEC) CONTAINED($ClearBodyToken,body) => sayBrightly ['" ",:bright nam,'" not compiled"] - -- flag parameters needs to be made atomic, otherwise Lisp is confused. - -- We try our best to preserve - -- Note that we don't need substitution in the body because flag - -- parameters are never used in the body. - vl := [ renameParameter for v in vl] where - renameParameter() == - integer? v or ident? v or string? v => v - gensym '"flag" + vl := cleanParameterList! vl if $optReplaceSimpleFunctions then body := replaceSimpleFunctions body |