Plaster
New
List
Login
common-lisp
default
anonymous
2021.07.08 19:21:35
LUNA-SITE> (find-user "@jver:scys.com") 0: (LUNAMECH-SITE::FIND-USER "@jgrr:scygs.com") 0: FIND-USER returned #<USER @jg.com::304113> #<USER @jger:scs.com::304179> ;;^ At repl 0: (LUNAMECH-SITE::AUTHORIZE-LOGIN-PAGE "@jgrgs.com" "" NIL) 1: (LUNAMECH-SITE::FIND-USER "@jgngs.com") 2: (ERROR #<SB-INT:SIMPLE-PROGRAM-ERROR "invalid number of arguments: ~S" {1008E84AE3}>) ;;^ when the page is traced. (pomo:with-connection '("" "" "" ;these are all correct obv removed for privacy "" :pooled-p t) (let ((user (find-user userid))) (if (and user (string= token (token user))) (progn (setf (tbnl:session-value :user (tbnl:start-session)) user) (tbnl:redirect "/sr/l")) (error "not valid")))))) ;;now if I try a direct query s/(find-user ..)/(pomo:query (:select '* :from 'users :where (:= 'userid userid)) (:dao user)) ;;produces the following 0: (LUNAMECH-SITE::AUTHORIZE-LOGIN-PAGE "@jgs.com" "" NIL) 1: (ERROR #<SB-INT:SIMPLE-PROGRAM-ERROR "invalid number of arguments: ~S" {10091144C3}>) ;; now I remove :dao from (pomo:query ..) 0: (LUNAMECH-SITE::AUTHORIZE-LOGIN-PAGE "@j:sgs.com" "" NIL) 1: (ERROR SB-PCL::NO-APPLICABLE-METHOD-ERROR :GENERIC-FUNCTION #<STANDARD-GENERIC-FUNCTION LUNAMECH-SITE::TOKEN (4)> :ARGS (( <ERROR> [20:18:03] luna-site slimeYonK4Z (authorize-login-page fun1) - LUNAMECH-SITE::C: #<SB-PCL::NO-APPLICABLE-METHOD-ERROR {10093A5453}> 127.0.0.1 - [2021-07-08 20:18:04] "POST /s HTTP/1.1" 302 347 "hgin" "Mozilla/5.0 (X11; Linux x86_64; rv:78.0) Gecko/20100101 Firefox/78.0" 127.0.0.1 - [2021-07-08 20:18:04] "GET /stiin HTTP/1.1" 200 2785 "htgin" "Mozilla/5.0 (X11; Linux x86_64; rv:78.0) Gecko/20100101 Firefox/78.0" 0: (ERROR USOCKET:TIMEOUT-ERROR :SOCKET NIL) ;;I removed most of it but just demonstrating that it has worked, it produced the expected behaviour in this case.
Raw
Annotate
Repaste
Edit