[Improve IE-TYPE automatically generated name
clinton@unknownlamer.org**20071008235313] {
hunk ./src/ie.lisp 58
-(defparameter +ie-type-class-name-prefix+
-  "%")
-(defparameter +ie-type-class-name-suffix+
-  "-INTERFACE-ELEMENT-TYPE")
-
-(defun %ie-type-class-name (name &optional (package :ucw))
-  (intern (strcat +ie-type-class-name-prefix+
-                  (symbol-name name) 
-                  +ie-type-class-name-suffix+)
+(defun %ie-type-class-name (name &optional
+			    (package :it.bese.ucw.presentations.types))
+  (intern (format nil "(INTERFACE-ELEMENT ~A::~A)"
+		  (package-name (symbol-package name))
+		  (symbol-name name))
hunk ./src/ie.lisp 189
-        `(progn
+        `(prog1
}