Changeset 14088
- Timestamp:
- 08/14/12 20:02:16 (10 years ago)
- Location:
- trunk/abcl/src/org/armedbear/lisp
- Files:
-
- 2 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 -
trunk/abcl/src/org/armedbear/lisp/precompiler.lisp
r14069 r14088 1070 1070 (when (macro-function name) 1071 1071 (setf new (make-macro name new))) 1072 (if (typep old ' standard-generic-function)1072 (if (typep old 'mop:funcallable-standard-object) 1073 1073 (mop:set-funcallable-instance-function old new) 1074 1074 (setf (fdefinition name) new))))
Note: See TracChangeset
for help on using the changeset viewer.