[Bese-devel] Changes II

[Friedrich Dominicus]

Well as written before I'm trying to get ucw working for me. I was a
bit successfull with that around a week or so ago. But now all the
things start tumbling down. So what has changes in the action
handling?

this code has worked for quite a time but now I got an error message:
             (<ucw:form 
               :action (user-details prods)
               (<:p
                (<:input :type "submit" :value "Yes"
                         :name "am-customer")
                (<:input :type "submit" :value "No"
                         :name ""))))))))


with this user-details action
(defaction user-details ((transaction trans-info))
  ;; (inspect (ucw::all-params (ucw::context.request *context*)))
  (let ((products (products-in-basket transaction))
        (sum (trans-price transaction)))
    (let ((trans-data (make-instance 'transaction))
          (p-ids (map 'list #'(lambda (item)
                                (list (product-id item)
                                      (num-copies item)
                                      (price item)))
                                products)))
      (db-update-tid-to-pid-mapping (trans-obj trans-data) p-ids sum)
  (let ((btn-text (ucw::get-parameter (ucw::context.request *context*) "am-customer")))
    (inspect btn-text)
    (if btn-text
      (call 'shop-login :message "You customer data please"
            :transaction trans-data)
      (call 'info-message :message "Not yet a customer."
            :transaction trans-data))))))


The error message is:
The value #<IT.BESE.ARNESI::CPS-CLOSURE {1000085D01}>
is not of type
  (OR FUNCTION SYMBOL).
   [Condition of type TYPE-ERROR]

Restarts:
  0: [SHOW-BACKTRACE] Send the client a backtrace page.
  1: [RETRY] Clearout the response and retry calling the action.
  2: [SERVER-ERROR] Send the client an internal server error page.
  3: [GENERATE-BACKTRACE-FOR-EMACS] Generate a bug report in Emacs.
  4: [ABORT-RESPONSE] Abort this response and answer another request
  5: [ABORT] Exit debugger, returning to top level.

Backtrace:
  0: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGING-ENVIRONMENT (T)) #<unused argument> #<unused argument> #<FUNCTION (LAMBDA NIL) {1000DFE5D9}>)
  1: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY*) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 10) (*PRINT-CIRCLE* . T) (*PRINT-READABLY*) (*PRINT-PPRINT-DISPATCH* . #<SB-PRETTY:PPRINT-DISPATCH-TABLE {1001A80C71}>) (*PRINT-GENSYM* . T) (*PRINT-BASE* . 10) (*PRINT-RADIX*) (*PRINT-ARRAY* . T) ...) #<FUNCTION (LAMBDA NIL) {1000DFE579}>)
  2: (SWANK::DEBUG-IN-EMACS #<TYPE-ERROR {100008FC11}>)
  3: ((LAMBDA NIL))
  4: (SWANK::CALL-WITH-REDIRECTED-IO #<SWANK::CONNECTION {1001237481}> #<CLOSURE (LAMBDA NIL) {10004918C9}>)
  5: (SWANK::CALL-WITH-CONNECTION #<SWANK::CONNECTION {1001237481}> #<CLOSURE (LAMBDA NIL) {10004918A9}>)
  6: ((SB-PCL::FAST-METHOD IT.BESE.UCW::HANDLE-ACTION-ERROR (ERROR T)) #<unavailable argument> #<unavailable argument> #<TYPE-ERROR {100008FC11}> (#S(IT.BESE.UCW::BACKTRACE-FRAME :INDEX 4 :DESCRIPTION "(ERROR TYPE-ERROR)" :LOCALS (# #) :SOURCE-LOCATION (:ERROR "Source filename not recorded for #<FUNCTION ERROR>")) #S(IT.BESE.UCW::BACKTRACE-FRAME :INDEX 5 :DESCRIPTION "(SB-KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER

so what do I have to change to get this action done?

Friedrich