Parent Directory | Revision Log | Patch
revision 1.25 by pfdietz, Sat Apr 30 21:32:34 2005 UTC | revision 1.26 by pfdietz, Sun May 1 01:30:23 2005 UTC | |
---|---|---|
# | Line 468 | Line 468 |
468 | ||
469 | (defparameter *methods* | (defparameter *methods* |
470 | (list | (list |
471 | #+(or (not :gcl) :ansi-cl) | #+(or (not :gcl) :ansi-cl ) |
472 | (find-method #'meaningless-user-generic-function-for-universe nil | (find-method #'meaningless-user-generic-function-for-universe nil |
473 | '(integer integer integer)) | (mapcar #'find-class '(integer integer integer))) |
474 | ;; Add more methods here | ;; Add more methods here |
475 | )) | )) |
476 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |