From c17f22c0fea71fba2e99aad1e7292be1963ae96d Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 10 May 2009 22:50:44 +0000
Subject: 	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.

---
 src/interp/nrunopt.boot | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/interp/nrunopt.boot')

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
-- 
cgit v1.2.3