[Bese-devel] more ucw patches

[Jan Rychter]

Hi,

Nice -- I did get a little further with this version.

You might want to fix the little typo:

diff -u /home/jwr/lisp/ucw-arch/ucw/src/admin/admin.lisp.original /home/jwr/lisp/ucw-arch/ucw/src/admin/admin.lisp
--- /home/jwr/lisp/ucw-arch/ucw/src/admin/admin.lisp.original	2004-04-14 18:18:47.000000000 -0700
+++ /home/jwr/lisp/ucw-arch/ucw/src/admin/admin.lisp	2004-04-14 18:18:47.000000000 -0700
@@ -25,7 +25,7 @@
      (room t))))
 
 (defcomponent server-admin-interface (tabbed-pane)
-  ((tabbed-pane :initarg :tabbed-pane :accessor adimn-interface.tabbed-pane))
+  ((tabbed-pane :initarg :tabbed-pane :accessor admin-interface.tabbed-pane))
   (:template "ucw/admin/server-admin-interface.tal" 
 	     (lambda (admin)
                admin)))

But I still can't get to the admin interface:

[UCW.ADMIN 3290977030] Accepted admin login.
[UCW.COMPONENT.ACTION 3290977030] Calling 'IT.BESE.UCW::SERVER-ADMIN-INTERFACE from NIL.
[UCW.RERL.SESSION-FRAME 3290977031] #<SIMPLE-ERROR {59EA8A05}> signled while serving action (#<Closure Over Function "LAMBDA (IT.BESE.YACLML::*TAL-ENVIROMENT* #:G8027)"
                                                           {58D51711}>).


Error in function APPEND:
   #<Function "DEFCOMPONENT SERVER-ADMIN-INTERFACE" {582E4DE9}> is not a list.
   [Condition of type SIMPLE-ERROR]

Restarts:
  0: [RETRY       ] Retry rendering the component.
  1:                Clearout the response and retry calling the action.
  2: [SERVER-ERROR] Send the client an internal server error page.
  3: [DESTROY     ] Destroy the process

Debug  (type H for help)

(APPEND #<Function "DEFCOMPONENT SERVER-ADMIN-INTERFACE" {582E4DE9}> ((#)))
Source:
; File: target:code/list.lisp
(ERROR "~S is not a list." (CAR TOP))
0] backtrace

0: (APPEND #<Function "DEFCOMPONENT SERVER-ADMIN-INTERFACE" {582E4DE9}> ((#)))
1: (IT.BESE.YACLML:EXTEND-ENVIROMENT
    #<Function "DEFCOMPONENT SERVER-ADMIN-INTERFACE" {582E4DE9}>
    ((#)))
2: ((METHOD IT.BESE.UCW::RENDER-ON NIL
     (IT.BESE.UCW::RESPONSE IT.BESE.UCW::SERVER-ADMIN-INTERFACE))
    #<unused-arg> #<unused-arg> #<unused-arg>
    #<IT.BESE.UCW::SERVER-ADMIN-INTERFACE {59EA7DFD}>)
3: ((METHOD IT.BESE.UCW::RENDER-ON (:AROUND)
     (IT.BESE.UCW::RESPONSE IT.BESE.UCW::STANDARD-COMPONENT))
    (#() . #(# #))
    #S(PCL::FAST-METHOD-CALL
         :FUNCTION #<Function # {582E4B19}>
         :PV-CELL NIL
         :NEXT-METHOD-CALL #S(PCL::FAST-METHOD-CALL
                                :FUNCTION #
                                :PV-CELL NIL
                                :NEXT-METHOD-CALL NIL
                                :ARG-INFO #)
         :ARG-INFO (2))
    #<IT.BESE.UCW::MOD-LISP-RESPONSE {58D6615D}>
    #<IT.BESE.UCW::SERVER-ADMIN-INTERFACE {59EA7DFD}>)
4: (IT.BESE.UCW::SERVICE-ACTION
    #<Closure Over Function "LAMBDA (IT.BESE.YACLML::*TAL-ENVIROMENT* #:G8027)"
      {58D51711}>)
5: ((METHOD IT.BESE.UCW::SERVICE NIL
     (IT.BESE.UCW::STANDARD-SESSION-FRAME IT.BESE.UCW::REQUEST-CONTEXT))
    (#(0 3) . #(# #)) #<unused-arg>
    #<IT.BESE.UCW::STANDARD-SESSION-FRAME {58B91375}>
    #<IT.BESE.UCW::STANDARD-REQUEST-CONTEXT {58D68B85}>)
6: ("LAMBDA (#:G5932 #:G5933 #:G5934)" #<unused-arg> #<unused-arg>
    #<IT.BESE.UCW::STANDARD-SESSION-FRAME {58B91375}>
    #<IT.BESE.UCW::STANDARD-REQUEST-CONTEXT {58D68B85}>)
7: ((METHOD IT.BESE.UCW::SERVICE-ACTION-REQUEST NIL
     (IT.BESE.UCW::STANDARD-SESSION IT.BESE.UCW::REQUEST-CONTEXT))
    (#(0) . #()) #<unused-arg>
    #<IT.BESE.UCW::STANDARD-SESSION
      3 #<IT.BESE.UCW::STANDARD-SESSION-FRAME {58D73065}> {58B8E1B5}>
    #<IT.BESE.UCW::STANDARD-REQUEST-CONTEXT {58D68B85}>)
8: ((METHOD IT.BESE.UCW::SERVICE NIL
     (IT.BESE.UCW::STANDARD-SESSION IT.BESE.UCW::REQUEST-CONTEXT))
    (#() . #(#)) #<unused-arg>
    #<IT.BESE.UCW::STANDARD-SESSION
      3 #<IT.BESE.UCW::STANDARD-SESSION-FRAME {58D73065}> {58B8E1B5}>
    #<IT.BESE.UCW::STANDARD-REQUEST-CONTEXT {58D68B85}>)
9: ("LAMBDA (#:G5941 #:G5942 #:G5943)" #<unused-arg> #<unused-arg>
    #<IT.BESE.UCW::STANDARD-SESSION
      3 #<IT.BESE.UCW::STANDARD-SESSION-FRAME {58D73065}> {58B8E1B5}>
    #<IT.BESE.UCW::STANDARD-REQUEST-CONTEXT {58D68B85}>)
10: ((METHOD IT.BESE.UCW::SERVICE NIL
      (IT.BESE.UCW::STANDARD-APPLICATION IT.BESE.UCW::REQUEST-CONTEXT))
     (#(5 0 3 3) . #(#)) #<unused-arg>
     #<IT.BESE.UCW::STANDARD-APPLICATION /ucw/admin/ 4>
     #<IT.BESE.UCW::STANDARD-REQUEST-CONTEXT {58D68B85}>)
11: ("LAMBDA (#:G5935 #:G5936 #:G5937)" #<unused-arg> #<unused-arg>
     #<IT.BESE.UCW::STANDARD-APPLICATION /ucw/admin/ 4>
     #<IT.BESE.UCW::STANDARD-REQUEST-CONTEXT {58D68B85}>)
12: ((METHOD IT.BESE.UCW::HANDLE-REQUEST NIL
      (IT.BESE.UCW::STANDARD-SERVER IT.BESE.UCW::REQUEST
       IT.BESE.UCW::RESPONSE))
     (#() . #(# # #)) #<unused-arg>
     #<IT.BESE.UCW::STANDARD-SERVER IT.BESE.UCW::MOD-LISP-BACKEND 2 {58045A9D}>
     #<IT.BESE.UCW::MOD-LISP-REQUEST
       :RAW-URL "/ucw/admin/ucw-action-call.ucw?s=vcyYfkCzivpelsRKYbzzDTKsCuKVWbDEzskjJACw&f=TMEVzXVmcokPnevhWmJh&a=ABLLkQFpLx&VJOgECdgIH=admin&nFDDqjrhuw=admin">
     ...)
13: ("DEFMETHOD STARTUP-BACKEND (MOD-LISP-BACKEND)")
14: (ACL-COMPAT.MP::APPLY-WITH-BINDINGS
     #<Closure Over Function "DEFMETHOD STARTUP-BACKEND (MOD-LISP-BACKEND)"
       {58D6E829}>
     NIL
     NIL)
15: ("DEFUN PROCESS-PRESET")
16: ("DEFUN RESTART-PROCESS")

--J.