Ignore:
Timestamp:
Oct 9, 2009, 4:28:17 PM (10 years ago)
Author:
gz
Message:

Merge some irrelevant (other platforms, unused) trunk changes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/ffi-darwinppc64.lisp

    r12694 r12941  
    508508                                          ,fp-args-ptr
    509509                                          ,(* 8 (1- fp-arg-num))))))))))))))
    510                 (let* ((pair (list name (next-scalar-arg argtype))))
     510                (let* ((form (next-scalar-arg argtype)))
    511511                  (when name
    512                     (lets name))))
     512                    (lets (list name form)))))
    513513              #+nil
    514514              (when (or (typep argtype 'foreign-pointer-type)
Note: See TracChangeset for help on using the changeset viewer.