Changeset 862

Timestamp:

Aug 30, 2004, 2:25:52 PM (20 years ago)

Author:

Gary Byers

Message:

Make (:* T) be shorthand for (:* :VOID). May lead to (benign) redefinition
warnings.

File:

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

trunk/ccl/lib/foreign-types.lisp

@@ -838 +838 @@
                                                       #-alpha 32
                                                       #+alpha 64)))
-  (to nil :type (or foreign-type null)))
+  (to *void-foreign-type* :type foreign-type))
 
 (def-foreign-type-translator * (to)
-  (make-foreign-pointer-type :to (if (eq to t) nil (parse-foreign-type to))))
+  (make-foreign-pointer-type :to (if (eq to t) *void-foreign-type* (parse-foreign-type to))))
 
 (def-foreign-type-method (pointer :unparse) (type)
@@ -847 +847 @@
     `(:* ,(if to
              (%unparse-foreign-type to)
-             t))))
+             :void))))
 
 (def-foreign-type-method (pointer :type=) (type1 type2)