Changeset 10708


Ignore:
Timestamp:
Sep 11, 2008, 2:21:01 PM (11 years ago)
Author:
gb
Message:

Dizzy yet ? Fix lots of typos/nonsense.

File:
1 edited

Legend:

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

    r10699 r10708  
    119119                    :callback-return-value-function
    120120                    'os::generate-callback-return-value
    121                     :platform-foreign-types
    122                     #.(case (backend-name *target-backend*)
     121                    :platform-ordinal-types
     122                    (case (backend-name *target-backend*)
    123123                        (:win64 '((:struct :_stat64)))
    124124                        (t
     
    17141714#+windows-target
    17151715(defparameter *canonical-os-foreign-types*
    1716   `((#>FILETIME)
    1717     (#>SYSTEM_INFO)
    1718     (#>HANDLE)
    1719     (#>PROCESS_INFORMATION)
    1720     (#>STARTUPINFO)
     1716  `(#>FILETIME
     1717    #>SYSTEM_INFO
     1718    #>HANDLE
     1719    #>PROCESS_INFORMATION
     1720    #>STARTUPINFO
    17211721    (:array #>HANDLE 2)
    1722     (#>DWORD)
    1723     (#>SYSTEM_LOGICAL_PROCESSOR_INFORMATION)
    1724     (:array #>wchar_t #.$MAX_PATH)
    1725     (#>fd_set)))
     1722    #>DWORD
     1723    #>SYSTEM_LOGICAL_PROCESSOR_INFORMATION
     1724    (:array #>wchar_t #.#$MAX_PATH)
     1725    #>fd_set))
    17261726   
    17271727   
     
    17481748      (canonicalize-foreign-type-ordinal '(:array :unsigned-long 3))
    17491749      (canonicalize-foreign-type-ordinal '(:* :char))
    1750       (canonicalize-foreign-type-ordinal #+darwin-target '(:struct :host_basic_info) #-darwin-target nil)
    17511750      (canonicalize-foreign-type-ordinal '(:struct :in_addr))
    17521751      (canonicalize-foreign-type-ordinal '(:struct :cdb-datum))
Note: See TracChangeset for help on using the changeset viewer.