Changeset 12606

Timestamp:

Aug 17, 2009, 9:04:49 AM (11 years ago)

Author:

gb

Message:

Un-wedge.

File:

• trunk/source/lib/ffi-darwinppc64.lisp (modified) (1 diff)

trunk/source/lib/ffi-darwinppc64.lisp

@@ -508 +508 @@
                                           ,fp-args-ptr
                                           ,(* 8 (1- fp-arg-num))))))))))))))
-                (let* ((pair (list name (next-scalar-arg argtype))))
+                (let* ((form (next-scalar-arg argtype)))
                   (when name 
-                    (lets name))))
+                    (lets (list name form)))))
               #+nil
               (when (or (typep argtype 'foreign-pointer-type)