Changeset 14088 for trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
- Timestamp:
- 08/14/12 20:02:16 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
r14087 r14088 7493 7493 (unless (and (consp definition) (eq (car definition) 'LAMBDA)) 7494 7494 (let ((function definition)) 7495 (when (typep definition ' standard-generic-function)7495 (when (typep definition 'mop:funcallable-standard-object) 7496 7496 (setf function (mop::funcallable-instance-function function))) 7497 7497 (multiple-value-setq
Note: See TracChangeset
for help on using the changeset viewer.