[Openmcl-cvs-notifications] r10864 - /trunk/source/level-0/l0-misc.lisp

[gb at clozure.com]

Author: gb
Date: Wed Sep 24 10:17:18 2008
New Revision: 10864

Log:
Define mostly useless versions of some foreign type things early, so
that we can use RLET in files that load before the real foreign type
system without having to bootstrap changes to "canonical foreign type
ordinals".  (A pointer to non-canonical foreign-type will be looked
up as a pointer to :void, which is better than blowing up ...)  It's
still desirable to use the canonical-foreign-type-ordinals nonsense,
but hopefully not mandatory to bootstrap everything in the right order.

Modified:
    trunk/source/level-0/l0-misc.lisp

Modified: trunk/source/level-0/l0-misc.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-0/l0-misc.lisp (original)
+++ trunk/source/level-0/l0-misc.lisp Wed Sep 24 10:17:18 2008
@@ -1130,3 +1130,10 @@
       (check-type dest macptr)))
   (without-interrupts                   ;reentrancy
    (%safe-get-ptr p dest)))
+
+
+;;; Useless for anything but using RLET in early level-1 code without
+;;; having to bootstrap canonical type ordinals.
+(%fhave 'parse-foreign-type (lambda (spec) (declare (ignore spec))))
+(%fhave 'foreign-type-ordinal (lambda (thing) (declare (ignore thing)) 0))
+(%fhave '%foreign-type-or-record (lambda (x) (declare (ignore x))))