Changeset 6029


Ignore:
Timestamp:
Mar 12, 2007, 11:02:18 AM (13 years ago)
Author:
gb
Message:

Fix "extra arguments" error message in %EXTERNAL-CALL-EXPANDER.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/lib/foreign-types.lisp

    r5960 r6029  
    14371437              (call result)
    14381438              (if args
    1439                 (error "Extra arguments in ~s" (call))
     1439                (error "Extra arguments in ~s"  whole)
    14401440                `(external-call ,external-name ,@(call))))
    14411441          (let* ((spec (car specs)))
Note: See TracChangeset for help on using the changeset viewer.