SBCL 2.5.5.114-85e41f89c / ASDF 3.3.5
WARNING: Invalid :version specifier (:READ-FROM-FILE "version.lisp-expr") for component "weblocks-utils" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-utils/d73a491d6787b8338f269427c1d0e740e5de042b/weblocks-utils-20250706-git/weblocks-utils.asd", using NIL instead WARNING: Invalid :version specifier (:READ-FROM-FILE "version.lisp-expr") for component "clache" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/clache/2c09d8401c5e225019bb7393ca899e0056f31790/clache-20250706-git/clache.asd", using NIL instead WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-store/8aa77366a5bd9ef8b9303a4d10178c1970fdea72/cl-store-20250706-git/cl-store.asd" contains definition for system "cl-store-tests". Please only define "cl-store" and secondary systems with a name starting with "cl-store/" (e.g. "cl-store/test") in that file. Unhandled ASDF/FIND-COMPONENT:MISSING-DEPENDENCY in thread #<SB-THREAD:THREAD tid=311751 "main thread" RUNNING {1200F08003}>: Component "iterate" not found, required by #<SYSTEM "symbol-munger"> Backtrace for: #<SB-THREAD:THREAD tid=311751 "main thread" RUNNING {1200F08003}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK Component "iterate" not found, required by #<SYSTEM "symbol-munger"> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* Component "iterate" not found, required by #<SYSTEM "symbol-munger">) 2: (INVOKE-DEBUGGER Component "iterate" not found, required by #<SYSTEM "symbol-munger">) 3: (ERROR ASDF/FIND-COMPONENT:MISSING-DEPENDENCY :REQUIRED-BY #<ASDF/SYSTEM:SYSTEM "symbol-munger"> :REQUIRES "iterate") 4: (ASDF/FIND-COMPONENT:RESOLVE-DEPENDENCY-NAME #<ASDF/SYSTEM:SYSTEM "symbol-munger"> "iterate" NIL) 5: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/SYSTEM:SYSTEM "symbol-munger"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {1208F60A5B}>) 6: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 7: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 8: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120469D443}> #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/SYSTEM:SYSTEM "symbol-munger"> T) 9: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "symbol-munger" "symbol-munger"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {1208F6093B}>) 10: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 11: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 12: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120469D443}> #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "symbol-munger" "symbol-munger"> T) 13: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "symbol-munger" "symbol-munger"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {1208F6081B}>) 14: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 15: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 16: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120469D443}> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "symbol-munger" "symbol-munger"> T) 17: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "symbol-munger"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {1208F606FB}>) 18: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 19: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 20: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120469D443}> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "symbol-munger"> T) 21: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/SYSTEM:SYSTEM "collectors"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {1208EC42BB}>) 22: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 23: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 24: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120469D443}> #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/SYSTEM:SYSTEM "collectors"> T) 25: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "collectors" "collectors"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {1208EC419B}>) 26: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 27: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 28: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120469D443}> #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "collectors" "collectors"> T) 29: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "collectors" "collectors"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {1208EC407B}>) 30: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 31: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 32: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120469D443}> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "collectors" "collectors"> T) 33: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "collectors"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {1208EC3F5B}>) 34: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 35: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 36: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120469D443}> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "collectors"> T) 37: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/SYSTEM:SYSTEM "arnesi"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {1208E1F18B}>) 38: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 39: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 40: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120469D443}> #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/SYSTEM:SYSTEM "arnesi"> T) 41: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/COMPONENT:STATIC-FILE "arnesi" "arnesi.asd"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {1208E1F06B}>) 42: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 43: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 44: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120469D443}> #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/COMPONENT:STATIC-FILE "arnesi" "arnesi.asd"> T) 45: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/COMPONENT:STATIC-FILE "arnesi" "arnesi.asd"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {1208E1EF4B}>) 46: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 47: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 48: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120469D443}> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/COMPONENT:STATIC-FILE "arnesi" "arnesi.asd"> T) 49: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "arnesi"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {1208E1EE2B}>) 50: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 51: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 52: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120469D443}> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "arnesi"> T) 53: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/SYSTEM:SYSTEM "yaclml"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {1208D8CA7B}>) 54: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 55: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 56: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120469D443}> #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/SYSTEM:SYSTEM "yaclml"> T) 57: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/COMPONENT:STATIC-FILE "yaclml" "yaclml.asd"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {1208D8C95B}>) 58: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 59: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 60: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120469D443}> #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/COMPONENT:STATIC-FILE "yaclml" "yaclml.asd"> T) 61: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/COMPONENT:STATIC-FILE "yaclml" "yaclml.asd"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {1208D8C83B}>) 62: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 63: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 64: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120469D443}> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/COMPONENT:STATIC-FILE "yaclml" "yaclml.asd"> T) 65: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "yaclml"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {1208D8C71B}>) 66: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 67: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 68: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120469D443}> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "yaclml"> T) 69: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-tree-widget"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {1208CF7D7B}>) 70: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 71: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 72: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120469D443}> #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-tree-widget"> T) 73: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks-tree-widget" "package"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {1208CF7C5B}>) 74: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 75: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 76: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120469D443}> #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks-tree-widget" "package"> T) 77: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks-tree-widget" "package"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {1208CF7B3B}>) 78: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 79: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 80: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120469D443}> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks-tree-widget" "package"> T) 81: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-tree-widget"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {1208CF7A1B}>) 82: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 83: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 84: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120469D443}> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-tree-widget"> T) 85: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-utils"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {1208520A3B}>) 86: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 87: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 88: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120469D443}> #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-utils"> T) 89: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks-utils" "package"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {120852091B}>) 90: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 91: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 92: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120469D443}> #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks-utils" "package"> T) 93: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks-utils" "package"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {12085207FB}>) 94: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 95: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 96: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120469D443}> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks-utils" "package"> T) 97: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-utils"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {12085206DB}>) 98: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 99: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 100: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120469D443}> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-utils"> T) 101: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-prototype-js"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {12084CEDDB}>) 102: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 103: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 104: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120469D443}> #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-prototype-js"> T) 105: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks-prototype-js" "package"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {12084CECBB}>) 106: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 107: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 108: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120469D443}> #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks-prototype-js" "package"> T) 109: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks-prototype-js" "package"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {12084CEB9B}>) 110: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 111: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 112: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120469D443}> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks-prototype-js" "package"> T) 113: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-prototype-js"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {12084CEA7B}>) 114: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 115: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 116: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120469D443}> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-prototype-js"> T) 117: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-demo"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {12046CCDCB}>) 118: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 119: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 120: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120469D443}> #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-demo"> T) 121: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks-demo" "package"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {12046CCC7B}>) 122: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 123: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 124: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120469D443}> #<ASDF/LISP-ACTION:PREPARE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks-demo" "package"> T) 125: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks-demo" "package"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {12046C8C5B}>) 126: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 127: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 128: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120469D443}> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks-demo" "package"> T) 129: (ASDF/PLAN:MAP-DIRECT-DEPENDENCIES #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-demo"> #<FUNCTION (LAMBDA (ASDF/PLAN::O ASDF/PLAN::C) :IN ASDF/PLAN:TRAVERSE-ACTION) {12046B4BBB}>) 130: ((LAMBDA NIL :IN ASDF/PLAN:TRAVERSE-ACTION)) 131: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 132: (ASDF/PLAN:TRAVERSE-ACTION #<ASDF/PLAN:SEQUENTIAL-PLAN {120469D443}> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-demo"> T) 133: ((LAMBDA NIL :IN ASDF/PLAN:MAKE-PLAN)) 134: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-demo"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method] 135: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-demo">) 136: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 137: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-demo">) [fast-method] 138: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "weblocks-demo") 139: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 140: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "weblocks-demo") [fast-method] 141: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {12046A58AB}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL) 142: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 143: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {120466C80B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL) 144: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "weblocks-demo") [fast-method] 145: (DEPCHECK::COMPUTE-DEPENDENCIES "weblocks-demo" "weblocks-demo") 146: (DEPCHECK::MAGIC "weblocks-demo" "weblocks-demo" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-IxSlg5tk/depcheck-win.txt") 147: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "weblocks-demo" "weblocks-demo" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-IxSlg5tk/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-IxSlg5tk/depcheck-fail.txt")) 148: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp")) 149: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP)) 150: ((FLET "WITHOUT-INTERRUPTS-BODY-3" :IN SB-IMPL::START-LISP)) 151: (SB-IMPL::%START-LISP) unhandled condition in --disable-debugger mode, quitting
WARNING: redefining UIOP/PACKAGE:FIND-PACKAGE* in DEFUN WARNING: redefining UIOP/PACKAGE:FIND-SYMBOL* in DEFUN WARNING: redefining UIOP/PACKAGE:SYMBOL-CALL in DEFUN WARNING: redefining UIOP/PACKAGE:INTERN* in DEFUN WARNING: redefining UIOP/PACKAGE:EXPORT* in DEFUN WARNING: redefining UIOP/PACKAGE:IMPORT* in DEFUN WARNING: redefining UIOP/PACKAGE:SHADOWING-IMPORT* in DEFUN WARNING: redefining UIOP/PACKAGE:SHADOW* in DEFUN WARNING: redefining UIOP/PACKAGE:MAKE-SYMBOL* in DEFUN WARNING: redefining UIOP/PACKAGE:UNINTERN* in DEFUN WARNING: redefining UIOP/PACKAGE:SYMBOL-SHADOWING-P in DEFUN WARNING: redefining UIOP/PACKAGE:HOME-PACKAGE-P in DEFUN WARNING: redefining UIOP/PACKAGE:SYMBOL-PACKAGE-NAME in DEFUN WARNING: redefining UIOP/PACKAGE:STANDARD-COMMON-LISP-SYMBOL-P in DEFUN WARNING: redefining UIOP/PACKAGE:REIFY-PACKAGE in DEFUN WARNING: redefining UIOP/PACKAGE:UNREIFY-PACKAGE in DEFUN WARNING: redefining UIOP/PACKAGE:REIFY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE:UNREIFY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::RECORD-FISHY in DEFUN WARNING: redefining UIOP/PACKAGE::WHEN-PACKAGE-FISHINESS in DEFMACRO WARNING: redefining UIOP/PACKAGE::NOTE-PACKAGE-FISHINESS in DEFMACRO WARNING: redefining UIOP/PACKAGE::SET-DUMMY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::MAKE-DUMMY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::DUMMY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::GET-DUMMY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE:NUKE-SYMBOL-IN-PACKAGE in DEFUN WARNING: redefining UIOP/PACKAGE:NUKE-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE:REHOME-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE:ENSURE-PACKAGE-UNUSED in DEFUN WARNING: redefining UIOP/PACKAGE:DELETE-PACKAGE* in DEFUN WARNING: redefining UIOP/PACKAGE:PACKAGE-NAMES in DEFUN WARNING: redefining UIOP/PACKAGE:PACKAGES-FROM-NAMES in DEFUN WARNING: redefining UIOP/PACKAGE:FRESH-PACKAGE-NAME in DEFUN WARNING: redefining UIOP/PACKAGE:RENAME-PACKAGE-AWAY in DEFUN WARNING: redefining UIOP/PACKAGE:PACKAGE-DEFINITION-FORM in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-SHADOWING-IMPORT in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-IMPORTED in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-IMPORT in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-INHERITED in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-MIX in DEFUN WARNING: redefining UIOP/PACKAGE::RECYCLE-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::SYMBOL-RECYCLED-P in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORTED-TO-USER in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORTED in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORT in DEFUN WARNING: redefining UIOP/PACKAGE::INSTALL-PACKAGE-LOCAL-NICKNAMES in DEFUN WARNING: redefining UIOP/PACKAGE:ENSURE-PACKAGE in DEFUN WARNING: redefining UIOP/PACKAGE:PARSE-DEFINE-PACKAGE-FORM in DEFUN WARNING: redefining UIOP/PACKAGE:DEFINE-PACKAGE in DEFMACRO WARNING: redefining UIOP/COMMON-LISP::FROB-SUBSTRINGS in DEFUN WARNING: redefining UIOP/COMMON-LISP::COMPATFMT in DEFMACRO WARNING: redefining UIOP/UTILITY::ENSURE-FUNCTION-NOTINLINE in DEFUN WARNING: redefining UIOP/UTILITY:WITH-UPGRADABILITY in DEFMACRO WARNING: redefining UIOP/UTILITY:UIOP-DEBUG in DEFMACRO WARNING: redefining UIOP/UTILITY:LOAD-UIOP-DEBUG-UTILITY in DEFUN WARNING: redefining UIOP/UTILITY:NEST in DEFMACRO WARNING: redefining UIOP/UTILITY:IF-LET in DEFMACRO WARNING: redefining UIOP/UTILITY:PARSE-BODY in DEFUN WARNING: redefining UIOP/UTILITY:WHILE-COLLECTING in DEFMACRO WARNING: redefining UIOP/UTILITY:APPENDF in DEFMACRO WARNING: redefining UIOP/UTILITY:LENGTH=N-P in DEFUN WARNING: redefining UIOP/UTILITY:ENSURE-LIST in DEFUN WARNING: redefining UIOP/UTILITY:REMOVE-PLIST-KEY in DEFUN WARNING: redefining UIOP/UTILITY:REMOVE-PLIST-KEYS in DEFUN WARNING: redefining UIOP/UTILITY:EMPTYP in DEFUN WARNING: redefining UIOP/UTILITY:CHARACTER-TYPE-INDEX in DEFUN WARNING: redefining UIOP/UTILITY:BASE-STRING-P in DEFUN WARNING: redefining UIOP/UTILITY:STRINGS-COMMON-ELEMENT-TYPE in DEFUN WARNING: redefining UIOP/UTILITY:REDUCE/STRCAT in DEFUN WARNING: redefining UIOP/UTILITY:STRCAT in DEFUN WARNING: redefining UIOP/UTILITY:FIRST-CHAR in DEFUN WARNING: redefining UIOP/UTILITY:LAST-CHAR in DEFUN WARNING: redefining UIOP/UTILITY:SPLIT-STRING in DEFUN WARNING: redefining UIOP/UTILITY:STRING-PREFIX-P in DEFUN WARNING: redefining UIOP/UTILITY:STRING-SUFFIX-P in DEFUN WARNING: redefining UIOP/UTILITY:STRING-ENCLOSED-P in DEFUN WARNING: redefining UIOP/UTILITY:STRIPLN in DEFUN WARNING: redefining UIOP/UTILITY:STANDARD-CASE-SYMBOL-NAME in DEFUN WARNING: redefining UIOP/UTILITY:FIND-STANDARD-CASE-SYMBOL in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMP< in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMPS< in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMP*< in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMP<= in DEFUN WARNING: redefining UIOP/UTILITY:EARLIER-TIMESTAMP in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMPS-EARLIEST in DEFUN WARNING: redefining UIOP/UTILITY:EARLIEST-TIMESTAMP in DEFUN WARNING: redefining UIOP/UTILITY:LATER-TIMESTAMP in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMPS-LATEST in DEFUN WARNING: redefining UIOP/UTILITY:LATEST-TIMESTAMP in DEFUN WARNING: redefining UIOP/UTILITY:LATEST-TIMESTAMP-F in DEFMACRO WARNING: redefining UIOP/UTILITY:ENSURE-FUNCTION in DEFUN WARNING: redefining UIOP/UTILITY:ACCESS-AT in DEFUN WARNING: redefining UIOP/UTILITY:ACCESS-AT-COUNT in DEFUN WARNING: redefining UIOP/UTILITY:CALL-FUNCTION in DEFUN WARNING: redefining UIOP/UTILITY:CALL-FUNCTIONS in DEFUN WARNING: redefining UIOP/UTILITY:REGISTER-HOOK-FUNCTION in DEFUN WARNING: redefining UIOP/UTILITY:COERCE-CLASS in DEFUN WARNING: redefining UIOP/UTILITY:ENSURE-GETHASH in DEFUN WARNING: redefining UIOP/UTILITY:LIST-TO-HASH-SET in DEFUN WARNING: redefining UIOP/UTILITY:LEXICOGRAPHIC< in DEFUN WARNING: redefining UIOP/UTILITY:LEXICOGRAPHIC<= in DEFUN WARNING: redefining UIOP/UTILITY:STYLE-WARN in DEFUN WARNING: redefining UIOP/UTILITY:MATCH-CONDITION-P in DEFUN WARNING: redefining UIOP/UTILITY:MATCH-ANY-CONDITION-P in DEFUN WARNING: redefining UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS in DEFUN WARNING: redefining UIOP/UTILITY:WITH-MUFFLED-CONDITIONS in DEFMACRO WARNING: redefining UIOP/UTILITY:NOT-IMPLEMENTED-ERROR in DEFUN WARNING: redefining UIOP/UTILITY:PARAMETER-ERROR in DEFUN WARNING: redefining UIOP/UTILITY:BOOLEAN-TO-FEATURE-EXPRESSION in DEFUN WARNING: redefining UIOP/UTILITY:SYMBOL-TEST-TO-FEATURE-EXPRESSION in DEFUN WARNING: redefining UIOP/VERSION:UNPARSE-VERSION in DEFUN WARNING: redefining UIOP/VERSION:PARSE-VERSION in DEFUN WARNING: redefining UIOP/VERSION:NEXT-VERSION in DEFUN WARNING: redefining UIOP/VERSION:VERSION< in DEFUN WARNING: redefining UIOP/VERSION:VERSION<= in DEFUN WARNING: redefining UIOP/VERSION::DEPRECATED-FUNCTION-CONDITION-KIND in DEFUN WARNING: redefining PRINT-OBJECT (#<SB-PCL::CONDITION-CLASS UIOP/VERSION:DEPRECATED-FUNCTION-CONDITION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining UIOP/VERSION::NOTIFY-DEPRECATED-FUNCTION in DEFUN WARNING: redefining UIOP/VERSION:VERSION-DEPRECATION in DEFUN WARNING: redefining UIOP/VERSION:WITH-DEPRECATION in DEFMACRO WARNING: redefining UIOP/OS:FEATUREP in DEFUN WARNING: redefining UIOP/OS:OS-MACOSX-P in DEFUN WARNING: redefining UIOP/OS:OS-UNIX-P in DEFUN WARNING: redefining UIOP/OS:OS-WINDOWS-P in DEFUN WARNING: redefining UIOP/OS:OS-GENERA-P in DEFUN WARNING: redefining UIOP/OS::OS-OLDMAC-P in DEFUN WARNING: redefining UIOP/OS::OS-HAIKU-P in DEFUN WARNING: redefining UIOP/OS::OS-MEZZANO-P in DEFUN WARNING: redefining UIOP/OS:DETECT-OS in DEFUN WARNING: redefining UIOP/OS:OS-COND in DEFMACRO WARNING: redefining UIOP/OS:GETENV in DEFUN WARNING: redefining UIOP/OS:GETENVP in DEFUN WARNING: redefining UIOP/OS::FIRST-FEATURE in DEFUN WARNING: redefining UIOP/OS:IMPLEMENTATION-TYPE in DEFUN WARNING: redefining UIOP/OS:OPERATING-SYSTEM in DEFUN WARNING: redefining UIOP/OS:ARCHITECTURE in DEFUN WARNING: redefining UIOP/OS:LISP-VERSION-STRING in DEFUN WARNING: redefining UIOP/OS:IMPLEMENTATION-IDENTIFIER in DEFUN WARNING: redefining UIOP/OS:HOSTNAME in DEFUN WARNING: redefining UIOP/OS:GETCWD in DEFUN WARNING: redefining UIOP/OS:CHDIR in DEFUN WARNING: redefining UIOP/OS:READ-NULL-TERMINATED-STRING in DEFUN WARNING: redefining UIOP/OS:READ-LITTLE-ENDIAN in DEFUN WARNING: redefining UIOP/OS:PARSE-FILE-LOCATION-INFO in DEFUN WARNING: redefining UIOP/OS:PARSE-WINDOWS-SHORTCUT in DEFUN WARNING: redefining UIOP/PATHNAME:NORMALIZE-PATHNAME-DIRECTORY-COMPONENT in DEFUN WARNING: redefining UIOP/PATHNAME:DENORMALIZE-PATHNAME-DIRECTORY-COMPONENT in DEFUN WARNING: redefining UIOP/PATHNAME:MERGE-PATHNAME-DIRECTORY-COMPONENTS in DEFUN WARNING: redefining UIOP/PATHNAME:MAKE-PATHNAME* in DEFUN WARNING: redefining UIOP/PATHNAME:MAKE-PATHNAME-COMPONENT-LOGICAL in DEFUN WARNING: redefining UIOP/PATHNAME:MAKE-PATHNAME-LOGICAL in DEFUN WARNING: redefining UIOP/PATHNAME:MERGE-PATHNAMES* in DEFUN WARNING: redefining UIOP/PATHNAME:LOGICAL-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:PHYSICAL-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:PHYSICALIZE-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:NIL-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:WITH-PATHNAME-DEFAULTS in DEFMACRO WARNING: redefining UIOP/PATHNAME:PATHNAME-EQUAL in DEFUN WARNING: redefining UIOP/PATHNAME:ABSOLUTE-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:RELATIVE-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:HIDDEN-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:FILE-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:PATHNAME-DIRECTORY-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:PATHNAME-PARENT-DIRECTORY-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:DIRECTORY-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:ENSURE-DIRECTORY-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:SPLIT-UNIX-NAMESTRING-DIRECTORY-COMPONENTS in DEFUN WARNING: redefining UIOP/PATHNAME:SPLIT-NAME-TYPE in DEFUN WARNING: redefining UIOP/PATHNAME:PARSE-UNIX-NAMESTRING in DEFUN WARNING: redefining UIOP/PATHNAME:UNIX-NAMESTRING in DEFUN WARNING: redefining UIOP/PATHNAME:SUBPATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:SUBPATHNAME* in DEFUN WARNING: redefining UIOP/PATHNAME:PATHNAME-ROOT in DEFUN WARNING: redefining UIOP/PATHNAME:PATHNAME-HOST-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:ENSURE-ABSOLUTE-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:SUBPATHP in DEFUN WARNING: redefining UIOP/PATHNAME:ENOUGH-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:CALL-WITH-ENOUGH-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:WITH-ENOUGH-PATHNAME in DEFMACRO WARNING: redefining UIOP/PATHNAME:WILDEN in DEFUN WARNING: redefining UIOP/PATHNAME:RELATIVIZE-DIRECTORY-COMPONENT in DEFUN WARNING: redefining UIOP/PATHNAME:RELATIVIZE-PATHNAME-DIRECTORY in DEFUN WARNING: redefining UIOP/PATHNAME:DIRECTORY-SEPARATOR-FOR-HOST in DEFUN WARNING: redefining UIOP/PATHNAME:DIRECTORIZE-PATHNAME-HOST-DEVICE in DEFUN WARNING: redefining UIOP/PATHNAME:TRANSLATE-PATHNAME* in DEFUN WARNING: redefining UIOP/FILESYSTEM:NATIVE-NAMESTRING in DEFUN WARNING: redefining UIOP/FILESYSTEM:PARSE-NATIVE-NAMESTRING in DEFUN WARNING: redefining UIOP/FILESYSTEM:TRUENAME* in DEFUN WARNING: redefining UIOP/FILESYSTEM:SAFE-FILE-WRITE-DATE in DEFUN WARNING: redefining UIOP/FILESYSTEM:PROBE-FILE* in DEFUN WARNING: redefining UIOP/FILESYSTEM:DIRECTORY-EXISTS-P in DEFUN WARNING: redefining UIOP/FILESYSTEM:FILE-EXISTS-P in DEFUN WARNING: redefining UIOP/FILESYSTEM:DIRECTORY* in DEFUN WARNING: redefining UIOP/FILESYSTEM:FILTER-LOGICAL-DIRECTORY-RESULTS in DEFUN WARNING: redefining UIOP/FILESYSTEM:DIRECTORY-FILES in DEFUN WARNING: redefining UIOP/FILESYSTEM:SUBDIRECTORIES in DEFUN WARNING: redefining UIOP/FILESYSTEM:COLLECT-SUB*DIRECTORIES in DEFUN WARNING: redefining UIOP/FILESYSTEM:TRUENAMIZE in DEFUN WARNING: redefining UIOP/FILESYSTEM:RESOLVE-SYMLINKS in DEFUN WARNING: redefining UIOP/FILESYSTEM:RESOLVE-SYMLINKS* in DEFUN WARNING: redefining UIOP/PATHNAME:ENSURE-PATHNAME in DEFUN WARNING: redefining UIOP/FILESYSTEM:GET-PATHNAME-DEFAULTS in DEFUN WARNING: redefining UIOP/FILESYSTEM:CALL-WITH-CURRENT-DIRECTORY in DEFUN WARNING: redefining UIOP/FILESYSTEM:WITH-CURRENT-DIRECTORY in DEFMACRO WARNING: redefining UIOP/FILESYSTEM:INTER-DIRECTORY-SEPARATOR in DEFUN WARNING: redefining UIOP/FILESYSTEM:SPLIT-NATIVE-PATHNAMES-STRING in DEFUN WARNING: redefining UIOP/FILESYSTEM:GETENV-PATHNAME in DEFUN WARNING: redefining UIOP/FILESYSTEM:GETENV-PATHNAMES in DEFUN WARNING: redefining UIOP/FILESYSTEM:GETENV-ABSOLUTE-DIRECTORY in DEFUN WARNING: redefining UIOP/FILESYSTEM:GETENV-ABSOLUTE-DIRECTORIES in DEFUN WARNING: redefining UIOP/FILESYSTEM:LISP-IMPLEMENTATION-DIRECTORY in DEFUN WARNING: redefining UIOP/FILESYSTEM:LISP-IMPLEMENTATION-PATHNAME-P in DEFUN WARNING: redefining UIOP/FILESYSTEM:ENSURE-ALL-DIRECTORIES-EXIST in DEFUN WARNING: redefining UIOP/FILESYSTEM:DELETE-FILE-IF-EXISTS in DEFUN WARNING: redefining UIOP/FILESYSTEM:RENAME-FILE-OVERWRITING-TARGET in DEFUN WARNING: redefining UIOP/FILESYSTEM:DELETE-EMPTY-DIRECTORY in DEFUN WARNING: redefining UIOP/FILESYSTEM:DELETE-DIRECTORY-TREE in DEFUN WARNING: redefining UIOP/STREAM:SETUP-STDIN in DEFUN WARNING: redefining UIOP/STREAM:SETUP-STDOUT in DEFUN WARNING: redefining UIOP/STREAM:SETUP-STDERR in DEFUN WARNING: redefining UIOP/STREAM:ALWAYS-DEFAULT-ENCODING in DEFUN WARNING: redefining UIOP/STREAM:DETECT-ENCODING in DEFUN WARNING: redefining UIOP/STREAM:DEFAULT-ENCODING-EXTERNAL-FORMAT in DEFUN WARNING: redefining UIOP/STREAM:ENCODING-EXTERNAL-FORMAT in DEFUN WARNING: redefining UIOP/STREAM:WITH-SAFE-IO-SYNTAX in DEFMACRO WARNING: redefining UIOP/STREAM:CALL-WITH-SAFE-IO-SYNTAX in DEFUN WARNING: redefining UIOP/STREAM:SAFE-READ-FROM-STRING in DEFUN WARNING: redefining UIOP/STREAM:CALL-WITH-OUTPUT-FILE in DEFUN WARNING: redefining UIOP/STREAM:WITH-OUTPUT-FILE in DEFMACRO WARNING: redefining UIOP/STREAM::CALL-WITH-OUTPUT in DEFUN WARNING: redefining UIOP/STREAM:OUTPUT-STRING in DEFUN WARNING: redefining UIOP/STREAM:CALL-WITH-INPUT-FILE in DEFUN WARNING: redefining UIOP/STREAM:WITH-INPUT-FILE in DEFMACRO WARNING: redefining UIOP/STREAM::CALL-WITH-INPUT in DEFUN WARNING: redefining UIOP/STREAM:WITH-INPUT in DEFMACRO WARNING: redefining UIOP/STREAM:INPUT-STRING in DEFUN WARNING: redefining UIOP/STREAM:NULL-DEVICE-PATHNAME in DEFUN WARNING: redefining UIOP/STREAM:CALL-WITH-NULL-INPUT in DEFUN WARNING: redefining UIOP/STREAM:WITH-NULL-INPUT in DEFMACRO WARNING: redefining UIOP/STREAM:CALL-WITH-NULL-OUTPUT in DEFUN WARNING: redefining UIOP/STREAM:WITH-NULL-OUTPUT in DEFMACRO WARNING: redefining UIOP/STREAM:FINISH-OUTPUTS in DEFUN WARNING: redefining UIOP/STREAM:FORMAT! in DEFUN WARNING: redefining UIOP/STREAM:SAFE-FORMAT! in DEFUN WARNING: redefining UIOP/STREAM:COPY-STREAM-TO-STREAM in DEFUN WARNING: redefining UIOP/STREAM:CONCATENATE-FILES in DEFUN WARNING: redefining UIOP/STREAM:COPY-FILE in DEFUN WARNING: redefining UIOP/STREAM:SLURP-STREAM-STRING in DEFUN WARNING: redefining UIOP/STREAM:SLURP-STREAM-LINES in DEFUN WARNING: redefining UIOP/STREAM:SLURP-STREAM-LINE in DEFUN WARNING: redefining UIOP/STREAM:SLURP-STREAM-FORMS in DEFUN WARNING: redefining UIOP/STREAM:SLURP-STREAM-FORM in DEFUN WARNING: redefining UIOP/STREAM:READ-FILE-STRING in DEFUN WARNING: redefining UIOP/STREAM:READ-FILE-LINES in DEFUN WARNING: redefining UIOP/STREAM:READ-FILE-LINE in DEFUN WARNING: redefining UIOP/STREAM:READ-FILE-FORMS in DEFUN WARNING: redefining UIOP/STREAM:READ-FILE-FORM in DEFUN WARNING: redefining UIOP/STREAM:SAFE-READ-FILE-LINE in DEFUN WARNING: redefining UIOP/STREAM:SAFE-READ-FILE-FORM in DEFUN WARNING: redefining UIOP/STREAM:EVAL-INPUT in DEFUN WARNING: redefining UIOP/STREAM:EVAL-THUNK in DEFUN WARNING: redefining UIOP/STREAM:STANDARD-EVAL-THUNK in DEFUN WARNING: redefining UIOP/STREAM:PRINTLN in DEFUN WARNING: redefining UIOP/STREAM:WRITELN in DEFUN WARNING: redefining UIOP/STREAM:DEFAULT-TEMPORARY-DIRECTORY in DEFUN WARNING: redefining UIOP/STREAM:TEMPORARY-DIRECTORY in DEFUN WARNING: redefining UIOP/STREAM:SETUP-TEMPORARY-DIRECTORY in DEFUN WARNING: redefining UIOP/STREAM:CALL-WITH-TEMPORARY-FILE in DEFUN WARNING: redefining UIOP/STREAM:WITH-TEMPORARY-FILE in DEFMACRO WARNING: redefining UIOP/STREAM::GET-TEMPORARY-FILE in DEFUN WARNING: redefining UIOP/STREAM:ADD-PATHNAME-SUFFIX in DEFUN WARNING: redefining UIOP/STREAM:TMPIZE-PATHNAME in DEFUN WARNING: redefining UIOP/STREAM:CALL-WITH-STAGING-PATHNAME in DEFUN WARNING: redefining UIOP/STREAM:WITH-STAGING-PATHNAME in DEFMACRO WARNING: redefining UIOP/STREAM:FILE-STREAM-P in DEFUN WARNING: redefining UIOP/STREAM:FILE-OR-SYNONYM-STREAM-P in DEFUN WARNING: redefining UIOP/IMAGE:QUIT in DEFUN WARNING: redefining UIOP/IMAGE:DIE in DEFUN WARNING: redefining UIOP/IMAGE:RAW-PRINT-BACKTRACE in DEFUN WARNING: redefining UIOP/IMAGE:PRINT-BACKTRACE in DEFUN WARNING: redefining UIOP/IMAGE:PRINT-CONDITION-BACKTRACE in DEFUN WARNING: redefining UIOP/IMAGE:FATAL-CONDITION-P in DEFUN WARNING: redefining UIOP/IMAGE:HANDLE-FATAL-CONDITION in DEFUN WARNING: redefining UIOP/IMAGE:CALL-WITH-FATAL-CONDITION-HANDLER in DEFUN WARNING: redefining UIOP/IMAGE:WITH-FATAL-CONDITION-HANDLER in DEFMACRO WARNING: redefining UIOP/IMAGE:SHELL-BOOLEAN-EXIT in DEFUN WARNING: redefining UIOP/IMAGE:REGISTER-IMAGE-RESTORE-HOOK in DEFUN WARNING: redefining UIOP/IMAGE:REGISTER-IMAGE-DUMP-HOOK in DEFUN WARNING: redefining UIOP/IMAGE:CALL-IMAGE-RESTORE-HOOK in DEFUN WARNING: redefining UIOP/IMAGE:CALL-IMAGE-DUMP-HOOK in DEFUN WARNING: redefining UIOP/IMAGE:RAW-COMMAND-LINE-ARGUMENTS in DEFUN WARNING: redefining UIOP/IMAGE:COMMAND-LINE-ARGUMENTS in DEFUN WARNING: redefining UIOP/IMAGE:ARGV0 in DEFUN WARNING: redefining UIOP/IMAGE:SETUP-COMMAND-LINE-ARGUMENTS in DEFUN WARNING: redefining UIOP/IMAGE:RESTORE-IMAGE in DEFUN WARNING: redefining UIOP/IMAGE:DUMP-IMAGE in DEFUN WARNING: redefining UIOP/IMAGE:CREATE-IMAGE in DEFUN WARNING: redefining UIOP/LISP-BUILD::SB-GROVEL-UNKNOWN-CONSTANT-CONDITION-P in DEFUN WARNING: redefining UIOP/LISP-BUILD:CALL-WITH-MUFFLED-COMPILER-CONDITIONS in DEFUN WARNING: redefining UIOP/LISP-BUILD:WITH-MUFFLED-COMPILER-CONDITIONS in DEFMACRO WARNING: redefining UIOP/LISP-BUILD:CALL-WITH-MUFFLED-LOADER-CONDITIONS in DEFUN WARNING: redefining UIOP/LISP-BUILD:WITH-MUFFLED-LOADER-CONDITIONS in DEFMACRO WARNING: redefining UIOP/LISP-BUILD:CHECK-LISP-COMPILE-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS in DEFUN WARNING: redefining UIOP/LISP-BUILD:REIFY-SIMPLE-SEXP in DEFUN WARNING: redefining UIOP/LISP-BUILD:UNREIFY-SIMPLE-SEXP in DEFUN WARNING: redefining UIOP/LISP-BUILD::REIFY-UNDEFINED-WARNING in DEFUN WARNING: redefining UIOP/LISP-BUILD:REIFY-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:UNREIFY-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:RESET-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:SAVE-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:WARNINGS-FILE-TYPE in DEFUN WARNING: redefining UIOP/LISP-BUILD:ENABLE-DEFERRED-WARNINGS-CHECK in DEFUN WARNING: redefining UIOP/LISP-BUILD:DISABLE-DEFERRED-WARNINGS-CHECK in DEFUN WARNING: redefining UIOP/LISP-BUILD:WARNINGS-FILE-P in DEFUN WARNING: redefining UIOP/LISP-BUILD:CHECK-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD::CALL-WITH-SAVED-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:WITH-SAVED-DEFERRED-WARNINGS in DEFMACRO WARNING: redefining UIOP/LISP-BUILD:CURRENT-LISP-FILE-PATHNAME in DEFUN WARNING: redefining UIOP/LISP-BUILD:LOAD-PATHNAME in DEFUN WARNING: redefining UIOP/LISP-BUILD:LISPIZE-PATHNAME in DEFUN WARNING: redefining UIOP/LISP-BUILD:COMPILE-FILE-TYPE in DEFUN WARNING: redefining UIOP/LISP-BUILD:CALL-AROUND-HOOK in DEFUN WARNING: redefining UIOP/LISP-BUILD:COMPILE-FILE-PATHNAME* in DEFUN WARNING: redefining UIOP/LISP-BUILD:COMPILE-FILE* in DEFUN WARNING: redefining UIOP/LISP-BUILD:LOAD* in DEFUN WARNING: redefining UIOP/LISP-BUILD:LOAD-FROM-STRING in DEFUN WARNING: redefining UIOP/LISP-BUILD:COMBINE-FASLS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::REQUIRES-ESCAPING-P in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-TOKEN in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::ESCAPE-WINDOWS-TOKEN-WITHIN-DOUBLE-QUOTES in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::EASY-WINDOWS-CHARACTER-P in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-WINDOWS-TOKEN in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::ESCAPE-SH-TOKEN-WITHIN-DOUBLE-QUOTES in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:EASY-SH-CHARACTER-P in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SH-TOKEN in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SHELL-TOKEN in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-COMMAND in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-WINDOWS-COMMAND in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SH-COMMAND in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SHELL-COMMAND in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%NORMALIZE-IO-SPECIFIER in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%INTERACTIVEP in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%SIGNAL-TO-EXIT-CODE in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%CODE-TO-STATUS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%HANDLE-IF-EXISTS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%HANDLE-IF-DOES-NOT-EXIST in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-ERROR-OUTPUT in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-INPUT in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-OUTPUT in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-PID in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%PROCESS-STATUS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-ALIVE-P in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:WAIT-PROCESS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%POSIX-SEND-SIGNAL in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:TERMINATE-PROCESS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:CLOSE-STREAMS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:LAUNCH-PROGRAM in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::CALL-STREAM-PROCESSOR in DEFUN WARNING: redefining UIOP/RUN-PROGRAM:SLURP-INPUT-STREAM in DEFGENERIC WARNING: redefining SLURP-INPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:FUNCTION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:CONS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:STREAM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :LINES> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :LINE> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :FORMS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :FORM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:NULL> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:PATHNAME> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining UIOP/RUN-PROGRAM:VOMIT-OUTPUT-STREAM in DEFGENERIC WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:FUNCTION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:CONS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:STREAM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:NULL> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:PATHNAME> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining UIOP/RUN-PROGRAM::%CHECK-RESULT in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%ACTIVE-IO-SPECIFIER-P in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%RUN-PROGRAM in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%CALL-WITH-PROGRAM-IO in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::PLACE-SETTER in DEFMACRO WARNING: redefining UIOP/RUN-PROGRAM::WITH-PROGRAM-INPUT in DEFMACRO WARNING: redefining UIOP/RUN-PROGRAM::WITH-PROGRAM-OUTPUT in DEFMACRO WARNING: redefining UIOP/RUN-PROGRAM::WITH-PROGRAM-ERROR-OUTPUT in DEFMACRO WARNING: redefining UIOP/RUN-PROGRAM::%USE-LAUNCH-PROGRAM in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%NORMALIZE-SYSTEM-COMMAND in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%REDIRECTED-SYSTEM-COMMAND in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%SYSTEM in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%USE-SYSTEM in DEFUN WARNING: redefining UIOP/RUN-PROGRAM:RUN-PROGRAM in DEFUN WARNING: redefining UIOP/CONFIGURATION:CONFIGURATION-INHERITANCE-DIRECTIVE-P in DEFUN WARNING: redefining UIOP/CONFIGURATION:REPORT-INVALID-FORM in DEFUN WARNING: redefining UIOP/CONFIGURATION:VALIDATE-CONFIGURATION-FORM in DEFUN WARNING: redefining UIOP/CONFIGURATION:VALIDATE-CONFIGURATION-FILE in DEFUN WARNING: redefining UIOP/CONFIGURATION:VALIDATE-CONFIGURATION-DIRECTORY in DEFUN WARNING: redefining UIOP/CONFIGURATION:RESOLVE-RELATIVE-LOCATION in DEFUN WARNING: redefining UIOP/CONFIGURATION:RESOLVE-ABSOLUTE-LOCATION in DEFUN WARNING: redefining UIOP/CONFIGURATION:RESOLVE-LOCATION in DEFUN WARNING: redefining UIOP/CONFIGURATION:LOCATION-DESIGNATOR-P in DEFUN WARNING: redefining UIOP/CONFIGURATION:LOCATION-FUNCTION-P in DEFUN WARNING: redefining UIOP/CONFIGURATION:REGISTER-CLEAR-CONFIGURATION-HOOK in DEFUN WARNING: redefining UIOP/CONFIGURATION:CLEAR-CONFIGURATION in DEFUN WARNING: redefining UIOP/CONFIGURATION:UPGRADE-CONFIGURATION in DEFUN WARNING: redefining UIOP/CONFIGURATION:GET-FOLDER-PATH in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-HOME in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-HOME in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-DIRS in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-DIRS in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-CACHE-HOME in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-RUNTIME-DIR in DEFUN WARNING: redefining UIOP/CONFIGURATION:SYSTEM-CONFIG-PATHNAMES in DEFUN WARNING: redefining UIOP/CONFIGURATION:FILTER-PATHNAME-SET in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-PATHNAMES in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-PATHNAMES in DEFUN WARNING: redefining UIOP/CONFIGURATION:FIND-PREFERRED-FILE in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-PATHNAME in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-PATHNAME in DEFUN WARNING: redefining UIOP/CONFIGURATION::COMPUTE-USER-CACHE in DEFUN WARNING: redefining UIOP/CONFIGURATION:UIOP-DIRECTORY in DEFUN WARNING: redefining UIOP/BACKWARD-DRIVER:COERCE-PATHNAME in DEFUN WARNING: redefining UIOP/CONFIGURATION:USER-CONFIGURATION-DIRECTORIES in DEFUN WARNING: redefining UIOP/CONFIGURATION:SYSTEM-CONFIGURATION-DIRECTORIES in DEFUN WARNING: redefining UIOP/CONFIGURATION:IN-FIRST-DIRECTORY in DEFUN WARNING: redefining UIOP/CONFIGURATION:IN-USER-CONFIGURATION-DIRECTORY in DEFUN WARNING: redefining UIOP/CONFIGURATION:IN-SYSTEM-CONFIGURATION-DIRECTORY in DEFUN WARNING: redefining UIOP/BACKWARD-DRIVER:VERSION-COMPATIBLE-P in DEFUN WARNING: redefining IRONCLAD:BLOCK-LENGTH in DEFGENERIC WARNING: redefining METABANG.UTILITIES:FIND-ALL in DEFUN WARNING: redefining PRINT-OBJECT (#<STANDARD-CLASS COMMON-LISP:STANDARD-OBJECT> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VIEW-ARGUMENT-QUOTING-STRATEGY (#<EQL-SPECIALIZER :PRESENT-AS>) in DEFMETHOD ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20250706-git/src/widgets/widget/widget.lisp ; in: DEFGENERIC WIDGET-CHILDREN ; (CLOSER-MOP:DEFGENERIC WEBLOCKS::WIDGET-CHILDREN ; (WEBLOCKS::W &OPTIONAL TYPE) ; (:DOCUMENTATION "Return a list of all widgets (all types) who are ; children of w (e.g. may be rendered when w is rendered).") ; (:METHOD (WEBLOCKS::W &OPTIONAL TYPE) "NIL unless defined otherwise." NIL) ; (:METHOD ((WEBLOCKS::W WEBLOCKS::WIDGET) &OPTIONAL TYPE) ; (IF TYPE ; (CDR (ASSOC TYPE #)) ; (REDUCE #'APPEND ; (SLOT-VALUE WEBLOCKS::W 'METABANG.CL-CONTAINERS:CHILDREN) ; :FROM-END T :KEY #'CDR)))) ; --> EVAL-WHEN DEFGENERIC PROGN SB-PCL::SET-INITIAL-METHODS ; --> SB-PCL::SET-INITIAL-METHODS LIST DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS::WIDGET-CHILDREN (T)) ; (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::W &OPTIONAL TYPE) ; (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-C::CURRENT-DEFMETHOD WEBLOCKS::WIDGET-CHILDREN NIL (T) ; (WEBLOCKS::W &OPTIONAL TYPE))) ; (DECLARE ; (SB-C::SOURCE-FORM ; (LAMBDA (WEBLOCKS::W &OPTIONAL TYPE) ; "NIL unless defined otherwise." ; NIL))) ; (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::W)) ; (DECLARE (TYPE T WEBLOCKS::W)) ; (DECLARE (IGNORABLE WEBLOCKS::W)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::W) ; SB-PCL::.NEXT-METHOD-CALL. ; (WEBLOCKS::W) NIL ; :CALL-NEXT-METHOD-P NIL :SETQ-P ; NIL :PARAMETERS-SETQD NIL ; :METHOD-CELL (#:METHOD-CELL) ; ...) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ; caught STYLE-WARNING: ; The variable TYPE is defined but never used. ; in: DEFGENERIC RENDER-WIDGET-CHILDREN ; (CLOSER-MOP:DEFGENERIC WEBLOCKS::RENDER-WIDGET-CHILDREN ; (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS) ; (:DOCUMENTATION "Renders the widget's children.") ; (:METHOD (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS) ; (WARN ; "Cannot update the widget children of ~S because it is not a widget." ; WEBLOCKS::OBJ)) ; (:METHOD ((WEBLOCKS::OBJ WEBLOCKS::WIDGET) &REST WEBLOCKS::ARGS) ; "Render all children. Specialize this method if you only want ; to render widgets of a certain type." ; (MAPC ; (LAMBDA (WEBLOCKS::CHILD) ; (APPLY #'WEBLOCKS::RENDER-WIDGET WEBLOCKS::CHILD WEBLOCKS::ARGS)) ; (WEBLOCKS::WIDGET-CHILDREN WEBLOCKS::OBJ)))) ; --> EVAL-WHEN DEFGENERIC PROGN SB-PCL::SET-INITIAL-METHODS ; --> SB-PCL::SET-INITIAL-METHODS LIST DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS::RENDER-WIDGET-CHILDREN ; (T)) ; (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST ; WEBLOCKS::ARGS) ; (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-C::CURRENT-DEFMETHOD WEBLOCKS::RENDER-WIDGET-CHILDREN NIL (T) ; (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS))) ; (DECLARE ; (SB-C::SOURCE-FORM ; (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS) ; (WARN ; "Cannot update the widget children of ~S because it is not a widget." ; WEBLOCKS::OBJ)))) ; (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ)) ; (DECLARE (TYPE T WEBLOCKS::OBJ)) ; (DECLARE (IGNORABLE WEBLOCKS::OBJ)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ) ; SB-PCL::.NEXT-METHOD-CALL. ; (WEBLOCKS::OBJ) NIL ; :CALL-NEXT-METHOD-P NIL :SETQ-P ; NIL :PARAMETERS-SETQD NIL ; :METHOD-CELL (#:METHOD-CELL) ; ...) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ; caught STYLE-WARNING: ; The variable ARGS is defined but never used. ; in: DEFMETHOD MARK-DIRTY ; (WEBLOCKS::PUTP NIL WEBLOCKS::PUTP-SUPPLIED) ; ; caught STYLE-WARNING: ; The variable PUTP is defined but never used. ; in: DEFUN COPY-WIDGET-TREE ; (MAPC #'WEBLOCKS::COPY-WIDGET-TREE WEBLOCKS::SLOTNAME) ; ; caught WARNING: ; Derived type of #:G2 is (MEMBER METABANG.CL-CONTAINERS:CHILDREN), conflicting with its asserted type LIST. ; See also: ; The SBCL Manual, Node "Handling of Types" ; in: DEFMETHOD RENDER-WIDGET-BODY ; (CLOSER-MOP:DEFMETHOD WEBLOCKS::RENDER-WIDGET-BODY ; :AROUND ; ((WEBLOCKS::WIDGET WEBLOCKS::WIDGET) &REST WEBLOCKS::ARGS) ; "Record profiling information." ; (WEBLOCKS:WEBAPP-UPDATE-THREAD-STATUS ; (CONCATENATE 'STRING "rendering widget " ; (PRINC-TO-STRING WEBLOCKS::WIDGET))) ; (WEBLOCKS:TIMING (CONCATENATE 'STRING "render-widget " ; (PRINC-TO-STRING WEBLOCKS::WIDGET)) ; (CALL-NEXT-METHOD))) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LABELS LET SB-PCL::BIND-ARGS ; ==> ; (LET* ((SB-PCL::.ARGS-TAIL. SB-PCL::.REST-ARG.) ; (WEBLOCKS::ARGS SB-PCL::.ARGS-TAIL.) ; (SB-PCL::.DUMMY0.)) ; (DECLARE (IGNORABLE SB-PCL::.ARGS-TAIL. SB-PCL::.DUMMY0.)) ; (DECLARE (SB-PCL::%CLASS WEBLOCKS::WIDGET WEBLOCKS::WIDGET)) ; (LOCALLY ; (DECLARE (DISABLE-PACKAGE-LOCKS SB-PCL::%PARAMETER-BINDING-MODIFIED)) ; (SYMBOL-MACROLET ((SB-PCL::%PARAMETER-BINDING-MODIFIED #)) ; (DECLARE (ENABLE-PACKAGE-LOCKS SB-PCL::%PARAMETER-BINDING-MODIFIED)) ; (BLOCK WEBLOCKS::RENDER-WIDGET-BODY ; (WEBLOCKS:WEBAPP-UPDATE-THREAD-STATUS #) ; (LET # ; #))))) ; ; caught STYLE-WARNING: ; The variable ARGS is defined but never used. ; (WEBLOCKS:TIMING (CONCATENATE 'STRING "render-widget " ; (PRINC-TO-STRING WEBLOCKS::WIDGET)) ; (CALL-NEXT-METHOD)) ; --> LET PROG1 LET PROGN LET* ; ==> ; (/ (- #:G2 #:G0) INTERNAL-TIME-UNITS-PER-SECOND) ; ; note: unable to optimize due to type uncertainty: The result is a (VALUES (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000) &OPTIONAL), not a (VALUES INTEGER &REST T). ; ==> ; (/ (- #:G3 #:G1) INTERNAL-TIME-UNITS-PER-SECOND) ; ; note: unable to optimize due to type uncertainty: The result is a (VALUES (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000) &OPTIONAL), not a (VALUES INTEGER &REST T). ; --> LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; etc. Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=311747 "main thread" RUNNING {1200F08003}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "weblocks" "src" "widgets" "widget" "widget"> Backtrace for: #<SB-THREAD:THREAD tid=311747 "main thread" RUNNING {1200F08003}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {121BD73573}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {121BD73573}>) 2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {121BD73573}>) 3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks" "src" "widgets" "widget" "widget">))) 4: (UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks" "src" "widgets" "widget" "widget">))) 5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks" "src" "widgets" "widget" "widget">) 6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 7: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks" "src" "widgets" "widget" "widget">) [fast-method] 8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<unknown pointer object, lowtag=#x3 {120469CD73}>) [fast-method] 9: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT)) 10: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<unknown pointer object, lowtag=#x3 {120469CD73}>) [fast-method] 11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-clsql-demo"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method] 12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-clsql-demo">) 13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-clsql-demo">) [fast-method] 15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "weblocks-clsql-demo") 16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "weblocks-clsql-demo") [fast-method] 18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {12046AB74B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL) 19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {120466A74B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL) 21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "weblocks-clsql-demo") [fast-method] 22: (DEPCHECK::COMPUTE-DEPENDENCIES "weblocks-clsql-demo" "weblocks-clsql-demo") 23: (DEPCHECK::MAGIC "weblocks-clsql-demo" "weblocks-clsql-demo" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-RrrouU51/depcheck-win.txt") 24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "weblocks-clsql-demo" "weblocks-clsql-demo" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-RrrouU51/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-RrrouU51/depcheck-fail.txt")) 25: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp")) 26: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP)) 27: ((FLET "WITHOUT-INTERRUPTS-BODY-3" :IN SB-IMPL::START-LISP)) 28: (SB-IMPL::%START-LISP) unhandled condition in --disable-debugger mode, quitting ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; caught 1 WARNING condition ; caught 4 STYLE-WARNING conditions ; printed 4 notes
WARNING: redefining UIOP/PACKAGE:FIND-PACKAGE* in DEFUN WARNING: redefining UIOP/PACKAGE:FIND-SYMBOL* in DEFUN WARNING: redefining UIOP/PACKAGE:SYMBOL-CALL in DEFUN WARNING: redefining UIOP/PACKAGE:INTERN* in DEFUN WARNING: redefining UIOP/PACKAGE:EXPORT* in DEFUN WARNING: redefining UIOP/PACKAGE:IMPORT* in DEFUN WARNING: redefining UIOP/PACKAGE:SHADOWING-IMPORT* in DEFUN WARNING: redefining UIOP/PACKAGE:SHADOW* in DEFUN WARNING: redefining UIOP/PACKAGE:MAKE-SYMBOL* in DEFUN WARNING: redefining UIOP/PACKAGE:UNINTERN* in DEFUN WARNING: redefining UIOP/PACKAGE:SYMBOL-SHADOWING-P in DEFUN WARNING: redefining UIOP/PACKAGE:HOME-PACKAGE-P in DEFUN WARNING: redefining UIOP/PACKAGE:SYMBOL-PACKAGE-NAME in DEFUN WARNING: redefining UIOP/PACKAGE:STANDARD-COMMON-LISP-SYMBOL-P in DEFUN WARNING: redefining UIOP/PACKAGE:REIFY-PACKAGE in DEFUN WARNING: redefining UIOP/PACKAGE:UNREIFY-PACKAGE in DEFUN WARNING: redefining UIOP/PACKAGE:REIFY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE:UNREIFY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::RECORD-FISHY in DEFUN WARNING: redefining UIOP/PACKAGE::WHEN-PACKAGE-FISHINESS in DEFMACRO WARNING: redefining UIOP/PACKAGE::NOTE-PACKAGE-FISHINESS in DEFMACRO WARNING: redefining UIOP/PACKAGE::SET-DUMMY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::MAKE-DUMMY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::DUMMY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::GET-DUMMY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE:NUKE-SYMBOL-IN-PACKAGE in DEFUN WARNING: redefining UIOP/PACKAGE:NUKE-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE:REHOME-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE:ENSURE-PACKAGE-UNUSED in DEFUN WARNING: redefining UIOP/PACKAGE:DELETE-PACKAGE* in DEFUN WARNING: redefining UIOP/PACKAGE:PACKAGE-NAMES in DEFUN WARNING: redefining UIOP/PACKAGE:PACKAGES-FROM-NAMES in DEFUN WARNING: redefining UIOP/PACKAGE:FRESH-PACKAGE-NAME in DEFUN WARNING: redefining UIOP/PACKAGE:RENAME-PACKAGE-AWAY in DEFUN WARNING: redefining UIOP/PACKAGE:PACKAGE-DEFINITION-FORM in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-SHADOWING-IMPORT in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-IMPORTED in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-IMPORT in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-INHERITED in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-MIX in DEFUN WARNING: redefining UIOP/PACKAGE::RECYCLE-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::SYMBOL-RECYCLED-P in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORTED-TO-USER in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORTED in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORT in DEFUN WARNING: redefining UIOP/PACKAGE::INSTALL-PACKAGE-LOCAL-NICKNAMES in DEFUN WARNING: redefining UIOP/PACKAGE:ENSURE-PACKAGE in DEFUN WARNING: redefining UIOP/PACKAGE:PARSE-DEFINE-PACKAGE-FORM in DEFUN WARNING: redefining UIOP/PACKAGE:DEFINE-PACKAGE in DEFMACRO WARNING: redefining UIOP/COMMON-LISP::FROB-SUBSTRINGS in DEFUN WARNING: redefining UIOP/COMMON-LISP::COMPATFMT in DEFMACRO WARNING: redefining UIOP/UTILITY::ENSURE-FUNCTION-NOTINLINE in DEFUN WARNING: redefining UIOP/UTILITY:WITH-UPGRADABILITY in DEFMACRO WARNING: redefining UIOP/UTILITY:UIOP-DEBUG in DEFMACRO WARNING: redefining UIOP/UTILITY:LOAD-UIOP-DEBUG-UTILITY in DEFUN WARNING: redefining UIOP/UTILITY:NEST in DEFMACRO WARNING: redefining UIOP/UTILITY:IF-LET in DEFMACRO WARNING: redefining UIOP/UTILITY:PARSE-BODY in DEFUN WARNING: redefining UIOP/UTILITY:WHILE-COLLECTING in DEFMACRO WARNING: redefining UIOP/UTILITY:APPENDF in DEFMACRO WARNING: redefining UIOP/UTILITY:LENGTH=N-P in DEFUN WARNING: redefining UIOP/UTILITY:ENSURE-LIST in DEFUN WARNING: redefining UIOP/UTILITY:REMOVE-PLIST-KEY in DEFUN WARNING: redefining UIOP/UTILITY:REMOVE-PLIST-KEYS in DEFUN WARNING: redefining UIOP/UTILITY:EMPTYP in DEFUN WARNING: redefining UIOP/UTILITY:CHARACTER-TYPE-INDEX in DEFUN WARNING: redefining UIOP/UTILITY:BASE-STRING-P in DEFUN WARNING: redefining UIOP/UTILITY:STRINGS-COMMON-ELEMENT-TYPE in DEFUN WARNING: redefining UIOP/UTILITY:REDUCE/STRCAT in DEFUN WARNING: redefining UIOP/UTILITY:STRCAT in DEFUN WARNING: redefining UIOP/UTILITY:FIRST-CHAR in DEFUN WARNING: redefining UIOP/UTILITY:LAST-CHAR in DEFUN WARNING: redefining UIOP/UTILITY:SPLIT-STRING in DEFUN WARNING: redefining UIOP/UTILITY:STRING-PREFIX-P in DEFUN WARNING: redefining UIOP/UTILITY:STRING-SUFFIX-P in DEFUN WARNING: redefining UIOP/UTILITY:STRING-ENCLOSED-P in DEFUN WARNING: redefining UIOP/UTILITY:STRIPLN in DEFUN WARNING: redefining UIOP/UTILITY:STANDARD-CASE-SYMBOL-NAME in DEFUN WARNING: redefining UIOP/UTILITY:FIND-STANDARD-CASE-SYMBOL in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMP< in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMPS< in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMP*< in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMP<= in DEFUN WARNING: redefining UIOP/UTILITY:EARLIER-TIMESTAMP in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMPS-EARLIEST in DEFUN WARNING: redefining UIOP/UTILITY:EARLIEST-TIMESTAMP in DEFUN WARNING: redefining UIOP/UTILITY:LATER-TIMESTAMP in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMPS-LATEST in DEFUN WARNING: redefining UIOP/UTILITY:LATEST-TIMESTAMP in DEFUN WARNING: redefining UIOP/UTILITY:LATEST-TIMESTAMP-F in DEFMACRO WARNING: redefining UIOP/UTILITY:ENSURE-FUNCTION in DEFUN WARNING: redefining UIOP/UTILITY:ACCESS-AT in DEFUN WARNING: redefining UIOP/UTILITY:ACCESS-AT-COUNT in DEFUN WARNING: redefining UIOP/UTILITY:CALL-FUNCTION in DEFUN WARNING: redefining UIOP/UTILITY:CALL-FUNCTIONS in DEFUN WARNING: redefining UIOP/UTILITY:REGISTER-HOOK-FUNCTION in DEFUN WARNING: redefining UIOP/UTILITY:COERCE-CLASS in DEFUN WARNING: redefining UIOP/UTILITY:ENSURE-GETHASH in DEFUN WARNING: redefining UIOP/UTILITY:LIST-TO-HASH-SET in DEFUN WARNING: redefining UIOP/UTILITY:LEXICOGRAPHIC< in DEFUN WARNING: redefining UIOP/UTILITY:LEXICOGRAPHIC<= in DEFUN WARNING: redefining UIOP/UTILITY:STYLE-WARN in DEFUN WARNING: redefining UIOP/UTILITY:MATCH-CONDITION-P in DEFUN WARNING: redefining UIOP/UTILITY:MATCH-ANY-CONDITION-P in DEFUN WARNING: redefining UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS in DEFUN WARNING: redefining UIOP/UTILITY:WITH-MUFFLED-CONDITIONS in DEFMACRO WARNING: redefining UIOP/UTILITY:NOT-IMPLEMENTED-ERROR in DEFUN WARNING: redefining UIOP/UTILITY:PARAMETER-ERROR in DEFUN WARNING: redefining UIOP/UTILITY:BOOLEAN-TO-FEATURE-EXPRESSION in DEFUN WARNING: redefining UIOP/UTILITY:SYMBOL-TEST-TO-FEATURE-EXPRESSION in DEFUN WARNING: redefining UIOP/VERSION:UNPARSE-VERSION in DEFUN WARNING: redefining UIOP/VERSION:PARSE-VERSION in DEFUN WARNING: redefining UIOP/VERSION:NEXT-VERSION in DEFUN WARNING: redefining UIOP/VERSION:VERSION< in DEFUN WARNING: redefining UIOP/VERSION:VERSION<= in DEFUN WARNING: redefining UIOP/VERSION::DEPRECATED-FUNCTION-CONDITION-KIND in DEFUN WARNING: redefining PRINT-OBJECT (#<SB-PCL::CONDITION-CLASS UIOP/VERSION:DEPRECATED-FUNCTION-CONDITION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining UIOP/VERSION::NOTIFY-DEPRECATED-FUNCTION in DEFUN WARNING: redefining UIOP/VERSION:VERSION-DEPRECATION in DEFUN WARNING: redefining UIOP/VERSION:WITH-DEPRECATION in DEFMACRO WARNING: redefining UIOP/OS:FEATUREP in DEFUN WARNING: redefining UIOP/OS:OS-MACOSX-P in DEFUN WARNING: redefining UIOP/OS:OS-UNIX-P in DEFUN WARNING: redefining UIOP/OS:OS-WINDOWS-P in DEFUN WARNING: redefining UIOP/OS:OS-GENERA-P in DEFUN WARNING: redefining UIOP/OS::OS-OLDMAC-P in DEFUN WARNING: redefining UIOP/OS::OS-HAIKU-P in DEFUN WARNING: redefining UIOP/OS::OS-MEZZANO-P in DEFUN WARNING: redefining UIOP/OS:DETECT-OS in DEFUN WARNING: redefining UIOP/OS:OS-COND in DEFMACRO WARNING: redefining UIOP/OS:GETENV in DEFUN WARNING: redefining UIOP/OS:GETENVP in DEFUN WARNING: redefining UIOP/OS::FIRST-FEATURE in DEFUN WARNING: redefining UIOP/OS:IMPLEMENTATION-TYPE in DEFUN WARNING: redefining UIOP/OS:OPERATING-SYSTEM in DEFUN WARNING: redefining UIOP/OS:ARCHITECTURE in DEFUN WARNING: redefining UIOP/OS:LISP-VERSION-STRING in DEFUN WARNING: redefining UIOP/OS:IMPLEMENTATION-IDENTIFIER in DEFUN WARNING: redefining UIOP/OS:HOSTNAME in DEFUN WARNING: redefining UIOP/OS:GETCWD in DEFUN WARNING: redefining UIOP/OS:CHDIR in DEFUN WARNING: redefining UIOP/OS:READ-NULL-TERMINATED-STRING in DEFUN WARNING: redefining UIOP/OS:READ-LITTLE-ENDIAN in DEFUN WARNING: redefining UIOP/OS:PARSE-FILE-LOCATION-INFO in DEFUN WARNING: redefining UIOP/OS:PARSE-WINDOWS-SHORTCUT in DEFUN WARNING: redefining UIOP/PATHNAME:NORMALIZE-PATHNAME-DIRECTORY-COMPONENT in DEFUN WARNING: redefining UIOP/PATHNAME:DENORMALIZE-PATHNAME-DIRECTORY-COMPONENT in DEFUN WARNING: redefining UIOP/PATHNAME:MERGE-PATHNAME-DIRECTORY-COMPONENTS in DEFUN WARNING: redefining UIOP/PATHNAME:MAKE-PATHNAME* in DEFUN WARNING: redefining UIOP/PATHNAME:MAKE-PATHNAME-COMPONENT-LOGICAL in DEFUN WARNING: redefining UIOP/PATHNAME:MAKE-PATHNAME-LOGICAL in DEFUN WARNING: redefining UIOP/PATHNAME:MERGE-PATHNAMES* in DEFUN WARNING: redefining UIOP/PATHNAME:LOGICAL-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:PHYSICAL-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:PHYSICALIZE-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:NIL-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:WITH-PATHNAME-DEFAULTS in DEFMACRO WARNING: redefining UIOP/PATHNAME:PATHNAME-EQUAL in DEFUN WARNING: redefining UIOP/PATHNAME:ABSOLUTE-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:RELATIVE-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:HIDDEN-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:FILE-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:PATHNAME-DIRECTORY-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:PATHNAME-PARENT-DIRECTORY-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:DIRECTORY-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:ENSURE-DIRECTORY-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:SPLIT-UNIX-NAMESTRING-DIRECTORY-COMPONENTS in DEFUN WARNING: redefining UIOP/PATHNAME:SPLIT-NAME-TYPE in DEFUN WARNING: redefining UIOP/PATHNAME:PARSE-UNIX-NAMESTRING in DEFUN WARNING: redefining UIOP/PATHNAME:UNIX-NAMESTRING in DEFUN WARNING: redefining UIOP/PATHNAME:SUBPATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:SUBPATHNAME* in DEFUN WARNING: redefining UIOP/PATHNAME:PATHNAME-ROOT in DEFUN WARNING: redefining UIOP/PATHNAME:PATHNAME-HOST-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:ENSURE-ABSOLUTE-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:SUBPATHP in DEFUN WARNING: redefining UIOP/PATHNAME:ENOUGH-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:CALL-WITH-ENOUGH-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:WITH-ENOUGH-PATHNAME in DEFMACRO WARNING: redefining UIOP/PATHNAME:WILDEN in DEFUN WARNING: redefining UIOP/PATHNAME:RELATIVIZE-DIRECTORY-COMPONENT in DEFUN WARNING: redefining UIOP/PATHNAME:RELATIVIZE-PATHNAME-DIRECTORY in DEFUN WARNING: redefining UIOP/PATHNAME:DIRECTORY-SEPARATOR-FOR-HOST in DEFUN WARNING: redefining UIOP/PATHNAME:DIRECTORIZE-PATHNAME-HOST-DEVICE in DEFUN WARNING: redefining UIOP/PATHNAME:TRANSLATE-PATHNAME* in DEFUN WARNING: redefining UIOP/FILESYSTEM:NATIVE-NAMESTRING in DEFUN WARNING: redefining UIOP/FILESYSTEM:PARSE-NATIVE-NAMESTRING in DEFUN WARNING: redefining UIOP/FILESYSTEM:TRUENAME* in DEFUN WARNING: redefining UIOP/FILESYSTEM:SAFE-FILE-WRITE-DATE in DEFUN WARNING: redefining UIOP/FILESYSTEM:PROBE-FILE* in DEFUN WARNING: redefining UIOP/FILESYSTEM:DIRECTORY-EXISTS-P in DEFUN WARNING: redefining UIOP/FILESYSTEM:FILE-EXISTS-P in DEFUN WARNING: redefining UIOP/FILESYSTEM:DIRECTORY* in DEFUN WARNING: redefining UIOP/FILESYSTEM:FILTER-LOGICAL-DIRECTORY-RESULTS in DEFUN WARNING: redefining UIOP/FILESYSTEM:DIRECTORY-FILES in DEFUN WARNING: redefining UIOP/FILESYSTEM:SUBDIRECTORIES in DEFUN WARNING: redefining UIOP/FILESYSTEM:COLLECT-SUB*DIRECTORIES in DEFUN WARNING: redefining UIOP/FILESYSTEM:TRUENAMIZE in DEFUN WARNING: redefining UIOP/FILESYSTEM:RESOLVE-SYMLINKS in DEFUN WARNING: redefining UIOP/FILESYSTEM:RESOLVE-SYMLINKS* in DEFUN WARNING: redefining UIOP/PATHNAME:ENSURE-PATHNAME in DEFUN WARNING: redefining UIOP/FILESYSTEM:GET-PATHNAME-DEFAULTS in DEFUN WARNING: redefining UIOP/FILESYSTEM:CALL-WITH-CURRENT-DIRECTORY in DEFUN WARNING: redefining UIOP/FILESYSTEM:WITH-CURRENT-DIRECTORY in DEFMACRO WARNING: redefining UIOP/FILESYSTEM:INTER-DIRECTORY-SEPARATOR in DEFUN WARNING: redefining UIOP/FILESYSTEM:SPLIT-NATIVE-PATHNAMES-STRING in DEFUN WARNING: redefining UIOP/FILESYSTEM:GETENV-PATHNAME in DEFUN WARNING: redefining UIOP/FILESYSTEM:GETENV-PATHNAMES in DEFUN WARNING: redefining UIOP/FILESYSTEM:GETENV-ABSOLUTE-DIRECTORY in DEFUN WARNING: redefining UIOP/FILESYSTEM:GETENV-ABSOLUTE-DIRECTORIES in DEFUN WARNING: redefining UIOP/FILESYSTEM:LISP-IMPLEMENTATION-DIRECTORY in DEFUN WARNING: redefining UIOP/FILESYSTEM:LISP-IMPLEMENTATION-PATHNAME-P in DEFUN WARNING: redefining UIOP/FILESYSTEM:ENSURE-ALL-DIRECTORIES-EXIST in DEFUN WARNING: redefining UIOP/FILESYSTEM:DELETE-FILE-IF-EXISTS in DEFUN WARNING: redefining UIOP/FILESYSTEM:RENAME-FILE-OVERWRITING-TARGET in DEFUN WARNING: redefining UIOP/FILESYSTEM:DELETE-EMPTY-DIRECTORY in DEFUN WARNING: redefining UIOP/FILESYSTEM:DELETE-DIRECTORY-TREE in DEFUN WARNING: redefining UIOP/STREAM:SETUP-STDIN in DEFUN WARNING: redefining UIOP/STREAM:SETUP-STDOUT in DEFUN WARNING: redefining UIOP/STREAM:SETUP-STDERR in DEFUN WARNING: redefining UIOP/STREAM:ALWAYS-DEFAULT-ENCODING in DEFUN WARNING: redefining UIOP/STREAM:DETECT-ENCODING in DEFUN WARNING: redefining UIOP/STREAM:DEFAULT-ENCODING-EXTERNAL-FORMAT in DEFUN WARNING: redefining UIOP/STREAM:ENCODING-EXTERNAL-FORMAT in DEFUN WARNING: redefining UIOP/STREAM:WITH-SAFE-IO-SYNTAX in DEFMACRO WARNING: redefining UIOP/STREAM:CALL-WITH-SAFE-IO-SYNTAX in DEFUN WARNING: redefining UIOP/STREAM:SAFE-READ-FROM-STRING in DEFUN WARNING: redefining UIOP/STREAM:CALL-WITH-OUTPUT-FILE in DEFUN WARNING: redefining UIOP/STREAM:WITH-OUTPUT-FILE in DEFMACRO WARNING: redefining UIOP/STREAM::CALL-WITH-OUTPUT in DEFUN WARNING: redefining UIOP/STREAM:OUTPUT-STRING in DEFUN WARNING: redefining UIOP/STREAM:CALL-WITH-INPUT-FILE in DEFUN WARNING: redefining UIOP/STREAM:WITH-INPUT-FILE in DEFMACRO WARNING: redefining UIOP/STREAM::CALL-WITH-INPUT in DEFUN WARNING: redefining UIOP/STREAM:WITH-INPUT in DEFMACRO WARNING: redefining UIOP/STREAM:INPUT-STRING in DEFUN WARNING: redefining UIOP/STREAM:NULL-DEVICE-PATHNAME in DEFUN WARNING: redefining UIOP/STREAM:CALL-WITH-NULL-INPUT in DEFUN WARNING: redefining UIOP/STREAM:WITH-NULL-INPUT in DEFMACRO WARNING: redefining UIOP/STREAM:CALL-WITH-NULL-OUTPUT in DEFUN WARNING: redefining UIOP/STREAM:WITH-NULL-OUTPUT in DEFMACRO WARNING: redefining UIOP/STREAM:FINISH-OUTPUTS in DEFUN WARNING: redefining UIOP/STREAM:FORMAT! in DEFUN WARNING: redefining UIOP/STREAM:SAFE-FORMAT! in DEFUN WARNING: redefining UIOP/STREAM:COPY-STREAM-TO-STREAM in DEFUN WARNING: redefining UIOP/STREAM:CONCATENATE-FILES in DEFUN WARNING: redefining UIOP/STREAM:COPY-FILE in DEFUN WARNING: redefining UIOP/STREAM:SLURP-STREAM-STRING in DEFUN WARNING: redefining UIOP/STREAM:SLURP-STREAM-LINES in DEFUN WARNING: redefining UIOP/STREAM:SLURP-STREAM-LINE in DEFUN WARNING: redefining UIOP/STREAM:SLURP-STREAM-FORMS in DEFUN WARNING: redefining UIOP/STREAM:SLURP-STREAM-FORM in DEFUN WARNING: redefining UIOP/STREAM:READ-FILE-STRING in DEFUN WARNING: redefining UIOP/STREAM:READ-FILE-LINES in DEFUN WARNING: redefining UIOP/STREAM:READ-FILE-LINE in DEFUN WARNING: redefining UIOP/STREAM:READ-FILE-FORMS in DEFUN WARNING: redefining UIOP/STREAM:READ-FILE-FORM in DEFUN WARNING: redefining UIOP/STREAM:SAFE-READ-FILE-LINE in DEFUN WARNING: redefining UIOP/STREAM:SAFE-READ-FILE-FORM in DEFUN WARNING: redefining UIOP/STREAM:EVAL-INPUT in DEFUN WARNING: redefining UIOP/STREAM:EVAL-THUNK in DEFUN WARNING: redefining UIOP/STREAM:STANDARD-EVAL-THUNK in DEFUN WARNING: redefining UIOP/STREAM:PRINTLN in DEFUN WARNING: redefining UIOP/STREAM:WRITELN in DEFUN WARNING: redefining UIOP/STREAM:DEFAULT-TEMPORARY-DIRECTORY in DEFUN WARNING: redefining UIOP/STREAM:TEMPORARY-DIRECTORY in DEFUN WARNING: redefining UIOP/STREAM:SETUP-TEMPORARY-DIRECTORY in DEFUN WARNING: redefining UIOP/STREAM:CALL-WITH-TEMPORARY-FILE in DEFUN WARNING: redefining UIOP/STREAM:WITH-TEMPORARY-FILE in DEFMACRO WARNING: redefining UIOP/STREAM::GET-TEMPORARY-FILE in DEFUN WARNING: redefining UIOP/STREAM:ADD-PATHNAME-SUFFIX in DEFUN WARNING: redefining UIOP/STREAM:TMPIZE-PATHNAME in DEFUN WARNING: redefining UIOP/STREAM:CALL-WITH-STAGING-PATHNAME in DEFUN WARNING: redefining UIOP/STREAM:WITH-STAGING-PATHNAME in DEFMACRO WARNING: redefining UIOP/STREAM:FILE-STREAM-P in DEFUN WARNING: redefining UIOP/STREAM:FILE-OR-SYNONYM-STREAM-P in DEFUN WARNING: redefining UIOP/IMAGE:QUIT in DEFUN WARNING: redefining UIOP/IMAGE:DIE in DEFUN WARNING: redefining UIOP/IMAGE:RAW-PRINT-BACKTRACE in DEFUN WARNING: redefining UIOP/IMAGE:PRINT-BACKTRACE in DEFUN WARNING: redefining UIOP/IMAGE:PRINT-CONDITION-BACKTRACE in DEFUN WARNING: redefining UIOP/IMAGE:FATAL-CONDITION-P in DEFUN WARNING: redefining UIOP/IMAGE:HANDLE-FATAL-CONDITION in DEFUN WARNING: redefining UIOP/IMAGE:CALL-WITH-FATAL-CONDITION-HANDLER in DEFUN WARNING: redefining UIOP/IMAGE:WITH-FATAL-CONDITION-HANDLER in DEFMACRO WARNING: redefining UIOP/IMAGE:SHELL-BOOLEAN-EXIT in DEFUN WARNING: redefining UIOP/IMAGE:REGISTER-IMAGE-RESTORE-HOOK in DEFUN WARNING: redefining UIOP/IMAGE:REGISTER-IMAGE-DUMP-HOOK in DEFUN WARNING: redefining UIOP/IMAGE:CALL-IMAGE-RESTORE-HOOK in DEFUN WARNING: redefining UIOP/IMAGE:CALL-IMAGE-DUMP-HOOK in DEFUN WARNING: redefining UIOP/IMAGE:RAW-COMMAND-LINE-ARGUMENTS in DEFUN WARNING: redefining UIOP/IMAGE:COMMAND-LINE-ARGUMENTS in DEFUN WARNING: redefining UIOP/IMAGE:ARGV0 in DEFUN WARNING: redefining UIOP/IMAGE:SETUP-COMMAND-LINE-ARGUMENTS in DEFUN WARNING: redefining UIOP/IMAGE:RESTORE-IMAGE in DEFUN WARNING: redefining UIOP/IMAGE:DUMP-IMAGE in DEFUN WARNING: redefining UIOP/IMAGE:CREATE-IMAGE in DEFUN WARNING: redefining UIOP/LISP-BUILD::SB-GROVEL-UNKNOWN-CONSTANT-CONDITION-P in DEFUN WARNING: redefining UIOP/LISP-BUILD:CALL-WITH-MUFFLED-COMPILER-CONDITIONS in DEFUN WARNING: redefining UIOP/LISP-BUILD:WITH-MUFFLED-COMPILER-CONDITIONS in DEFMACRO WARNING: redefining UIOP/LISP-BUILD:CALL-WITH-MUFFLED-LOADER-CONDITIONS in DEFUN WARNING: redefining UIOP/LISP-BUILD:WITH-MUFFLED-LOADER-CONDITIONS in DEFMACRO WARNING: redefining UIOP/LISP-BUILD:CHECK-LISP-COMPILE-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS in DEFUN WARNING: redefining UIOP/LISP-BUILD:REIFY-SIMPLE-SEXP in DEFUN WARNING: redefining UIOP/LISP-BUILD:UNREIFY-SIMPLE-SEXP in DEFUN WARNING: redefining UIOP/LISP-BUILD::REIFY-UNDEFINED-WARNING in DEFUN WARNING: redefining UIOP/LISP-BUILD:REIFY-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:UNREIFY-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:RESET-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:SAVE-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:WARNINGS-FILE-TYPE in DEFUN WARNING: redefining UIOP/LISP-BUILD:ENABLE-DEFERRED-WARNINGS-CHECK in DEFUN WARNING: redefining UIOP/LISP-BUILD:DISABLE-DEFERRED-WARNINGS-CHECK in DEFUN WARNING: redefining UIOP/LISP-BUILD:WARNINGS-FILE-P in DEFUN WARNING: redefining UIOP/LISP-BUILD:CHECK-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD::CALL-WITH-SAVED-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:WITH-SAVED-DEFERRED-WARNINGS in DEFMACRO WARNING: redefining UIOP/LISP-BUILD:CURRENT-LISP-FILE-PATHNAME in DEFUN WARNING: redefining UIOP/LISP-BUILD:LOAD-PATHNAME in DEFUN WARNING: redefining UIOP/LISP-BUILD:LISPIZE-PATHNAME in DEFUN WARNING: redefining UIOP/LISP-BUILD:COMPILE-FILE-TYPE in DEFUN WARNING: redefining UIOP/LISP-BUILD:CALL-AROUND-HOOK in DEFUN WARNING: redefining UIOP/LISP-BUILD:COMPILE-FILE-PATHNAME* in DEFUN WARNING: redefining UIOP/LISP-BUILD:COMPILE-FILE* in DEFUN WARNING: redefining UIOP/LISP-BUILD:LOAD* in DEFUN WARNING: redefining UIOP/LISP-BUILD:LOAD-FROM-STRING in DEFUN WARNING: redefining UIOP/LISP-BUILD:COMBINE-FASLS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::REQUIRES-ESCAPING-P in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-TOKEN in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::ESCAPE-WINDOWS-TOKEN-WITHIN-DOUBLE-QUOTES in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::EASY-WINDOWS-CHARACTER-P in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-WINDOWS-TOKEN in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::ESCAPE-SH-TOKEN-WITHIN-DOUBLE-QUOTES in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:EASY-SH-CHARACTER-P in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SH-TOKEN in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SHELL-TOKEN in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-COMMAND in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-WINDOWS-COMMAND in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SH-COMMAND in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SHELL-COMMAND in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%NORMALIZE-IO-SPECIFIER in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%INTERACTIVEP in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%SIGNAL-TO-EXIT-CODE in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%CODE-TO-STATUS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%HANDLE-IF-EXISTS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%HANDLE-IF-DOES-NOT-EXIST in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-ERROR-OUTPUT in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-INPUT in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-OUTPUT in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-PID in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%PROCESS-STATUS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-ALIVE-P in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:WAIT-PROCESS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%POSIX-SEND-SIGNAL in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:TERMINATE-PROCESS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:CLOSE-STREAMS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:LAUNCH-PROGRAM in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::CALL-STREAM-PROCESSOR in DEFUN WARNING: redefining UIOP/RUN-PROGRAM:SLURP-INPUT-STREAM in DEFGENERIC WARNING: redefining SLURP-INPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:FUNCTION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:CONS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:STREAM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :LINES> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :LINE> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :FORMS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :FORM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:NULL> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:PATHNAME> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining UIOP/RUN-PROGRAM:VOMIT-OUTPUT-STREAM in DEFGENERIC WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:FUNCTION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:CONS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:STREAM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:NULL> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:PATHNAME> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining UIOP/RUN-PROGRAM::%CHECK-RESULT in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%ACTIVE-IO-SPECIFIER-P in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%RUN-PROGRAM in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%CALL-WITH-PROGRAM-IO in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::PLACE-SETTER in DEFMACRO WARNING: redefining UIOP/RUN-PROGRAM::WITH-PROGRAM-INPUT in DEFMACRO WARNING: redefining UIOP/RUN-PROGRAM::WITH-PROGRAM-OUTPUT in DEFMACRO WARNING: redefining UIOP/RUN-PROGRAM::WITH-PROGRAM-ERROR-OUTPUT in DEFMACRO WARNING: redefining UIOP/RUN-PROGRAM::%USE-LAUNCH-PROGRAM in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%NORMALIZE-SYSTEM-COMMAND in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%REDIRECTED-SYSTEM-COMMAND in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%SYSTEM in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%USE-SYSTEM in DEFUN WARNING: redefining UIOP/RUN-PROGRAM:RUN-PROGRAM in DEFUN WARNING: redefining UIOP/CONFIGURATION:CONFIGURATION-INHERITANCE-DIRECTIVE-P in DEFUN WARNING: redefining UIOP/CONFIGURATION:REPORT-INVALID-FORM in DEFUN WARNING: redefining UIOP/CONFIGURATION:VALIDATE-CONFIGURATION-FORM in DEFUN WARNING: redefining UIOP/CONFIGURATION:VALIDATE-CONFIGURATION-FILE in DEFUN WARNING: redefining UIOP/CONFIGURATION:VALIDATE-CONFIGURATION-DIRECTORY in DEFUN WARNING: redefining UIOP/CONFIGURATION:RESOLVE-RELATIVE-LOCATION in DEFUN WARNING: redefining UIOP/CONFIGURATION:RESOLVE-ABSOLUTE-LOCATION in DEFUN WARNING: redefining UIOP/CONFIGURATION:RESOLVE-LOCATION in DEFUN WARNING: redefining UIOP/CONFIGURATION:LOCATION-DESIGNATOR-P in DEFUN WARNING: redefining UIOP/CONFIGURATION:LOCATION-FUNCTION-P in DEFUN WARNING: redefining UIOP/CONFIGURATION:REGISTER-CLEAR-CONFIGURATION-HOOK in DEFUN WARNING: redefining UIOP/CONFIGURATION:CLEAR-CONFIGURATION in DEFUN WARNING: redefining UIOP/CONFIGURATION:UPGRADE-CONFIGURATION in DEFUN WARNING: redefining UIOP/CONFIGURATION:GET-FOLDER-PATH in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-HOME in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-HOME in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-DIRS in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-DIRS in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-CACHE-HOME in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-RUNTIME-DIR in DEFUN WARNING: redefining UIOP/CONFIGURATION:SYSTEM-CONFIG-PATHNAMES in DEFUN WARNING: redefining UIOP/CONFIGURATION:FILTER-PATHNAME-SET in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-PATHNAMES in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-PATHNAMES in DEFUN WARNING: redefining UIOP/CONFIGURATION:FIND-PREFERRED-FILE in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-PATHNAME in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-PATHNAME in DEFUN WARNING: redefining UIOP/CONFIGURATION::COMPUTE-USER-CACHE in DEFUN WARNING: redefining UIOP/CONFIGURATION:UIOP-DIRECTORY in DEFUN WARNING: redefining UIOP/BACKWARD-DRIVER:COERCE-PATHNAME in DEFUN WARNING: redefining UIOP/CONFIGURATION:USER-CONFIGURATION-DIRECTORIES in DEFUN WARNING: redefining UIOP/CONFIGURATION:SYSTEM-CONFIGURATION-DIRECTORIES in DEFUN WARNING: redefining UIOP/CONFIGURATION:IN-FIRST-DIRECTORY in DEFUN WARNING: redefining UIOP/CONFIGURATION:IN-USER-CONFIGURATION-DIRECTORY in DEFUN WARNING: redefining UIOP/CONFIGURATION:IN-SYSTEM-CONFIGURATION-DIRECTORY in DEFUN WARNING: redefining UIOP/BACKWARD-DRIVER:VERSION-COMPATIBLE-P in DEFUN WARNING: redefining IRONCLAD:BLOCK-LENGTH in DEFGENERIC WARNING: redefining METABANG.UTILITIES:FIND-ALL in DEFUN ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20250706-git/src/utils/html-parts.lisp ; in: DEFUN UPDATE-CURRENT-HTML-PART-CHILDREN ; (GETHASH (WEBLOCKS-UTIL:MD5 WEBLOCKS-UTIL::VALUE) ; WEBLOCKS-UTIL::*PARTS-MD5-HASH*) ; ; note: deleting unreachable code ; (PUSH WEBLOCKS-UTIL::VALUE WEBLOCKS-UTIL::*CURRENT-HTML-PART-CHILDREN*) ; ; note: deleting unreachable code ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20250706-git/src/utils/templates.lisp ; in: DEFUN CALCULATE-TEMPLATE-PRIORITY ; (WEBLOCKS-UTIL::NAME (CAR WEBLOCKS-UTIL::TEMPLATE)) ; ; caught STYLE-WARNING: ; The variable NAME is defined but never used. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks-util" "src" "utils" "templates"> WARNING: redefining PRINT-OBJECT (#<STANDARD-CLASS COMMON-LISP:STANDARD-OBJECT> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20250706-git/src/utils/html.lisp ; in: DEFUN RENDER-LINK ; (DEFUN WEBLOCKS::RENDER-LINK ; (WEBLOCKS::ACTION PARENSCRIPT:LABEL ; &KEY (WEBLOCKS::AJAXP T) WEBLOCKS-STORES:ID CLASS WEBLOCKS::TITLE ; WEBLOCKS::RENDER-FN) ; #<(SIMPLE-ARRAY CHARACTER ; (636)) Renders an action into a href link. If AJAXP is true (the ; default), the link will be rendered in such a way that the action will ; be invoked via AJAX or will fall back to a regular request if ; JavaScrip... {121D8D2E3F}> ; (DECLARE (OPTIMIZE (SPEED 3) (SPACE 2))) ; (LET* ((*PRINT-PRETTY* NIL) ; (WEBLOCKS::ACTION-CODE ; (WEBLOCKS::FUNCTION-OR-ACTION->ACTION WEBLOCKS::ACTION)) ; (WEBLOCKS::URL (WEBLOCKS::MAKE-ACTION-URL WEBLOCKS::ACTION-CODE))) ; (WEBLOCKS-UTIL:RENDER-WT :HTML-LINK-WT NIL :ID WEBLOCKS-STORES:ID :CLASS ; CLASS :HREF WEBLOCKS::URL :ONCLICK ; (WHEN WEBLOCKS::AJAXP ; (FORMAT NIL ; "initiateAction(\"~A\", \"~A\"); return false;" ; WEBLOCKS::ACTION-CODE #)) ; :CONTENT ...) ; (WEBLOCKS::LOG-LINK PARENSCRIPT:LABEL WEBLOCKS::ACTION-CODE :ID ; WEBLOCKS-STORES:ID :CLASS CLASS))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA WEBLOCKS::RENDER-LINK ; (WEBLOCKS::ACTION PARENSCRIPT:LABEL &KEY (WEBLOCKS::AJAXP T) ; WEBLOCKS-STORES:ID CLASS WEBLOCKS::TITLE WEBLOCKS::RENDER-FN) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (636)) Renders an action into a href link. If AJAXP is true (the ; default), the link will be rendered in such a way that the action will ; be invoked via AJAX or will fall back to a regular request if ; JavaScrip... {121D8D2E3F}> ; (DECLARE (OPTIMIZE (SPEED 3) (SPACE 2))) ; (BLOCK WEBLOCKS::RENDER-LINK ; (LET* ((*PRINT-PRETTY* NIL) (WEBLOCKS::ACTION-CODE #) (WEBLOCKS::URL #)) ; (WEBLOCKS-UTIL:RENDER-WT :HTML-LINK-WT NIL :ID WEBLOCKS-STORES:ID ; :CLASS CLASS :HREF WEBLOCKS::URL :ONCLICK ; (WHEN WEBLOCKS::AJAXP #) :CONTENT ...) ; (WEBLOCKS::LOG-LINK PARENSCRIPT:LABEL WEBLOCKS::ACTION-CODE :ID ; WEBLOCKS-STORES:ID :CLASS CLASS)))) ; ; caught STYLE-WARNING: ; The variable TITLE is defined but never used. ; (FUNCALL ; (OR WEBLOCKS::RENDER-FN ; (LAMBDA (PARENSCRIPT:LABEL) (CL-WHO:HTM (CL-WHO:STR #)))) ; PARENSCRIPT:LABEL) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; in: DEFUN BUTTON-WT ; (DEFUN WEBLOCKS::BUTTON-WT ; ( ; &KEY WEBLOCKS::VALUE WEBLOCKS::NAME WEBLOCKS-STORES:ID CLASS ; WEBLOCKS::DISABLEDP WEBLOCKS::SUBMITP) ; (WEBLOCKS:WITH-HTML-TO-STRING ; (:INPUT :NAME WEBLOCKS::NAME :TYPE "submit" :ID WEBLOCKS-STORES:ID :CLASS ; CLASS :VALUE WEBLOCKS::VALUE :DISABLED ...))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA WEBLOCKS::BUTTON-WT ; (&KEY WEBLOCKS::VALUE WEBLOCKS::NAME WEBLOCKS-STORES:ID CLASS ; WEBLOCKS::DISABLEDP WEBLOCKS::SUBMITP) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK WEBLOCKS::BUTTON-WT ; (WEBLOCKS:WITH-HTML-TO-STRING ; (:INPUT :NAME WEBLOCKS::NAME :TYPE "submit" :ID WEBLOCKS-STORES:ID ; :CLASS CLASS :VALUE WEBLOCKS::VALUE :DISABLED ...)))) ; ; caught STYLE-WARNING: ; The variable SUBMITP is defined but never used. ; in: DEFUN RENDER-INPUT-FIELD ; (DEFUN WEBLOCKS::RENDER-INPUT-FIELD ; (TYPE WEBLOCKS::NAME WEBLOCKS::VALUE ; &KEY WEBLOCKS-STORES:ID CLASS WEBLOCKS::MAXLENGTH WEBLOCKS::STYLE ; METABANG.UTILITIES:SIZE WEBLOCKS::ONFOCUS WEBLOCKS::ONBLUR ; WEBLOCKS::TABINDEX ...) ; (WEBLOCKS-UTIL:RENDER-WT :INPUT-FIELD-WT NIL :ID WEBLOCKS-STORES:ID :TYPE ; TYPE :CLASS CLASS :NAME ; (WEBLOCKS:ATTRIBUTIZE-NAME WEBLOCKS::NAME) ; :DISABLED ...)) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA WEBLOCKS::RENDER-INPUT-FIELD ; (TYPE WEBLOCKS::NAME WEBLOCKS::VALUE &KEY WEBLOCKS-STORES:ID CLASS ; WEBLOCKS::MAXLENGTH WEBLOCKS::STYLE METABANG.UTILITIES:SIZE ; WEBLOCKS::ONFOCUS WEBLOCKS::ONBLUR WEBLOCKS::TABINDEX ...) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK WEBLOCKS::RENDER-INPUT-FIELD ; (WEBLOCKS-UTIL:RENDER-WT :INPUT-FIELD-WT NIL :ID WEBLOCKS-STORES:ID ; :TYPE TYPE :CLASS CLASS :NAME ; (WEBLOCKS:ATTRIBUTIZE-NAME WEBLOCKS::NAME) ; :DISABLED ...))) ; ; caught STYLE-WARNING: ; The variable STYLE is defined but never used. ; ; caught STYLE-WARNING: ; The variable TABINDEX is defined but never used. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "utils" "html"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20250706-git/src/bundling.lisp ; in: DEFUN BUNDLE-SOME-DEPENDENCIES ; (TYPEP WEBLOCKS::DEP WEBLOCKS::DEPENDENCY-TYPE) ; ; note: unable to optimize because: can't open-code test of non-constant type ; (FIND WEBLOCKS::PATH WEBLOCKS::EXCEPTIONS :TEST #'STRING-EQUAL) ; ; note: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (PATHNAME-NAME WEBLOCKS::PATH) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING PATHNAME SYNONYM-STREAM FILE-STREAM), not a PATHNAME. ; (PATHNAME-TYPE WEBLOCKS::PATH) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING PATHNAME SYNONYM-STREAM FILE-STREAM), not a PATHNAME. ; (STRING= "css" (PATHNAME-TYPE WEBLOCKS::PATH)) ; ; note: unable to optimize due to type uncertainty: The second argument is a (OR SIMPLE-STRING (MEMBER :WILD :UNSPECIFIC NIL)), not a (SIMPLE-ARRAY CHARACTER (*)). ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20250706-git/src/acceptor.lisp ; in: DEFMETHOD INITIALIZE-INSTANCE ; (CLOSER-MOP:DEFMETHOD INITIALIZE-INSTANCE ; :AFTER ; ((WEBLOCKS::INST WEBLOCKS::WEBLOCKS-ACCEPTOR) &REST WEBLOCKS::INITARGS) ; "Set the session secret to prevent a Hunchentoot warning emitted upon ; starting the acceptor." ; (UNLESS (BOUNDP 'HUNCHENTOOT:*SESSION-SECRET*) ; (HUNCHENTOOT:RESET-SESSION-SECRET))) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER ; (WEBLOCKS::WEBLOCKS-ACCEPTOR)) ; (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::INST &REST ; WEBLOCKS::INITARGS) ; (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-C::CURRENT-DEFMETHOD INITIALIZE-INSTANCE (:AFTER) ; (WEBLOCKS::WEBLOCKS-ACCEPTOR) ; (WEBLOCKS::INST &REST WEBLOCKS::INITARGS))) ; (DECLARE ; (SB-C::SOURCE-FORM ; (LAMBDA (WEBLOCKS::INST &REST WEBLOCKS::INITARGS) ; "Set the session secret to prevent a Hunchentoot warning emitted upon ; starting the acceptor." ; (UNLESS # #)))) ; (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::INST)) ; (DECLARE (IGNORABLE WEBLOCKS::INST)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::INST) ; SB-PCL::.NEXT-METHOD-CALL. ; (WEBLOCKS::INST) NIL ; :CALL-NEXT-METHOD-P NIL :SETQ-P ; NIL :PARAMETERS-SETQD NIL ; :METHOD-CELL (#:METHOD-CELL) ; ...) ; (DECLARE (SB-PCL::%CLASS WEBLOCKS::INST WEBLOCKS::WEBLOCKS-ACCEPTOR)) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ; caught STYLE-WARNING: ; The variable INITARGS is defined but never used. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "acceptor"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20250706-git/src/actions.lisp ; in: DEFUN DEFAULT-EXPIRED-ACTION-HANDLER ; (DEFUN WEBLOCKS::DEFAULT-EXPIRED-ACTION-HANDLER ; (&OPTIONAL (WEBLOCKS::APP (WEBLOCKS::CURRENT-WEBAPP))) ; "Default value of *expired-action-handler*. Redirects to application ; root and sets a query parameter 'timeout' to true, so that the home ; page may display a relevant message, if necessary." ; (WEBLOCKS::REDIRECT ; (CONCATENATE 'STRING (WEBLOCKS::MAKE-WEBAPP-URI "/") "?timeout=t") :DEFER ; NIL)) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA WEBLOCKS::DEFAULT-EXPIRED-ACTION-HANDLER ; (&OPTIONAL (WEBLOCKS::APP (WEBLOCKS::CURRENT-WEBAPP))) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Default value of *expired-action-handler*. Redirects to application ; root and sets a query parameter 'timeout' to true, so that the home ; page may display a relevant message, if necessary." ; (BLOCK WEBLOCKS::DEFAULT-EXPIRED-ACTION-HANDLER ; (WEBLOCKS::REDIRECT ; (CONCATENATE 'STRING (WEBLOCKS::MAKE-WEBAPP-URI "/") "?timeout=t") ; :DEFER NIL))) ; ; caught STYLE-WARNING: ; The variable APP is defined but never used. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "actions"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20250706-git/src/dependencies.lisp ; in: DEFMETHOD PRINT-OBJECT ; (FORMAT STREAM "~A" (WEBLOCKS::DEPENDENCY-URL WEBLOCKS::OBJ)) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; in: DEFUN SORT-DEPENDENCIES-BY-TYPE ; (STABLE-SORT WEBLOCKS::DEPENDENCY-LIST #'WEBLOCKS::DEPENDENCIES-LESSP) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a (OR LIST VECTOR). ; in: DEFUN BUNDLE-DEPENDENCIES ; (FIND :STYLESHEET WEBLOCKS::BUNDLE-TYPES) ; ; note: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (FIND :SCRIPT WEBLOCKS::BUNDLE-TYPES) ; ; note: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; in: DEFGENERIC COMPACT-DEPENDENCIES ; (WEBLOCKS:TIMING "bundle-deps" ; (WEBLOCKS::BUNDLE-DEPENDENCIES ; (WEBLOCKS:TIMING "prune-deps" ; (WEBLOCKS::PRUNE-DEPENDENCIES WEBLOCKS::DEPENDENCY-LIST)))) ; --> IF LET PROG1 LET PROGN LET* ; ==> ; (/ (- #:G33 #:G31) INTERNAL-TIME-UNITS-PER-SECOND) ; ; note: unable to optimize due to type uncertainty: The result is a (VALUES (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000) &OPTIONAL), not a (VALUES INTEGER &REST T). ; ==> ; (/ (- #:G34 #:G32) INTERNAL-TIME-UNITS-PER-SECOND) ; ; note: unable to optimize due to type uncertainty: The result is a (VALUES (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000) &OPTIONAL), not a (VALUES INTEGER &REST T). ; (WEBLOCKS:TIMING "prune-deps" ; (WEBLOCKS::PRUNE-DEPENDENCIES WEBLOCKS::DEPENDENCY-LIST)) ; --> IF LET PROG1 LET PROGN LET* ; ==> ; (/ (- #:G40 #:G38) INTERNAL-TIME-UNITS-PER-SECOND) ; ; note: unable to optimize due to type uncertainty: The result is a (VALUES (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000) &OPTIONAL), not a (VALUES INTEGER &REST T). ; ==> ; (/ (- #:G41 #:G39) INTERNAL-TIME-UNITS-PER-SECOND) ; ; note: unable to optimize due to type uncertainty: The result is a (VALUES (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000) &OPTIONAL), not a (VALUES INTEGER &REST T). ; (WEBLOCKS:TIMING "sort-deps" ; (WEBLOCKS::SORT-DEPENDENCIES-BY-TYPE ; (WEBLOCKS:TIMING "bundle-deps" ; (WEBLOCKS::BUNDLE-DEPENDENCIES ; (WEBLOCKS:TIMING "prune-deps" ; #))))) ; --> IF LET PROG1 LET PROGN LET* ; ==> ; (/ (- #:G26 #:G24) INTERNAL-TIME-UNITS-PER-SECOND) ; ; note: unable to optimize due to type uncertainty: The result is a (VALUES (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000) &OPTIONAL), not a (VALUES INTEGER &REST T). ; ==> ; (/ (- #:G27 #:G25) INTERNAL-TIME-UNITS-PER-SECOND) ; ; note: unable to optimize due to type uncertainty: The result is a (VALUES (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000) &OPTIONAL), not a (VALUES INTEGER &REST T). ; --> IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; etc. ; (WEBLOCKS:TIMING "bundle-deps" ; (WEBLOCKS::BUNDLE-DEPENDENCIES ; (WEBLOCKS:TIMING "prune-deps" ; (WEBLOCKS::PRUNE-DEPENDENCIES WEBLOCKS::DEPENDENCY-LIST)))) ; --> IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; etc. ; (WEBLOCKS:TIMING "prune-deps" ; (WEBLOCKS::PRUNE-DEPENDENCIES WEBLOCKS::DEPENDENCY-LIST)) ; --> IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; etc. ; in: DEFMETHOD RENDER-DEPENDENCY-IN-PAGE-HEAD ; (WEBLOCKS:WITH-HTML ; (:LINK :REL "stylesheet" :TYPE "text/css" :HREF ; (WEBLOCKS::DEPENDENCY-URL WEBLOCKS::OBJ) :MEDIA ; (WEBLOCKS::STYLESHEET-MEDIA WEBLOCKS::OBJ))) ; --> LET MACROLET LET COND OR LET IF IF CL-WHO:FMT FORMAT ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; --> LET MACROLET LET COND OR LET IF IF THE CL-WHO:FMT FORMAT ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; --> LET MACROLET LET COND OR LET IF IF CL-WHO:FMT FORMAT ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; --> LET MACROLET LET COND OR LET IF IF THE CL-WHO:FMT FORMAT ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; --> LET MACROLET LET COND OR LET IF IF CL-WHO:FMT FORMAT ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; --> LET MACROLET LET COND OR LET IF IF THE CL-WHO:FMT FORMAT ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; --> LET MACROLET LET COND OR LET IF IF CL-WHO:FMT FORMAT ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; --> LET MACROLET LET COND OR LET IF IF THE CL-WHO:FMT FORMAT ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; (WEBLOCKS:WITH-HTML ; (:SCRIPT :SRC (WEBLOCKS::DEPENDENCY-URL WEBLOCKS::OBJ) :TYPE ; "text/javascript" "")) ; --> LET MACROLET LET COND OR LET IF IF CL-WHO:FMT FORMAT ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; --> LET MACROLET LET COND OR LET IF IF THE CL-WHO:FMT FORMAT ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; --> LET MACROLET LET COND OR LET IF IF CL-WHO:FMT FORMAT ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; --> LET MACROLET LET COND OR LET IF IF THE CL-WHO:FMT FORMAT ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; in: DEFUN RENDER-FORM-SUBMIT-DEPENDENCIES ; (CONCATENATE 'STRING WEBLOCKS::E ; (WEBLOCKS::RENDER-DEPENDENCY-IN-FORM-SUBMIT WEBLOCKS::V)) ; --> LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; in: DEFUN MAKE-LOCAL-DEPENDENCY ; (FIND TYPE (WEBLOCKS::VERSION-DEPENDENCY-TYPES* WEBLOCKS::WEBAPP)) ; ; note: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (FIND TYPE (WEBLOCKS::GZIP-DEPENDENCY-TYPES* WEBLOCKS::WEBAPP)) ; ; note: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (CONCATENATE 'STRING ; (WEBLOCKS::MAYBE-ADD-TRAILING-SLASH ; (WEBLOCKS::COMPUTE-WEBAPP-PUBLIC-FILES-URI-PREFIX ; WEBLOCKS::WEBAPP)) ; WEBLOCKS-UTIL:RELATIVE-PATH) ; --> LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING PATHNAME SYNONYM-STREAM FILE-STREAM), not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20250706-git/src/application.lisp ; in: DEFUN DELETE-WEBAPP-SESSION-VALUE ; (DEFUN WEBLOCKS::DELETE-WEBAPP-SESSION-VALUE ; (WEBLOCKS::KEY ; &OPTIONAL (HUNCHENTOOT:SESSION HUNCHENTOOT:*SESSION*) ; (WEBLOCKS::WEBAPP (WEBLOCKS::CURRENT-WEBAPP))) ; "Clear the session value for the currently running webapp. ; KEY is compared using EQUAL." ; (LET ((WEBLOCKS::WEBAPP-SESSION ; (HUNCHENTOOT:SESSION-VALUE # HUNCHENTOOT:SESSION))) ; (WHEN WEBLOCKS::WEBAPP-SESSION ; (REMHASH WEBLOCKS::KEY WEBLOCKS::WEBAPP-SESSION)))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA WEBLOCKS::DELETE-WEBAPP-SESSION-VALUE ; (WEBLOCKS::KEY &OPTIONAL (HUNCHENTOOT:SESSION HUNCHENTOOT:*SESSION*) ; (WEBLOCKS::WEBAPP (WEBLOCKS::CURRENT-WEBAPP))) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Clear the session value for the currently running webapp. ; KEY is compared using EQUAL." ; (BLOCK WEBLOCKS::DELETE-WEBAPP-SESSION-VALUE ; (LET ((WEBLOCKS::WEBAPP-SESSION #)) ; (WHEN WEBLOCKS::WEBAPP-SESSION ; (REMHASH WEBLOCKS::KEY WEBLOCKS::WEBAPP-SESSION))))) ; ; caught STYLE-WARNING: ; The variable WEBAPP is defined but never used. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "application"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20250706-git/src/page-template.lisp ; in: DEFMETHOD RENDER-PAGE ; (WEBLOCKS:TIMING "compact-dependencies" ; (WEBLOCKS:COMPACT-DEPENDENCIES ; (APPEND (WEBLOCKS:WEBAPP-APPLICATION-DEPENDENCIES) ; WEBLOCKS::*PAGE-DEPENDENCIES*))) ; --> IF LET PROG1 LET PROGN LET* ; ==> ; (/ (- #:G39 #:G37) INTERNAL-TIME-UNITS-PER-SECOND) ; ; note: unable to optimize due to type uncertainty: The result is a (VALUES (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000) &OPTIONAL), not a (VALUES INTEGER &REST T). ; ==> ; (/ (- #:G40 #:G38) INTERNAL-TIME-UNITS-PER-SECOND) ; ; note: unable to optimize due to type uncertainty: The result is a (VALUES (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000) &OPTIONAL), not a (VALUES INTEGER &REST T). ; --> IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; etc. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20250706-git/src/request-hooks.lisp ; in: EVAL-WHEN (:LOAD-TOPLEVEL) ; (WEBLOCKS:TIMING "html parts processing" ; (PROGN ; (WEBLOCKS-UTIL:UPDATE-HTML-PARTS-CONNECTIONS) ; (SETF (WEBLOCKS:WEBAPP-SESSION-VALUE 'WEBLOCKS::PARTS-MD5-HASH) ; WEBLOCKS-UTIL:*PARTS-MD5-HASH*) ; (SETF (WEBLOCKS:WEBAPP-SESSION-VALUE 'WEBLOCKS::PARTS-MD5-CONTEXT-HASH) ; WEBLOCKS-UTIL:*PARTS-MD5-CONTEXT-HASH*))) ; --> IF LET PROG1 LET PROGN LET* ; ==> ; (/ (- #:G11 #:G9) INTERNAL-TIME-UNITS-PER-SECOND) ; ; note: unable to optimize due to type uncertainty: The result is a (VALUES (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000) &OPTIONAL), not a (VALUES INTEGER &REST T). ; ==> ; (/ (- #:G12 #:G10) INTERNAL-TIME-UNITS-PER-SECOND) ; ; note: unable to optimize due to type uncertainty: The result is a (VALUES (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000) &OPTIONAL), not a (VALUES INTEGER &REST T). ; --> IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; etc. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20250706-git/src/error-handler.lisp ; in: DEFMETHOD HANDLE-HTTP-ERROR ; (CLOSER-MOP:DEFMETHOD WEBLOCKS::HANDLE-HTTP-ERROR ; ((WEBLOCKS::APP WEBLOCKS:WEBLOCKS-WEBAPP) WEBLOCKS::CODE &OPTIONAL ; CONDITION) ; (WEBLOCKS::WITH-ERROR-PAGE-HTML ((CL-WHO:ESCAPE-STRING ; (FORMAT NIL "~A ~A" WEBLOCKS::CODE #)) ; (CL-WHO:ESCAPE-STRING ; (FORMAT NIL "~A ~A" WEBLOCKS::CODE #))))) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS::HANDLE-HTTP-ERROR ; (WEBLOCKS:WEBLOCKS-WEBAPP T)) ; (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::APP WEBLOCKS::CODE ; &OPTIONAL CONDITION) ; (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-C::CURRENT-DEFMETHOD WEBLOCKS::HANDLE-HTTP-ERROR NIL ; (WEBLOCKS:WEBLOCKS-WEBAPP T) ; (WEBLOCKS::APP WEBLOCKS::CODE &OPTIONAL CONDITION))) ; (DECLARE ; (SB-C::SOURCE-FORM ; (LAMBDA (WEBLOCKS::APP WEBLOCKS::CODE &OPTIONAL CONDITION) ; (WEBLOCKS::WITH-ERROR-PAGE-HTML #)))) ; (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::CODE)) ; (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::APP)) ; (DECLARE (TYPE T WEBLOCKS::CODE)) ; (DECLARE (IGNORABLE WEBLOCKS::CODE WEBLOCKS::APP)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::APP WEBLOCKS::CODE) ; SB-PCL::.NEXT-METHOD-CALL. ; (WEBLOCKS::APP WEBLOCKS::CODE) ; NIL :CALL-NEXT-METHOD-P NIL ; :SETQ-P NIL :PARAMETERS-SETQD ; NIL :METHOD-CELL ; (#:METHOD-CELL) ...) ; (DECLARE (SB-PCL::%CLASS WEBLOCKS::APP WEBLOCKS:WEBLOCKS-WEBAPP)) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ; caught STYLE-WARNING: ; The variable CONDITION is defined but never used. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "error-handler"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20250706-git/src/request-handler.lisp ; in: DEFMETHOD HANDLE-CLIENT-REQUEST ; (WEBLOCKS:TIMING "handle-client-request" ; (CALL-NEXT-METHOD)) ; --> LET PROG1 LET PROGN LET* ; ==> ; (/ (- #:G4 #:G2) INTERNAL-TIME-UNITS-PER-SECOND) ; ; note: unable to optimize due to type uncertainty: The result is a (VALUES (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000) &OPTIONAL), not a (VALUES INTEGER &REST T). ; ==> ; (/ (- #:G5 #:G3) INTERNAL-TIME-UNITS-PER-SECOND) ; ; note: unable to optimize due to type uncertainty: The result is a (VALUES (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000) &OPTIONAL), not a (VALUES INTEGER &REST T). ; (COM.METABANG.TRIVIAL-TIMEOUT:TIMEOUT-ERROR ; (LAMBDA (WEBLOCKS::C) (ERROR "Your request timed out."))) ; ; caught STYLE-WARNING: ; The variable C is defined but never used. ; (WEBLOCKS:TIMING "handle-client-request" ; (CALL-NEXT-METHOD)) ; --> LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; etc. ; (WEBLOCKS:TIMING "action processing (w/ hooks)" ; (WEBLOCKS::EVAL-HOOK :PRE-ACTION) ; (WEBLOCKS::WITH-DYNAMIC-HOOKS (:DYNAMIC-ACTION) (WEBLOCKS::EVAL-ACTION)) ; (WEBLOCKS::EVAL-HOOK :POST-ACTION)) ; --> IF LET PROG1 LET PROGN LET* ; ==> ; (/ (- #:G39 #:G37) INTERNAL-TIME-UNITS-PER-SECOND) ; ; note: unable to optimize due to type uncertainty: The result is a (VALUES (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000) &OPTIONAL), not a (VALUES INTEGER &REST T). ; ==> ; (/ (- #:G40 #:G38) INTERNAL-TIME-UNITS-PER-SECOND) ; ; note: unable to optimize due to type uncertainty: The result is a (VALUES (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000) &OPTIONAL), not a (VALUES INTEGER &REST T). ; (WEBLOCKS:TIMING "rendering (w/ hooks)" ; (WEBLOCKS::EVAL-HOOK :PRE-RENDER) ; (WEBLOCKS::WITH-DYNAMIC-HOOKS (:DYNAMIC-RENDER) ; (IF (WEBLOCKS:AJAX-REQUEST-P) ; (WEBLOCKS::HANDLE-AJAX-REQUEST ; WEBLOCKS::APP) ; (WEBLOCKS::HANDLE-NORMAL-REQUEST ; WEBLOCKS::APP))) ; (WEBLOCKS::EVAL-HOOK :POST-RENDER)) ; --> IF LET PROG1 LET PROGN LET* ; ==> ; (/ (- #:G78 #:G76) INTERNAL-TIME-UNITS-PER-SECOND) ; ; note: unable to optimize due to type uncertainty: The result is a (VALUES (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000) &OPTIONAL), not a (VALUES INTEGER &REST T). ; ==> ; (/ (- #:G79 #:G77) INTERNAL-TIME-UNITS-PER-SECOND) ; ; note: unable to optimize due to type uncertainty: The result is a (VALUES (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000) &OPTIONAL), not a (VALUES INTEGER &REST T). ; (WEBLOCKS:TIMING "action processing (w/ hooks)" ; (WEBLOCKS::EVAL-HOOK :PRE-ACTION) ; (WEBLOCKS::WITH-DYNAMIC-HOOKS (:DYNAMIC-ACTION) (WEBLOCKS::EVAL-ACTION)) ; (WEBLOCKS::EVAL-HOOK :POST-ACTION)) ; --> IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; etc. ; (WEBLOCKS:TIMING "rendering (w/ hooks)" ; (WEBLOCKS::EVAL-HOOK :PRE-RENDER) ; (WEBLOCKS::WITH-DYNAMIC-HOOKS (:DYNAMIC-RENDER) ; (IF (WEBLOCKS:AJAX-REQUEST-P) ; (WEBLOCKS::HANDLE-AJAX-REQUEST ; WEBLOCKS::APP) ; (WEBLOCKS::HANDLE-NORMAL-REQUEST ; WEBLOCKS::APP))) ; (WEBLOCKS::EVAL-HOOK :POST-RENDER)) ; --> IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; etc. ; in: DEFMETHOD HANDLE-AJAX-REQUEST ; (WEBLOCKS:TIMING "handle-ajax-request" ; (WEBLOCKS::UPDATE-LOCATION-HASH-DEPENDENTS) ; (WEBLOCKS::RENDER-DIRTY-WIDGETS)) ; --> IF LET PROG1 LET PROGN LET* ; ==> ; (/ (- #:G12 #:G10) INTERNAL-TIME-UNITS-PER-SECOND) ; ; note: unable to optimize due to type uncertainty: The result is a (VALUES (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000) &OPTIONAL), not a (VALUES INTEGER &REST T). ; ==> ; (/ (- #:G13 #:G11) INTERNAL-TIME-UNITS-PER-SECOND) ; ; note: unable to optimize due to type uncertainty: The result is a (VALUES (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000) &OPTIONAL), not a (VALUES INTEGER &REST T). ; --> IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; etc. ; in: DEFMETHOD HANDLE-NORMAL-REQUEST ; (WEBLOCKS:TIMING "widget tree rendering" ; (WEBLOCKS::RENDER-WIDGET (WEBLOCKS:ROOT-WIDGET))) ; --> IF LET PROG1 LET PROGN LET* ; ==> ; (/ (- #:G42 #:G40) INTERNAL-TIME-UNITS-PER-SECOND) ; ; note: unable to optimize due to type uncertainty: The result is a (VALUES (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000) &OPTIONAL), not a (VALUES INTEGER &REST T). ; ==> ; (/ (- #:G43 #:G41) INTERNAL-TIME-UNITS-PER-SECOND) ; ; note: unable to optimize due to type uncertainty: The result is a (VALUES (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000) &OPTIONAL), not a (VALUES INTEGER &REST T). ; (WEBLOCKS:TIMING "tree shakedown" ; (WEBLOCKS::UPDATE-WIDGET-TREE)) ; --> IF LET PROG1 LET PROGN LET* ; ==> ; (/ (- #:G35 #:G33) INTERNAL-TIME-UNITS-PER-SECOND) ; ; note: unable to optimize due to type uncertainty: The result is a (VALUES (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000) &OPTIONAL), not a (VALUES INTEGER &REST T). ; ==> ; (/ (- #:G36 #:G34) INTERNAL-TIME-UNITS-PER-SECOND) ; ; note: unable to optimize due to type uncertainty: The result is a (VALUES (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000) &OPTIONAL), not a (VALUES INTEGER &REST T). ; (WEBLOCKS:TIMING "page render" ; (WEBLOCKS:RENDER-PAGE WEBLOCKS::APP)) ; --> IF LET PROG1 LET PROGN LET* ; ==> ; (/ (- #:G49 #:G47) INTERNAL-TIME-UNITS-PER-SECOND) ; ; note: unable to optimize due to type uncertainty: The result is a (VALUES (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000) &OPTIONAL), not a (VALUES INTEGER &REST T). ; ==> ; (/ (- #:G50 #:G48) INTERNAL-TIME-UNITS-PER-SECOND) ; ; note: unable to optimize due to type uncertainty: The result is a (VALUES (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000) &OPTIONAL), not a (VALUES INTEGER &REST T). ; (WEBLOCKS:TIMING "tree shakedown" ; (WEBLOCKS::UPDATE-WIDGET-TREE)) ; --> IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; etc. ; (WEBLOCKS:TIMING "widget tree rendering" ; (WEBLOCKS::RENDER-WIDGET (WEBLOCKS:ROOT-WIDGET))) ; --> IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; etc. ; (WEBLOCKS:TIMING "page render" ; (WEBLOCKS:RENDER-PAGE WEBLOCKS::APP)) ; --> IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; etc. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "request-handler"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20250706-git/src/linguistic/grammar.lisp ; in: DEFUN DEFAULT-TRANSLATION-FUNCTION ; (IGNORE WEBLOCKS::ARGS) ; ; caught STYLE-WARNING: ; IGNORE declaration for an unknown variable: ARGS WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "linguistic" "grammar"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20250706-git/src/widget-translation.lisp ; in: DEFGENERIC WIDGET-TRANSLATION-TABLE ; (CLOSER-MOP:DEFGENERIC WEBLOCKS::WIDGET-TRANSLATION-TABLE ; (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS) ; (:DOCUMENTATION ; #<(SIMPLE-ARRAY CHARACTER ; (781)) Widget translation table is an alist with all strings used in widget which should be translated. ; The idea of this table is to hold every string so we just translate this table to tr... {12327737AF}>) ; (:METHOD-COMBINATION APPEND) ; (:METHOD APPEND (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS) ; (LOOP PARENSCRIPT:FOR (WEBLOCKS::KEY ; . WEBLOCKS::VALUE) PARENSCRIPT:IN (GET ; 'WEBLOCKS::DYNAMIC-TRANSLATION-TABLE ; WEBLOCKS::OBJ) ; WEBLOCKS::COLLECT (CONS WEBLOCKS::KEY ; (IF # ; # ; WEBLOCKS::VALUE))))) ; --> EVAL-WHEN DEFGENERIC PROGN SB-PCL::SET-INITIAL-METHODS ; --> SB-PCL::SET-INITIAL-METHODS LIST DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD ; WEBLOCKS::WIDGET-TRANSLATION-TABLE APPEND (T)) ; (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST ; WEBLOCKS::ARGS) ; (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-C::CURRENT-DEFMETHOD WEBLOCKS::WIDGET-TRANSLATION-TABLE (APPEND) (T) ; (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS))) ; (DECLARE ; (SB-C::SOURCE-FORM ; (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS) ; (LOOP PARENSCRIPT:FOR # PARENSCRIPT:IN # ; WEBLOCKS::COLLECT #)))) ; (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ)) ; (DECLARE (TYPE T WEBLOCKS::OBJ)) ; (DECLARE (IGNORABLE WEBLOCKS::OBJ)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ) ; SB-PCL::.NEXT-METHOD-CALL. ; (WEBLOCKS::OBJ) NIL ; :CALL-NEXT-METHOD-P NIL :SETQ-P ; NIL :PARAMETERS-SETQD NIL ; :METHOD-CELL (#:METHOD-CELL) ; ...) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ; caught STYLE-WARNING: ; The variable ARGS is defined but never used. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "widget-translation"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20250706-git/src/views/view/view.lisp ; in: DEFMETHOD WIDGET-TRANSLATION-TABLE ; (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE ; APPEND ; ((WEBLOCKS::OBJ WEBLOCKS::VIEW) &REST WEBLOCKS::ARGS) ; (APPLY #'APPEND ; (REMOVE-DUPLICATES ; (WEBLOCKS::MAP-VIEW-FIELDS (LAMBDA # #) WEBLOCKS::OBJ NIL) :TEST ; #'EQUAL))) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE ; APPEND (WEBLOCKS::VIEW)) ; (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST ; WEBLOCKS::ARGS) ; (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-C::CURRENT-DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE (APPEND) ; (WEBLOCKS::VIEW) (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS))) ; (DECLARE ; (SB-C::SOURCE-FORM ; (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS) (APPLY # #)))) ; (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ)) ; (DECLARE (IGNORABLE WEBLOCKS::OBJ)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ) ; SB-PCL::.NEXT-METHOD-CALL. ; (WEBLOCKS::OBJ) NIL ; :CALL-NEXT-METHOD-P NIL :SETQ-P ; NIL :PARAMETERS-SETQD NIL ; :METHOD-CELL (#:METHOD-CELL) ; ...) ; (DECLARE (SB-PCL::%CLASS WEBLOCKS::OBJ WEBLOCKS::VIEW)) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ; caught STYLE-WARNING: ; The variable ARGS is defined but never used. ; (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE ; APPEND ; ((WEBLOCKS::OBJ WEBLOCKS::VIEW-FIELD) &REST WEBLOCKS::ARGS) ; (WEBLOCKS:WIDGET-TRANSLATION-TABLE ; (SLOT-VALUE WEBLOCKS::OBJ 'WEBLOCKS::PRESENTATION))) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE ; APPEND (WEBLOCKS::VIEW-FIELD)) ; (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST ; WEBLOCKS::ARGS) ; (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-C::CURRENT-DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE (APPEND) ; (WEBLOCKS::VIEW-FIELD) (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS))) ; (DECLARE ; (SB-C::SOURCE-FORM ; (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS) ; (WEBLOCKS:WIDGET-TRANSLATION-TABLE #)))) ; (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ)) ; (DECLARE (IGNORABLE WEBLOCKS::OBJ)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ) ; SB-PCL::.NEXT-METHOD-CALL. ; (WEBLOCKS::OBJ) NIL ; :CALL-NEXT-METHOD-P NIL :SETQ-P ; NIL :PARAMETERS-SETQD NIL ; :METHOD-CELL (#:METHOD-CELL) ; ...) ; (DECLARE (SB-PCL::%CLASS WEBLOCKS::OBJ WEBLOCKS::VIEW-FIELD)) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ; caught STYLE-WARNING: ; The variable ARGS is defined but never used. ; (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE ; APPEND ; ((WEBLOCKS::OBJ WEBLOCKS::INLINE-VIEW-FIELD) &REST WEBLOCKS::ARGS) ; #<(SIMPLE-ARRAY CHARACTER ; (304)) Returns translation table. :label key/value are present when there is no label set for view-field ; or when current label is equal to generated one. ; First case is for 'widget-translate', it will... {1232CE35FF}> ; (WITH-SLOTS (WEBLOCKS::SLOT-NAME PARENSCRIPT:LABEL) ; WEBLOCKS::OBJ ; (UNLESS PARENSCRIPT:LABEL ; (RETURN-FROM WEBLOCKS:WIDGET-TRANSLATION-TABLE `(#))) ; (WHEN (STRING= PARENSCRIPT:LABEL (WEBLOCKS-UTIL:TRANSLATE #)) ; `((:LABEL . ,#))))) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE ; APPEND (WEBLOCKS::INLINE-VIEW-FIELD)) ; (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST ; WEBLOCKS::ARGS) ; (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-C::CURRENT-DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE (APPEND) ; (WEBLOCKS::INLINE-VIEW-FIELD) (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS))) ; (DECLARE ; (SB-C::SOURCE-FORM ; (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS) ; #<(SIMPLE-ARRAY CHARACTER ; (304)) Returns translation table. :label key/value are present when there is no label set for view-field ; or when current label is equal to generated one. ; First case is for 'widget-translate', it will... {1232CE35FF}> ; (WITH-SLOTS # ; WEBLOCKS::OBJ ; # ; #)))) ; (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ)) ; (DECLARE (IGNORABLE WEBLOCKS::OBJ)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ) ; SB-PCL::.NEXT-METHOD-CALL. ; (WEBLOCKS::OBJ) NIL ; :CALL-NEXT-METHOD-P NIL :SETQ-P ; NIL :PARAMETERS-SETQD NIL ; :METHOD-CELL (#:METHOD-CELL) ; ...) ; (DECLARE (SB-PCL::%CLASS WEBLOCKS::OBJ WEBLOCKS::INLINE-VIEW-FIELD)) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ; caught STYLE-WARNING: ; The variable ARGS is defined but never used. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "view" "view"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20250706-git/src/views/view/scaffold.lisp ; in: DEFUN INSPECT-TYPESPEC ; (OPTIMA:MATCH WEBLOCKS::TYPESPEC ; ((LIST 'AND WEBLOCKS::Y) (WEBLOCKS::INSPECT-TYPESPEC WEBLOCKS::Y)) ; (WEBLOCKS::Y (VALUES (CAR WEBLOCKS::TYPESPEC) (CDR WEBLOCKS::TYPESPEC)))) ; --> BLOCK TAGBODY RETURN-FROM OPTIMA::%OR BLOCK TAGBODY RETURN-FROM ; --> SYMBOL-MACROLET OPTIMA::%OR ; ==> ; (LET ((WEBLOCKS::Y WEBLOCKS::TYPESPEC)) ; (VALUES (CAR WEBLOCKS::TYPESPEC) (CDR WEBLOCKS::TYPESPEC))) ; ; caught STYLE-WARNING: ; The variable Y is defined but never used. ; (OPTIMA:MATCH WEBLOCKS::TYPESPEC ; ((LIST 'OR 'NULL WEBLOCKS::Y) (WEBLOCKS::INSPECT-TYPESPEC WEBLOCKS::Y)) ; ((LIST 'OR WEBLOCKS::Y 'NULL) (WEBLOCKS::INSPECT-TYPESPEC WEBLOCKS::Y)) ; ((LIST 'OR WEBLOCKS::Y) (WEBLOCKS::INSPECT-TYPESPEC WEBLOCKS::Y)) ; (WEBLOCKS::Y (VALUES (CAR WEBLOCKS::TYPESPEC) (CDR WEBLOCKS::TYPESPEC)))) ; --> BLOCK TAGBODY RETURN-FROM OPTIMA::%OR BLOCK TAGBODY RETURN-FROM ; --> SYMBOL-MACROLET OPTIMA::%OR ; ==> ; (LET ((WEBLOCKS::Y WEBLOCKS::TYPESPEC)) ; (VALUES (CAR WEBLOCKS::TYPESPEC) (CDR WEBLOCKS::TYPESPEC))) ; ; caught STYLE-WARNING: ; The variable Y is defined but never used. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "view" "scaffold"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20250706-git/src/views/dataview.lisp ; in: DEFMETHOD WIDGET-TRANSLATION-TABLE ; (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE ; APPEND ; ((WEBLOCKS::OBJ (EQL 'WEBLOCKS::TEXT-PRESENTATION)) &REST WEBLOCKS::ARGS) ; `((:NULL-STRING . ,(WEBLOCKS-UTIL:TRANSLATE "Not Specified")))) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE ; APPEND ((EQL 'WEBLOCKS::TEXT-PRESENTATION))) ; (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST ; WEBLOCKS::ARGS) ; (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-C::CURRENT-DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE (APPEND) ; ((EQL #)) (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS))) ; (DECLARE ; (SB-C::SOURCE-FORM (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS) `(#)))) ; (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ)) ; (DECLARE (IGNORABLE WEBLOCKS::OBJ)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ) ; SB-PCL::.NEXT-METHOD-CALL. ; (WEBLOCKS::OBJ) NIL ; :CALL-NEXT-METHOD-P NIL :SETQ-P ; NIL :PARAMETERS-SETQD NIL ; :METHOD-CELL (#:METHOD-CELL) ; ...) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ; caught STYLE-WARNING: ; The variable ARGS is defined but never used. ; (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE ; APPEND ; ((WEBLOCKS::OBJ WEBLOCKS::TEXT-PRESENTATION) &REST WEBLOCKS::ARGS) ; (WEBLOCKS:WIDGET-TRANSLATION-TABLE 'WEBLOCKS::TEXT-PRESENTATION)) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE ; APPEND (WEBLOCKS::TEXT-PRESENTATION)) ; (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST ; WEBLOCKS::ARGS) ; (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-C::CURRENT-DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE (APPEND) ; (WEBLOCKS::TEXT-PRESENTATION) (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS))) ; (DECLARE ; (SB-C::SOURCE-FORM ; (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS) ; (WEBLOCKS:WIDGET-TRANSLATION-TABLE #)))) ; (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ)) ; (DECLARE (IGNORABLE WEBLOCKS::OBJ)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ) ; SB-PCL::.NEXT-METHOD-CALL. ; (WEBLOCKS::OBJ) NIL ; :CALL-NEXT-METHOD-P NIL :SETQ-P ; NIL :PARAMETERS-SETQD NIL ; :METHOD-CELL (#:METHOD-CELL) ; ...) ; (DECLARE (SB-PCL::%CLASS WEBLOCKS::OBJ WEBLOCKS::TEXT-PRESENTATION)) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ; caught STYLE-WARNING: ; The variable ARGS is defined but never used. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "dataview"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20250706-git/src/views/formview/formview.lisp ; in: DEFGENERIC RENDER-VALIDATION-SUMMARY ; (LIST :VIEW WEBLOCKS:VIEW :OBJECT WEBLOCKS::OBJ :WIDGET WEBLOCKS::WIDGET) ; ; caught STYLE-WARNING: ; reading an ignored variable: VIEW ; ; caught STYLE-WARNING: ; reading an ignored variable: OBJ ; in: DEFGENERIC RENDER-FORM-VIEW-BUTTONS ; (LIST :VIEW WEBLOCKS:VIEW :OBJECT WEBLOCKS::OBJ :WIDGET WEBLOCKS::WIDGET) ; ; caught STYLE-WARNING: ; reading an ignored variable: OBJ ; in: DEFMETHOD WIDGET-TRANSLATION-TABLE ; (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE ; APPEND ; ((WEBLOCKS::OBJ WEBLOCKS::FORM-VIEW-FIELD) &REST WEBLOCKS::ARGS) ; `((:REQUIRED-INDICATOR ; . ,(WEBLOCKS-UTIL:TRANSLATE WEBLOCKS::*DEFAULT-REQUIRED-INDICATOR*)))) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE ; APPEND (WEBLOCKS::FORM-VIEW-FIELD)) ; (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST ; WEBLOCKS::ARGS) ; (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-C::CURRENT-DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE (APPEND) ; (WEBLOCKS::FORM-VIEW-FIELD) (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS))) ; (DECLARE ; (SB-C::SOURCE-FORM (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS) `(#)))) ; (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ)) ; (DECLARE (IGNORABLE WEBLOCKS::OBJ)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ) ; SB-PCL::.NEXT-METHOD-CALL. ; (WEBLOCKS::OBJ) NIL ; :CALL-NEXT-METHOD-P NIL :SETQ-P ; NIL :PARAMETERS-SETQD NIL ; :METHOD-CELL (#:METHOD-CELL) ; ...) ; (DECLARE (SB-PCL::%CLASS WEBLOCKS::OBJ WEBLOCKS::FORM-VIEW-FIELD)) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ; caught STYLE-WARNING: ; The variable ARGS is defined but never used. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "formview" "formview"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20250706-git/src/views/formview/parser.lisp ; in: DEFMETHOD VIEW-ARGUMENT-QUOTING-STRATEGY ; (CLOSER-MOP:DEFMETHOD WEBLOCKS:VIEW-ARGUMENT-QUOTING-STRATEGY ; ((WEBLOCKS::ARG-NAME (EQL :PRESENT-AS))) ; :LIST) ; --> PROGN ; ==> ; (EVAL-WHEN (:EXECUTE) ; (SB-PCL::%DEFMETHOD-EXPANDER WEBLOCKS:VIEW-ARGUMENT-QUOTING-STRATEGY NIL ; ((WEBLOCKS::ARG-NAME (EQL :PRESENT-AS))) ; (:LIST))) ; ; caught STYLE-WARNING: ; redefining VIEW-ARGUMENT-QUOTING-STRATEGY (#<EQL-SPECIALIZER :PRESENT-AS>) in DEFMETHOD WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "formview" "parser"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20250706-git/src/views/formview/request-deserialization.lisp ; in: DEFUN UPDATE-INTERMEDIATE-VALUES-FROM-REQUEST ; (DEFUN WEBLOCKS::UPDATE-INTERMEDIATE-VALUES-FROM-REQUEST ; (WEBLOCKS::OBJ WEBLOCKS:VIEW WEBLOCKS-STORES:CLASS-STORE ; WEBLOCKS::ARGS) ; (LET (WEBLOCKS::RESULTS WEBLOCKS::ERRORS) ; (APPLY #'WEBLOCKS:MAP-VIEW-FIELDS ; (LAMBDA (WEBLOCKS:FIELD-INFO) ; (LET* # ; #)) ; WEBLOCKS:VIEW WEBLOCKS::OBJ WEBLOCKS::ARGS) ; (VALUES WEBLOCKS::RESULTS WEBLOCKS::ERRORS))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA WEBLOCKS::UPDATE-INTERMEDIATE-VALUES-FROM-REQUEST ; (WEBLOCKS::OBJ WEBLOCKS:VIEW WEBLOCKS-STORES:CLASS-STORE WEBLOCKS::ARGS) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK WEBLOCKS::UPDATE-INTERMEDIATE-VALUES-FROM-REQUEST ; (LET (WEBLOCKS::RESULTS WEBLOCKS::ERRORS) ; (APPLY #'WEBLOCKS:MAP-VIEW-FIELDS (LAMBDA # #) WEBLOCKS:VIEW ; WEBLOCKS::OBJ WEBLOCKS::ARGS) ; (VALUES WEBLOCKS::RESULTS WEBLOCKS::ERRORS)))) ; ; caught STYLE-WARNING: ; The variable CLASS-STORE is defined but never used. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "formview" "request-deserialization"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20250706-git/src/views/formview/template-form-view.lisp ; in: DEFUN TEMPLATE-FORM-VIEW-BODY-WT ; (DEFUN WEBLOCKS::TEMPLATE-FORM-VIEW-BODY-WT ; ( ; &REST WEBLOCKS::ARGS ; &KEY WEBLOCKS::CAPTION CLASS-NAME WEBLOCKS::VALIDATION-SUMMARY ; WEBLOCKS:FORM-VIEW-BUTTONS WEBLOCKS::CONTENT METHOD WEBLOCKS::ACTION ; WEBLOCKS::FORM-ID WEBLOCKS::HEADER-CLASS ...) ; (WEBLOCKS:WITH-HTML-TO-STRING ; (WEBLOCKS:WITH-HTML-FORM (METHOD WEBLOCKS::ACTION :ID WEBLOCKS::FORM-ID ; :CLASS WEBLOCKS::HEADER-CLASS :ENCTYPE ; WEBLOCKS::ENCTYPE :EXTRA-SUBMIT-CODE ; WEBLOCKS::EXTRA-SUBMIT-CODE :USE-AJAX-P ; WEBLOCKS::USE-AJAX-P) ; (WHEN WEBLOCKS::CAPTION (CL-WHO:HTM #)) ; (CL-WHO:STR WEBLOCKS::VALIDATION-SUMMARY) ; (:UL ; (LOOP PARENSCRIPT:FOR # WEBLOCKS::ON WEBLOCKS::FIELDS-DATA :BY #'CDDR ; DO #)) ; (CL-WHO:STR WEBLOCKS:FORM-VIEW-BUTTONS)))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA WEBLOCKS::TEMPLATE-FORM-VIEW-BODY-WT ; (&REST WEBLOCKS::ARGS &KEY WEBLOCKS::CAPTION CLASS-NAME ; WEBLOCKS::VALIDATION-SUMMARY WEBLOCKS:FORM-VIEW-BUTTONS ; WEBLOCKS::CONTENT METHOD WEBLOCKS::ACTION WEBLOCKS::FORM-ID ; WEBLOCKS::HEADER-CLASS ...) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK WEBLOCKS::TEMPLATE-FORM-VIEW-BODY-WT ; (WEBLOCKS:WITH-HTML-TO-STRING ; (WEBLOCKS:WITH-HTML-FORM (METHOD WEBLOCKS::ACTION :ID ; WEBLOCKS::FORM-ID :CLASS ; WEBLOCKS::HEADER-CLASS :ENCTYPE ; WEBLOCKS::ENCTYPE :EXTRA-SUBMIT-CODE ; WEBLOCKS::EXTRA-SUBMIT-CODE :USE-AJAX-P ; WEBLOCKS::USE-AJAX-P) ; (WHEN WEBLOCKS::CAPTION #) ; (CL-WHO:STR WEBLOCKS::VALIDATION-SUMMARY) ; (:UL #) ; (CL-WHO:STR WEBLOCKS:FORM-VIEW-BUTTONS))))) ; ; caught STYLE-WARNING: ; The variable CONTENT is defined but never used. ; ; caught STYLE-WARNING: ; The variable ARGS is defined but never used. ; in: DEFMETHOD WITH-VIEW-HEADER ; (WEBLOCKS::FIELDS-PREFIX-FN ; (WEBLOCKS:VIEW-FIELDS-DEFAULT-PREFIX-FN WEBLOCKS:VIEW)) ; ; caught STYLE-WARNING: ; The variable FIELDS-PREFIX-FN is defined but never used. ; (WEBLOCKS::FIELDS-SUFFIX-FN ; (WEBLOCKS:VIEW-FIELDS-DEFAULT-SUFFIX-FN WEBLOCKS:VIEW)) ; ; caught STYLE-WARNING: ; The variable FIELDS-SUFFIX-FN is defined but never used. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "formview" "template-form-view"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20250706-git/src/views/sequence-view.lisp ; in: DEFMETHOD WIDGET-TRANSLATION-TABLE ; (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE ; APPEND ; ((WEBLOCKS::OBJ (EQL 'WEBLOCKS::SEQUENCE-VIEW)) &REST WEBLOCKS::ARGS) ; `((:EMPTY-MESSAGE ; . ,(WEBLOCKS-UTIL:TRANSLATE "No information available.")))) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE ; APPEND ((EQL 'WEBLOCKS::SEQUENCE-VIEW))) ; (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST ; WEBLOCKS::ARGS) ; (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-C::CURRENT-DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE (APPEND) ; ((EQL #)) (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS))) ; (DECLARE ; (SB-C::SOURCE-FORM (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS) `(#)))) ; (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ)) ; (DECLARE (IGNORABLE WEBLOCKS::OBJ)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ) ; SB-PCL::.NEXT-METHOD-CALL. ; (WEBLOCKS::OBJ) NIL ; :CALL-NEXT-METHOD-P NIL :SETQ-P ; NIL :PARAMETERS-SETQD NIL ; :METHOD-CELL (#:METHOD-CELL) ; ...) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ; caught STYLE-WARNING: ; The variable ARGS is defined but never used. ; (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE ; APPEND ; ((WEBLOCKS::OBJ WEBLOCKS::SEQUENCE-VIEW) &REST WEBLOCKS::ARGS) ; (WEBLOCKS:WIDGET-TRANSLATION-TABLE 'WEBLOCKS::SEQUENCE-VIEW)) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE ; APPEND (WEBLOCKS::SEQUENCE-VIEW)) ; (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST ; WEBLOCKS::ARGS) ; (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-C::CURRENT-DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE (APPEND) ; (WEBLOCKS::SEQUENCE-VIEW) (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS))) ; (DECLARE ; (SB-C::SOURCE-FORM ; (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS) ; (WEBLOCKS:WIDGET-TRANSLATION-TABLE #)))) ; (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ)) ; (DECLARE (IGNORABLE WEBLOCKS::OBJ)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ) ; SB-PCL::.NEXT-METHOD-CALL. ; (WEBLOCKS::OBJ) NIL ; :CALL-NEXT-METHOD-P NIL :SETQ-P ; NIL :PARAMETERS-SETQD NIL ; :METHOD-CELL (#:METHOD-CELL) ; ...) ; (DECLARE (SB-PCL::%CLASS WEBLOCKS::OBJ WEBLOCKS::SEQUENCE-VIEW)) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ; caught STYLE-WARNING: ; The variable ARGS is defined but never used. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "sequence-view"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20250706-git/src/views/tableview.lisp ; in: DEFGENERIC RENDER-VIEW-FIELD-HEADER ; (CLOSER-MOP:DEFGENERIC WEBLOCKS::RENDER-VIEW-FIELD-HEADER ; (WEBLOCKS::FIELD WEBLOCKS:VIEW WEBLOCKS::WIDGET WEBLOCKS:PRESENTATION ; WEBLOCKS::VALUE WEBLOCKS::OBJ &REST WEBLOCKS::ARGS &KEY ; WEBLOCKS:FIELD-INFO &ALLOW-OTHER-KEYS) ; (:DOCUMENTATION "Renders a table header cell.") ; (:METHOD ; ((WEBLOCKS::FIELD WEBLOCKS::TABLE-VIEW-FIELD) ; (WEBLOCKS:VIEW WEBLOCKS::TABLE-VIEW) WEBLOCKS::WIDGET ; WEBLOCKS:PRESENTATION WEBLOCKS::VALUE WEBLOCKS::OBJ &REST WEBLOCKS::ARGS ; &KEY WEBLOCKS:FIELD-INFO &ALLOW-OTHER-KEYS) ; (WEBLOCKS-UTIL:RENDER-WT :TABLE-VIEW-FIELD-HEADER-WT ; (LIST :VIEW WEBLOCKS:VIEW :FIELD WEBLOCKS::FIELD ; :WIDGET WEBLOCKS::WIDGET :PRESENTATION ; WEBLOCKS:PRESENTATION :OBJECT ; WEBLOCKS::OBJ) ; :ROW-CLASS ; (IF WEBLOCKS:FIELD-INFO ; (WEBLOCKS:ATTRIBUTIZE-VIEW-FIELD-NAME ; WEBLOCKS:FIELD-INFO) ; (WEBLOCKS:ATTRIBUTIZE-NAME #)) ; :LABEL ; (WEBLOCKS-UTIL:TRANSLATE ; (WEBLOCKS:VIEW-FIELD-LABEL WEBLOCKS::FIELD))))) ; --> EVAL-WHEN DEFGENERIC PROGN SB-PCL::SET-INITIAL-METHODS ; --> SB-PCL::SET-INITIAL-METHODS LIST DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD ; WEBLOCKS::RENDER-VIEW-FIELD-HEADER ; (WEBLOCKS::TABLE-VIEW-FIELD WEBLOCKS::TABLE-VIEW T T ; T T)) ; (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::FIELD WEBLOCKS:VIEW ; WEBLOCKS::WIDGET WEBLOCKS:PRESENTATION WEBLOCKS::VALUE WEBLOCKS::OBJ ; &REST WEBLOCKS::ARGS &KEY WEBLOCKS:FIELD-INFO ...) ; (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-C::CURRENT-DEFMETHOD WEBLOCKS::RENDER-VIEW-FIELD-HEADER NIL ; (WEBLOCKS::TABLE-VIEW-FIELD WEBLOCKS::TABLE-VIEW T T T T) ; (WEBLOCKS::FIELD WEBLOCKS:VIEW WEBLOCKS::WIDGET WEBLOCKS:PRESENTATION ; WEBLOCKS::VALUE WEBLOCKS::OBJ &REST WEBLOCKS::ARGS &KEY ; WEBLOCKS:FIELD-INFO &ALLOW-OTHER-KEYS))) ; (DECLARE ; (SB-C::SOURCE-FORM ; (LAMBDA ; (WEBLOCKS::FIELD WEBLOCKS:VIEW WEBLOCKS::WIDGET ; WEBLOCKS:PRESENTATION WEBLOCKS::VALUE WEBLOCKS::OBJ ; &REST WEBLOCKS::ARGS ; &KEY WEBLOCKS:FIELD-INFO &ALLOW-OTHER-KEYS) ; (WEBLOCKS-UTIL:RENDER-WT :TABLE-VIEW-FIELD-HEADER-WT # :ROW-CLASS # ; :LABEL #)))) ; (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ)) ; (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::VALUE)) ; (DECLARE (SB-PCL::%PARAMETER WEBLOCKS:PRESENTATION)) ; (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::WIDGET)) ; (DECLARE (SB-PCL::%PARAMETER WEBLOCKS:VIEW)) ; (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::FIELD)) ; ...) ; ; caught STYLE-WARNING: ; The variable ARGS is defined but never used. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "tableview"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20250706-git/src/views/types/boolean.lisp ; in: DEFMETHOD WIDGET-TRANSLATION-TABLE ; (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE ; APPEND ; ((WEBLOCKS::OBJ (EQL 'WEBLOCKS::PREDICATE-PRESENTATION)) &REST ; WEBLOCKS::ARGS) ; `((:TRUE-STRING . ,(WEBLOCKS-UTIL:TRANSLATE "Yes")) ; (:FALSE-STRING . ,(WEBLOCKS-UTIL:TRANSLATE "No")))) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE ; APPEND ((EQL 'WEBLOCKS::PREDICATE-PRESENTATION))) ; (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST ; WEBLOCKS::ARGS) ; (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-C::CURRENT-DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE (APPEND) ; ((EQL #)) (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS))) ; (DECLARE ; (SB-C::SOURCE-FORM (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS) `(# #)))) ; (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ)) ; (DECLARE (IGNORABLE WEBLOCKS::OBJ)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ) ; SB-PCL::.NEXT-METHOD-CALL. ; (WEBLOCKS::OBJ) NIL ; :CALL-NEXT-METHOD-P NIL :SETQ-P ; NIL :PARAMETERS-SETQD NIL ; :METHOD-CELL (#:METHOD-CELL) ; ...) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ; caught STYLE-WARNING: ; The variable ARGS is defined but never used. ; (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE ; APPEND ; ((WEBLOCKS::OBJ WEBLOCKS::PREDICATE-PRESENTATION) &REST WEBLOCKS::ARGS) ; (WEBLOCKS:WIDGET-TRANSLATION-TABLE 'WEBLOCKS::PREDICATE-PRESENTATION)) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE ; APPEND (WEBLOCKS::PREDICATE-PRESENTATION)) ; (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST ; WEBLOCKS::ARGS) ; (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-C::CURRENT-DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE (APPEND) ; (WEBLOCKS::PREDICATE-PRESENTATION) ; (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS))) ; (DECLARE ; (SB-C::SOURCE-FORM ; (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS) ; (WEBLOCKS:WIDGET-TRANSLATION-TABLE #)))) ; (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ)) ; (DECLARE (IGNORABLE WEBLOCKS::OBJ)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ) ; SB-PCL::.NEXT-METHOD-CALL. ; (WEBLOCKS::OBJ) NIL ; :CALL-NEXT-METHOD-P NIL :SETQ-P ; NIL :PARAMETERS-SETQD NIL ; :METHOD-CELL (#:METHOD-CELL) ; ...) ; (DECLARE ; (SB-PCL::%CLASS WEBLOCKS::OBJ WEBLOCKS::PREDICATE-PRESENTATION)) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ; caught STYLE-WARNING: ; The variable ARGS is defined but never used. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "types" "boolean"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20250706-git/src/views/types/presentations/widget.lisp ; in: DEFMETHOD RENDER-VIEW-FIELD-VALUE ; (CLOSER-MOP:DEFMETHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE ; (WEBLOCKS::VALUE (WEBLOCKS:PRESENTATION WEBLOCKS::WIDGET-PRESENTATION) ; WEBLOCKS::FIELD WEBLOCKS:VIEW WEBLOCKS::WIDGET WEBLOCKS::OBJ &REST ; WEBLOCKS::ARGS &KEY WEBLOCKS::INTERMEDIATE-VALUES WEBLOCKS:FIELD-INFO) ; (LET ((WEBLOCKS::ATTRIBUTIZED-SLOT-NAME ; (IF WEBLOCKS:FIELD-INFO ; # ; #)) ; (WEBLOCKS::FIELD-WIDGET (SETF #))) ; (WEBLOCKS::RENDER-WIDGET WEBLOCKS::FIELD-WIDGET))) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE ; (T WEBLOCKS::WIDGET-PRESENTATION T T T T)) ; (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::VALUE ; WEBLOCKS:PRESENTATION WEBLOCKS::FIELD WEBLOCKS:VIEW WEBLOCKS::WIDGET ; WEBLOCKS::OBJ &REST WEBLOCKS::ARGS &KEY WEBLOCKS::INTERMEDIATE-VALUES ; ...) ; (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-C::CURRENT-DEFMETHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE NIL ; (T WEBLOCKS::WIDGET-PRESENTATION T T T T) ; (WEBLOCKS::VALUE WEBLOCKS:PRESENTATION WEBLOCKS::FIELD WEBLOCKS:VIEW ; WEBLOCKS::WIDGET WEBLOCKS::OBJ &REST WEBLOCKS::ARGS &KEY ; WEBLOCKS::INTERMEDIATE-VALUES WEBLOCKS:FIELD-INFO))) ; (DECLARE ; (SB-C::SOURCE-FORM ; (LAMBDA ; (WEBLOCKS::VALUE WEBLOCKS:PRESENTATION WEBLOCKS::FIELD ; WEBLOCKS:VIEW WEBLOCKS::WIDGET WEBLOCKS::OBJ ; &REST WEBLOCKS::ARGS ; &KEY WEBLOCKS::INTERMEDIATE-VALUES WEBLOCKS:FIELD-INFO) ; (LET # ; #)))) ; (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ)) ; (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::WIDGET)) ; (DECLARE (SB-PCL::%PARAMETER WEBLOCKS:VIEW)) ; (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::FIELD)) ; (DECLARE (SB-PCL::%PARAMETER WEBLOCKS:PRESENTATION)) ; (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::VALUE)) ; ...) ; ; caught STYLE-WARNING: ; The variable INTERMEDIATE-VALUES is defined but never used. ; (WEBLOCKS::ATTRIBUTIZED-SLOT-NAME ; (IF WEBLOCKS:FIELD-INFO ; (WEBLOCKS:ATTRIBUTIZE-VIEW-FIELD-NAME WEBLOCKS:FIELD-INFO) ; (WEBLOCKS:ATTRIBUTIZE-NAME ; (WEBLOCKS:VIEW-FIELD-SLOT-NAME WEBLOCKS::FIELD)))) ; ; caught STYLE-WARNING: ; The variable ATTRIBUTIZED-SLOT-NAME is defined but never used. ; (CLOSER-MOP:DEFMETHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE ; (WEBLOCKS::VALUE (WEBLOCKS:PRESENTATION WEBLOCKS::WIDGET-PRESENTATION) ; WEBLOCKS::FIELD WEBLOCKS:VIEW WEBLOCKS::WIDGET WEBLOCKS::OBJ &REST ; WEBLOCKS::ARGS &KEY WEBLOCKS::INTERMEDIATE-VALUES WEBLOCKS:FIELD-INFO) ; (LET ((WEBLOCKS::ATTRIBUTIZED-SLOT-NAME ; (IF WEBLOCKS:FIELD-INFO ; # ; #)) ; (WEBLOCKS::FIELD-WIDGET (SETF #))) ; (WEBLOCKS::RENDER-WIDGET WEBLOCKS::FIELD-WIDGET))) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE ; (T WEBLOCKS::WIDGET-PRESENTATION T T T T)) ; (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::VALUE ; WEBLOCKS:PRESENTATION WEBLOCKS::FIELD WEBLOCKS:VIEW WEBLOCKS::WIDGET ; WEBLOCKS::OBJ &REST WEBLOCKS::ARGS &KEY WEBLOCKS::INTERMEDIATE-VALUES ; ...) ; (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-C::CURRENT-DEFMETHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE NIL ; (T WEBLOCKS::WIDGET-PRESENTATION T T T T) ; (WEBLOCKS::VALUE WEBLOCKS:PRESENTATION WEBLOCKS::FIELD WEBLOCKS:VIEW ; WEBLOCKS::WIDGET WEBLOCKS::OBJ &REST WEBLOCKS::ARGS &KEY ; WEBLOCKS::INTERMEDIATE-VALUES WEBLOCKS:FIELD-INFO))) ; (DECLARE ; (SB-C::SOURCE-FORM ; (LAMBDA ; (WEBLOCKS::VALUE WEBLOCKS:PRESENTATION WEBLOCKS::FIELD ; WEBLOCKS:VIEW WEBLOCKS::WIDGET WEBLOCKS::OBJ ; &REST WEBLOCKS::ARGS ; &KEY WEBLOCKS::INTERMEDIATE-VALUES WEBLOCKS:FIELD-INFO) ; (LET # ; #)))) ; (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ)) ; (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::WIDGET)) ; (DECLARE (SB-PCL::%PARAMETER WEBLOCKS:VIEW)) ; (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::FIELD)) ; (DECLARE (SB-PCL::%PARAMETER WEBLOCKS:PRESENTATION)) ; (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::VALUE)) ; ...) ; ; caught STYLE-WARNING: ; The variable ARGS is defined but never used. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "types" "presentations" "widget"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20250706-git/src/views/types/password.lisp ; in: DEFMETHOD RENDER-VIEW-FIELD-VALUE ; (CLOSER-MOP:DEFMETHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE ; (WEBLOCKS::VALUE (WEBLOCKS:PRESENTATION WEBLOCKS::PASSWORD-PRESENTATION) ; (WEBLOCKS::FIELD WEBLOCKS:FORM-VIEW-FIELD) ; (WEBLOCKS:VIEW WEBLOCKS:FORM-VIEW) WEBLOCKS::WIDGET WEBLOCKS::OBJ &KEY ; WEBLOCKS:FIELD-INFO &ALLOW-OTHER-KEYS) ; (DECLARE (IGNORE WEBLOCKS::ARGS) ; (SPECIAL WEBLOCKS:*PRESENTATION-DOM-ID*)) ; (WEBLOCKS:RENDER-PASSWORD ; (IF WEBLOCKS:FIELD-INFO ; (WEBLOCKS:ATTRIBUTIZE-VIEW-FIELD-NAME WEBLOCKS:FIELD-INFO) ; (WEBLOCKS:ATTRIBUTIZE-NAME ; (WEBLOCKS:VIEW-FIELD-SLOT-NAME WEBLOCKS::FIELD))) ; NIL :MAXLENGTH ; (WEBLOCKS:INPUT-PRESENTATION-MAX-LENGTH WEBLOCKS:PRESENTATION) :SIZE ; (WEBLOCKS::INPUT-PRESENTATION-SIZE WEBLOCKS:PRESENTATION) :ID ; WEBLOCKS:*PRESENTATION-DOM-ID*)) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LABELS LET SB-PCL::BIND-ARGS ; ==> ; (LET* ((SB-PCL::.ARGS-TAIL. NIL) (SB-PCL::.DUMMY0.)) ; (DECLARE (IGNORABLE SB-PCL::.ARGS-TAIL. SB-PCL::.DUMMY0.)) ; (DECLARE (SPECIAL WEBLOCKS:*PRESENTATION-DOM-ID*)) ; (DECLARE (IGNORE WEBLOCKS::ARGS)) ; (DECLARE (SB-PCL::%CLASS WEBLOCKS:VIEW WEBLOCKS:FORM-VIEW)) ; (DECLARE (SB-PCL::%CLASS WEBLOCKS::FIELD WEBLOCKS:FORM-VIEW-FIELD)) ; (DECLARE ; (SB-PCL::%CLASS WEBLOCKS:PRESENTATION WEBLOCKS::PASSWORD-PRESENTATION)) ; (LOCALLY ; (DECLARE (DISABLE-PACKAGE-LOCKS SB-PCL::%PARAMETER-BINDING-MODIFIED)) ; (SYMBOL-MACROLET ((SB-PCL::%PARAMETER-BINDING-MODIFIED #)) ; (DECLARE (ENABLE-PACKAGE-LOCKS SB-PCL::%PARAMETER-BINDING-MODIFIED)) ; (BLOCK WEBLOCKS:RENDER-VIEW-FIELD-VALUE ; (WEBLOCKS:RENDER-PASSWORD # NIL :MAXLENGTH # :SIZE # :ID ; WEBLOCKS:*PRESENTATION-DOM-ID*))))) ; ; caught STYLE-WARNING: ; IGNORE declaration for an unknown variable: ARGS ; (CLOSER-MOP:DEFMETHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE ; ((WEBLOCKS::VALUE NULL) ; (WEBLOCKS:PRESENTATION WEBLOCKS::PASSWORD-PRESENTATION) ; (WEBLOCKS::FIELD WEBLOCKS:FORM-VIEW-FIELD) ; (WEBLOCKS:VIEW WEBLOCKS:FORM-VIEW) WEBLOCKS::WIDGET WEBLOCKS::OBJ &KEY ; WEBLOCKS:FIELD-INFO &ALLOW-OTHER-KEYS) ; (DECLARE (IGNORE WEBLOCKS::ARGS) ; (SPECIAL WEBLOCKS:*PRESENTATION-DOM-ID*)) ; (WEBLOCKS:RENDER-PASSWORD ; (IF WEBLOCKS:FIELD-INFO ; (WEBLOCKS:ATTRIBUTIZE-VIEW-FIELD-NAME WEBLOCKS:FIELD-INFO) ; (WEBLOCKS:ATTRIBUTIZE-NAME ; (WEBLOCKS:VIEW-FIELD-SLOT-NAME WEBLOCKS::FIELD))) ; NIL :MAXLENGTH ; (WEBLOCKS:INPUT-PRESENTATION-MAX-LENGTH WEBLOCKS:PRESENTATION) :SIZE ; (WEBLOCKS::INPUT-PRESENTATION-SIZE WEBLOCKS:PRESENTATION) :ID ; WEBLOCKS:*PRESENTATION-DOM-ID*)) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LABELS LET SB-PCL::BIND-ARGS ; ==> ; (LET* ((SB-PCL::.ARGS-TAIL. NIL) (SB-PCL::.DUMMY0.)) ; (DECLARE (IGNORABLE SB-PCL::.ARGS-TAIL. SB-PCL::.DUMMY0.)) ; (DECLARE (SPECIAL WEBLOCKS:*PRESENTATION-DOM-ID*)) ; (DECLARE (IGNORE WEBLOCKS::ARGS)) ; (DECLARE (SB-PCL::%CLASS WEBLOCKS:VIEW WEBLOCKS:FORM-VIEW)) ; (DECLARE (SB-PCL::%CLASS WEBLOCKS::FIELD WEBLOCKS:FORM-VIEW-FIELD)) ; (DECLARE ; (SB-PCL::%CLASS WEBLOCKS:PRESENTATION WEBLOCKS::PASSWORD-PRESENTATION)) ; (DECLARE (SB-PCL::%CLASS WEBLOCKS::VALUE NULL)) ; (LOCALLY ; (DECLARE (DISABLE-PACKAGE-LOCKS SB-PCL::%PARAMETER-BINDING-MODIFIED)) ; (SYMBOL-MACROLET ((SB-PCL::%PARAMETER-BINDING-MODIFIED #)) ; (DECLARE (ENABLE-PACKAGE-LOCKS SB-PCL::%PARAMETER-BINDING-MODIFIED)) ; (BLOCK WEBLOCKS:RENDER-VIEW-FIELD-VALUE ; (WEBLOCKS:RENDER-PASSWORD # NIL :MAXLENGTH # :SIZE # :ID ; WEBLOCKS:*PRESENTATION-DOM-ID*))))) ; ; caught STYLE-WARNING: ; IGNORE declaration for an unknown variable: ARGS WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "types" "password"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20250706-git/src/widgets/widget/widget.lisp ; in: DEFGENERIC WIDGET-CHILDREN ; (CLOSER-MOP:DEFGENERIC WEBLOCKS::WIDGET-CHILDREN ; (WEBLOCKS::W &OPTIONAL TYPE) ; (:DOCUMENTATION "Return a list of all widgets (all types) who are ; children of w (e.g. may be rendered when w is rendered).") ; (:METHOD (WEBLOCKS::W &OPTIONAL TYPE) "NIL unless defined otherwise." NIL) ; (:METHOD ((WEBLOCKS::W WEBLOCKS::WIDGET) &OPTIONAL TYPE) ; (IF TYPE ; (CDR (ASSOC TYPE #)) ; (REDUCE #'APPEND ; (SLOT-VALUE WEBLOCKS::W 'METABANG.CL-CONTAINERS:CHILDREN) ; :FROM-END T :KEY #'CDR)))) ; --> EVAL-WHEN DEFGENERIC PROGN SB-PCL::SET-INITIAL-METHODS ; --> SB-PCL::SET-INITIAL-METHODS LIST DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS::WIDGET-CHILDREN (T)) ; (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::W &OPTIONAL TYPE) ; (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-C::CURRENT-DEFMETHOD WEBLOCKS::WIDGET-CHILDREN NIL (T) ; (WEBLOCKS::W &OPTIONAL TYPE))) ; (DECLARE ; (SB-C::SOURCE-FORM ; (LAMBDA (WEBLOCKS::W &OPTIONAL TYPE) ; "NIL unless defined otherwise." ; NIL))) ; (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::W)) ; (DECLARE (TYPE T WEBLOCKS::W)) ; (DECLARE (IGNORABLE WEBLOCKS::W)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::W) ; SB-PCL::.NEXT-METHOD-CALL. ; (WEBLOCKS::W) NIL ; :CALL-NEXT-METHOD-P NIL :SETQ-P ; NIL :PARAMETERS-SETQD NIL ; :METHOD-CELL (#:METHOD-CELL) ; ...) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ; caught STYLE-WARNING: ; The variable TYPE is defined but never used. ; in: DEFGENERIC RENDER-WIDGET-CHILDREN ; (CLOSER-MOP:DEFGENERIC WEBLOCKS::RENDER-WIDGET-CHILDREN ; (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS) ; (:DOCUMENTATION "Renders the widget's children.") ; (:METHOD (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS) ; (WARN ; "Cannot update the widget children of ~S because it is not a widget." ; WEBLOCKS::OBJ)) ; (:METHOD ((WEBLOCKS::OBJ WEBLOCKS::WIDGET) &REST WEBLOCKS::ARGS) ; "Render all children. Specialize this method if you only want ; to render widgets of a certain type." ; (MAPC ; (LAMBDA (WEBLOCKS::CHILD) ; (APPLY #'WEBLOCKS::RENDER-WIDGET WEBLOCKS::CHILD WEBLOCKS::ARGS)) ; (WEBLOCKS::WIDGET-CHILDREN WEBLOCKS::OBJ)))) ; --> EVAL-WHEN DEFGENERIC PROGN SB-PCL::SET-INITIAL-METHODS ; --> SB-PCL::SET-INITIAL-METHODS LIST DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS::RENDER-WIDGET-CHILDREN ; (T)) ; (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST ; WEBLOCKS::ARGS) ; (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.) ; (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT)) ; (DECLARE ; (SB-C::CURRENT-DEFMETHOD WEBLOCKS::RENDER-WIDGET-CHILDREN NIL (T) ; (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS))) ; (DECLARE ; (SB-C::SOURCE-FORM ; (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS) ; (WARN ; "Cannot update the widget children of ~S because it is not a widget." ; WEBLOCKS::OBJ)))) ; (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ)) ; (DECLARE (TYPE T WEBLOCKS::OBJ)) ; (DECLARE (IGNORABLE WEBLOCKS::OBJ)) ; (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT)) ; (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ) ; SB-PCL::.NEXT-METHOD-CALL. ; (WEBLOCKS::OBJ) NIL ; :CALL-NEXT-METHOD-P NIL :SETQ-P ; NIL :PARAMETERS-SETQD NIL ; :METHOD-CELL (#:METHOD-CELL) ; ...) ; (LOCALLY ; (DECLARE #) ; (SYMBOL-MACROLET # ; # ; #))))) ; ; caught STYLE-WARNING: ; The variable ARGS is defined but never used. ; in: DEFMETHOD MARK-DIRTY ; (WEBLOCKS::PUTP NIL WEBLOCKS::PUTP-SUPPLIED) ; ; caught STYLE-WARNING: ; The variable PUTP is defined but never used. ; in: DEFUN COPY-WIDGET-TREE ; (MAPC #'WEBLOCKS::COPY-WIDGET-TREE WEBLOCKS::SLOTNAME) ; ; caught WARNING: ; Derived type of #:G2 is (MEMBER METABANG.CL-CONTAINERS:CHILDREN), conflicting with its asserted type LIST. ; See also: ; The SBCL Manual, Node "Handling of Types" ; in: DEFMETHOD RENDER-WIDGET-BODY ; (CLOSER-MOP:DEFMETHOD WEBLOCKS::RENDER-WIDGET-BODY ; :AROUND ; ((WEBLOCKS::WIDGET WEBLOCKS::WIDGET) &REST WEBLOCKS::ARGS) ; "Record profiling information." ; (WEBLOCKS:WEBAPP-UPDATE-THREAD-STATUS ; (CONCATENATE 'STRING "rendering widget " ; (PRINC-TO-STRING WEBLOCKS::WIDGET))) ; (WEBLOCKS:TIMING (CONCATENATE 'STRING "render-widget " ; (PRINC-TO-STRING WEBLOCKS::WIDGET)) ; (CALL-NEXT-METHOD))) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LABELS LET SB-PCL::BIND-ARGS ; ==> ; (LET* ((SB-PCL::.ARGS-TAIL. SB-PCL::.REST-ARG.) ; (WEBLOCKS::ARGS SB-PCL::.ARGS-TAIL.) ; (SB-PCL::.DUMMY0.)) ; (DECLARE (IGNORABLE SB-PCL::.ARGS-TAIL. SB-PCL::.DUMMY0.)) ; (DECLARE (SB-PCL::%CLASS WEBLOCKS::WIDGET WEBLOCKS::WIDGET)) ; (LOCALLY ; (DECLARE (DISABLE-PACKAGE-LOCKS SB-PCL::%PARAMETER-BINDING-MODIFIED)) ; (SYMBOL-MACROLET ((SB-PCL::%PARAMETER-BINDING-MODIFIED #)) ; (DECLARE (ENABLE-PACKAGE-LOCKS SB-PCL::%PARAMETER-BINDING-MODIFIED)) ; (BLOCK WEBLOCKS::RENDER-WIDGET-BODY ; (WEBLOCKS:WEBAPP-UPDATE-THREAD-STATUS #) ; (LET # ; #))))) ; ; caught STYLE-WARNING: ; The variable ARGS is defined but never used. ; (WEBLOCKS:TIMING (CONCATENATE 'STRING "render-widget " ; (PRINC-TO-STRING WEBLOCKS::WIDGET)) ; (CALL-NEXT-METHOD)) ; --> LET PROG1 LET PROGN LET* ; ==> ; (/ (- #:G2 #:G0) INTERNAL-TIME-UNITS-PER-SECOND) ; ; note: unable to optimize due to type uncertainty: The result is a (VALUES (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000) &OPTIONAL), not a (VALUES INTEGER &REST T). ; ==> ; (/ (- #:G3 #:G1) INTERNAL-TIME-UNITS-PER-SECOND) ; ; note: unable to optimize due to type uncertainty: The result is a (VALUES (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000) &OPTIONAL), not a (VALUES INTEGER &REST T). ; --> LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (RATIONAL -2305843009213693951/1000000 2305843009213693951/1000000), not a FIXNUM. ; etc. Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=311743 "main thread" RUNNING {123FD58093}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "weblocks" "src" "widgets" "widget" "widget"> Backtrace for: #<SB-THREAD:THREAD tid=311743 "main thread" RUNNING {123FD58093}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {120BB05343}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {120BB05343}>) 2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {120BB05343}>) 3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks" "src" "widgets" "widget" "widget">))) 4: (UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks" "src" "widgets" "widget" "widget">))) 5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks" "src" "widgets" "widget" "widget">) 6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 7: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks" "src" "widgets" "widget" "widget">) [fast-method] 8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<unknown pointer object, lowtag=#x3 {120467E0F3}>) [fast-method] 9: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT)) 10: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<unknown pointer object, lowtag=#x3 {120467E0F3}>) [fast-method] 11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "simple-blog"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method] 12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "simple-blog">) 13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "simple-blog">) [fast-method] 15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "simple-blog") 16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "simple-blog") [fast-method] 18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {120468728B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL) 19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {120464E20B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL) 21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "simple-blog") [fast-method] 22: (DEPCHECK::COMPUTE-DEPENDENCIES "simple-blog" "simple-blog") 23: (DEPCHECK::MAGIC "simple-blog" "simple-blog" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-DEic8eyJ/depcheck-win.txt") 24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "simple-blog" "simple-blog" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-DEic8eyJ/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-DEic8eyJ/depcheck-fail.txt")) 25: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp")) 26: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP)) 27: ((FLET "WITHOUT-INTERRUPTS-BODY-3" :IN SB-IMPL::START-LISP)) 28: (SB-IMPL::%START-LISP) unhandled condition in --disable-debugger mode, quitting ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; caught 1 WARNING condition ; caught 43 STYLE-WARNING conditions ; printed 108 notes