diff options
Diffstat (limited to 'src/boot/translator.boot')
| -rw-r--r-- | src/boot/translator.boot | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/boot/translator.boot b/src/boot/translator.boot index f7a6fc36..36f61662 100644 --- a/src/boot/translator.boot +++ b/src/boot/translator.boot @@ -434,11 +434,9 @@ packageBody(x,p) == %hasFeature KEYWORD::CLISP => 'FFI %hasFeature KEYWORD::CLOZURE => 'CCL %hasFeature KEYWORD::ECL => 'FFI - %hasFeature KEYWORD::GCL => 'SI - nil + return nil ident? ns => ns - nil - z = nil => bpTrap() + bpTrap() ['USE_-PACKAGE,symbolName z,:user] x is ['PROGN,:.] => [x.op,:[packageBody(y,p) for y in x.args]] x |