Index: /trunk/ccl/lib/foreign-types.lisp
===================================================================
--- /trunk/ccl/lib/foreign-types.lisp	(revision 861)
+++ /trunk/ccl/lib/foreign-types.lisp	(revision 862)
@@ -838,8 +838,8 @@
 						      #-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,5 +847,5 @@
     `(:* ,(if to
 	     (%unparse-foreign-type to)
-	     t))))
+	     :void))))
 
 (def-foreign-type-method (pointer :type=) (type1 type2)