Changeset 11666


Ignore:
Timestamp:
Jan 30, 2009, 12:02:43 PM (10 years ago)
Author:
gb
Message:

In SLOTD-TYPE-INTERSECTION, try to avoid introducing an intersection
(AND) if that might make error/warning messages more obscure than they
need to be.

File:
1 edited

Legend:

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

    r11481 r11666  
    195195          (return)))
    196196      (standardized-type-specifier
    197        `(and ,@(mapcar #'(lambda (d) (or (%slot-definition-type d) t))
    198                        direct-slots)))))
     197       (if (cdr direct-slots)
     198         `(and ,@(mapcar #'(lambda (d) (or (%slot-definition-type d) t))
     199                         direct-slots))
     200         (%slot-definition-type (car direct-slots))))))
    199201
    200202(defmethod compute-effective-slot-definition ((class slots-class)
Note: See TracChangeset for help on using the changeset viewer.