From 586a8505ecb5d95a9595ba67658c35898c038331 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Thu, 6 Mar 2008 14:57:16 +0100
Subject: Support super calls.

darcs-hash:d6b9645fe36711876226cd69bbbc4fce66a94fbb
---
 Lisp/name-conversion.lisp | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'Lisp/name-conversion.lisp')

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)))
 
-- 
cgit v1.2.3