Changeset 12606
- Timestamp:
- Aug 17, 2009, 9:04:49 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/lib/ffi-darwinppc64.lisp
r12590 r12606 508 508 ,fp-args-ptr 509 509 ,(* 8 (1- fp-arg-num)))))))))))))) 510 (let* (( pair (list name (next-scalar-arg argtype))))510 (let* ((form (next-scalar-arg argtype))) 511 511 (when name 512 (lets name))))512 (lets (list name form))))) 513 513 #+nil 514 514 (when (or (typep argtype 'foreign-pointer-type)
Note: See TracChangeset
for help on using the changeset viewer.