Parent Directory | Revision Log | Patch
revision 1.3 by camm, Sat Jul 23 08:55:46 2005 UTC | revision 1.4 by camm, Tue Aug 9 00:49:24 2005 UTC | |
---|---|---|
# | Line 527 | Line 527 |
527 | values))))) | values))))) |
528 | ||
529 | ||
530 | (dolist (l '(find-class classp class-precedence-list)) | (dolist (l '(find-class classp class-precedence-list class-name)) |
531 | (setf (symbol-function (find-symbol (symbol-name l) 'si)) (symbol-function l))) | (setf (symbol-function (find-symbol (symbol-name l) 'si)) (symbol-function l))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |