Changeset 6053 for branches

Timestamp:

Mar 17, 2007, 6:29:20 PM (18 years ago)

Author:

Gary Byers

Message:

Move the foreign structure definitions to inside
INSTALL-STANDARD-FOREIGN-TYPES.

File:

• branches/objc-gf/ccl/lib/db-io.lisp (modified) (1 diff)

branches/objc-gf/ccl/lib/db-io.lisp

@@ -1727 +1727 @@
 
 
-;;;
-;;; Defining the handful of foreign structures that are used
-;;; to build OpenMCL here ensures that all backends see appropriate
-;;; definitions of them.
-;;;
-(def-foreign-type nil
-    (:struct :cdb-datum
-             (:data (* t))
-             (:size (:unsigned 32))))
-
-(def-foreign-type nil
-    (:struct :dbm-constant
-             (:class (:unsigned 32))
-             (:pad (:unsigned 32))
-             (:value
-              (:union nil
-                      (:s32 (:signed 32))
-                      (:u32 (:unsigned 32))
-                      (:single-float :float)
-                      (:double-float :double)))))
-;;; This matches the xframe-list struct definition in
-;;; "ccl:lisp-kernel;constants.h"
-(def-foreign-type nil
-    (struct :xframe-list
-            (this (* t #|(struct :ucontext)|#))
-            (prev (* (struct  :xframe-list)))))
-