Index: /trunk/ccl/level-1/l1-readloop.lisp
===================================================================
--- /trunk/ccl/level-1/l1-readloop.lisp	(revision 603)
+++ /trunk/ccl/level-1/l1-readloop.lisp	(revision 604)
@@ -245,7 +245,15 @@
     ((command-line-arguments
       :initform
-      (list *standard-help-argument* *standard-version-argument*))))
+      (list *standard-help-argument* *standard-version-argument*))
+     (ui-object :initform nil :initarg :ui-object :accessor application-ui-object)))
        
-			     
+(defclass ui-object ()
+    ())
+
+;;; It's intended that this be specialized ...
+(defmethod ui-object-do-operation ((u ui-object) operation &rest args)
+  (declare (ignore operation args)))
+
+
 (defun %usage-exit (banner exit-status other-args)
   (with-cstrs ((banner banner)
@@ -351,4 +359,12 @@
 	    *openmcl-revision*)
 	  *openmcl-suffix*))
+
+(defmethod application-ui-operation ((a application) operation &rest args)
+  (let* ((ui-object (application-ui-object a)))
+    (when ui-object
+      (apply #'ui-object-do-operation ui-object operation args))))
+
+
+