aboutsummaryrefslogtreecommitdiff
path: root/src/interp/nrunopt.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2009-05-10 22:50:44 +0000
committerdos-reis <gdr@axiomatics.org>2009-05-10 22:50:44 +0000
commitc17f22c0fea71fba2e99aad1e7292be1963ae96d (patch)
treef51301306df7b6a741e9506d1af5abf7512af49e /src/interp/nrunopt.boot
parent76905b59dbaaac8fab4892067e973312fd86dde9 (diff)
downloadopen-axiom-c17f22c0fea71fba2e99aad1e7292be1963ae96d.tar.gz
Cope with SBCL-1.0.28 improvements.
* boot/translator.boot (translateToplevel): Load imported modules. * boot/ast.boot ($constantIdentifiers): New. ($activeNamespace): Likewise. (bfSimpleDefinition): Likewise. (isDynamicVariable): Likewise. (shoeCompTran1): Tidy. Use it. * boot/parser.boot (bpSimpleDefinitionTail): Use bfSimpleDefinition. * boot/Makefile.in (stage1/%.clisp): Specify load directory. (stage2/%.clisp): Likewise. * lisp/core.lisp.in (startCompileDuration): Export. (endCompileDuration): Likewise.
Diffstat (limited to 'src/interp/nrunopt.boot')
-rw-r--r--src/interp/nrunopt.boot2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/interp/nrunopt.boot b/src/interp/nrunopt.boot
index c3aa691f..c0042bf8 100644
--- a/src/interp/nrunopt.boot
+++ b/src/interp/nrunopt.boot
@@ -558,6 +558,8 @@ dcOpPrint(op,index) ==
slotNumber = 1 => '"missing"
name := $infovec.0.slotNumber
atom name => name
+ name is ["CONS","IDENTITY",
+ ["FUNCALL", ["dispatchFunction", impl],"$"]] => impl
'"looked up"
sayBrightly [:formatOpSignature(op,signumList),:namePart, :suffix]
index + 1