[lgtk-cvs] CVS update: lgtk/src/dynaslot.lisp - lgtk-cvs@common-lisp.net - mailman3.common-lisp.net

10 Nov 2003

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

    