Add LAMBDA-TAG:UNNAMED, needed for cold load.

diff --git a/v7/src/sf/gconst.scm b/v7/src/sf/gconst.scm
index 666fcc9ee87ea4ddc80609ad739905e97b7383c8..d5d0d4c27074a88619bc65c2306c741715ef2a37 100644 (file)
--- a/v7/src/sf/gconst.scm
+++ b/v7/src/sf/gconst.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: gconst.scm,v 4.39 2008/02/10 05:02:21 cph Exp $
+$Id: gconst.scm,v 4.40 2008/02/10 06:11:59 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -36,6 +36,7 @@ USA.
     CHAR-INTEGER-LIMIT
     CHAR:NEWLINE
     FALSE
+    LAMBDA-TAG:UNNAMED                 ;needed for cold load
     THE-EMPTY-STREAM
     TRUE
     UNDEFINED-CONDITIONAL-BRANCH

diff --git a/v7/src/sf/usicon.scm b/v7/src/sf/usicon.scm
index a2dad18501d8f8c67c730579b1f61e6154105bf5..10e194901fe39d36bb5cb9bca8451ad5b298d80e 100644 (file)
--- a/v7/src/sf/usicon.scm
+++ b/v7/src/sf/usicon.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: usicon.scm,v 4.12 2008/02/10 04:42:43 cph Exp $
+$Id: usicon.scm,v 4.13 2008/02/10 06:12:08 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -52,9 +52,11 @@ USA.
                                  FALSE
                                  FIXNUM
                                  FLONUM
+                                 INTERNED-SYMBOL
                                  RATNUM
                                  RECNUM
-                                 TRUE)))
+                                 TRUE
+                                 UNINTERNED-SYMBOL)))
                     (error "USUAL-INTEGRATIONS: not a constant" name))
                 (constant->integration-info object)))
             usual-integrations/constant-names))