Index: /trunk/ccl/level-1/l1-application.lisp
===================================================================
--- /trunk/ccl/level-1/l1-application.lisp	(revision 6932)
+++ /trunk/ccl/level-1/l1-application.lisp	(revision 6933)
@@ -167,5 +167,9 @@
 
 ;;; an example method to base a specialization on
-(defmethod toplevel-function ((a application) init-file)
+(defmethod toplevel-function  ((a application) init-file)
+  (declare (ignore init-file))
+  nil )
+
+(defmethod toplevel-function :before ((a application) init-file)
   (declare (ignore init-file))
   (multiple-value-bind (error-flag options args rest-arg)
@@ -191,14 +195,6 @@
 
 
-;;;; specialize this for your application
-(defmethod open-application ((self application) startup)
-  (declare (ignore startup))
-  nil)
-  
-;;; specialize this for your application
-(defmethod open-application-document ((a application) path &optional startup)
-  (declare (ignore path startup)))
-
-(defmethod application-name          ((app application)) nil)
+
+
 (defmethod application-init-file     ((app application)) nil)
 
@@ -261,8 +257,4 @@
 		 (summarize-option-syntax a))
     (progn
-      (let* ((encoding (assoc :terminal-encoding options)))
-        (when encoding
-          ))
-        
       (setq *load-lisp-init-file* (not (assoc :noinit options))
             *quiet-flag* (if *batch-flag*
@@ -274,10 +266,5 @@
 	
 
-
-
-
-
 (defmethod toplevel-function ((a lisp-development-system) init-file)
-  (call-next-method)
   (let* ((sr (input-stream-shared-resource *terminal-input*)))
     (with-slots (initial-listener-process) a
@@ -313,5 +300,4 @@
 
 
-; redefined by hide-listener-support
 (defmethod application-error ((a application) condition error-pointer)
   (declare (ignore condition error-pointer))