Changeset 5895

Timestamp:

Feb 11, 2007, 4:26:52 AM (18 years ago)

Author:

Gary Byers

Message:

Ignore errors; it's an error to ignore an errror.

File:

• trunk/ccl/lib/ffi-darwinppc32.lisp (modified) (1 diff)

trunk/ccl/lib/ffi-darwinppc32.lisp

@@ -61 +61 @@
          (enclosing-form nil))
     (multiple-value-bind (result-type error)
-        (ignore-errrors (parse-foreign-type result-type-spec))
+        (ignore-errors (parse-foreign-type result-type-spec))
       (if error
         (setq result-type-spec :void result-type *void-foreign-type*)