Update of /project/lgtk/cvsroot/lgtk/src In directory common-lisp.net:/tmp/cvs-serv19310
Modified Files: dynaslot.lisp Log Message: Slot "a_slot" becomes now a-slot in lisp. Added a :lisp-name option to ADD-ALIEN-SLOTS, to be able to customize this.
Date: Mon Nov 10 16:44:07 2003 Author: mmommer
Index: lgtk/src/dynaslot.lisp diff -u lgtk/src/dynaslot.lisp:1.2 lgtk/src/dynaslot.lisp:1.3 --- lgtk/src/dynaslot.lisp:1.2 Mon Nov 10 15:44:47 2003 +++ lgtk/src/dynaslot.lisp Mon Nov 10 16:44:07 2003 @@ -59,12 +59,14 @@ (reader t) (writer t) (export t) - (destroy nil)) + (destroy nil) + (lisp-name nil)) req - (let ((sname (intern (format nil "~A-~A" oname - (map 'string - #'char-upcase - name))))) + (let ((sname (if lisp-name lisp-name + (intern (format nil "~A-~A" oname + (map 'string + #'char-upcase + (_2- name))))))) `( ,(if reader `(defmethod ,sname ((x ,oname))