From cb65c7fd822eb7e5b8a32bda101b6f85c6cf3cdd Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 30 Nov 2008 01:16:23 +0000
Subject: 	* interp/define.boot (mustInstantiate): Fix thinko introduced
 by 	earlier tweaks. 	(mkExplicitCategoryFunction): Likewise.

---
 src/algebra/strap/OUTFORM.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/algebra/strap/OUTFORM.lsp')

diff --git a/src/algebra/strap/OUTFORM.lsp b/src/algebra/strap/OUTFORM.lsp
index 97591c7a..d89865c0 100644
--- a/src/algebra/strap/OUTFORM.lsp
+++ b/src/algebra/strap/OUTFORM.lsp
@@ -359,7 +359,7 @@
     (RETURN
       (SEQ (LETT |ss| (|getShellEntry| $ 6)
                  |OUTFORM;doubleFloatFormat;2S;1|)
-           (SETELT $ 6 |s|) (EXIT |ss|))))) 
+           (|setShellEntry| $ 6 |s|) (EXIT |ss|))))) 
 
 (DEFUN |OUTFORM;sform| (|s| $) (DECLARE (IGNORE $)) |s|) 
 
-- 
cgit v1.2.3