diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-06 14:57:16 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-06 14:57:16 +0100 |
| commit | 586a8505ecb5d95a9595ba67658c35898c038331 (patch) | |
| tree | b1a1fa3741885e79c187e7720294d67c2d9ff8b6 /Lisp/name-conversion.lisp | |
| parent | 829e90949351cfe763b8eb87cacb605d440ae49b (diff) | |
Support super calls.
darcs-hash:d6b9645fe36711876226cd69bbbc4fce66a94fbb
Diffstat (limited to 'Lisp/name-conversion.lisp')
| -rw-r--r-- | Lisp/name-conversion.lisp | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Lisp/name-conversion.lisp b/Lisp/name-conversion.lisp index 1596d84..028d722 100644 --- a/Lisp/name-conversion.lisp +++ b/Lisp/name-conversion.lisp @@ -35,6 +35,10 @@ :initial-value "")) +(defun generic-function-name->method-name (gf-name) + (symbol-name gf-name)) + + (defun generic-function-name->selector (gf-name) (selector (symbol-name gf-name))) |