Ignore:
Timestamp:
Oct 15, 2010, 3:15:03 AM (9 years ago)
Author:
gb
Message:

Admit that the macro CCL::REPORT-BAD-ARG has accepted exactly 2 arguments
for the last 20+ years. If the second argument (the typespec) is quoted,
warn at macroexpand time if it looks suspicious.

Fix a handful of cases that were detected by that change. In one
case, introduce a predicate so that EXPT can complain about an
argument whose realpart isn't positive via a SATISFIES type specifier.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-clos-boot.lisp

    r14262 r14365  
    31993199           (setq old-wrapper (gf.instance.class-wrapper instance)))
    32003200         (unless old-wrapper
    3201            (report-bad-arg instance '(or standard-instance funcallable-standard-object))))
     3201           (report-bad-arg instance '(or standard-object funcallable-standard-object))))
    32023202       (when (eql 0 (%wrapper-instance-slots old-wrapper)) ; is it really obsolete?
    32033203         (let* ((class (%wrapper-class old-wrapper))
Note: See TracChangeset for help on using the changeset viewer.