Ignore:
Timestamp:
Sep 15, 2010, 12:07:42 AM (9 years ago)
Author:
gz
Message:

r14258 from trunk (defstruct changes)

Location:
branches/qres/ccl
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/qres/ccl

  • branches/qres/ccl/lib/foreign-types.lisp

    r13070 r14259  
    13671367  (etypecase type
    13681368    ((or foreign-pointer-type foreign-array-type)
    1369      (let* ((to (foreign-pointer-type-to type))
     1369     (let* ((to (if (foreign-array-type-p type)
     1370                  (foreign-array-type-element-type type)
     1371                  (foreign-pointer-type-to type)))
    13701372            (size (foreign-type-bits to))
    13711373            (bit-offset `(the fixnum (* ,size (the fixnum ,index-form)))))
Note: See TracChangeset for help on using the changeset viewer.