Changeset 447

Timestamp:

Jan 31, 2004, 6:55:22 PM (21 years ago)

Author:

Gary Byers

Message:

Unparse :VOID, use keywords more consistently when unparsing.

File:

• trunk/ccl/lib/foreign-types.lisp (modified) (4 diffs)

trunk/ccl/lib/foreign-types.lisp

@@ -564 +564 @@
 
 (def-foreign-type-method (root :unparse) (type)
-  `(!!unknown-foreign-type!! ,(type-of type)))
+  (if (eq type *void-foreign-type*)
+    :void
+    `(!!unknown-foreign-type!! ,(type-of type))))
 
 (def-foreign-type-method (root :type=) (type1 type2)
@@ -841 +843 @@
 (def-foreign-type-method (pointer :unparse) (type)
   (let ((to (foreign-pointer-type-to type)))
-    `(* ,(if to
+    `(:* ,(if to
              (%unparse-foreign-type to)
              t))))
@@ -1057 +1059 @@
 (def-foreign-type-method (record :unparse) (type)
   `(,(case (foreign-record-type-kind type)
-       (:struct 'struct)
-       (:union 'union)
+       (:struct :struct)
+       (:union :union)
        (t '???))
     ,(foreign-record-type-name type)
@@ -1427 +1429 @@
 
 (def-foreign-type void (root))
+(defvar *void-foreign-type* (parse-foreign-type :void)
 (def-foreign-type address (* :void))