Parent Directory | Revision Log | Patch
revision 1.15 by pfdietz, Wed May 28 13:35:04 2003 UTC | revision 1.16 by pfdietz, Thu May 29 02:41:20 2003 UTC | |
---|---|---|
# | Line 726 | Line 726 |
726 | (funcall fn x :bar 'b :foo 'a)))) | (funcall fn x :bar 'b :foo 'a)))) |
727 | nil a nil a a) | nil a nil a a) |
728 | ||
729 | ;;; I'm not sure this one is proper | |
730 | (when (subtypep (class-of (find-class 'standard-generic-function)) | (when (subtypep (class-of (find-class 'standard-generic-function)) |
731 | 'standard-class) | 'standard-class) |
732 | (defclass substandard-generic-function (standard-generic-function) ()) | (defclass substandard-generic-function (standard-generic-function) ()) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |