Changeset 862


Ignore:
Timestamp:
Aug 30, 2004, 9:25:52 PM (16 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/lib/foreign-types.lisp

    r812 r862  
    838838                                                      #-alpha 32
    839839                                                      #+alpha 64)))
    840   (to nil :type (or foreign-type null)))
     840  (to *void-foreign-type* :type foreign-type))
    841841
    842842(def-foreign-type-translator * (to)
    843   (make-foreign-pointer-type :to (if (eq to t) nil (parse-foreign-type to))))
     843  (make-foreign-pointer-type :to (if (eq to t) *void-foreign-type* (parse-foreign-type to))))
    844844
    845845(def-foreign-type-method (pointer :unparse) (type)
     
    847847    `(:* ,(if to
    848848             (%unparse-foreign-type to)
    849              t))))
     849             :void))))
    850850
    851851(def-foreign-type-method (pointer :type=) (type1 type2)
Note: See TracChangeset for help on using the changeset viewer.