Changeset 14626
- Timestamp:
- Feb 2, 2011, 4:33:27 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/level-1/l1-clos-boot.lisp
r14558 r14626 846 846 error-p gbits mbits gkeys) 847 847 (unless gbits (setq gbits (inner-lfun-bits gf))) 848 (unless mbits (setq mbits ( lfun-bits (%method-functionmethod))))848 (unless mbits (setq mbits (encode-lambda-list (%method-lambda-list method)))) 849 849 (and (congruent-lfbits-p gbits mbits) 850 850 (or (and (or (logbitp $lfbits-rest-bit mbits)
Note: See TracChangeset
for help on using the changeset viewer.