diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-03 17:30:46 +0100 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-03 17:30:46 +0100 |
commit | 2e26057818b48da27a5355e2d2101cb8605b840f (patch) | |
tree | cfa916870cdc83e35a12dcabc4ae62c86b63fa2b /Lisp/name-conversion.lisp | |
parent | 68041467b00a878bd7325bf2f385bd58de7a2a20 (diff) |
Implement ADD-METHOD :AFTER (OBJECTIVE-C-GENERIC-FUNCTION OBJECTIVE-C-METHOD).
darcs-hash:16207045b44287e0f3f332937d826d1cc6c44296
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 eb46ee4..a82cfc5 100644 --- a/Lisp/name-conversion.lisp +++ b/Lisp/name-conversion.lisp @@ -35,6 +35,10 @@ :initial-value "")) +(defun generic-function-name->selector (gf-name) + (selector (symbol-name gf-name))) + + ;;; (@* "Class names") (defun symbol->objc-class-name (symbol) (let* ((name (symbol-name symbol)) |