[Openmcl-cvs-notifications] r11181 - /trunk/source/lib/foreign-types.lisp

[gb at clozure.com]

Author: gb
Date: Mon Oct 20 01:44:38 2008
New Revision: 11181

Log:
On at least some platforms, an ffcall result type can be something
like (:struct :foo), so widen the type restriction on
EXTERNAL-FUNCTION-DEFINITION-RESULT-TYPE.

Modified:
    trunk/source/lib/foreign-types.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 Oct 20 01:44:38 2008
@@ -1487,7 +1487,7 @@
                                          )
   (entry-name "" :type string)
   (arg-specs () :type list)
-  (result-spec nil :type symbol)
+  (result-spec nil :type (or symbol list))
   (min-args 0 :type fixnum))
 =

 =