Changeset 6050 for branches

Timestamp:

Mar 16, 2007, 11:44:05 PM (18 years ago)

Author:

Gary Byers

Message:

Call INSTALL-STANDARD-FOREIGN-TYPES and CANONICALIZE-FOREIGN-TYPE-ORDINALS during
the cold load.

File:

• branches/objc-gf/ccl/level-1/l1-boot-2.lisp (modified) (2 diffs)

branches/objc-gf/ccl/level-1/l1-boot-2.lisp

@@ -227 +227 @@
 
       (bin-load-provide "FOREIGN-TYPES" "foreign-types")
-
+      (install-standard-foreign-types *host-ftd*)
+      
       #+(and ppc32-target linux-target)
       (bin-load-provide "FFI-LINUXPPC32" "ffi-linuxppc32")
@@ -244 +245 @@
       
       (bin-load-provide "DB-IO" "db-io")
+
+      (canonicalize-foreign-type-ordinals *host-ftd*)
       
       (bin-load-provide "CASE-ERROR" "case-error")