diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-05-14 15:55:16 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-05-14 15:55:16 +0000 |
| commit | b577f3615e65146f1efaa37d18ff3abfbe215695 (patch) | |
| tree | ece48f2ccdc1cb8181ee29d97cd2acc4d3ccabab /src/boot | |
| parent | cdb5cbfed6119715bb5871256007e15bd2d212c5 (diff) | |
| download | open-axiom-b577f3615e65146f1efaa37d18ff3abfbe215695.tar.gz | |
* algebra/any.spad.pamphlet (RuntimeValue): New domain.
* algebra/Makefile.pamphlet ($(OUT)/RTVALUE.$(FASLEXT)): New rule.
Diffstat (limited to 'src/boot')
| -rw-r--r-- | src/boot/ast.boot | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/boot/ast.boot b/src/boot/ast.boot index b49f149f..95d7cbc5 100644 --- a/src/boot/ast.boot +++ b/src/boot/ast.boot @@ -1615,16 +1615,20 @@ genSBCLnativeTranslation(op,s,t,op') == newArgs := [coerceToNativeType(a,x), :newArgs] if needsStableReference? x then unstableArgs := [a,:unstableArgs] + + op' := + %hasFeature KEYWORD::WIN32 => strconc('"__",SYMBOL_-NAME op') + SYMBOL_-NAME op' null unstableArgs => [["DEFUN",op,args, [INTERN('"ALIEN-FUNCALL",'"SB-ALIEN"), - [INTERN('"EXTERN-ALIEN",'"SB-ALIEN"),SYMBOL_-NAME op', + [INTERN('"EXTERN-ALIEN",'"SB-ALIEN"), op', ["FUNCTION",rettype,:argtypes]], :args]]] [["DEFUN",op,args, [bfColonColon("SB-SYS","WITH-PINNED-OBJECTS"), nreverse unstableArgs, [INTERN('"ALIEN-FUNCALL",'"SB-ALIEN"), - [INTERN('"EXTERN-ALIEN",'"SB-ALIEN"),SYMBOL_-NAME op', + [INTERN('"EXTERN-ALIEN",'"SB-ALIEN"), op', ["FUNCTION",rettype,:argtypes]], :nreverse newArgs]]]] |