[Openmcl-cvs-notifications] r10427 - in /trunk/source: lib/foreign-types.lisp library/lispequ.lisp

[gb at clozure.com]

Author: gb
Date: Mon Aug 11 00:03:48 2008
New Revision: 10427

Log:
%CONS-FOREIGN-VARIABLE back to foreign-types.lisp (Solaris needs this
early in the cold load.)

Modified:
    trunk/source/lib/foreign-types.lisp
    trunk/source/library/lispequ.lisp

Modified: trunk/source/lib/foreign-types.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/lib/foreign-types.lisp (original)
+++ trunk/source/lib/foreign-types.lisp Mon Aug 11 00:03:48 2008
@@ -1419,6 +1419,8 @@
 =

 =

 =

+(defun %cons-foreign-variable (name type &optional container)
+  (%istruct 'foreign-variable nil name type container))
 =

 (defmethod make-load-form ((fv foreign-variable) &optional env)
   (declare (ignore env))

Modified: trunk/source/library/lispequ.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/library/lispequ.lisp (original)
+++ trunk/source/library/lispequ.lisp Mon Aug 11 00:03:48 2008
@@ -1389,8 +1389,6 @@
   fv.container                          ; containing library
   )
 =

-(defun %cons-foreign-variable (name type &optional container)
-  (%istruct 'foreign-variable nil name type container))
 =

 (def-accessor-macros %svref
     nil					;'shlib