From b0046ba3929c513a399fd1ebb84dee1712c55a02 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 22 Apr 2011 00:58:05 +0000
Subject: 	* boot/utility.boot (copyList): Define. 	(append!):
 Likewise. 	* boot/tokens.boot: Do not translate nconc.

---
 src/interp/fnewmeta.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/fnewmeta.lisp')

diff --git a/src/interp/fnewmeta.lisp b/src/interp/fnewmeta.lisp
index 875a6875..f1cd15e0 100644
--- a/src/interp/fnewmeta.lisp
+++ b/src/interp/fnewmeta.lisp
@@ -775,7 +775,7 @@
                               (AND (|PARSE-GlyphTok| ".")
                                    (MUST (|PARSE-Sexpr1|))
                                    (PUSH-REDUCTION '|PARSE-Sexpr1|
-                                    (NCONC (POP-STACK-2) (POP-STACK-1))))))))
+                                    (|append!| (POP-STACK-2) (POP-STACK-1))))))))
            (MUST (MATCH-ADVANCE-STRING ")"))))) 
 
 
-- 
cgit v1.2.3