Changeset 14028
- Timestamp:
- 07/31/12 12:26:35 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/clos.lisp
r14021 r14028 1654 1654 documentation 1655 1655 &allow-other-keys) 1656 (when (autoloadp function-name)1657 (resolve function-name))1658 1656 (setf all-keys (copy-list all-keys)) ; since we modify it 1659 1657 (remf all-keys :generic-function-class) … … 1678 1676 (progn 1679 1677 (when (and (null *clos-booting*) 1680 (fboundp function-name)) 1678 (and (fboundp function-name) 1679 ;; since we're overwriting an autoloader, 1680 ;; we're probably meant to redefine it, 1681 ;; so throwing an error here might be a bad idea. 1682 ;; also, resolving the symbol isn't 1683 ;; a good option either: we've seen that lead to 1684 ;; recursive loading of the same file 1685 (not (autoloadp function-name)))) 1681 1686 (error 'program-error 1682 1687 :format-control "~A already names an ordinary function, macro, or special operator."
Note: See TracChangeset
for help on using the changeset viewer.