From masm at acm.org Sun Dec 3 10:57:00 2006 From: masm at acm.org (masm at acm.org) Date: Sun, 3 Dec 2006 10:57:00 +0000 (WET) Subject: [Bese-devel] darcs patch: Change name of the library to rfc2388-ucw so that it c... Message-ID: <20061203105700.4BBBE80649@jupiter.bragatel.pt> Thu Nov 30 23:49:36 WET 2006 masm at acm.org * Change name of the library to rfc2388-ucw so that it can coexist with the original rfc2388 library -------------- next part -------------- A non-text attachment was scrubbed... Name: change-name-of-the-library-to-rfc2388_ucw-so-that-it-can-coexist-with-the-original-rfc2388-library.dpatch Type: text/x-darcs-patch Size: 8961 bytes Desc: A darcs patch for your repository! URL: From masm at acm.org Sun Dec 3 10:57:37 2006 From: masm at acm.org (masm at acm.org) Date: Sun, 3 Dec 2006 10:57:37 +0000 (WET) Subject: [Bese-devel] darcs patch: Replace library rfc2388 by rfc2388-ucw (and 2 more) Message-ID: <20061203105737.90C4779A05@zeus.bragatel.pt> Fri Dec 1 00:33:53 WET 2006 masm at acm.org * Replace library rfc2388 by rfc2388-ucw Sat Dec 2 18:08:33 WET 2006 masm at acm.org * Initial code for a Hunchentoot backend. Sun Dec 3 00:22:18 WET 2006 masm at acm.org * Some minor changes to the Hunchentoot backend. -------------- next part -------------- A non-text attachment was scrubbed... Name: replace-library-rfc2388-by-rfc2388_ucw.dpatch Type: text/x-darcs-patch Size: 25756 bytes Desc: A darcs patch for your repository! URL: From marijnh at gmail.com Mon Dec 4 14:18:58 2006 From: marijnh at gmail.com (Marijn Haverbeke) Date: Mon, 4 Dec 2006 15:18:58 +0100 Subject: [Bese-devel] fix for rfc2388 bug Message-ID: Uploading a file containing a CRLF followed by more than two dashes fails with the current rfc2388 (it doesn't handle backtracking correctly when looking for the boundary string). Attached is a patch which adds test-cases for this (you might want to change those a bit -- I'm rather new to the world of unit-testing and 5am), and fixes the problem by changing read-until-next-boundary. For some reason it doesn't apply cleanly when my previous patch is also applied, but the conflict is very trivial to merge (there is no conflict that I can see, but darcs insists on putting V's and ^'s around some code). Bye, Marijn -------------- next part -------------- An HTML attachment was scrubbed... URL: -------------- next part -------------- A non-text attachment was scrubbed... Name: read-until-next-boundary.patch Type: application/octet-stream Size: 15222 bytes Desc: not available URL: From lists at infoway.net Mon Dec 4 23:18:34 2006 From: lists at infoway.net (lists at infoway.net) Date: Mon, 4 Dec 2006 18:18:34 -0500 (EST) Subject: [Bese-devel] UCW in ACL Message-ID: <41238.10.238.10.70.1165274314.webmail@10.238.10.70> I wanted to evaluate ACL so I downloaded the evaluation version of ACL 8. I also downloaded a fresh copy of ucw-boxset. However, when I try to run start-ajax, I keep getting stuck in /Users/daniel/dev/lisp/ucw-boxset/ucw_ajax/src/l10n/l10n-application.lisp. Any ideas from the trace below? Thanks, Daniel Tag NIL is used more than once Problem detected when processing (TAGBODY (SETQ #:LIST1 LANGS) LOOP-TOP-NIL...) inside (BLOCK NIL (TAGBODY (SETQ #:LIST1 LANGS) LOOP-TOP-NIL...) ...) inside (LET* ((ACCEPTED-LOCALES #) (#:LIST1 NIL) (LANG NIL) ...) (BLOCK NIL (TAGBODY # LOOP-TOP-NIL...) ...)) .. inside (LET ((LANGS #)) NIL ...) .. inside (PROGN (COND (# NIL # ...)) (LET (#) NIL ...)) .. inside (COND (IT (PROGN # #)) (T NIL)) .. inside (IF IT (PROGN (COND #) (LET # NIL ...)) ...) .. inside (LET ((IT #)) (IF IT (PROGN # #) ...)) .. inside (BLOCK PROCESS-ACCEPT-LANGUAGE (LET (#) (IF IT # ...))) .. inside (PROGN (PROGN APP REQUEST) ..) inside (COMPILER::NAMED-FUNCTION-1 ..) inside (EXCL::COMPILER-LET ((COMPILER::.FUNCTION-SPEC. '#) ..)) inside (THE EXCL::KNOWN-FUNCTION ..) inside (EXCL:NAMED-FUNCTION (METHOD PROCESS-ACCEPT-LANGUAGE ..)) inside (LIST :LAMBDA-LIST ..) inside (LIST (LIST :LAMBDA-LIST '(# #) ...)) .. inside (ENSURE-GENERIC-FUNCTION 'PROCESS-ACCEPT-LANGUAGE ..) inside (PROGN NIL ..) [Condition of type PARSE-ERROR] Restarts: 0: [NIL] retry the compilation of /Users/daniel/dev/lisp/ucw-boxset/ucw_ajax/src/l10n/l10n-application.lisp 1: [NIL] continue compiling /Users/daniel/dev/lisp/ucw-boxset/ucw_ajax/src/l10n/l10n-application.lisp but generate no output file 2: [RETRY] Retry performing # on #. 3: [ACCEPT] Continue, treating # on # as having been successful. 4: [RETRY] retry the load of /Users/daniel/dev/lisp/ucw-boxset/start-common.lisp 5: [SKIP] skip loading /Users/daniel/dev/lisp/ucw-boxset/start-common.lisp 6: [RECOMPILE-DUE-TO-INCOMPATIBLE-FASL] recompile /Users/daniel/dev/lisp/ucw-boxset/start-common.lisp 7: [RETRY] retry the load of ~/dev/lisp/ucw-boxset/start-ajax.lisp 8: [SKIP] skip loading ~/dev/lisp/ucw-boxset/start-ajax.lisp 9: [RECOMPILE-DUE-TO-INCOMPATIBLE-FASL] recompile /Users/daniel/dev/lisp/ucw-boxset/start-ajax.lisp 10: [ABORT-REQUEST] Abort handling SLIME request. 11: [ABORT] Abort entirely from this (lisp) process. Backtrace: 0: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY*) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 10) (*PRINT-CIRCLE* . T) (*PRINT-READABLY*) (*PRINT-PPRINT-DISPATCH* . #S(EXCL::PPRINT-DISPATCH-STRUCT :CONSES-WITH-CARS # :STRUCTURES # :OTHERS #)) (*PRINT-GENSYM* . T) (*PRINT-BASE* . 10) (*PRINT-RADIX*) (*PRINT-ARRAY* . T) ...) #) 1: (SWANK::DEBUG-IN-EMACS #) 2: (SWANK:SWANK-DEBUGGER-HOOK # #) 3: (ERROR PARSE-ERROR :FORMAT-CONTROL "~?~@[~a~]" :FORMAT-ARGUMENTS ("~1@" (NIL) " Problem detected when processing (TAGBODY (SETQ #:LIST1 LANGS) LOOP-TOP-NIL...) inside (BLOCK NIL (TAGBODY (SETQ #:LIST1 LANGS) LOOP-TOP-NIL...) ...) inside (LET* ((ACCEPTED-LOCALES #) (#:LIST1 NIL) (LANG NIL) ...) (BLOCK NIL (TAGBODY # LOOP-TOP-NIL...) ...)) .. inside (LET ((LANGS #)) NIL ...) .. inside (PROGN (COND (# NIL # ...)) (LET (#) NIL ...)) .. inside (COND (IT (PROGN # #)) (T NIL)) .. inside (IF IT (PROGN (COND #) (LET # NIL ...)) ...) .. inside (LET ((IT #)) (IF IT (PROGN # #) ...)) .. inside (BLOCK PROCESS-ACCEPT-LANGUAGE (LET (#) (IF IT # ...))) .. inside (PROGN (PROGN APP REQUEST) ..) inside (COMPILER::NAMED-FUNCTION-1 ..) inside (EXCL::COMPILER-LET ((COMPILER::.FUNCTION-SPEC. '#) ..)) inside (THE EXCL::KNOWN-FUNCTION ..) inside (EXCL:NAMED-FUNCTION (METHOD PROCESS-ACCEPT-LANGUAGE ..)) inside (LIST :LAMBDA-LIST ..) inside (LIST (LIST :LAMBDA-LIST '(# #) ...)) .. inside (ENSURE-GENERIC-FUNCTION 'PROCESS-ACCEPT-LANGUAGE ..) inside (PROGN NIL ..)")) 4: (COMPILER::COMPILER-ERROR "Tag ~s is used more than once" NIL) 5: (COMPILER::PA-TAGBODY ((SETQ #1=#:LIST1 IT.BESE.UCW::LANGS) IT.BESE.UCW::LOOP-TOP-NIL (IF (ATOM #1#) (GO IT.BESE.UCW::LOOP-END-NIL) NIL) (LET (#) (SETQ IT.BESE.UCW::LANG #) (SETQ IT.BESE.UCW::WEIGTH #) #:DSETQ659) (SETQ #1# (CDR #1#)) (SETQ CL-L10N:LOCALE (CL-L10N:LOCALE IT.BESE.UCW::LANG :ERRORP NIL)) NIL (IF (NOT CL-L10N:LOCALE) (PROGN NIL #) NIL) (IF (COND # #) (PROGN NIL #) NIL) IT.BESE.UCW::LOOP-STEP-NIL ...)) 6: (COMPILER::PA-COMPILE (TAGBODY (SETQ #1=#:LIST1 IT.BESE.UCW::LANGS) IT.BESE.UCW::LOOP-TOP-NIL (IF (ATOM #1#) (GO IT.BESE.UCW::LOOP-END-NIL) NIL) (LET (#) (SETQ IT.BESE.UCW::LANG #) (SETQ IT.BESE.UCW::WEIGTH #) #:DSETQ659) (SETQ #1# (CDR #1#)) (SETQ CL-L10N:LOCALE (CL-L10N:LOCALE IT.BESE.UCW::LANG :ERRORP NIL)) NIL (IF (NOT CL-L10N:LOCALE) (PROGN NIL #) NIL) (IF (COND # #) (PROGN NIL #) NIL) ...) NIL) 7: (COMPILER::PA-PROGN ((TAGBODY (SETQ #1=#:LIST1 IT.BESE.UCW::LANGS) IT.BESE.UCW::LOOP-TOP-NIL (IF # # NIL) (LET # # # #:DSETQ659) (SETQ #1# #) (SETQ CL-L10N:LOCALE #) NIL (IF # # NIL) (IF # # NIL) ...) NIL)) 8: (COMPILER::PA-BLOCK (NIL (TAGBODY (SETQ #1=#:LIST1 IT.BESE.UCW::LANGS) IT.BESE.UCW::LOOP-TOP-NIL (IF # # NIL) (LET # # # #:DSETQ659) (SETQ #1# #) (SETQ CL-L10N:LOCALE #) NIL (IF # # NIL) (IF # # NIL) ...) NIL)) 9: (COMPILER::PA-COMPILE (BLOCK NIL (TAGBODY (SETQ #1=#:LIST1 IT.BESE.UCW::LANGS) IT.BESE.UCW::LOOP-TOP-NIL (IF # # NIL) (LET # # # #:DSETQ659) (SETQ #1# #) (SETQ CL-L10N:LOCALE #) NIL (IF # # NIL) (IF # # NIL) ...) NIL) COMPILER::TAIL) 10: (COMPILER::PA-LET* (((IT.BESE.UCW::ACCEPTED-LOCALES #) (#:LIST1 NIL) (IT.BESE.UCW::LANG NIL) (IT.BESE.UCW::WEIGTH NIL) (CL-L10N:LOCALE NIL) (IT.BESE.ARNESI:RESULT NIL) (#:END-POINTER2 NIL) (#:TEMP3 NIL)) (BLOCK NIL (TAGBODY # IT.BESE.UCW::LOOP-TOP-NIL # # # # NIL # # ...) NIL))) 11: (COMPILER::PA-COMPILE (LET* ((IT.BESE.UCW::ACCEPTED-LOCALES #) (#:LIST1 NIL) (IT.BESE.UCW::LANG NIL) (IT.BESE.UCW::WEIGTH NIL) (CL-L10N:LOCALE NIL) (IT.BESE.ARNESI:RESULT NIL) (#:END-POINTER2 NIL) (#:TEMP3 NIL)) (BLOCK NIL (TAGBODY # IT.BESE.UCW::LOOP-TOP-NIL # # # # NIL # # ...) NIL)) COMPILER::TAIL) 12: (COMPILER::PA-PROGN (NIL (LET* (# # # # # # # #) (BLOCK NIL # NIL)))) 13: (COMPILER::PA-LET (((IT.BESE.UCW::LANGS #)) NIL (LET* (# # # # # # # #) (BLOCK NIL # NIL)))) 14: (COMPILER::PA-COMPILE (LET ((IT.BESE.UCW::LANGS #)) NIL (LET* (# # # # # # # #) (BLOCK NIL # NIL))) COMPILER::TAIL) 15: (COMPILER::PA-PROGN ((COND (# NIL # #)) (LET (#) NIL (LET* # #)))) 16: (COMPILER::PA-COMPILE (PROGN (COND (# NIL # #)) (LET (#) NIL (LET* # #))) COMPILER::TAIL) 17: (COMPILER::PA-COND ((IT.BESE.ARNESI:IT (PROGN # #)) (T NIL))) 18: (COMPILER::PA-COMPILE (COND (IT.BESE.ARNESI:IT (PROGN # #)) (T NIL)) COMPILER::TAIL) 19: (COMPILER::PA-COMPILE (IF IT.BESE.ARNESI:IT (PROGN (COND #) (LET # NIL #)) NIL) COMPILER::TAIL) 20: (COMPILER::PA-LET (((IT.BESE.ARNESI:IT #)) (IF IT.BESE.ARNESI:IT (PROGN # #) NIL))) 21: (COMPILER::PA-COMPILE (LET ((IT.BESE.ARNESI:IT #)) (IF IT.BESE.ARNESI:IT (PROGN # #) NIL)) COMPILER::TAIL) 22: (COMPILER::PA-BLOCK (IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE (LET (#) (IF IT.BESE.ARNESI:IT # NIL)))) 23: (COMPILER::PA-COMPILE (BLOCK IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE (LET (#) (IF IT.BESE.ARNESI:IT # NIL))) COMPILER::TAIL) 24: (COMPILER::PA-PROGN ((PROGN IT.BESE.UCW::APP IT.BESE.UCW:REQUEST) (BLOCK IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE (LET # #)))) 25: (COMPILER::PA-COMPILE (PROGN (PROGN IT.BESE.UCW::APP IT.BESE.UCW:REQUEST) (BLOCK IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE (LET # #))) COMPILER::TAIL) 26: (COMPILER::PA-COMPILE-LAMBDA (LAMBDA (IT.BESE.UCW::APP IT.BESE.UCW:REQUEST) (DECLARE (SYSTEM::DISCRIMINATED-TYPE IT.BESE.UCW:L10N-APPLICATION-MIXIN IT.BESE.UCW::APP) (SYSTEM::DISCRIMINATED-TYPE IT.BESE.UCW:REQUEST IT.BESE.UCW:REQUEST)) (PROGN IT.BESE.UCW::APP IT.BESE.UCW:REQUEST) (BLOCK IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE (LET # #))) #:||) 27: (COMPILER::COMPILE-LE (LAMBDA (IT.BESE.UCW::APP IT.BESE.UCW:REQUEST) (DECLARE (SYSTEM::DISCRIMINATED-TYPE IT.BESE.UCW:L10N-APPLICATION-MIXIN IT.BESE.UCW::APP) (SYSTEM::DISCRIMINATED-TYPE IT.BESE.UCW:REQUEST IT.BESE.UCW:REQUEST)) (PROGN IT.BESE.UCW::APP IT.BESE.UCW:REQUEST) (BLOCK IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE (LET # #))) #:|| NIL #:G664) 28: (COMPILER::PA-NAMED-FUNCTION-1 ((LAMBDA (IT.BESE.UCW::APP IT.BESE.UCW:REQUEST) (DECLARE # #) (PROGN IT.BESE.UCW::APP IT.BESE.UCW:REQUEST) (BLOCK IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE #)) #:G664)) 29: (COMPILER::PA-COMPILE (COMPILER::NAMED-FUNCTION-1 (LAMBDA (IT.BESE.UCW::APP IT.BESE.UCW:REQUEST) (DECLARE # #) (PROGN IT.BESE.UCW::APP IT.BESE.UCW:REQUEST) (BLOCK IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE #)) #:G664) T) 30: (COMPILER::PA-COMPILER-LET (((COMPILER::.FUNCTION-SPEC. #) (COMPILER::.ANON-FNC-COUNTER. -1)) (COMPILER::NAMED-FUNCTION-1 (LAMBDA # # # #) #:G664))) 31: (COMPILER::PA-COMPILE (EXCL::COMPILER-LET ((COMPILER::.FUNCTION-SPEC. #) (COMPILER::.ANON-FNC-COUNTER. -1)) (COMPILER::NAMED-FUNCTION-1 (LAMBDA # # # #) #:G664)) T) 32: (COMPILER::PA-THE (EXCL::KNOWN-FUNCTION (EXCL::COMPILER-LET (# #) (COMPILER::NAMED-FUNCTION-1 # #:G664)))) 33: (COMPILER::PA-COMPILE (THE EXCL::KNOWN-FUNCTION (EXCL::COMPILER-LET (# #) (COMPILER::NAMED-FUNCTION-1 # #:G664))) T) 34: (COMPILER::PA-COMPILE (NAMED-FUNCTION (METHOD IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE (IT.BESE.UCW:L10N-APPLICATION-MIXIN IT.BESE.UCW:REQUEST)) (LAMBDA (IT.BESE.UCW::APP IT.BESE.UCW:REQUEST) (DECLARE # #) (PROGN IT.BESE.UCW::APP IT.BESE.UCW:REQUEST) (BLOCK IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE #))) T) 35: (COMPILER::PA-COMPILE-LIST-FOR-VALUE ((QUOTE LIST) :LAMBDA-LIST (QUOTE (# #)) :PLIST (QUOTE NIL) :SPECIALIZERS (LIST (FIND-CLASS #) (FIND-CLASS #)) :FUNCTION (NAMED-FUNCTION (METHOD IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE #) (LAMBDA # # # #))) T) 36: (COMPILER::PA-COMPILE-EXPR-CALL (EXCL::.PRIMCALL (QUOTE LIST) :LAMBDA-LIST (QUOTE (# #)) :PLIST (QUOTE NIL) :SPECIALIZERS (LIST (FIND-CLASS #) (FIND-CLASS #)) :FUNCTION (NAMED-FUNCTION (METHOD IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE #) (LAMBDA # # # #)))) 37: (COMPILER::PA-COMPILE (LIST :LAMBDA-LIST (QUOTE (# #)) :PLIST (QUOTE NIL) :SPECIALIZERS (LIST (FIND-CLASS #) (FIND-CLASS #)) :FUNCTION (NAMED-FUNCTION (METHOD IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE #) (LAMBDA # # # #))) T) 38: (COMPILER::PA-COMPILE-LIST-FOR-VALUE ((LIST :LAMBDA-LIST (QUOTE #) :PLIST (QUOTE NIL) :SPECIALIZERS (LIST # #) :FUNCTION (NAMED-FUNCTION # #)) NIL) T) 39: (COMPILER::PA-COMPILE-EXPR-CALL (CONS (LIST :LAMBDA-LIST (QUOTE #) :PLIST (QUOTE NIL) :SPECIALIZERS (LIST # #) :FUNCTION (NAMED-FUNCTION # #)) NIL)) 40: (COMPILER::PA-COMPILE (LIST (LIST :LAMBDA-LIST (QUOTE #) :PLIST (QUOTE NIL) :SPECIALIZERS (LIST # #) :FUNCTION (NAMED-FUNCTION # #))) T) 41: (COMPILER::PA-COMPILE-LIST-FOR-VALUE ((QUOTE IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE) :LAMBDA-LIST (QUOTE (IT.BESE.UCW::APPLICATION IT.BESE.UCW:REQUEST)) :INITIAL-METHODS (LIST (LIST :LAMBDA-LIST # :PLIST # :SPECIALIZERS # :FUNCTION #))) T) 42: (COMPILER::PA-COMPILE-EXPR-CALL (ENSURE-GENERIC-FUNCTION (QUOTE IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE) :LAMBDA-LIST (QUOTE (IT.BESE.UCW::APPLICATION IT.BESE.UCW:REQUEST)) :INITIAL-METHODS (LIST (LIST :LAMBDA-LIST # :PLIST # :SPECIALIZERS # :FUNCTION #)))) 43: (COMPILER::PA-COMPILE (ENSURE-GENERIC-FUNCTION (QUOTE IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE) :LAMBDA-LIST (QUOTE (IT.BESE.UCW::APPLICATION IT.BESE.UCW:REQUEST)) :INITIAL-METHODS (LIST (LIST :LAMBDA-LIST # :PLIST # :SPECIALIZERS # :FUNCTION #))) NIL) 44: (COMPILER::PA-PROGN (NIL (ENSURE-GENERIC-FUNCTION (QUOTE IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE) :LAMBDA-LIST (QUOTE #) :INITIAL-METHODS (LIST #)) NIL)) 45: (COMPILER::PA-COMPILE (PROGN NIL (ENSURE-GENERIC-FUNCTION (QUOTE IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE) :LAMBDA-LIST (QUOTE #) :INITIAL-METHODS (LIST #)) NIL) COMPILER::TAIL) 46: (COMPILER::PA-COMPILE-LAMBDA (LAMBDA NIL NIL (ENSURE-GENERIC-FUNCTION (QUOTE IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE) :LAMBDA-LIST (QUOTE #) :INITIAL-METHODS (LIST #)) NIL) #:G663) 47: (COMPILER::PA-START-COMPILE (LAMBDA NIL NIL (ENSURE-GENERIC-FUNCTION (QUOTE IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE) :LAMBDA-LIST (QUOTE #) :INITIAL-METHODS (LIST #)) NIL) #:G663) 48: (COMPILER::COMPILE-LE (LAMBDA NIL NIL (ENSURE-GENERIC-FUNCTION (QUOTE IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE) :LAMBDA-LIST (QUOTE #) :INITIAL-METHODS (LIST #)) NIL) #:G663 T) 49: (COMPILER::COMPILE-TO-LAPS (LAMBDA NIL NIL (ENSURE-GENERIC-FUNCTION (QUOTE IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE) :LAMBDA-LIST (QUOTE #) :INITIAL-METHODS (LIST #)) NIL) #:G663) 50: (COMPILER::COMPILE-FUNCTION-GROUP (LAMBDA NIL NIL (ENSURE-GENERIC-FUNCTION (QUOTE IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE) :LAMBDA-LIST (QUOTE #) :INITIAL-METHODS (LIST #)) NIL) (:TOP-LEVEL-FORM "l10n-application.lisp" 4505) COMPILER::EVALIT NIL NIL NIL) 51: (COMPILER::COMPILE-PROCESS-FORM (DEFGENERIC IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE (IT.BESE.UCW::APPLICATION IT.BESE.UCW:REQUEST) (:METHOD (# #) (IT.BESE.ARNESI:AWHEN # # #))) #P"/Users/daniel/dev/lisp/ucw-boxset/ucw_ajax/src/l10n/l10n-application.fasl") 52: ((FLET COMPILE-FILE EXCL::CONTINUATION)) 53: (COMPILE-FILE #P"/Users/daniel/dev/lisp/ucw-boxset/ucw_ajax/src/l10n/l10n-application.lisp" :OUTPUT-FILE #P"/Users/daniel/dev/lisp/ucw-boxset/ucw_ajax/src/l10n/l10n-application.fasl") 54: ((METHOD ASDF:PERFORM (ASDF:COMPILE-OP ASDF:CL-SOURCE-FILE)) # #) 55: ((:INTERNAL (:EFFECTIVE-METHOD 2 NIL NIL NIL T) 0) # #) 56: (FUNCALL # # #) 57: (LET ((EXCL::*NEXT-METHODS* EXCL::.NEXT-METHODS.)) (FUNCALL EXCL::.NEXT-METHOD. #:OP #:COMPONENT)) 58: (LET NIL (IF EXCL::.NEXT-METHOD. (LET (#) (FUNCALL EXCL::.NEXT-METHOD. . #1=(#:OP #:COMPONENT))) (EXCL::NO-NEXT-METHOD-ERROR (QUOTE #:G190) . #1#))) 59: (LET ((*FEATURES* *FEATURES*)) (COND (IT.BESE.UCW.SYSTEM:*LOAD-WITH-DEBUG-P* NIL (SETQ *FEATURES* #))) (CALL-NEXT-METHOD)) 60: (LET* ((IT.BESE.UCW.SYSTEM::OP #:OP) (ASDF:COMPONENT #:COMPONENT)) (DECLARE (SYSTEM::DISCRIMINATED-TYPE ASDF:OPERATION IT.BESE.UCW.SYSTEM::OP) (SYSTEM::DISCRIMINATED-TYPE IT.BESE.UCW.SYSTEM::LOCAL-CL-SOURCE-FILE ASDF:COMPONENT)) (PROGN IT.BESE.UCW.SYSTEM::OP ASDF:COMPONENT) (BLOCK ASDF:PERFORM (LET (#) (COND #) (CALL-NEXT-METHOD)))) 61: (LET NIL (LET* ((IT.BESE.UCW.SYSTEM::OP #:OP) (ASDF:COMPONENT #:COMPONENT)) (DECLARE (SYSTEM::DISCRIMINATED-TYPE ASDF:OPERATION IT.BESE.UCW.SYSTEM::OP) (SYSTEM::DISCRIMINATED-TYPE IT.BESE.UCW.SYSTEM::LOCAL-CL-SOURCE-FILE ASDF:COMPONENT)) (PROGN IT.BESE.UCW.SYSTEM::OP ASDF:COMPONENT) (BLOCK ASDF:PERFORM (LET # # #)))) 62: (FLET NIL (LET* ((IT.BESE.UCW.SYSTEM::OP #:OP) (ASDF:COMPONENT #:COMPONENT)) (DECLARE (SYSTEM::DISCRIMINATED-TYPE ASDF:OPERATION IT.BESE.UCW.SYSTEM::OP) (SYSTEM::DISCRIMINATED-TYPE IT.BESE.UCW.SYSTEM::LOCAL-CL-SOURCE-FILE ASDF:COMPONENT)) (PROGN IT.BESE.UCW.SYSTEM::OP ASDF:COMPONENT) (BLOCK ASDF:PERFORM (LET # # #)))) 63: (LET NIL (FLET NIL (LET* (# #) (DECLARE # #) (PROGN IT.BESE.UCW.SYSTEM::OP ASDF:COMPONENT) (BLOCK ASDF:PERFORM #)))) 64: (MACROLET ((CALL-NEXT-METHOD (&REST EXCL::CNM-ARGS) (EXCL::PRESERVE-CNM-ARGS #))) (FLET NIL (LET* (# #) (DECLARE # #) (PROGN IT.BESE.UCW.SYSTEM::OP ASDF:COMPONENT) (BLOCK ASDF:PERFORM #)))) 65: (LET ((EXCL::.NEXT-METHOD. (CAR EXCL::*NEXT-METHODS*)) (EXCL::.NEXT-METHODS. (CDR EXCL::*NEXT-METHODS*))) (MACROLET ((CALL-NEXT-METHOD # #)) (FLET NIL (LET* # # # #)))) 66: ((METHOD ASDF:PERFORM :AROUND (ASDF:OPERATION IT.BESE.UCW.SYSTEM::LOCAL-CL-SOURCE-FILE)) # #) 67: ((:INTERNAL (:EFFECTIVE-METHOD 2 NIL NIL T T) 0) # #) 68: ((FLET ASDF:OPERATE EXCL::CONTINUATION)) 69: (ASDF:OPERATE ASDF:LOAD-OP :UCW) 70: (ASDF:OOS ASDF:LOAD-OP :UCW) 71: (EVAL (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (ASDF:OOS (QUOTE ASDF:LOAD-OP) :UCW) (ASDF:OOS (QUOTE ASDF:LOAD-OP) :UCW.ADMIN) (ASDF:OOS (QUOTE ASDF:LOAD-OP) :UCW.EXAMPLES) (IGNORE-ERRORS (ASDF:OOS # :UCW.EXAMPLES.L10N)))) 72: (LOAD #P"/Users/daniel/dev/lisp/ucw-boxset/start-common.lisp") 73: (EVAL (LOAD (MERGE-PATHNAMES #P"start-common.lisp" *LOAD-TRUENAME*))) 74: (LOAD "~/dev/lisp/ucw-boxset/start-ajax.lisp") 75: (EVAL (LOAD "~/dev/lisp/ucw-boxset/start-ajax.lisp")) 76: (SWANK::EVAL-REGION "(load \"~/dev/lisp/ucw-boxset/start-ajax.lisp\") " T) 77: ((:INTERNAL SWANK:LISTENER-EVAL 0)) 78: ((:INTERNAL (:TOP-LEVEL-FORM "swank-allegro.lisp" 2092) 0) #) 79: (SWANK-BACKEND:CALL-WITH-SYNTAX-HOOKS #) 80: (SWANK::CALL-WITH-BUFFER-SYNTAX #) 81: (SWANK:LISTENER-EVAL "(load \"~/dev/lisp/ucw-boxset/start-ajax.lisp\") ") 82: (EVAL (SWANK:LISTENER-EVAL "(load \"~/dev/lisp/ucw-boxset/start-ajax.lisp\") ")) 83: ((:INTERNAL SWANK::EVAL-FOR-EMACS 0)) 84: ((:INTERNAL (:TOP-LEVEL-FORM "swank-backend.lisp" 19979) 0) # #) 85: (SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK # #) 86: (SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL "(load \"~/dev/lisp/ucw-boxset/start-ajax.lisp\") ") "COMMON-LISP-USER" 9) 87: (FUNCALL SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL "(load \"~/dev/lisp/ucw-boxset/start-ajax.lisp\") ") "COMMON-LISP-USER" 9) 88: (SWANK::READ-FROM-EMACS) 89: ((:INTERNAL SWANK::HANDLE-REQUEST 0)) 90: ((:INTERNAL (:TOP-LEVEL-FORM "swank-backend.lisp" 19979) 0) # #) 91: (SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK # #) 92: ((:INTERNAL SWANK::CALL-WITH-CONNECTION 0)) 93: (SWANK::CALL-WITH-REDIRECTED-IO # #) 94: (SWANK::MAYBE-CALL-WITH-IO-REDIRECTION # #) 95: (SWANK::CALL-WITH-CONNECTION # #) 96: (SWANK::HANDLE-REQUEST #) 97: (SWANK::REPL-LOOP #) 98: ((:INTERNAL (:INTERNAL SWANK::SPAWN-REPL-THREAD 0) 0)) 99: (SWANK::CALL-WITH-BINDINGS NIL #) 100: ((:INTERNAL SWANK::SPAWN-REPL-THREAD 0)) From mbaringer at common-lisp.net Tue Dec 5 05:00:04 2006 From: mbaringer at common-lisp.net (Marco Baringer) Date: Tue, 5 Dec 2006 00:00:04 -0500 (EST) Subject: [Bese-devel] New patches to arnesi_dev: 4-Dec-2006 Message-ID: <20061205050004.8605E7D002@common-lisp.net> Mon Dec 4 03:10:42 EST 2006 Maciek Pasternacki * Set (FDEFINITION/CC NAME) on DEFGENERIC/CC; don't reDEFGENERIC/CC on DEFMETHOD/CC when GENERIC/CC already exists. M ./src/call-cc/generic-functions.lisp -7 +10 An updated tarball of arnesi_dev's source can be downloaded here: http://common-lisp.net/project/bese/tarballs/arnesi_dev-20061204.tar.gz Darcsweb URL: http://uncommon-web.com/darcsweb/darcsweb.cgi?r=arnesi_dev;a=summary From henrik at evahjelte.com Tue Dec 5 11:05:01 2006 From: henrik at evahjelte.com (Henrik Hjelte) Date: Tue, 05 Dec 2006 12:05:01 +0100 Subject: [Bese-devel] UCW in ACL In-Reply-To: <41238.10.238.10.70.1165274314.webmail@10.238.10.70> References: <41238.10.238.10.70.1165274314.webmail@10.238.10.70> Message-ID: <1165316701.9871.98.camel@trinidad> On Mon, 2006-12-04 at 18:18 -0500, lists at infoway.net wrote: > I wanted to evaluate ACL so I downloaded the evaluation version of ACL 8. > I also downloaded a fresh copy of ucw-boxset. > > However, when I try to run start-ajax, I keep getting stuck in > /Users/daniel/dev/lisp/ucw-boxset/ucw_ajax/src/l10n/l10n-application.lisp. > Any ideas from the trace below? > > Thanks, > Daniel > > Tag NIL is used more than once > Problem detected when processing It's a bug in iterate, I have posted a fix to the iterate devel mailing list but I guess it hasn't been applied. I attach a darcs patch you can apply, or if you are not accustomed to darcs, make four small changes to iterate.lisp, see below. /Henrik Hjelte hunk ./iterate.lisp 572 - ,.init-code + (progn ,.init-code) hunk ./iterate.lisp 574 - ,.body + (progn ,.body) hunk ./iterate.lisp 576 - ,.steppers + (progn ,.steppers) hunk ./iterate.lisp 579 - ,.final-code) + (progn ,.final-code)) -------------- next part -------------- A non-text attachment was scrubbed... Name: tagbodynil.patch Type: text/x-patch Size: 2266 bytes Desc: not available URL: From attila.lendvai at gmail.com Tue Dec 5 11:29:31 2006 From: attila.lendvai at gmail.com (Attila Lendvai) Date: Tue, 5 Dec 2006 12:29:31 +0100 Subject: [Bese-devel] UCW in ACL In-Reply-To: <1165316701.9871.98.camel@trinidad> References: <41238.10.238.10.70.1165274314.webmail@10.238.10.70> <1165316701.9871.98.camel@trinidad> Message-ID: > It's a bug in iterate, I have posted a fix to the iterate devel mailing > list but I guess it hasn't been applied. I attach a darcs patch you can > apply, or if you are not accustomed to darcs, make four small changes to > iterate.lisp, see below. i've been using this patch for quite some time without any regressions, so i've pushed it to the iterate repo. thanks for the fix, -- - attila "- The truth is that I've been too considerate, and so became unintentionally cruel... - I understand. - No, you don't understand! We don't speak the same language!" (Ingmar Bergman - Smultronst?llet) From lists at infoway.net Tue Dec 5 14:13:47 2006 From: lists at infoway.net (lists at infoway.net) Date: Tue, 5 Dec 2006 09:13:47 -0500 (EST) Subject: [Bese-devel] UCW in ACL In-Reply-To: References: <41238.10.238.10.70.1165274314.webmail@10.238.10.70> <1165316701.9871.98.camel@trinidad> Message-ID: <43404.10.238.10.35.1165328027.webmail@10.238.10.35> Ok. I just downloaded a fresh ucw-boxset and everything seems to compile just fine: *** UCW Started. Point your browser to http://127.0.0.1:8080/ However, something doesn't seem to be working properly. I guess I'm having really bad luck ever running start-ajax. I've switched from SBCL to OpenMCL to ACL and still can't seem to get it to work properly. I'm on OS X, in case that matters. When I visit that URL, I get this on the console: 09:10 UCW.BACKEND/+INFO+: Handling request from COMMON-LISP:NIL for "/" 09:10 UCW-LOGGER/+ERROR+: Got request error: Non-structure argument (COMMON-LISP:NIL) passed to ref of structure slot 1. 09:10 UCW-LOGGER/+INFO+: Debugging error: Non-structure argument (COMMON-LISP:NIL) passed to ref of structure slot 1. And this on SLIME: Non-structure argument (NIL) passed to ref of structure slot 1 [Condition of type SIMPLE-ERROR] Restarts: 0: [SERVER-ERROR] Send the client an internal server error page. 1: [GENERATE-BACKTRACE-FOR-EMACS] Generate a bug report in Emacs. 2: [FAIL-MISERABLY] Pretend this request never happend and fail. 3: [TRY-AGAIN] Play this request over from the top. 4: [ABORT] Abort entirely from this (lisp) process. Backtrace: 0: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY*) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 10) (*PRINT-CIRCLE* . T) (*PRINT-READABLY*) (*PRINT-PPRINT-DISPATCH* . #S(EXCL::PPRINT-DISPATCH-STRUCT :CONSES-WITH-CARS # :STRUCTURES # :OTHERS #)) (*PRINT-GENSYM* . T) (*PRINT-BASE* . 10) (*PRINT-RADIX*) (*PRINT-ARRAY* . T) ...) #) 1: (SWANK::DEBUG-IN-EMACS #) 2: ((:INTERNAL SWANK:SWANK-DEBUGGER-HOOK 0)) 3: ((:INTERNAL (:TOP-LEVEL-FORM "swank-backend.lisp" 19979) 0) # #) 4: (SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK # #) 5: ((:INTERNAL SWANK::CALL-WITH-CONNECTION 0)) 6: (SWANK::CALL-WITH-REDIRECTED-IO # #) 7: (SWANK::MAYBE-CALL-WITH-IO-REDIRECTION # #) 8: (SWANK::CALL-WITH-CONNECTION # #) 9: (SWANK:SWANK-DEBUGGER-HOOK # NIL) 10: ((:INTERNAL (METHOD IT.BESE.UCW::HANDLE-REQUEST (IT.BESE.UCW:STANDARD-SERVER IT.BESE.UCW:REQUEST IT.BESE.UCW:RESPONSE)) 4) #) Locals: CONDITION = # SYSTEM::.LAMBDA-LEXICAL-ENV. = #(#(-268441016 NIL) NIL) CONDITION = # IT.BESE.UCW::HANDLED = NIL 11: (SIGNAL #) Locals: EXCL::DATUM = # EXCL::ARGUMENTS = NIL EXCL::LOCAL-0 = NIL EXCL::LOCAL-1 = # EXCL::LOCAL-2 = ((ERROR . #)) EXCL::LOCAL-3 = 419494982 EXCL::LOCAL-4 = # EXCL::LOCAL-5 = (ERROR . #) 12: (ERROR SIMPLE-ERROR :FORMAT-CONTROL "Non-structure argument ~s passed to ref of structure slot ~s" :FORMAT-ARGUMENTS ((NIL) 1)) Locals: EXCL::DATUM = SIMPLE-ERROR EXCL::ARGUMENTS = (:FORMAT-CONTROL "Non-structure argument ~s passed to ref of structure slot ~s" :FORMAT-ARGUMENTS ((NIL) 1)) EXCL::LOCAL-0 = (:FORMAT-CONTROL "Non-structure argument ~s passed to ref of structure slot ~s" :FORMAT-ARGUMENTS ((NIL) 1)) EXCL::LOCAL-1 = SIMPLE-ERROR EXCL::LOCAL-2 = # EXCL::LOCAL-3 = 97 :UNKNOWN = NIL :UNKNOWN = NIL :UNKNOWN = NIL 13: (IT.BESE.UCW::HANDLE-ACTION # #<# 0 NIL @ #x11570bca> NIL #S(IT.BESE.UCW::ACTION-ENTRY :LAMBDA # :VALID-P T :ISOLATED-P NIL :INVOCATION-ISOLATED-P NIL :INVOCATION-IDS ...)) Locals: IT.BESE.UCW::APPLICATION = # IT.BESE.UCW::SESSION = #<# 0 NIL @ #x11570bca> IT.BESE.UCW::FRAME = NIL IT.BESE.UCW::ACTION = #S(IT.BESE.UCW::ACTION-ENTRY :LAMBDA # :VALID-P T :ISOLATED-P NIL :INVOCATION-ISOLATED-P NIL :INVOCATION-IDS ...) IT.BESE.UCW::CALL-CALLBACKS-P = :UNSUPPLIED #:|g61427| = (NIL) IT.BESE.UCW::ACTION = #S(IT.BESE.UCW::ACTION-ENTRY :LAMBDA # :VALID-P T :ISOLATED-P NIL :INVOCATION-ISOLATED-P NIL :INVOCATION-IDS ...) NIL = 0 #:|g61426| = NIL IT.BESE.UCW::SESSION = #<# 0 NIL @ #x11570bca> IT.BESE.UCW::APPLICATION = # SYSTEM::.LAMBDA-LEXICAL-ENV. = #(NIL) SYSTEM::.LET-LEXICAL-ENV. = 70397753 IT.BESE.UCW::CALL-CALLBACKS-P = NIL IT.BESE.UCW::ACTION-LAMBDA = 469762048 #:|g61425| = NIL #:|g61430| = NIL IT.BESE.UCW::ACTION-INVOCATION-ID = # #:|g61429| = NIL #:|g61428| = "Lock" NIL = 12789087 NIL = 1 NIL = -268441356 NIL = 0 #:|g61431| = # #:|g61439| = -268441350 NIL = NIL NIL = #\null NIL = (#) NIL = # SYSTEM::.LET-LEXICAL-ENV. = -268441364 #:|g61424| = 419494978 IT.BESE.UCW::ACTION-LAMBDA = #(14903229 T (IT.BESE.UCW::HANDLER IT.BESE.UCW::URL-STRING IT.BESE.UCW::SCANNER IT.BESE.UCW::PRIORITY) #() # 0 (T :UNKNOWN)) IT.BESE.UCW::CALLBACKS-CALLED = #(14903229 T (IT.BESE.UCW::HANDLER IT.BESE.UCW::URL-STRING IT.BESE.UCW::SCANNER IT.BESE.UCW::PRIORITY) #() # 0 (T :UNKNOWN)) IT.BESE.UCW::FRAME = NIL 14: ((METHOD IT.BESE.UCW::HANDLER-HANDLE (IT.BESE.UCW::ENTRY-POINT-HANDLER IT.BESE.UCW:STANDARD-APPLICATION IT.BESE.UCW::STANDARD-REQUEST-CONTEXT T)) # # #<# @ #x115640fa> ("" #(""))) Locals: IT.BESE.UCW::HANDLER = # IT.BESE.UCW::APPLICATION = # IT.BESE.UCW::CONTEXT = #<# @ #x115640fa> IT.BESE.UCW::MATCHER-RESULT = ("" #("")) IT.BESE.UCW::APPLICATION = # IT.BESE.UCW::HANDLER = # IT.BESE.UCW::CONTEXT = # 15: ((METHOD IT.BESE.UCW::DISPATCH (IT.BESE.UCW::ABSTRACT-DISPATCHER IT.BESE.UCW:STANDARD-APPLICATION IT.BESE.UCW::STANDARD-REQUEST-CONTEXT)) # # #<# @ #x115640fa>) Locals: IT.BESE.UCW::DISPATCHER = # IT.BESE.UCW::APPLICATION = # IT.BESE.UCW::CONTEXT = #<# @ #x115640fa> IT.BESE.UCW::DISPATCHER = # IT.BESE.UCW::APPLICATION = # IT.BESE.UCW::CONTEXT = #<# @ #x115640fa> 16: ((METHOD IT.BESE.UCW::SERVICE (IT.BESE.UCW:STANDARD-APPLICATION IT.BESE.UCW::REQUEST-CONTEXT)) # #<# @ #x115640fa>) Locals: IT.BESE.UCW::APP = # IT.BESE.UCW::CONTEXT = #<# @ #x115640fa> IT.BESE.UCW::APP = # IT.BESE.UCW::CONTEXT = #<# @ #x115640fa> #:|g60549| = (# # #) 17: ((METHOD IT.BESE.UCW::HANDLE-REQUEST (IT.BESE.UCW:STANDARD-SERVER IT.BESE.UCW:REQUEST IT.BESE.UCW:RESPONSE)) # # #) Locals: IT.BESE.UCW::SERVER = # IT.BESE.UCW:REQUEST = # IT.BESE.UCW:RESPONSE = # IT.BESE.UCW:RESPONSE = # IT.BESE.UCW:REQUEST = # IT.BESE.UCW::SERVER = # IT.BESE.UCW::|internalv-G61861| = -268440965 SYSTEM::.LET-LEXICAL-ENV. = #(#(-268441016 NIL) NIL) SYSTEM::.LET-LEXICAL-ENV. = #(-268441016 NIL) IT.BESE.UCW::|internalv-G61870| = -268440989 IT.BESE.UCW::APP = # NIL = # NIL = # NIL = # NIL = # NIL = # NIL = # #:|g61847| = # NIL = NIL NIL = (# #) #:|g61829| = ((ERROR . #)) NIL = (# #) #:|g61848| = # IT.BESE.UCW::|internalv-G61866| = -268440997 #:G61835 = NIL IT.BESE.UCW::|internalv-G61857| = -268440973 #:G61823 = :UNKNOWN IT.BESE.UCW::HANDLED = :UNKNOWN 18: ((METHOD IT.BESE.UCW::HANDLE-REQUEST (IT.BESE.UCW:HTTPD-BACKEND IT.BESE.UCW::HTTPD-REQUEST IT.BESE.UCW::HTTPD-RESPONSE)) # # #) 19: (IT.BESE.UCW::HTTPD-WORKER-LOOP/HANDLE # # #) 20: (IT.BESE.UCW::HTTPD-WORKER-LOOP #) 21: ((:INTERNAL (METHOD IT.BESE.UCW::MAKE-WORKER NIL) 0)) -----Original Message----- From: "Attila Lendvai" Sent: Tue, December 5, 2006 6:29 am To: "Henrik Hjelte" Cc: lists at infoway.net 0bese-devel at common-lisp.net Subject: Re: [Bese-devel] UCW in ACL > It's a bug in iterate, I have posted a fix to the iterate devel mailing > list but I guess it hasn't been applied. I attach a darcs patch you can > apply, or if you are not accustomed to darcs, make four small changes to > iterate.lisp, see below. i've been using this patch for quite some time without any regressions, so i've pushed it to the iterate repo. thanks for the fix, -- - attila "- The truth is that I've been too considerate, and so became unintentionally cruel... - I understand. - No, you don't understand! We don't speak the same language!" (Ingmar Bergman - Smultronst?llet) From vagif at cox.net Wed Dec 6 02:29:45 2006 From: vagif at cox.net (Vagif Verdi) Date: Tue, 5 Dec 2006 18:29:45 -0800 Subject: [Bese-devel] ucw-ajax errors on CL-L10N Message-ID: <20061206022946.EMCH20330.fed1rmmtao05.cox.net@fed1rmimpo01.cox.net> Latest ucw-boxset. On Windows Lispworks 4.4.6 Trying to load both start.lisp and start-ajax.lisp gives following error: ; Loading fasl file c:\lisp\ucw-boxset\dependencies\cl-l10n\load-locale.fsl --TIME MARK 2006-12-05-- 18:23 L10N-LOGGER/+INFO+: Loading locale from c:\lisp\ucw-boxset\dependencies\cl-l10n\locales\POSIX Error: Undefined external format :US-ASCII. After removing from start-common.lisp all mentions of cl-l10n, start.lisp works ok. Ucw_dev loads fine and web site with examples is up and functional. But start-ajax.lisp still fails with same error. I do not want to go and try to remove cl-l10n from all the files in ajax branch. Regards, Vagif -------------- next part -------------- An HTML attachment was scrubbed... URL: From attila.lendvai at gmail.com Wed Dec 6 09:18:59 2006 From: attila.lendvai at gmail.com (Attila Lendvai) Date: Wed, 6 Dec 2006 10:18:59 +0100 Subject: [Bese-devel] ucw-ajax errors on CL-L10N In-Reply-To: <20061206022946.EMCH20330.fed1rmmtao05.cox.net@fed1rmimpo01.cox.net> References: <20061206022946.EMCH20330.fed1rmmtao05.cox.net@fed1rmimpo01.cox.net> Message-ID: > Latest ucw-boxset. On Windows Lispworks 4.4.6 seems like there's no string-to-octets, octets-to-string and encoding-keyword-to-native (the one causing the error) implementation for lispworks in arnesi. this should be trivial to implement with a lispworks and some lispworks doc at hand. see arnesi/src/string.lisp and while we are speeking i've added partial support for that in arnesi that will fix at least this problem, but most probably it will fail later on lw. -- - attila "- The truth is that I've been too considerate, and so became unintentionally cruel... - I understand. - No, you don't understand! We don't speak the same language!" (Ingmar Bergman - Smultronst?llet) From henrik at evahjelte.com Wed Dec 6 16:43:41 2006 From: henrik at evahjelte.com (Henrik Hjelte) Date: Wed, 06 Dec 2006 17:43:41 +0100 Subject: [Bese-devel] UCW in ACL In-Reply-To: <43404.10.238.10.35.1165328027.webmail@10.238.10.35> References: <41238.10.238.10.70.1165274314.webmail@10.238.10.70> <1165316701.9871.98.camel@trinidad> <43404.10.238.10.35.1165328027.webmail@10.238.10.35> Message-ID: <1165423421.9871.199.camel@trinidad> On Tue, 2006-12-05 at 09:13 -0500, lists at infoway.net wrote: > Ok. I just downloaded a fresh ucw-boxset and everything seems to compile > just fine: > And this on SLIME: > > Non-structure argument (NIL) passed to ref of structure slot 1 > [Condition of type SIMPLE-ERROR] Here we go again, it's an incomplete allegro implementation in bourdeaux threads which I posted a patch to fix in late september, but I guess it hasn't been applied yet. I have attached the darcs patch, or you can replace the allegro.lisp file in bourdeaux-threads with the one attached here. Also, I had some problem with admin.lisp in the boxset, I needed to change swank:create-swank-server to swank:create-server. I will add this fix to ucw_dev and ucw_ajax so the problem will disappear tomorrow. Good luck, don't give up... /Henrik Hjelte -------------- next part -------------- A non-text attachment was scrubbed... Name: allegro.patch Type: text/x-patch Size: 2611 bytes Desc: not available URL: -------------- next part -------------- (in-package #:bordeaux-threads) ;;; documentation on the Allegro Multiprocessing interface can be found at ;;; http://www.franz.com/support/documentation/6.2/doc/multiprocessing.htm (eval-when (:compile-top-level :load-top-level :execute) (require :process)) #+multiprocessing (progn ;;; Thread Creation (defmethod make-thread (function &key name) (mp:process-run-function name function)) (defmethod current-thread () mp:*current-process*) (defmethod threadp ((object mp:process)) t) (defmethod thread-name ((thread mp:process)) (mp:process-name thread)) ;;; Resource contention: locks and recursive locks (defmethod make-lock (&optional name) (mp:make-process-lock :name name)) (defmethod acquire-lock ((lock mp:process-lock) &optional (wait-p t)) (mp:process-lock lock mp:*current-process* "Lock" (if wait-p nil 0))) (defmethod release-lock ((lock mp:process-lock)) (mp:process-unlock lock)) (defmacro with-lock-held ((place) &body body) `(mp:with-process-lock (,place :norecursive t) , at body)) (defmethod make-recursive-lock (&optional name) (mp:make-process-lock :name name)) (defmacro with-recursive-lock-held ((place &key timeout) &body body) (if timeout `(mp:with-process-lock (,place :timeout ,timeout) , at body) `(mp:with-process-lock (,place) , at body))) ;;; XXX acquire-recursive-lock and release-recursive-lock are actually ;;; complicated because we can't use control stack tricks. We need to ;;; actually count something to check that the acquire/releases are ;;; balanced ;;; Resource contention: condition variables (defmethod make-condition-variable () (mp:make-gate nil)) (defmethod condition-wait ((condition-variable vector) (lock mp:process-lock)) (release-lock lock) (mp:process-wait "wait for message" #'mp:gate-open-p condition-variable) (acquire-lock lock) (mp:close-gate condition-variable)) (defmethod condition-notify ((condition-variable vector)) (mp:open-gate condition-variable)) (defmethod thread-yield () (mp:process-allow-schedule)) ;;; Introspection/debugging (defmethod all-threads () mp:*all-processes*) (defmethod interrupt-thread ((thread mp:process) function) (mp:process-interrupt thread function)) (defmethod destroy-thread ((thread mp:process)) (mp:process-kill thread)) (mark-supported) ) ; end PROGN From lists at infoway.net Wed Dec 6 21:07:00 2006 From: lists at infoway.net (lists at infoway.net) Date: Wed, 6 Dec 2006 16:07:00 -0500 (EST) Subject: [Bese-devel] Re: UCW in ACL Message-ID: <49711.10.238.10.71.1165439220.webmail@10.238.10.71> Henrik, That solved the problem. For the first time ever am I seeing the ajax demos. Thank you so much. I did encounter a problem with the tabbed demo in the form tab where the calendar shows NaN for all values and so the the form never submits properly and I always get thrown into the debugger 'cause the value received is 0NaN-NaN-NaN. Even if I manually enter a date, it still submits that NaN values. Is this a known bug or is it just my environment? I hope your patch gets pushed into the the repository for everyone's benefit. Thanks again, Daniel On Tue, 2006-12-06 at 11:43 -0500, henrik evahjelte.com wrote: >On Tue, 2006-12-05 at 09:13 -0500, lists infoway.net wrote: >> Ok. I just downloaded a fresh ucw-boxset and everything seems to compile >> just fine: >> And this on SLIME: >> >> Non-structure argument (NIL) passed to ref of structure slot 1 >> [Condition of type SIMPLE-ERROR] >Here we go again, it's an incomplete allegro implementation in bourdeaux >threads which I posted a patch to fix in late september, but I guess it >hasn't been applied yet. >I have attached the darcs patch, or you can replace the allegro.lisp >file in bourdeaux-threads with the one attached here. >Also, I had some problem with admin.lisp in the boxset, I needed to >change swank:create-swank-server to swank:create-server. I will add this >fix to ucw_dev and ucw_ajax so the problem will disappear tomorrow. >Good luck, don't give up... >/Henrik Hjelte From mbaringer at common-lisp.net Thu Dec 7 05:00:09 2006 From: mbaringer at common-lisp.net (Marco Baringer) Date: Thu, 7 Dec 2006 00:00:09 -0500 (EST) Subject: [Bese-devel] New patches to arnesi_dev: 6-Dec-2006 Message-ID: <20061207050009.054CF7D00D@common-lisp.net> Wed Dec 6 04:19:36 EST 2006 attila.lendvai at gmail.com * Added partial lispworks support for string encodings M ./src/string.lisp -1 +45 Sun Nov 5 17:03:27 EST 2006 attila.lendvai at gmail.com * Bind *package* to the COMMON-LISP package instead of KEYWORD M ./src/log.lisp -1 +1 An updated tarball of arnesi_dev's source can be downloaded here: http://common-lisp.net/project/bese/tarballs/arnesi_dev-20061206.tar.gz Darcsweb URL: http://uncommon-web.com/darcsweb/darcsweb.cgi?r=arnesi_dev;a=summary From mbaringer at common-lisp.net Thu Dec 7 05:05:03 2006 From: mbaringer at common-lisp.net (Marco Baringer) Date: Thu, 7 Dec 2006 00:05:03 -0500 (EST) Subject: [Bese-devel] New patches to fiveam: 6-Dec-2006 Message-ID: <20061207050503.B61725001B@common-lisp.net> Wed Dec 6 06:24:49 EST 2006 Marco Baringer * Change IS's default resaon strings to show the form which didn't provide the expected value (and, obviously, its value) M ./src/check.lisp -9 +17 Wed Dec 6 05:54:51 EST 2006 Marco Baringer * Can't use &rest in loop destructuring. Use (expected actual . reason) instead. M ./src/check.lisp -1 +1 An updated tarball of fiveam's source can be downloaded here: http://common-lisp.net/project/bese/tarballs/fiveam-20061206.tar.gz Darcsweb URL: http://uncommon-web.com/darcsweb/darcsweb.cgi?r=fiveam;a=summary From mbaringer at common-lisp.net Thu Dec 7 05:30:15 2006 From: mbaringer at common-lisp.net (Marco Baringer) Date: Thu, 7 Dec 2006 00:30:15 -0500 (EST) Subject: [Bese-devel] New patches to ucw_dev: 6-Dec-2006 Message-ID: <20061207053015.1259561026@common-lisp.net> Wed Dec 6 09:15:09 EST 2006 Henrik Hjelte * create-swank-server renamed create-server in admin.lisp M ./src/admin/admin.lisp -1 +1 An updated tarball of ucw_dev's source can be downloaded here: http://common-lisp.net/project/ucw/tarballs/ucw_dev-20061206.tar.gz Darcsweb URL: http://uncommon-web.com/darcsweb/darcsweb.cgi?r=ucw_dev;a=summary From mbaringer at common-lisp.net Thu Dec 7 05:30:16 2006 From: mbaringer at common-lisp.net (Marco Baringer) Date: Thu, 7 Dec 2006 00:30:16 -0500 (EST) Subject: [Bese-devel] New patches to ucw_ajax: 6-Dec-2006 Message-ID: <20061207053016.1F26361035@common-lisp.net> Wed Dec 6 09:15:09 EST 2006 Henrik Hjelte * create-swank-server renamed create-server in admin.lisp M ./src/admin/admin.lisp -1 +1 An updated tarball of ucw_ajax's source can be downloaded here: http://common-lisp.net/project/ucw/tarballs/ucw_ajax-20061206.tar.gz Darcsweb URL: http://uncommon-web.com/darcsweb/darcsweb.cgi?r=ucw_ajax;a=summary From mbaringer at common-lisp.net Sun Dec 10 05:05:03 2006 From: mbaringer at common-lisp.net (Marco Baringer) Date: Sun, 10 Dec 2006 00:05:03 -0500 (EST) Subject: [Bese-devel] New patches to fiveam: 9-Dec-2006 Message-ID: <20061210050503.D052F50029@common-lisp.net> Sat Dec 9 10:47:34 EST 2006 attila.lendvai at gmail.com * Rebind *package* also when compiling the tests M ./src/test.lisp -1 +2 Sat Dec 9 10:47:15 EST 2006 attila.lendvai at gmail.com * Print failed tests in the order of execution M ./src/explain.lisp -1 +1 Fri Nov 10 16:49:07 EST 2006 attila.lendvai at gmail.com * Added :fiveam package nickname M ./src/packages.lisp -1 +1 An updated tarball of fiveam's source can be downloaded here: http://common-lisp.net/project/bese/tarballs/fiveam-20061209.tar.gz Darcsweb URL: http://uncommon-web.com/darcsweb/darcsweb.cgi?r=fiveam;a=summary From mbaringer at common-lisp.net Mon Dec 11 05:30:11 2006 From: mbaringer at common-lisp.net (Marco Baringer) Date: Mon, 11 Dec 2006 00:30:11 -0500 (EST) Subject: [Bese-devel] New patches to ucw_ajax: 10-Dec-2006 Message-ID: <20061211053011.066837C039@common-lisp.net> Sun Oct 22 14:11:25 EDT 2006 Maciek Pasternacki * Set default external format to UTF-8 also for Unicode-enabled clisp and Allegro CL. M ./src/vars.lisp -1 +3 Wed Nov 22 10:53:10 EST 2006 attila.lendvai at gmail.com * Drop the overcomplicated standard-component initialization IOW, copy again the standard-component-class initialize-instance that was once copied from ContextL. M ./src/rerl/standard-component/standard-component-class.lisp -107 +33 Sun Dec 10 14:42:07 EST 2006 attila.lendvai at gmail.com * Remove superfluous html escaping in Wed Dec 13 18:25:27 EST 2006 attila.lendvai at gmail.com * Follow swank:create-server changes M ./src/admin/admin.lisp -1 +1 An updated tarball of ucw_dev's source can be downloaded here: http://common-lisp.net/project/ucw/tarballs/ucw_dev-20061213.tar.gz Darcsweb URL: http://uncommon-web.com/darcsweb/darcsweb.cgi?r=ucw_dev;a=summary From mbaringer at common-lisp.net Thu Dec 14 05:30:13 2006 From: mbaringer at common-lisp.net (Marco Baringer) Date: Thu, 14 Dec 2006 00:30:13 -0500 (EST) Subject: [Bese-devel] New patches to ucw_ajax: 13-Dec-2006 Message-ID: <20061214053013.40D946D22A@common-lisp.net> Wed Dec 13 18:25:27 EST 2006 attila.lendvai at gmail.com * Follow swank:create-server changes M ./src/admin/admin.lisp -1 +1 An updated tarball of ucw_ajax's source can be downloaded here: http://common-lisp.net/project/ucw/tarballs/ucw_ajax-20061213.tar.gz Darcsweb URL: http://uncommon-web.com/darcsweb/darcsweb.cgi?r=ucw_ajax;a=summary From mbaringer at common-lisp.net Sat Dec 16 05:30:13 2006 From: mbaringer at common-lisp.net (Marco Baringer) Date: Sat, 16 Dec 2006 00:30:13 -0500 (EST) Subject: [Bese-devel] New patches to ucw_ajax: 15-Dec-2006 Message-ID: <20061216053013.624621A09E@common-lisp.net> Fri Dec 15 09:44:45 EST 2006 attila.lendvai at gmail.com * Err, fix for "Clean up :component slot initialization" M ./src/rerl/standard-component/standard-component.lisp -3 +3 An updated tarball of ucw_ajax's source can be downloaded here: http://common-lisp.net/project/ucw/tarballs/ucw_ajax-20061215.tar.gz Darcsweb URL: http://uncommon-web.com/darcsweb/darcsweb.cgi?r=ucw_ajax;a=summary From attila.lendvai at gmail.com Sun Dec 17 12:46:38 2006 From: attila.lendvai at gmail.com (Attila Lendvai) Date: Sun, 17 Dec 2006 13:46:38 +0100 Subject: [Bese-devel] computed-class and ucw mop integraion Message-ID: dear list, i've successfully integrated the two beforementioned mop's. there is a little work left to make slots work as expected when they are both :computed and :component at the same time. but even in the current state i can create gui's with automatic dataflow management (no need for listeners and alike anymore). fyi, computed-class ( http://common-lisp.net/project/computed-class/ ) is a cells rewrite with an epmhasis on transparent clos integration. the idea is that each ucw session has a separated computed universe in which you can define various places as computed places (these are the "cell"s). when such a cell is computed, the other cells used to compute its value are recorded and stored as its dependency. whenever something changes in the computed universe then cells are revalidated and recomputed when next read. to get a more concrete idea, the client-value of generic-html-input should be such a cell and then you can just define some other internal state as computed and simply specify how it's computed (which most probably involves reading the client-value). when a callback (coming from a submit of the browser) changes the client-value slot of a form element then all other cells depending on it will be automatically invalidated and recalculated when next read. then you can just simply read slots in render and stuff will be recalculated for you transparently. computed-class supports defcfun and clet for more advanced magic and also customizes the slime inspector to help dealing with computed-class instances. a version in scheme with desktop gui: http://www.cs.brown.edu/~sk/Publications/Papers/Published/ck-frtime/ a javascript variant: http://www.flapjax-lang.org/demos/ now, all we need is drewc's commit... :) i don't want to explore this any further while the new repos are not up, because this is a great example of a feature that should be in a plugin. finally i've customized an appointment display, some of the code to get a feel of it is available at: http://paste.lisp.org/display/32688 -- - attila "- The truth is that I've been too considerate, and so became unintentionally cruel... - I understand. - No, you don't understand! We don't speak the same language!" (Ingmar Bergman - Smultronst?llet) From mbaringer at common-lisp.net Tue Dec 19 05:30:15 2006 From: mbaringer at common-lisp.net (Marco Baringer) Date: Tue, 19 Dec 2006 00:30:15 -0500 (EST) Subject: [Bese-devel] New patches to ucw_dev: 18-Dec-2006 Message-ID: <20061219053015.4CDCD2D01D@common-lisp.net> Mon Dec 18 09:26:32 EST 2006 aycan.irican at core.gen.tr * swank:create-server has a :coding-system key and it's value is a string. M ./src/control.lisp -1 +1 M ./src/vars.lisp -1 +1 Mon Dec 18 09:22:20 EST 2006 aycan.irican at core.gen.tr * Don't overwrite my peer-address. Set your own. M ./src/backend/mod-lisp.lisp +2 M ./src/backend/multithread-httpd.lisp -2 +1 An updated tarball of ucw_dev's source can be downloaded here: http://common-lisp.net/project/ucw/tarballs/ucw_dev-20061218.tar.gz Darcsweb URL: http://uncommon-web.com/darcsweb/darcsweb.cgi?r=ucw_dev;a=summary From lists at infoway.net Wed Dec 20 04:59:18 2006 From: lists at infoway.net (lists at infoway.net) Date: Tue, 19 Dec 2006 23:59:18 -0500 (EST) Subject: [Bese-devel] UCW and CLISP Message-ID: <51740.10.238.10.71.1166590758.webmail@10.238.10.71> I am still pursuing getting ucw-ajax to work on OS X. So far, I have tried SBCL, OpenMCL, and ACL. The only one that has worked so far is ACL. However, I'm not too happy with ACL's fees when I'm just starting to learn. Additionally, I've sent emails to sales at franz.com and have received no replies for weeks. Maybe they took an early end-of-year vacation. Anyway, I'm now trying CLISP. I'm running OS X on Intel Mac. Downloaded the latest ucw-boxset as of 23:30 on 2006-12-19, and here is what I'm getting: ~/dev/lisp/ucw-boxset $ clisp start-ajax.lisp *** *** *** *** Starting UCW boxset, if something goes wrong try loading it into a clean lisp (e.g. sbcl --no-sysinit --no-userinit --load start.lisp) *** *** *** ; loading system definition from /Users/devuser/dev/lisp/ucw-boxset/ucw_ajax/ucw.asd into # ; registering # as UCW ; registering # as UCW.ADMIN ; registering # as UCW.EXAMPLES ; registering # as UCW.HTTPD ; registering # as UCW.MOD-LISP ; registering # as UCW.ASERVE ; registering # as UCW.ARANEIDA *** - component :LOCAL-TIME not found, required by # and dumps me into the shell. When I try running the standard UCW, It goes much further, but still fails here: WARNING: The generic function # is being modified, but has already been called. WARNING: The generic function # is being modified, but has already been called. ;; Compiling file /Users/devuser/dev/lisp/ucw-boxset/dependencies/puri-1.5.1/src.lisp ... ;; Wrote file /Users/devuser/dev/lisp/ucw-boxset/dependencies/puri-1.5.1/src.fas ;; Compiling file /Users/devuser/dev/lisp/ucw-boxset/dependencies/rfc2388/source/packages.lisp ... ;; Wrote file /Users/devuser/dev/lisp/ucw-boxset/dependencies/rfc2388/source/packages.fas ;; Compiling file /Users/devuser/dev/lisp/ucw-boxset/dependencies/rfc2388/source/rfc2388.lisp ... ;; Wrote file /Users/devuser/dev/lisp/ucw-boxset/dependencies/rfc2388/source/rfc2388.fas ;; Compiling file /Users/devuser/dev/lisp/ucw-boxset/ucw_dev/src/backend/common.lisp ... ;; Wrote file /Users/devuser/dev/lisp/ucw-boxset/ucw_dev/src/backend/common.fas ;; Compiling file /Users/devuser/dev/lisp/ucw-boxset/ucw_dev/src/backend/httpd.lisp ... ;; Wrote file /Users/devuser/dev/lisp/ucw-boxset/ucw_dev/src/backend/httpd.fas ;; Compiling file /Users/devuser/dev/lisp/ucw-boxset/ucw_dev/src/backend/multithread-httpd.lisp ... ;; Wrote file /Users/devuser/dev/lisp/ucw-boxset/ucw_dev/src/backend/multithread-httpd.fas 0 errors, 0 warnings --TIME MARK 2006-12-19-- 23:58 UCW-LOGGER/+INFO+: Registered: # *** - EVAL: variable *L10N-EXAMPLE-APPLICATION* has no value and then dumps me back at the shell. Any ideas? From mbaringer at common-lisp.net Wed Dec 20 05:00:09 2006 From: mbaringer at common-lisp.net (Marco Baringer) Date: Wed, 20 Dec 2006 00:00:09 -0500 (EST) Subject: [Bese-devel] New patches to arnesi_dev: 19-Dec-2006 Message-ID: <20061220050009.54EC652009@common-lisp.net> Tue Dec 19 12:17:54 EST 2006 attila.lendvai at gmail.com * Small fix for the slime-repl-log-appender M ./src/log.lisp -8 +9 Tue Dec 19 11:51:18 EST 2006 attila.lendvai at gmail.com * Added slime-repl-log-appender that renders the args as inspectable presentations if :verbosity is > 1 M ./arnesi.asd -1 +2 M ./src/log.lisp -12 +72 M ./src/packages.lisp +1 Sun Dec 10 14:30:58 EST 2006 attila.lendvai at gmail.com * Added commented out eval based check for special-var-p This is the only way to check for a (defvar foo) where (boundp 'foo) is nil. Comment out for now, someone willing to take the responsibility should enable it... :) M ./src/call-cc/handlers.lisp -1 +10 Sun Dec 10 14:30:04 EST 2006 attila.lendvai at gmail.com * Use eval-always in log.lisp M ./src/log.lisp -1 +1 Sun Dec 10 14:29:56 EST 2006 attila.lendvai at gmail.com * Add inline annotations to %string-to-octets and friends, reorder definitions M ./src/string.lisp -28 +27 Sun Dec 10 14:28:13 EST 2006 attila.lendvai at gmail.com * Clean up uri escaping to fix unicode text in ucw forms. Drop non-standard %u1234 unencoding. M ./src/http.lisp -48 +37 An updated tarball of arnesi_dev's source can be downloaded here: http://common-lisp.net/project/bese/tarballs/arnesi_dev-20061219.tar.gz Darcsweb URL: http://uncommon-web.com/darcsweb/darcsweb.cgi?r=arnesi_dev;a=summary From mbaringer at common-lisp.net Wed Dec 20 05:30:14 2006 From: mbaringer at common-lisp.net (Marco Baringer) Date: Wed, 20 Dec 2006 00:30:14 -0500 (EST) Subject: [Bese-devel] New patches to ucw_dev: 19-Dec-2006 Message-ID: <20061220053014.0F8FB33021@common-lisp.net> Tue Dec 19 10:28:02 EST 2006 Maciek Pasternacki * Pass to SWANK:CREATE-SERVER a downcased string of (EXTERNAL-FORMAT-FOR :SLIME) to make external format specified as keyword behave correctly. M ./src/control.lisp -1 +1 An updated tarball of ucw_dev's source can be downloaded here: http://common-lisp.net/project/ucw/tarballs/ucw_dev-20061219.tar.gz Darcsweb URL: http://uncommon-web.com/darcsweb/darcsweb.cgi?r=ucw_dev;a=summary From mbaringer at common-lisp.net Wed Dec 20 05:30:14 2006 From: mbaringer at common-lisp.net (Marco Baringer) Date: Wed, 20 Dec 2006 00:30:14 -0500 (EST) Subject: [Bese-devel] New patches to ucw_ajax: 19-Dec-2006 Message-ID: <20061220053014.145EF3303F@common-lisp.net> Mon Dec 18 09:26:32 EST 2006 aycan.irican at core.gen.tr * swank:create-server has a :coding-system key and it's value is a string. M ./src/control.lisp -1 +1 M ./src/vars.lisp -1 +1 An updated tarball of ucw_ajax's source can be downloaded here: http://common-lisp.net/project/ucw/tarballs/ucw_ajax-20061219.tar.gz Darcsweb URL: http://uncommon-web.com/darcsweb/darcsweb.cgi?r=ucw_ajax;a=summary From attila.lendvai at gmail.com Wed Dec 20 10:16:21 2006 From: attila.lendvai at gmail.com (Attila Lendvai) Date: Wed, 20 Dec 2006 11:16:21 +0100 Subject: [Bese-devel] UCW and CLISP In-Reply-To: <51740.10.238.10.71.1166590758.webmail@10.238.10.71> References: <51740.10.238.10.71.1166590758.webmail@10.238.10.71> Message-ID: > *** - component :LOCAL-TIME not found, required by # i've updated the local-time repo link. boxset should be fine tomorrow, but meanwhile you can get the local-time repo yourself. darcs get http://common-lisp.net/project/local-time/darcs/local-time/ -- - attila "- The truth is that I've been too considerate, and so became unintentionally cruel... - I understand. - No, you don't understand! We don't speak the same language!" (Ingmar Bergman - Smultronst?llet) From lists at infoway.net Wed Dec 20 14:01:37 2006 From: lists at infoway.net (lists at infoway.net) Date: Wed, 20 Dec 2006 09:01:37 -0500 (EST) Subject: [Bese-devel] UCW and CLISP In-Reply-To: References: <51740.10.238.10.71.1166590758.webmail@10.238.10.71> Message-ID: <45412.10.238.10.35.1166623297.webmail@10.238.10.35> Well, it got further this time but still aborted: ;; Loaded file /Users/devuser/.slime/fasl/2006-12-19/clisp-2.40-unix-unknown/swank.fas WARNING: These Swank interfaces are unimplemented: (ACTIVATE-STEPPING ADD-FD-HANDLER ADD-SIGIO-HANDLER ALL-THREADS CALLS-WHO DISASSEMBLE-FRAME FIND-THREAD INTERRUPT-THREAD RECEIVE REMOVE-FD-HANDLERS REMOVE-SIGIO-HANDLERS SEND SLDB-BREAK-AT-START SLDB-BREAK-ON-RETURN SLDB-STEP-INTO SLDB-STEP-NEXT SLDB-STEP-OUT SPAWN THREAD-ID TOGGLE-TRACE WHO-MACROEXPANDS WHO-SPECIALIZES) WARNING: The generic function # is being modified, but has already been called. WARNING: The generic function # is being modified, but has already been called. WARNING: Unimplemented MOP symbol: IT.BESE.ARNESI.MOPP:MAKE-METHOD-LAMBDA WARNING: The generic function # is being modified, but has already been called. ;; Compiling file /Users/devuser/dev/lisp/ucw-boxset/dependencies/cl-l10n/languages/hungarian.lisp ... *** - invalid byte #xC3 in CHARSET:ASCII conversion 0 errors, 1 warning ~/dev/lisp/ucw-boxset $ Thanks, Daniel -----Original Message----- From: "Attila Lendvai" Sent: Wed, December 20, 2006 5:16 am To: lists at infoway.net Cc: bese-devel at common-lisp.net Subject: Re: [Bese-devel] UCW and CLISP > *** - component :LOCAL-TIME not found, required by # i've updated the local-time repo link. boxset should be fine tomorrow, but meanwhile you can get the local-time repo yourself. darcs get http://common-lisp.net/project/local-time/darcs/local-time/ -- - attila "- The truth is that I've been too considerate, and so became unintentionally cruel... - I understand. - No, you don't understand! We don't speak the same language!" (Ingmar Bergman - Smultronst?llet) From attila.lendvai at gmail.com Wed Dec 20 14:30:21 2006 From: attila.lendvai at gmail.com (Attila Lendvai) Date: Wed, 20 Dec 2006 15:30:21 +0100 Subject: [Bese-devel] UCW and CLISP In-Reply-To: <45412.10.238.10.35.1166623297.webmail@10.238.10.35> References: <51740.10.238.10.71.1166590758.webmail@10.238.10.71> <45412.10.238.10.35.1166623297.webmail@10.238.10.35> Message-ID: > *** - invalid byte #xC3 in CHARSET:ASCII conversion try clisp with the "-Efile UTF-8" parameter, because those lisp files are utf-8 encoded. ;; for reference: "clisp -ansi -q -K full -m 32M -I -Efile ISO-8859-15 -Epathname ISO-8859-1 -Eterminal UTF-8 -Emisc UTF-8 -Eforeign ISO-8859-1" but otherwise you should be safe after ignoring that error unless using the hungarian locale. i'll add this to the note printed by start.lisp -- - attila "- The truth is that I've been too considerate, and so became unintentionally cruel... - I understand. - No, you don't understand! We don't speak the same language!" (Ingmar Bergman - Smultronst?llet) From lists at infoway.net Wed Dec 20 21:40:53 2006 From: lists at infoway.net (lists at infoway.net) Date: Wed, 20 Dec 2006 16:40:53 -0500 (EST) Subject: [Bese-devel] UCW and CLISP In-Reply-To: References: <51740.10.238.10.71.1166590758.webmail@10.238.10.71> <45412.10.238.10.35.1166623297.webmail@10.238.10.35> Message-ID: <35144.10.238.10.71.1166650853.webmail@10.238.10.71> Ok. I started UCW by executing: clisp -E ISO-8859-1 start-ajax.lisp and it finally worked. I am able to open the URL and see something other than an error message. Unfortunately, however, that's as far as it goes. When I click on any of the applications on the RHS, nothing responds. When I clicked on the admin's page link, it gave me an error. Below is the output of the CLI as that's as much I could get now since for some reason SLIME won't connect to the CLISP instance (I'll have to figure that one out unless you know something I don;t :) ). Anyway, thanks for your help in advanced. 16:36 UCW-LOGGER/+INFO+: Starting up standard server #. WARNING: Ignoring HOST value "127.0.0.1", using :any instead. 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/" 16:36 UCW-LOGGER/+INFO+: CALL'ing to /# 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/static/examples.css" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/dojo.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/static/favicon.ico" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/ucw-dynamic/js/functional.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/ucw-dynamic/js/per-application.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/widget/TabContainer.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/widget/PageContainer.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/widget/html/layout.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/widget/DropdownDatePicker.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/ucw/ucw.css" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/widget/DropdownContainer.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/widget/PopupContainer.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/html/iframe.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/widget/DatePicker.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/date/common.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/date/format.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/date/supplemental.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/i18n/common.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/i18n/calendar/nls/gregorian.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/i18n/calendar/nls/posix/gregorian.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/i18n/calendar/nls/gregorianExtras.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/i18n/calendar/nls/posix/gregorianExtras.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/date/serialize.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/widget/nls/DropdownDatePicker.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/widget/nls/posix/DropdownDatePicker.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/widget/ContentPane.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/validate/__package__.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/validate.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/validate/common.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/regexp.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/validate/check.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/validate/datetime.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/validate/de.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/validate/jp.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/validate/us.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/validate/web.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/widget/SplitContainer.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/widget/templates/SplitContainer.css" 16:37 UCW.BACKEND/+INFO+: Handling request from NIL for "/shared-counter/" 16:37 UCW-LOGGER/+INFO+: CALL'ing to /# 16:37 UCW.BACKEND/+INFO+: Handling request from NIL for "/shared-counter/dojo/dojo.js" 16:37 UCW.BACKEND/+INFO+: Handling request from NIL for "/shared-counter/ucw/ucw.css" 16:37 UCW.BACKEND/+INFO+: Handling request from NIL for "/favicon.ico" 16:37 UCW.BACKEND/+INFO+: Handling request from NIL for "/shared-counter/ucw-dynamic/js/functional.js" 16:37 UCW.BACKEND/+INFO+: Handling request from NIL for "/shared-counter/ucw-dynamic/js/per-application.js" 16:37 UCW.BACKEND/+INFO+: Handling request from NIL for "/" 16:37 UCW.BACKEND/+INFO+: Handling request from NIL for "/admin/index.ucw" 16:37 UCW-LOGGER/+ERROR+: Handling action error APPLY: dotted argument list given to # : IT.BESE.UCW::ADMIN-LOGIN . 16:37 UCW-LOGGER/+ERROR+: Error APPLY: dotted argument list given to # : IT.BESE.UCW::ADMIN-LOGIN while serving action. 16:37 UCW-LOGGER/+INFO+: Not debugging. 16:37 UCW-LOGGER/+ERROR+: Aborting action. 16:37 UCW.BACKEND/+INFO+: Handling request from NIL for "/admin/dojo/dojo.js" 16:37 UCW.BACKEND/+INFO+: Handling request from NIL for "/favicon.ico" 16:37 UCW.BACKEND/+INFO+: Handling request from NIL for "/admin/ucw-dynamic/js/functional.js" 16:37 UCW.BACKEND/+INFO+: Handling request from NIL for "/admin/ucw-dynamic/js/per-application.js" 16:37 UCW.BACKEND/+INFO+: Handling request from NIL for "/admin/ucw-dynamic/js/per-locale.js" WARNING: Condition of type CL-L10N:RESOURCE-MISSING. WARNING: Condition of type CL-L10N:RESOURCE-MISSING. WARNING: Condition of type CL-L10N:RESOURCE-MISSING. WARNING: Condition of type CL-L10N:RESOURCE-MISSING. WARNING: Condition of type CL-L10N:RESOURCE-MISSING. WARNING: Condition of type CL-L10N:RESOURCE-MISSING. WARNING: Condition of type CL-L10N:RESOURCE-MISSING. WARNING: Condition of type CL-L10N:RESOURCE-MISSING. 16:37 UCW-LOGGER/+INFO+: # is compiling for key ("POSIX") -----Original Message----- From: "Attila Lendvai" Sent: Wed, December 20, 2006 9:30 am To: lists at infoway.net Cc: bese-devel at common-lisp.net Subject: Re: [Bese-devel] UCW and CLISP > *** - invalid byte #xC3 in CHARSET:ASCII conversion try clisp with the "-Efile UTF-8" parameter, because those lisp files are utf-8 encoded. ;; for reference: "clisp -ansi -q -K full -m 32M -I -Efile ISO-8859-15 -Epathname ISO-8859-1 -Eterminal UTF-8 -Emisc UTF-8 -Eforeign ISO-8859-1" but otherwise you should be safe after ignoring that error unless using the hungarian locale. i'll add this to the note printed by start.lisp -- - attila "- The truth is that I've been too considerate, and so became unintentionally cruel... - I understand. - No, you don't understand! We don't speak the same language!" (Ingmar Bergman - Smultronst?llet) From lists at infoway.net Wed Dec 20 21:53:08 2006 From: lists at infoway.net (lists at infoway.net) Date: Wed, 20 Dec 2006 16:53:08 -0500 (EST) Subject: [Bese-devel] UCW and CLISP In-Reply-To: <35144.10.238.10.71.1166650853.webmail@10.238.10.71> References: <51740.10.238.10.71.1166590758.webmail@10.238.10.71> <45412.10.238.10.35.1166623297.webmail@10.238.10.35> <35144.10.238.10.71.1166650853.webmail@10.238.10.71> Message-ID: <56887.10.238.10.35.1166651588.webmail@10.238.10.35> I think I jumped the gun at first. However, it may be something note regardless. I tested again with Firefox and it works fine (except the admin app still generates the error). So, I think it may be a Javascript/AJAX compatability issue with Safari, just in case anyone wants to look further into that. If there is a public site of the UCW Ajax demos, I could try it with Safari to see if it works or if it's just my particular environment. Thanks again, Daniel -----Original Message----- From: lists at infoway.net Sent: Wed, December 20, 2006 4:40 pm To: "Attila Lendvai" Cc: bese-devel at common-lisp.net Subject: Re: [Bese-devel] UCW and CLISP Ok. I started UCW by executing: clisp -E ISO-8859-1 start-ajax.lisp and it finally worked. I am able to open the URL and see something other than an error message. Unfortunately, however, that's as far as it goes. When I click on any of the applications on the RHS, nothing responds. When I clicked on the admin's page link, it gave me an error. Below is the output of the CLI as that's as much I could get now since for some reason SLIME won't connect to the CLISP instance (I'll have to figure that one out unless you know something I don;t :) ). Anyway, thanks for your help in advanced. 16:36 UCW-LOGGER/+INFO+: Starting up standard server #. WARNING: Ignoring HOST value "127.0.0.1", using :any instead. 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/" 16:36 UCW-LOGGER/+INFO+: CALL'ing to /# 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/static/examples.css" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/dojo.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/static/favicon.ico" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/ucw-dynamic/js/functional.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/ucw-dynamic/js/per-application.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/widget/TabContainer.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/widget/PageContainer.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/widget/html/layout.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/widget/DropdownDatePicker.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/ucw/ucw.css" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/widget/DropdownContainer.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/widget/PopupContainer.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/html/iframe.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/widget/DatePicker.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/date/common.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/date/format.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/date/supplemental.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/i18n/common.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/i18n/calendar/nls/gregorian.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/i18n/calendar/nls/posix/gregorian.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/i18n/calendar/nls/gregorianExtras.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/i18n/calendar/nls/posix/gregorianExtras.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/date/serialize.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/widget/nls/DropdownDatePicker.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/widget/nls/posix/DropdownDatePicker.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/widget/ContentPane.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/validate/__package__.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/validate.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/validate/common.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/regexp.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/validate/check.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/validate/datetime.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/validate/de.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/validate/jp.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/validate/us.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/validate/web.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/widget/SplitContainer.js" 16:36 UCW.BACKEND/+INFO+: Handling request from NIL for "/dojo/src/widget/templates/SplitContainer.css" 16:37 UCW.BACKEND/+INFO+: Handling request from NIL for "/shared-counter/" 16:37 UCW-LOGGER/+INFO+: CALL'ing to /# 16:37 UCW.BACKEND/+INFO+: Handling request from NIL for "/shared-counter/dojo/dojo.js" 16:37 UCW.BACKEND/+INFO+: Handling request from NIL for "/shared-counter/ucw/ucw.css" 16:37 UCW.BACKEND/+INFO+: Handling request from NIL for "/favicon.ico" 16:37 UCW.BACKEND/+INFO+: Handling request from NIL for "/shared-counter/ucw-dynamic/js/functional.js" 16:37 UCW.BACKEND/+INFO+: Handling request from NIL for "/shared-counter/ucw-dynamic/js/per-application.js" 16:37 UCW.BACKEND/+INFO+: Handling request from NIL for "/" 16:37 UCW.BACKEND/+INFO+: Handling request from NIL for "/admin/index.ucw" 16:37 UCW-LOGGER/+ERROR+: Handling action error APPLY: dotted argument list given to # : IT.BESE.UCW::ADMIN-LOGIN . 16:37 UCW-LOGGER/+ERROR+: Error APPLY: dotted argument list given to # : IT.BESE.UCW::ADMIN-LOGIN while serving action. 16:37 UCW-LOGGER/+INFO+: Not debugging. 16:37 UCW-LOGGER/+ERROR+: Aborting action. 16:37 UCW.BACKEND/+INFO+: Handling request from NIL for "/admin/dojo/dojo.js" 16:37 UCW.BACKEND/+INFO+: Handling request from NIL for "/favicon.ico" 16:37 UCW.BACKEND/+INFO+: Handling request from NIL for "/admin/ucw-dynamic/js/functional.js" 16:37 UCW.BACKEND/+INFO+: Handling request from NIL for "/admin/ucw-dynamic/js/per-application.js" 16:37 UCW.BACKEND/+INFO+: Handling request from NIL for "/admin/ucw-dynamic/js/per-locale.js" WARNING: Condition of type CL-L10N:RESOURCE-MISSING. WARNING: Condition of type CL-L10N:RESOURCE-MISSING. WARNING: Condition of type CL-L10N:RESOURCE-MISSING. WARNING: Condition of type CL-L10N:RESOURCE-MISSING. WARNING: Condition of type CL-L10N:RESOURCE-MISSING. WARNING: Condition of type CL-L10N:RESOURCE-MISSING. WARNING: Condition of type CL-L10N:RESOURCE-MISSING. WARNING: Condition of type CL-L10N:RESOURCE-MISSING. 16:37 UCW-LOGGER/+INFO+: # is compiling for key ("POSIX") -----Original Message----- From: "Attila Lendvai" Sent: Wed, December 20, 2006 9:30 am To: lists at infoway.net Cc: bese-devel at common-lisp.net Subject: Re: [Bese-devel] UCW and CLISP > *** - invalid byte #xC3 in CHARSET:ASCII conversion try clisp with the "-Efile UTF-8" parameter, because those lisp files are utf-8 encoded. ;; for reference: "clisp -ansi -q -K full -m 32M -I -Efile ISO-8859-15 -Epathname ISO-8859-1 -Eterminal UTF-8 -Emisc UTF-8 -Eforeign ISO-8859-1" but otherwise you should be safe after ignoring that error unless using the hungarian locale. i'll add this to the note printed by start.lisp -- - attila "- The truth is that I've been too considerate, and so became unintentionally cruel... - I understand. - No, you don't understand! We don't speak the same language!" (Ingmar Bergman - Smultronst?llet) From attila.lendvai at gmail.com Thu Dec 21 00:03:56 2006 From: attila.lendvai at gmail.com (Attila Lendvai) Date: Thu, 21 Dec 2006 01:03:56 +0100 Subject: [Bese-devel] UCW and CLISP In-Reply-To: <35144.10.238.10.71.1166650853.webmail@10.238.10.71> References: <51740.10.238.10.71.1166590758.webmail@10.238.10.71> <45412.10.238.10.35.1166623297.webmail@10.238.10.35> <35144.10.238.10.71.1166650853.webmail@10.238.10.71> Message-ID: > Below is the output of the CLI as that's as much I could get now since for > some reason SLIME won't connect to the CLISP instance (I'll have to figure > that one out unless you know something I don;t :) ). clisp is single threaded, i think that also prevents this. > Error > APPLY: dotted argument list given to # MAKE-INSTANCE> : IT.BESE.UCW::ADMIN-LOGIN i've overhauled the ucw mop and it works here fine. but it needs more testing before i should push it. -- - attila "- The truth is that I've been too considerate, and so became unintentionally cruel... - I understand. - No, you don't understand! We don't speak the same language!" (Ingmar Bergman - Smultronst?llet) From lists at infoway.net Thu Dec 21 01:17:08 2006 From: lists at infoway.net (lists at infoway.net) Date: Wed, 20 Dec 2006 20:17:08 -0500 (EST) Subject: [Bese-devel] UCW and CLISP In-Reply-To: References: <51740.10.238.10.71.1166590758.webmail@10.238.10.71> <45412.10.238.10.35.1166623297.webmail@10.238.10.35> <35144.10.238.10.71.1166650853.webmail@10.238.10.71> Message-ID: <50925.10.238.10.70.1166663828.webmail@10.238.10.70> On Wed, December 20, 2006 7:03 pm, Attila Lendvai said: > > Below is the output of the CLI as that's as much I could get now since >> for > > some reason SLIME won't connect to the CLISP instance (I'll have to >> figure > > that one out unless you know something I don;t :) ). > > clisp is single threaded, i think that also prevents this. Yes, I think that's what's wrong. Given that I'm trying to learn many things at once in the new world of Lisp, I think I should really stick with a multi-threaded Lisp environment to make my development/test cycle easier. Unfortunately, the only Lisps I know would work are ACL and OpenMCL in my environment. I've never been able to make OpenMCL work with the ucw_ajax "branch" and ACL's licensing fees are too steep for me at the moment to learn with. Any suggestions? I could always setup a remote Linux box with SBCL and just develop remotely. I've tested that with swank fine. However, it requires that I be online all the time when developing and that's not always the case since I spend a lot of time on the road. > > > Error > > APPLY: dotted argument list given to # > MAKE-INSTANCE> : IT.BESE.UCW::ADMIN-LOGIN > > i've overhauled the ucw mop and it works here fine. but it needs more > testing before i should push it. Look forward to getting the new changes and learning from them. Thanks, Daniel From lists at infoway.net Thu Dec 21 04:35:19 2006 From: lists at infoway.net (lists at infoway.net) Date: Wed, 20 Dec 2006 23:35:19 -0500 (EST) Subject: [Bese-devel] UCW and CLISP In-Reply-To: <50925.10.238.10.70.1166663829.webmail@10.238.10.70> References: <51740.10.238.10.71.1166590758.webmail@10.238.10.71> <45412.10.238.10.35.1166623297.webmail@10.238.10.35> <35144.10.238.10.71.1166650853.webmail@10.238.10.71> <50925.10.238.10.70.1166663829.webmail@10.238.10.70> Message-ID: <44512.10.238.10.70.1166675719.webmail@10.238.10.70> I have to say: I just downloaded the latest ucw-boxset and SBCL's source code. Recompiled SBCL with thread support (even though it's still experimental in my environment) and UCW Ajax works just fine (still only in Firefox) and I can connect to it with SLIME. Any advise as to any reported incompatibilities in this latest version of SBCL? Thanks, Daniel On Wed, December 20, 2006 8:17 pm, lists at infoway.net said: > On Wed, December 20, 2006 7:03 pm, Attila Lendvai said: > > > Below is the output of the CLI as that's as much I could get now since > >> for > > > some reason SLIME won't connect to the CLISP instance (I'll have to > >> figure > > > that one out unless you know something I don;t :) ). > > > > clisp is single threaded, i think that also prevents this. > > Yes, I think that's what's wrong. Given that I'm trying to learn many > things at once in the new world of Lisp, I think I should really stick > with a multi-threaded Lisp environment to make my development/test cycle > easier. Unfortunately, the only Lisps I know would work are ACL and > OpenMCL in my environment. I've never been able to make OpenMCL work with > the ucw_ajax "branch" and ACL's licensing fees are too steep for me at the > moment to learn with. Any suggestions? > > I could always setup a remote Linux box with SBCL and just develop > remotely. I've tested that with swank fine. However, it requires that I be > online all the time when developing and that's not always the case since I > spend a lot of time on the road. > > > > > > Error > > > APPLY: dotted argument list given to # > > MAKE-INSTANCE> : IT.BESE.UCW::ADMIN-LOGIN > > > > i've overhauled the ucw mop and it works here fine. but it needs more > > testing before i should push it. > > Look forward to getting the new changes and learning from them. > > Thanks, > Daniel > From mbaringer at common-lisp.net Thu Dec 21 05:05:03 2006 From: mbaringer at common-lisp.net (Marco Baringer) Date: Thu, 21 Dec 2006 00:05:03 -0500 (EST) Subject: [Bese-devel] New patches to fiveam: 20-Dec-2006 Message-ID: <20061221050503.678112D01F@common-lisp.net> Wed Dec 20 10:10:18 EST 2006 attila.lendvai at gmail.com * Added :compile-at parameter for test (:run-time :definition-time) M ./src/test.lisp -3 +6 An updated tarball of fiveam's source can be downloaded here: http://common-lisp.net/project/bese/tarballs/fiveam-20061220.tar.gz Darcsweb URL: http://uncommon-web.com/darcsweb/darcsweb.cgi?r=fiveam;a=summary From mbaringer at common-lisp.net Thu Dec 21 05:15:07 2006 From: mbaringer at common-lisp.net (Marco Baringer) Date: Thu, 21 Dec 2006 00:15:07 -0500 (EST) Subject: [Bese-devel] New patches to yaclml: 20-Dec-2006 Message-ID: <20061221051507.66B9733046@common-lisp.net> Wed Dec 20 09:42:19 EST 2006 attila.lendvai at gmail.com tagged 2006-12-20 An updated tarball of yaclml's source can be downloaded here: http://common-lisp.net/project/bese/tarballs/yaclml-20061220.tar.gz Darcsweb URL: http://uncommon-web.com/darcsweb/darcsweb.cgi?r=yaclml;a=summary From mbaringer at common-lisp.net Thu Dec 21 05:30:15 2006 From: mbaringer at common-lisp.net (Marco Baringer) Date: Thu, 21 Dec 2006 00:30:15 -0500 (EST) Subject: [Bese-devel] New patches to ucw_dev: 20-Dec-2006 Message-ID: <20061221053015.4490B34056@common-lisp.net> Wed Dec 20 16:48:04 EST 2006 aycan.irican at core.gen.tr * remove default value, it no longer used. M ./src/rerl/modular-application/security-module.lisp -1 +1 An updated tarball of ucw_dev's source can be downloaded here: http://common-lisp.net/project/ucw/tarballs/ucw_dev-20061220.tar.gz Darcsweb URL: http://uncommon-web.com/darcsweb/darcsweb.cgi?r=ucw_dev;a=summary From attila.lendvai at gmail.com Thu Dec 21 11:09:57 2006 From: attila.lendvai at gmail.com (Attila Lendvai) Date: Thu, 21 Dec 2006 12:09:57 +0100 Subject: [Bese-devel] UCW and CLISP In-Reply-To: <44512.10.238.10.70.1166675719.webmail@10.238.10.70> References: <51740.10.238.10.71.1166590758.webmail@10.238.10.71> <45412.10.238.10.35.1166623297.webmail@10.238.10.35> <35144.10.238.10.71.1166650853.webmail@10.238.10.71> <50925.10.238.10.70.1166663829.webmail@10.238.10.70> <44512.10.238.10.70.1166675719.webmail@10.238.10.70> Message-ID: > I have to say: I just downloaded the latest ucw-boxset and SBCL's source > code. Recompiled SBCL with thread support (even though it's still > experimental in my environment) and UCW Ajax works just fine (still only > in Firefox) and I can connect to it with SLIME. i guess "only in firefox" actually means "not with safari"? (opera, ie and firefox should work, that's what i can test myself) but there was a point in time when it worked on safari, too, so there's nothing fundamentally wrong. > Any advise as to any reported incompatibilities in this latest version of > SBCL? if i understand you right: my primary platform is sbcl (on linux) so everything is expected to work fine on sbcl and error reports are welcome. -- - attila "- The truth is that I've been too considerate, and so became unintentionally cruel... - I understand. - No, you don't understand! We don't speak the same language!" (Ingmar Bergman - Smultronst?llet) From lists at infoway.net Thu Dec 21 14:42:18 2006 From: lists at infoway.net (lists at infoway.net) Date: Thu, 21 Dec 2006 09:42:18 -0500 (EST) Subject: [Bese-devel] UCW and CLISP In-Reply-To: References: <51740.10.238.10.71.1166590758.webmail@10.238.10.71> <45412.10.238.10.35.1166623297.webmail@10.238.10.35> <35144.10.238.10.71.1166650853.webmail@10.238.10.71> <50925.10.238.10.70.1166663829.webmail@10.238.10.70> <44512.10.238.10.70.1166675719.webmail@10.238.10.70> Message-ID: <45686.10.238.10.71.1166712138.webmail@10.238.10.71> On Thu, December 21, 2006 6:09 am, Attila Lendvai said: > > I have to say: I just downloaded the latest ucw-boxset and SBCL's source > > code. Recompiled SBCL with thread support (even though it's still > > experimental in my environment) and UCW Ajax works just fine (still only > > in Firefox) and I can connect to it with SLIME. > > i guess "only in firefox" actually means "not with safari"? (opera, ie > and firefox should work, that's what i can test myself) but there was > a point in time when it worked on safari, too, so there's nothing > fundamentally wrong. > Yes, only in Firefox means that on my computer, ucw_ajax doesn't work with Safari and the only other browser I have installed is Firefox. Is there any public site that offers access to the ucw_ajax samples so I can try accessing it with Safari? > > Any advise as to any reported incompatibilities in this latest version >> of > > SBCL? > > if i understand you right: my primary platform is sbcl (on linux) so > everything is expected to work fine on sbcl and error reports are > welcome. > Thanks, Daniel From mbaringer at common-lisp.net Fri Dec 22 05:05:03 2006 From: mbaringer at common-lisp.net (Marco Baringer) Date: Fri, 22 Dec 2006 00:05:03 -0500 (EST) Subject: [Bese-devel] New patches to fiveam: 21-Dec-2006 Message-ID: <20061222050503.8D15E25002@common-lisp.net> Tue Dec 19 08:30:12 EST 2006 levente.meszaros at gmail.com * Add new restart called explain which ignores the rest of the tests and expains the current results. M ./src/run.lisp -19 +23 An updated tarball of fiveam's source can be downloaded here: http://common-lisp.net/project/bese/tarballs/fiveam-20061221.tar.gz Darcsweb URL: http://uncommon-web.com/darcsweb/darcsweb.cgi?r=fiveam;a=summary From mbaringer at common-lisp.net Mon Dec 25 05:00:14 2006 From: mbaringer at common-lisp.net (Marco Baringer) Date: Mon, 25 Dec 2006 00:00:14 -0500 (EST) Subject: [Bese-devel] New patches to arnesi_dev: 24-Dec-2006 Message-ID: <20061225050014.6A61560037@common-lisp.net> Sun Dec 24 08:08:40 EST 2006 attila.lendvai at gmail.com * Added swank inspector dwim lookup hook for logger stuff (e.g. 'log or 'log.debug) M ./src/log.lisp -12 +26 An updated tarball of arnesi_dev's source can be downloaded here: http://common-lisp.net/project/bese/tarballs/arnesi_dev-20061224.tar.gz Darcsweb URL: http://uncommon-web.com/darcsweb/darcsweb.cgi?r=arnesi_dev;a=summary From mbaringer at common-lisp.net Tue Dec 26 05:00:14 2006 From: mbaringer at common-lisp.net (Marco Baringer) Date: Tue, 26 Dec 2006 00:00:14 -0500 (EST) Subject: [Bese-devel] New patches to arnesi_dev: 25-Dec-2006 Message-ID: <20061226050014.1C8362B147@common-lisp.net> Mon Dec 25 11:06:57 EST 2006 attila.lendvai at gmail.com * Specialize slime inspection of log categories, added [set level] action with predefined minibuffer history M ./src/log.lisp -1 +49 An updated tarball of arnesi_dev's source can be downloaded here: http://common-lisp.net/project/bese/tarballs/arnesi_dev-20061225.tar.gz Darcsweb URL: http://uncommon-web.com/darcsweb/darcsweb.cgi?r=arnesi_dev;a=summary From blt at sch.bme.hu Wed Dec 27 10:06:37 2006 From: blt at sch.bme.hu (Berki Lukacs Tamas) Date: Wed, 27 Dec 2006 11:06:37 +0100 (CET) Subject: [Bese-devel] (no subject) Message-ID: Hi! I have spent a little time on making the sharpl support more "correct" in arnesi. Unfortunately, the patch is really intrusive since I had to modify the code walker to make it work correctly -- basically, the code walker called macro functions in the null lexical environment, and that made it impossible for the #l reader to work in some more convoluted cases, so I had to fix it. This should benefit call/cc too by making it work in more cases. There are a couple of functions that are implementation-dependent (environment access, basically -- chapter 8.5 from CLtL2). I don't have access to a Mac, so I have written and tested these for SBCL, CMUCL and CLISP on Linux, and Allegro 8.0 and LispWorks Personal on Win32. Other implementations should be no worse off than before... Luk?cs -------------- next part -------------- New patches: [Evaluate macros in correct lexical environment in code walker, use code walking in sharpl-reader Berki Lukacs Tamas **20061226165103] { hunk ./arnesi.asd 36 - (:file "lexenv" :depends-on ("packages")) + (:file "lexenv" :depends-on ("packages" "one-liners")) hunk ./arnesi.asd 73 + (:file "sharpl" :depends-on ("suite")) hunk ./src/call-cc/interpreter.lisp 34 - (dolist* ((type name &rest data) walk-env) + (dolist* ((type name &rest data) (car walk-env)) hunk ./src/lexenv.lisp 22 -(defmethod lexical-variables ((environment null)) +(defgeneric lexical-macros (environment) + (:documentation "Returns the lexical macro definitions in + ENVIRONMENT. The return value is a list of elements of form + (SYMBOL . MACRO-FUNCTION. MACRO-FUNCTION can be called like + functions returned by macro-function.")) + +(defgeneric lexical-symbol-macros (environment) + (:documentation "Returns the lexical symbol macro definitions + in ENVIRONMENT. The return value is a list of elements of form + (SYMBOL . EXPANSION).")) + +(defmethod lexical-variables ((environment t)) + '()) + +(defmethod lexical-functions ((environment t)) hunk ./src/lexenv.lisp 39 -(defmethod lexical-functions ((environment null)) +(defmethod lexical-macros ((environment t)) + '()) + +(defmethod lexical-symbol-macros ((environment t)) hunk ./src/lexenv.lisp 114 - (mapcar #'first (sb-c::lexenv-funs environment))) + (loop + for fun-spec in (sb-c::lexenv-funs environment) + when (not (consp (cdr fun-spec))) + collect (car fun-spec))) + +#+sbcl +(defmethod lexical-macros ((environment sb-kernel:lexenv)) + (loop + for mac-spec in (sb-c::lexenv-funs environment) + when (and (consp (cdr mac-spec)) + (eq 'sb-sys::macro (cadr mac-spec))) + collect (cons (car mac-spec) (cddr mac-spec)))) + +#+sbcl +(defmethod lexical-symbol-macros ((environment sb-kernel:lexenv)) + (loop + for mac-spec in (sb-c::lexenv-vars environment) + when (and (consp (cdr mac-spec)) + (eq 'sb-sys::macro (cadr mac-spec))) + collect (cons (car mac-spec) (cddr mac-spec)))) hunk ./src/lexenv.lisp 174 +#+cmu +(defmethod lexical-macros ((environment c::lexenv)) + (loop + for mac-spec in (c::lexenv-functions environment) + when (and (consp (cdr mac-spec)) + (eq 'system::macro (cadr mac-spec))) + collect (cons (car mac-spec) (cddr mac-spec)))) + +#+cmu +(defmethod lexical-symbol-macros ((environment c::lexenv)) + (loop + for mac-spec in (c::lexenv-variables environment) + when (and (consp (cdr mac-spec)) + (eq 'system::macro (cadr mac-spec))) + collect (cons (car mac-spec) (cddr mac-spec)))) + hunk ./src/lexenv.lisp 232 +#+clisp +(defmethod lexical-macros ((environment vector)) + (let ((macros '())) + (when (aref environment 1) + (walk-vector-tree + (lambda (macro-name macro-spec) + (if (system::macrop macro-spec) + (push (cons macro-name + (macro-function macro-name environment)) + macros))) + (aref environment 1))) + macros)) + +#+clisp +(defmethod lexical-symbol-macros ((environment vector)) + (let (symbol-macros '()) + (when (aref environment 0) + (walk-vector-tree + (lambda (macro-name macro-spec) + (if (system::symbol-macro-p macro-spec) + (push (cons macro-name + (macroexpand-1 macro-name environment)) + symbol-macros))) + (aref environment 0))) + symbol-macros)) + hunk ./src/lexenv.lisp 308 +#+(and lispworks (or win32 linux)) +(defun lexical-runtime-p (value) + (and (symbolp value) + (eq (symbol-package value) nil))) + hunk ./src/lexenv.lisp 315 - (mapcar #'car (slot-value environment 'lexical::variables))) + (loop for candidate in (slot-value environment 'lexical::variables) + if (lexical-runtime-p (cdr candidate)) + collect (car candidate))) hunk ./src/lexenv.lisp 321 - (mapcar #'car (slot-value environment 'lexical::functions))) + (loop for candidate in (slot-value environment 'lexical::functions) + if (lexical-runtime-p (cdr candidate)) + collect (car candidate))) + + +#+(and lispworks (or win32 linux)) +(defmethod lexical-symbol-macros ((environment lexical::environment)) + (loop for candidate in (slot-value environment 'lexical::variables) + unless (lexical-runtime-p (cdr candidate)) + collect candidate)) + +#+(and lispworks (or win32 linux)) +(defmethod lexical-macros ((environment lexical::environment)) + (loop for candidate in (slot-value environment 'lexical::functions) + unless (lexical-runtime-p (cdr candidate)) + collect candidate)) hunk ./src/lexenv.lisp 366 +#+(and allegro (version>= 7 0)) +(defmethod lexical-macros ((env sys::augmentable-environment)) + (let (fns) + (system::map-over-environment-functions + (lambda (name type rest) + (when (eq type :macro) + (push (cons name (car rest)) fns))) + env) + fns)) + +#+(and allegro (version>= 7 0)) +(defmethod lexical-symbol-macros ((env sys::augmentable-environment)) + (let (fns) + (system::map-over-environment-variables + (lambda (symbol type rest) + (when (eq type :symbol-macro) + (push (cons symbol (car rest)) fns))) + env) + fns)) + + +;; These functions are a half-assed implementation of section 8.5 in CLtL2 +;; (environment manipulation) +;; I really don't feel like implementing THAT interface for every supported +;; Lisp. + +(defgeneric augment-with-variable (env var)) + +(defgeneric augment-with-function (env fun)) + +(defgeneric augment-with-macro (env mac def)) + +(defgeneric augment-with-symbol-macro (env symmac def)) + +(defmethod augment-with-variable ((env t) var) + (declare (ignore var)) + env) + +(defmethod augment-with-function ((env t) fun) + (declare (ignore fun)) + env) + +(defmethod augment-with-macro ((env t) mac def) + (declare (ignore mac def)) + env) + +(defmethod augment-with-symbol-macro ((env t) symmac def) + (declare (ignore symmac def)) + env) + +#+sbcl +(defmethod augment-with-variable ((env sb-kernel:lexenv) var) + (sb-c::make-lexenv :default env :vars (list (cons var t)))) + +#+sbcl +(defmethod augment-with-function ((env sb-kernel:lexenv) fun) + (sb-c::make-lexenv :default env :funs (list (cons fun t)))) + +#+sbcl +(defmethod augment-with-macro ((env sb-kernel:lexenv) mac def) + (sb-c::make-lexenv :default env :funs (list (list* mac 'sb-sys::macro def)))) + +#+sbcl +(defmethod augment-with-symbol-macro ((env sb-kernel:lexenv) symmac def) + (sb-c::make-lexenv :default env :vars (list (list* symmac 'sb-sys::macro def)))) + +#+cmu +(defmethod augment-with-variable ((env c::lexenv) var) + (c::make-lexenv :default env + :variables (list (cons var (c::make-lambda-var :name var))))) + +#+cmu +(defmethod augment-with-function ((env c::lexenv) fun) + (c::make-lexenv :default env + :functions (list (cons fun (lambda () 42))))) + +#+cmu +(defmethod augment-with-macro ((env c::lexenv) mac def) + (c::make-lexenv :default env + :functions (list (list* mac 'system::macro def)))) + +#+cmu +(defmethod augment-with-symbol-macro ((env c::lexenv) symmac def) + (c::make-lexenv :default env + :variables (list (list* symmac 'system::macro def)))) + + +#+clisp +(defun augment-with-var-and-fun (env &key var fun) + (let* ((old-vars (aref env 0)) + (old-funs (aref env 1)) + (new-vars (if (eq var nil) + (make-array '(1) :initial-contents (list old-vars)) + (make-array '(3) :initial-contents (list (car var) (cdr var) old-vars)))) + (new-funs (if (eq fun nil) + (make-array '(1) :initial-contents (list old-funs)) + (make-array '(3) :initial-contents (list (car fun) (cdr fun) old-funs))))) + (make-array '(2) :initial-contents (list new-vars new-funs)))) + +;; I don't know whether t is an acceptable value to store here, +;; but CLISP does not complain. +#+clisp +(defmethod augment-with-variable ((env vector) var) + (augment-with-var-and-fun env :var (cons var t))) + +#+clisp +(defmethod augment-with-function ((env vector) fun) + (augment-with-var-and-fun env :fun (cons fun t))) + +#+clisp +(defmethod augment-with-macro ((env vector) mac def) + (augment-with-var-and-fun env :fun (cons mac (system::make-macro def)))) + +#+clisp +(defmethod augment-with-symbol-macro ((env vector) symmac def) + (augment-with-var-and-fun env :var + (cons symmac + (system::make-symbol-macro def)))) + + +#+(and lispworks (or win32 linux)) +(defmethod augment-with-variable ((env lexical::environment) var) + (harlequin-common-lisp:augment-environment + env :variable (list var))) + +#+(and lispworks (or win32 linux)) +(defmethod augment-with-function ((env lexical::environment) fun) + (harlequin-common-lisp:augment-environment + env :function (list fun))) + +#+(and lispworks (or win32 linux)) +(defmethod augment-with-macro ((env lexical::environment) mac def) + (harlequin-common-lisp:augment-environment + env :macro (list (list mac def)))) + +#+(and lispworks (or win32 linux)) +(defmethod augment-with-symbol-macro ((env lexical::environment) symmac def) + (harlequin-common-lisp:augment-environment + env :symbol-macro (list (list symmac def)))) + +#+(and allegro (version>= 7 0)) +(defmethod augment-with-variable ((env sys::augmentable-environment) var) + (system:augment-environment env :variable (list var))) + +#+(and allegro (version>= 7 0)) +(defmethod augment-with-function ((env sys::augmentable-environment) fun) + (system:augment-environment env :function (list fun))) + +#+(and allegro (version>= 7 0)) +(defmethod augment-with-macro ((env sys::augmentable-environment) mac def) + (system:augment-environment env :macro (list (list mac def)))) + +#+(and allegro (version>= 7 0)) +(defmethod augment-with-symbol-macro ((env sys::augmentable-environment) symmac def) + (system:augment-environment env :symbol-macro (list (list symmac def)))) + + +(defun macroexpand-all (form &optional env) + (unwalk-form (walk-form form nil (make-walk-env env)))) + +;; Sort of parse-macro from CLtL2. + +(defun parse-macro-definition (name lambda-list body env) + (declare (ignore name)) + (let* ((environment-var nil) + (lambda-list-without-environment + (loop + for prev = nil then i + for i in lambda-list + if (not (or (eq '&environment i) (eq '&environment prev))) + collect i + if (eq '&environment prev) + do (if (eq environment-var nil) + (setq environment-var i) + (error "Multiple &ENVIRONMENT clauses in macro lambda list: ~S" lambda-list)))) + (handler-env (if (eq environment-var nil) (gensym "ENV-") environment-var)) + whole-list lambda-list-without-whole) + (if (eq '&whole (car lambda-list-without-environment)) + (setq whole-list (list '&whole (second lambda-list-without-environment)) + lambda-list-without-whole (cddr lambda-list-without-environment)) + (setq whole-list '() + lambda-list-without-whole lambda-list-without-environment)) + (eval + (with-unique-names (handler-args form-name) + `(lambda (,handler-args ,handler-env) + ,@(if (eq environment-var nil) + `((declare (ignore ,handler-env))) + nil) + (destructuring-bind (, at whole-list ,form-name , at lambda-list-without-whole) + ,handler-args + (declare (ignore ,form-name)) + ,@(mapcar (lambda (form) (macroexpand-all form env)) body))))))) hunk ./src/lexenv.lisp 559 + hunk ./src/sharpl-reader.lisp 12 +(defmacro sharpl-expander (body min-args &environment env) + (let* ((form body) + (lambda-args (loop + for i upfrom 1 upto (max (or min-args 0) + (highest-bang-var form env)) + collect (make-sharpl-arg i)))) + `(lambda ,lambda-args + , (when lambda-args + `(declare (ignorable , at lambda-args))) + ,form))) + hunk ./src/sharpl-reader.lisp 29 -varibales named !1, !2, !3, !n etc. these are bound to the Nth +variables named !1, !2, !3, !n etc. these are bound to the Nth hunk ./src/sharpl-reader.lisp 50 -#2L(foo !1) ==> (lambda (!1 !2) (declare (ignore !2)) (foo !1))" +#2L(foo !1) ==> (lambda (!1 !2) (declare (ignore !2)) (foo !1)) + +When #l forms are nested, !X variables are bound to the innermost +form. Example: + +#l#l(+ !1 !2) + +returns a function that takes no arguments and returns a function +that adds its two arguments." hunk ./src/sharpl-reader.lisp 60 - (let* ((form (read stream t nil t)) - (lambda-args (loop - for i upfrom 1 upto (max (or min-args 0) - (highest-bang-var form)) - collect (make-sharpl-arg i)))) - `(lambda ,lambda-args - , (when lambda-args - `(declare (ignorable , at lambda-args))) - ,form))) + (let ((body (read stream t nil t))) + `(sharpl-expander ,body ,min-args))) hunk ./src/sharpl-reader.lisp 69 -(defun highest-bang-var (form) - (acond - ((consp form) (max (highest-bang-var (car form)) - (highest-bang-var (cdr form)))) - ((bang-var-p form) it) - (t 0))) +(defun find-var-references (input-form) + (typecase input-form + (cons + (append (find-var-references (car input-form)) + (find-var-references (cdr input-form)))) + + (arnesi:free-variable-reference (list (slot-value input-form 'arnesi:name))) + (arnesi:local-lexical-variable-reference (list (slot-value input-form 'arnesi:name))) + + (arnesi:form + (loop for slot-name in (mapcar #'it.bese.arnesi.mopp:slot-definition-name + (it.bese.arnesi.mopp::class-slots (class-of input-form))) + if (not (member slot-name '(parent target-progn enclosing-tagbody target-block))) + append (find-var-references (slot-value input-form slot-name)))) + + (t nil))) + +(defun highest-bang-var (form env) + (let ((*warn-undefined* nil)) + (declare (special *warn-undefined*)) + (or + (loop for var in (find-var-references (walk-form form nil (make-walk-env env))) + if (bang-var-p var) + maximize (bang-var-p var)) + 0))) hunk ./src/sharpl-reader.lisp 96 - (and (symbolp form) - (char= #\! (aref (symbol-name form) 0)) + (and (char= #\! (aref (symbol-name form) 0)) hunk ./src/walk.lisp 23 - (extend walk-env :lexical-flet fun t))) - walk-env)) + (extend walk-env :lexical-flet fun t)) + (dolist (mac (lexical-macros lexical-env)) + (extend walk-env :macrolet (car mac) (cdr mac))) + (dolist (symmac (lexical-symbol-macros lexical-env)) + (extend walk-env :symbol-macrolet (car symmac) (cdr symmac)))) + (cons walk-env lexical-env))) + +(defun register-walk-env (env type name datum &rest other-datum) + (let ((walk-env (register (car env) type name datum)) + (lexenv (case type + (:let (augment-with-variable (cdr env) name)) + (:macrolet (augment-with-macro (cdr env) name datum)) + (:flet (augment-with-function (cdr env) name)) + (:symbol-macrolet (augment-with-symbol-macro (cdr env) name datum)) + ;;TODO: :declare + (t (cdr env))))) + (cons walk-env lexenv))) + +(defmacro extend-walk-env (env type name datum &rest other-datum) + `(setf ,env (register-walk-env ,env ,type ,name ,datum , at other-datum))) + +(defun lookup-walk-env (env type name &key (error-p nil) (default-value nil)) + (lookup (car env) type name :error-p error-p :default-value default-value)) hunk ./src/walk.lisp 230 - (extend environment :declare , at datum)))) + (extend-walk-env environment :declare , at datum)))) hunk ./src/walk.lisp 318 - lexical envorinment outside of the form passed to walk-form.")) + lexical environment outside of the form passed to walk-form.")) hunk ./src/walk.lisp 329 - ((lookup env :let form) + ((lookup-walk-env env :let form) hunk ./src/walk.lisp 332 - ((lookup env :lexical-let form) + ((lookup-walk-env env :lexical-let form) hunk ./src/walk.lisp 335 - ((lookup env :symbol-macrolet form) - (walk-form (lookup env :symbol-macrolet form) parent env)) + ((lookup-walk-env env :symbol-macrolet form) + (walk-form (lookup-walk-env env :symbol-macrolet form) parent env)) hunk ./src/walk.lisp 377 - (when (lookup env :macrolet op) - (return (walk-form (apply (lookup env :macrolet op) args) parent env))) + (when (lookup-walk-env env :macrolet op) + (return (walk-form (funcall (lookup-walk-env env :macrolet op) form (cdr env)) parent env))) hunk ./src/walk.lisp 381 - (macroexpand-1 form nil) + (macroexpand-1 form (cdr env)) hunk ./src/walk.lisp 384 - (let ((app (if (lookup env :flet op) - (make-instance 'local-application-form :code (lookup env :flet op)) - (if (lookup env :lexical-flet op) + (let ((app (if (lookup-walk-env env :flet op) + (make-instance 'local-application-form :code (lookup-walk-env env :flet op)) + (if (lookup-walk-env env :lexical-flet op) hunk ./src/walk.lisp 428 - (make-instance (if (lookup env :flet (second form)) + (make-instance (if (lookup-walk-env env :flet (second form)) hunk ./src/walk.lisp 430 - (if (lookup env :lexical-flet (second form)) + (if (lookup-walk-env env :lexical-flet (second form)) hunk ./src/walk.lisp 449 -(defun walk-lambda-list (lambda-list parent env &key allow-specializers) +(defun walk-lambda-list (lambda-list parent env &key allow-specializers macro-p) hunk ./src/walk.lisp 452 - (extend env :let (name argument) argument)))) + (extend-walk-env env :let (name argument) argument)))) hunk ./src/walk.lisp 580 - (register env :block block-name block)))))) + (register-walk-env env :block block-name block)))))) hunk ./src/walk.lisp 590 - (if (lookup env :block block-name) + (if (lookup-walk-env env :block block-name) hunk ./src/walk.lisp 592 - :target-block (lookup env :block block-name)) + :target-block (lookup-walk-env env :block block-name)) hunk ./src/walk.lisp 598 - (walk-form form parent (register env :block block-name :unknown-block))))))) + (walk-form form parent (register-walk-env env :block block-name :unknown-block))))))) hunk ./src/walk.lisp 675 - do (extend env :flet name lambda) + do (extend-walk-env env :flet name lambda) hunk ./src/walk.lisp 695 - do (extend env :flet name lambda)) + do (extend-walk-env env :flet name lambda)) hunk ./src/walk.lisp 731 - (extend env :let var :dummy))) + (extend-walk-env env :let var :dummy))) hunk ./src/walk.lisp 742 - (extend env :let var :dummy)) + (extend-walk-env env :let var :dummy)) hunk ./src/walk.lisp 776 - (let ((handler (eval - ;; NB: macrolet arguments are a - ;; destructuring-bind list, not a lambda list - (with-unique-names (handler-args) - `(lambda (&rest ,handler-args) - (destructuring-bind ,args - ,handler-args - , at body)))))) - (extend env :macrolet name handler) + (let ((handler (parse-macro-definition name args body (cdr env)))) + (extend-walk-env env :macrolet name handler) hunk ./src/walk.lisp 847 - if (lookup env :symbol-macrolet name) - do (push `(setf ,(lookup env :symbol-macrolet name) ,value) effective-code) + if (lookup-walk-env env :symbol-macrolet name) + do (push `(setf ,(lookup-walk-env env :symbol-macrolet name) ,value) effective-code) hunk ./src/walk.lisp 873 - (extend env :symbol-macrolet symbol expansion) + (extend-walk-env env :symbol-macrolet symbol expansion) hunk ./src/walk.lisp 893 - (extend env :tagbody 'enclosing-tagbody tagbody) + (extend-walk-env env :tagbody 'enclosing-tagbody tagbody) hunk ./src/walk.lisp 902 - do (extend env :tag (car part) (cdr part))) + do (extend-walk-env env :tag (car part) (cdr part))) hunk ./src/walk.lisp 922 - :target-progn (lookup env :tag (second form)) - :enclosing-tagbody (lookup env :tagbody 'enclosing-tagbody))) + :target-progn (lookup-walk-env env :tag (second form)) + :enclosing-tagbody (lookup-walk-env env :tagbody 'enclosing-tagbody))) addfile ./t/sharpl.lisp hunk ./t/sharpl.lisp 1 +(in-package :it.bese.arnesi.test) + +(def-suite :it.bese.arnesi.sharpl :in :it.bese.arnesi) + +(in-suite :it.bese.arnesi.sharpl) + +(eval-when (:compile-toplevel :execute) + (enable-sharp-l)) + +(test sharpl-simple + (is (eql 42 (funcall (arnesi::sharpl-expander 42 0))))) + +(test sharpl-mb-example + (is (eql 6 (funcall (arnesi::sharpl-expander (block !2 (return-from !2 !1)) 0) 6)))) + +(test sharpl-finds-variables + (is (eql 111 (funcall (arnesi::sharpl-expander (+ !1 !2) 0) 42 69)))) + +(test sharpl-no-variable-in-quote + (is (eq (funcall (arnesi::sharpl-expander '!1 0)) '!1))) + +(test sharpl-not-captures-outer-bang + (let ((!1 42)) + (declare (ignore !1)) + (is (eql 69 (funcall (arnesi::sharpl-expander !1 0) 69))))) + +(test sharpl-nested-simple + (is (eql 1 (funcall (funcall (arnesi::sharpl-expander (arnesi::sharpl-expander 1 0) 0)))))) + +(test sharpl-nested-arg + (is (eql 42 (funcall (funcall (arnesi::sharpl-expander (arnesi::sharpl-expander !1 0) 0)) 42)))) + +(test sharpl-nested-complex + (is (eql 3 (funcall + (funcall (arnesi::sharpl-expander (let ((a !1)) + (arnesi::sharpl-expander (+ !1 a) 0)) 0) + 1) + 2)))) + +(test sharpl-symbol-macrolet-1 + (is (eql 3 (symbol-macrolet ((sym !1)) (funcall (arnesi::sharpl-expander sym 0) 3))))) + +(test sharpl-symbol-macrolet-2 + (is (eql 3 (funcall (symbol-macrolet ((sym !1)) (arnesi::sharpl-expander sym 0)) 3 )))) + +(test sharpl-macrolet-1 + (is (eql 15 (macrolet ((mac (arg) `(+ !1 ,arg))) (funcall (arnesi::sharpl-expander (mac 10) 0) 5))))) + +(test sharpl-macrolet-2 + (is (eql 15 (funcall (macrolet ((mac (arg) `(+ !1 ,arg))) (arnesi::sharpl-expander (mac 10) 0)) 5)))) + +(test sharpl-inner-macrolet + (is (eql 15 (funcall + (arnesi::sharpl-expander + (macrolet ((!2 () '!1)) (!2)) + 0) + 15)))) + +(test sharpl-inner-symbol-macrolet + (is (eql 15 (funcall + (arnesi::sharpl-expander + (symbol-macrolet ((!2 !1)) (+ !2 10)) + 0) + 5)))) + +(test sharpl-bang-binds-to-innermost + (is (eql 10 (funcall + (funcall (arnesi::sharpl-expander + (let ((a !1)) + (arnesi::sharpl-expander (+ a !1) 0)) 0) + 6) + 4)))) + +(test sharpl-interposed-macrolet + (is (eql 6 (funcall + (funcall (arnesi::sharpl-expander + (macrolet ((mac () '!1)) + (arnesi::sharpl-expander (mac) 0)) + 0)) + 6)))) + +(test sharpl-nested-macrolet + (is (eql 21 (funcall + (funcall + (arnesi::sharpl-expander + (macrolet ((return-bang () ''!1)) + (macrolet ((multiply-first-bang (arg) `(* ,arg ,(return-bang)))) + (arnesi::sharpl-expander (+ (multiply-first-bang 2) 1) 0))) + 0)) + 10)))) + +(test sharpl-interposed-symbol-macrolet + (is (eql 'result (funcall + (funcall (arnesi::sharpl-expander + (symbol-macrolet ((mac !1)) + (arnesi::sharpl-expander mac 0)) + 0)) + 'result)))) + } Context: [Specialize slime inspection of log categories, added [set level] action with predefined minibuffer history attila.lendvai at gmail.com**20061225160657] [Added swank inspector dwim lookup hook for logger stuff (e.g. 'log or 'log.debug) attila.lendvai at gmail.com**20061224130840] [Small fix for the slime-repl-log-appender attila.lendvai at gmail.com**20061219171754] [Added slime-repl-log-appender that renders the args as inspectable presentations if :verbosity is > 1 attila.lendvai at gmail.com**20061219165118] [Added commented out eval based check for special-var-p attila.lendvai at gmail.com**20061210193058 This is the only way to check for a (defvar foo) where (boundp 'foo) is nil. Comment out for now, someone willing to take the responsibility should enable it... :) ] [Use eval-always in log.lisp attila.lendvai at gmail.com**20061210193004] [Add inline annotations to %string-to-octets and friends, reorder definitions attila.lendvai at gmail.com**20061210192956] [Clean up uri escaping to fix unicode text in ucw forms. Drop non-standard %u1234 unencoding. attila.lendvai at gmail.com**20061210192813] [Added partial lispworks support for string encodings attila.lendvai at gmail.com**20061206091936] [Bind *package* to the COMMON-LISP package instead of KEYWORD attila.lendvai at gmail.com**20061105220327] [Set (FDEFINITION/CC NAME) on DEFGENERIC/CC; don't reDEFGENERIC/CC on DEFMETHOD/CC when GENERIC/CC already exists. Maciek Pasternacki **20061204081042] [More detailed error reporting in unescape-as-uri henrik at evahjelte.com**20061128101729 Also a continue-as-is restart that allows parsing of invalid urls. ] [Do not export log.debug and friends attila.lendvai at gmail.com**20061102143049 to avoid mass confusion: two packages both using arnesi defining a logger called 'log. ] [Print debug messages with *package* = :keyword (to fully qualify every symbol printed) attila.lendvai at gmail.com**20061102142939] [pushnew instead of push for *features* attila.lendvai at gmail.com**20061018103629] [Added remove-keywords defun and implement remf-keywords as a define-modify-macro attila.lendvai at gmail.com**20061017154226] [Missing pieces for my last two patches (damn) attila.lendvai at gmail.com**20061017152503] [Added :at-redefinition to deflookup-table, default is :warn otherwise it can be nil or a code form attila.lendvai at gmail.com**20061015131703] [Added a warning to deflogger at macroexpand time to warn when defining a logger whose name is from a foreign package attila.lendvai at gmail.com**20061015131548] [src/posixenv.lisp: drop Time-stamp line Luca Capello **20060918120805] [Added with-logging-io to rebind some *io* vars while inside the logging code attila.lendvai at gmail.com**20060911105133] [Various small patches by Chris Dean attila.lendvai at gmail.com**20060909095845 - A compatibility change to QUIT for LispWorks - A case-insensitive version of HTML-ENTITIES - A new function HTML-ENTITY->CHAR - A LispWorks fix for RADIX-VALUES - Small fix to HEAD ] [Drop accidental debug printf's attila.lendvai at gmail.com**20060905132115] [Workaround for clisp adjust-array bug attila.lendvai at gmail.com**20060905112932 (adjust-array x 0) is legal according to CLHS, but clisp yells. so added an early-return for "" input. ] [Fix the reader test attila.lendvai at gmail.com**20060902115131] [Optimized write-as-uri attila.lendvai at gmail.com**20060831161612] [Fix unescape-as-uri and optimize it while we are at it attila.lendvai at gmail.com**20060831153343] [Allegro environment walk fix. Maciek Pasternacki **20060830093122] [TAG 2006-08-16 attila.lendvai at gmail.com**20060816211128] Patch bundle hash: a2a575ad6e1b4837f993b34ba4e0e8239ca84d7c From gackle at shaw.ca Sat Dec 30 21:42:31 2006 From: gackle at shaw.ca (Daniel Gackle) Date: Sat, 30 Dec 2006 14:42:31 -0700 Subject: [Bese-devel] Parenscript: slot-value doesn't like expressions Message-ID: <0JB300ADUWCQ49E3@l-daemon> In Parenscript 20061003, (js (slot-value (if yes a b) 'prop)) => "yes ? a : b.prop;" when I need "(yes ? a : b).prop". Similarly, (js (slot-value (or a b) 'prop)) => "a || b.prop;" instead of "(a || b).prop". Can this be fixed, and/or is there a way to make the parentheses go the way I want? Thank you, Daniel From gackle at shaw.ca Sat Dec 30 23:13:35 2006 From: gackle at shaw.ca (Daniel Gackle) Date: Sat, 30 Dec 2006 16:13:35 -0700 Subject: [Bese-devel] Parenscript: slot-value doesn't like expressions In-Reply-To: <0JB300ADUWCQ49E3@l-daemon> Message-ID: <0JB400AOU0KT46G3@l-daemon> Here's another bug - perhaps a symptom of the same problem? (js (setf (slot-value x 'y) (+ (+ a 3) 4))) => "x.y += 4;" when it should be "x.y = (a + 3) + 4;". Interestingly, it's fine if you take out slot-value: (js (setf x (+ (+ a 3) 4))) => "x = (a + 3) + 4;" Daniel -----Original Message----- From: bese-devel-bounces at common-lisp.net [mailto:bese-devel-bounces at common-lisp.net] On Behalf Of Daniel Gackle Sent: Saturday, December 30, 2006 2:43 PM To: bese-devel at common-lisp.net Subject: [Bese-devel] Parenscript: slot-value doesn't like expressions In Parenscript 20061003, (js (slot-value (if yes a b) 'prop)) => "yes ? a : b.prop;" when I need "(yes ? a : b).prop". Similarly, (js (slot-value (or a b) 'prop)) => "a || b.prop;" instead of "(a || b).prop". Can this be fixed, and/or is there a way to make the parentheses go the way I want? Thank you, Daniel _______________________________________________ bese-devel mailing list bese-devel at common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/bese-devel