Changeset 12606


Ignore:
Timestamp:
Aug 17, 2009, 9:04:49 AM (10 years ago)
Author:
gb
Message:

Un-wedge.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/ffi-darwinppc64.lisp

    r12590 r12606  
    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.