[lgtk-cvs] CVS update: lgtk/src/dynaslot.lisp

[Mario Mommer]

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))