emacs debugger output

debugger.txt (text/plain), 40.39 KB, created by Carlos Konstanski on 2009-04-06 03:29:25 UTC

Debugger entered--Lisp error: (void-function slime-maybe-list-compiler-notes)
  slime-maybe-list-compiler-notes(((:message "The name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant." :severity :error :location (:location ... ... nil) :references nil :short-message "The name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant.") (:message "The variable #:SUPPLIEDP-4 is defined but never used." :severity :style-warning :location (:location ... ... nil) :references nil :short-message "The variable #:SUPPLIEDP-4 is defined but never used.") (:message "--> EVAL-WHEN SB-C::%DEFMACRO MULTIPLE-VALUE-PROG1 PROGN LET* \n==>\n  (LET* ((SVBRONZE::PRODUCT-CATEGORY (CAR (CDR #:WHOLE0)))\n         (SVBRONZE::PRODUCT-CATEGORY-ID (CAR (CDR #)))\n         (:FALLBACK-DEFAULT\n          (IF #:SUPPLIEDP-4\n              (SB-KERNEL::LOOKUP-KEYWORD ':FALLBACK-DEFAULT #:KEYWORDS-3) T)))\n    (BLOCK SVBRONZE::GET-SESSION-PRODUCT-CATEGORY\n      `(PROGN\n        (WHEN (OR # #) (SETF ,SVBRONZE::PRODUCT-CATEGORY #))\n        (WHEN (AND ,SVBRONZE::FALLBACK-DEFAULT #)\n          (SETF ,SVBRONZE::PRODUCT-CATEGORY #))\n        (WHEN ,SVBRONZE::PRODUCT-CATEGORY\n          (SVBRONZE::SET-SESSION ,SVBRONZE::PRODUCT-CATEGORY\n                                 SVBRONZE::USER-SESSION)))))\nThe name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant." :severity :error :location (:location ... ... nil) :references nil :short-message "The name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant.") (:message "--> EVAL-WHEN SB-C::%DEFMACRO MULTIPLE-VALUE-PROG1 PROGN \n==>\n  (LET* ((#:KEYWORDS-3 (CDR (CDR #)))\n         (#:SUPPLIEDP-4\n          (SB-KERNEL::KEYWORD-SUPPLIED-P ':FALLBACK-DEFAULT #:KEYWORDS-3)))\n    (DECLARE (MUFFLE-CONDITIONS CODE-DELETION-NOTE))\n    (DECLARE (IGNORABLE #:KEYWORDS-3))\n    (MULTIPLE-VALUE-BIND\n        (#:KEY-PROBLEM-6 #:INFO-7)\n        (SB-KERNEL::VERIFY-KEYWORDS #:KEYWORDS-3 '(:FALLBACK-DEFAULT) 'NIL)\n      (WHEN #:KEY-PROBLEM-6\n        (ERROR 'SB-KERNEL::DEFMACRO-LAMBDA-LIST-BROKEN-KEY-LIST-ERROR :KIND\n               'DEFMACRO :NAME 'SVBRONZE::GET-SESSION-PRODUCT-CATEGORY :PROBLEM\n               #:KEY-PROBLEM-6 :INFO #:INFO-7)))\n    (LET ((#:ARGS5 (CDR #:WHOLE0)))\n      (UNLESS (SB-INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS5 2)\n        (SB-KERNEL::ARG-COUNT-ERROR 'DEFMACRO\n                                    'SVBRONZE::GET-SESSION-PRODUCT-CATEGORY\n                                    #:ARGS5\n                                    '(SVBRONZE::PRODUCT-CATEGORY\n                                      SVBRONZE::PRODUCT-CATEGORY-ID &KEY #)\n                                    2 NIL)))\n    (LET* ((SVBRONZE::PRODUCT-CATEGORY (CAR #))\n           (SVBRONZE::PRODUCT-CATEGORY-ID (CAR #))\n           (:FALLBACK-DEFAULT (IF #:SUPPLIEDP-4 # T)))\n      (BLOCK SVBRONZE::GET-SESSION-PRODUCT-CATEGORY\n        `(PROGN (WHEN # #) (WHEN # #) (WHEN ,SVBRONZE::PRODUCT-CATEGORY #)))))\nThe variable #:SUPPLIEDP-4 is defined but never used." :severity :style-warning :location (:location ... ... nil) :references nil :short-message "The variable #:SUPPLIEDP-4 is defined but never used.") (:message "The name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant." :severity :error :location (:location ... ... nil) :references nil :short-message "The name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant.") (:message "The variable #:SUPPLIEDP-20 is defined but never used." :severity :style-warning :location (:location ... ... nil) :references nil :short-message "The variable #:SUPPLIEDP-20 is defined but never used.") (:message "--> EVAL-WHEN SB-C::%DEFMACRO MULTIPLE-VALUE-PROG1 PROGN LET* \n==>\n  (LET* ((SVBRONZE::PRODUCT-PAGE (CAR (CDR #:WHOLE16)))\n         (SVBRONZE::PRODUCT-CATEGORY-ID (CAR (CDR #)))\n         (SVBRONZE::PRODUCT-PAGE-ID (CAR (CDR #)))\n         (:FALLBACK-DEFAULT\n          (IF #:SUPPLIEDP-20\n              (SB-KERNEL::LOOKUP-KEYWORD ':FALLBACK-DEFAULT #:KEYWORDS-19) T)))\n    (BLOCK SVBRONZE::GET-SESSION-PRODUCT-PAGE\n      `(PROGN\n        (WHEN (OR # #) (SETF ,SVBRONZE::PRODUCT-PAGE #))\n        (WHEN (AND ,SVBRONZE::FALLBACK-DEFAULT #)\n          (SETF ,SVBRONZE::PRODUCT-PAGE #))\n        (WHEN ,SVBRONZE::PRODUCT-PAGE\n          (SVBRONZE::SET-SESSION ,SVBRONZE::PRODUCT-PAGE\n                                 SVBRONZE::USER-SESSION)))))\nThe name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant." :severity :error :location (:location ... ... nil) :references nil :short-message "The name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant.") (:message "--> EVAL-WHEN SB-C::%DEFMACRO MULTIPLE-VALUE-PROG1 PROGN \n==>\n  (LET* ((#:KEYWORDS-19 (CDR (CDR #)))\n         (#:SUPPLIEDP-20\n          (SB-KERNEL::KEYWORD-SUPPLIED-P ':FALLBACK-DEFAULT #:KEYWORDS-19)))\n    (DECLARE (MUFFLE-CONDITIONS CODE-DELETION-NOTE))\n    (DECLARE (IGNORABLE #:KEYWORDS-19))\n    (MULTIPLE-VALUE-BIND\n        (#:KEY-PROBLEM-22 #:INFO-23)\n        (SB-KERNEL::VERIFY-KEYWORDS #:KEYWORDS-19 '(:FALLBACK-DEFAULT) 'NIL)\n      (WHEN #:KEY-PROBLEM-22\n        (ERROR 'SB-KERNEL::DEFMACRO-LAMBDA-LIST-BROKEN-KEY-LIST-ERROR :KIND\n               'DEFMACRO :NAME 'SVBRONZE::GET-SESSION-PRODUCT-PAGE :PROBLEM\n               #:KEY-PROBLEM-22 :INFO #:INFO-23)))\n    (LET ((#:ARGS21 (CDR #:WHOLE16)))\n      (UNLESS (SB-INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS21 3)\n        (SB-KERNEL::ARG-COUNT-ERROR 'DEFMACRO\n                                    'SVBRONZE::GET-SESSION-PRODUCT-PAGE\n                                    #:ARGS21\n                                    '(SVBRONZE::PRODUCT-PAGE\n                                      SVBRONZE::PRODUCT-CATEGORY-ID\n                                      SVBRONZE::PRODUCT-PAGE-ID &KEY #)\n                                    3 NIL)))\n    (LET* ((SVBRONZE::PRODUCT-PAGE (CAR #))\n           (SVBRONZE::PRODUCT-CATEGORY-ID (CAR #))\n           (SVBRONZE::PRODUCT-PAGE-ID (CAR #))\n           (:FALLBACK-DEFAULT (IF #:SUPPLIEDP-20 # T)))\n      (BLOCK SVBRONZE::GET-SESSION-PRODUCT-PAGE\n        `(PROGN (WHEN # #) (WHEN # #) (WHEN ,SVBRONZE::PRODUCT-PAGE #)))))\nThe variable #:SUPPLIEDP-20 is defined but never used." :severity :style-warning :location (:location ... ... nil) :references nil :short-message "The variable #:SUPPLIEDP-20 is defined but never used.") (:message "The name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant." :severity :error :location (:location ... ... nil) :references nil :short-message "The name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant.") (:message "The variable #:SUPPLIEDP-36 is defined but never used." :severity :style-warning :location (:location ... ... nil) :references nil :short-message "The variable #:SUPPLIEDP-36 is defined but never used.") (:message "--> EVAL-WHEN SB-C::%DEFMACRO MULTIPLE-VALUE-PROG1 PROGN LET* \n==>\n  (LET* ((SVBRONZE::PRODUCT-TEMPLATE (CAR (CDR #:WHOLE32)))\n         (SVBRONZE::PRODUCT-PAGE-ID (CAR (CDR #)))\n         (SVBRONZE::PRODUCT-TEMPLATE-ID (CAR (CDR #)))\n         (:FALLBACK-DEFAULT\n          (IF #:SUPPLIEDP-36\n              (SB-KERNEL::LOOKUP-KEYWORD ':FALLBACK-DEFAULT #:KEYWORDS-35) T)))\n    (BLOCK SVBRONZE::GET-SESSION-PRODUCT-TEMPLATE\n      `(PROGN\n        (WHEN (OR # #) (SETF ,SVBRONZE::PRODUCT-TEMPLATE #))\n        (WHEN (AND ,SVBRONZE::FALLBACK-DEFAULT #)\n          (SETF ,SVBRONZE::PRODUCT-TEMPLATE #))\n        (WHEN ,SVBRONZE::PRODUCT-TEMPLATE\n          (SVBRONZE::SET-SESSION ,SVBRONZE::PRODUCT-TEMPLATE\n                                 SVBRONZE::USER-SESSION)))))\nThe name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant." :severity :error :location (:location ... ... nil) :references nil :short-message "The name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant.") (:message "--> EVAL-WHEN SB-C::%DEFMACRO MULTIPLE-VALUE-PROG1 PROGN \n==>\n  (LET* ((#:KEYWORDS-35 (CDR (CDR #)))\n         (#:SUPPLIEDP-36\n          (SB-KERNEL::KEYWORD-SUPPLIED-P ':FALLBACK-DEFAULT #:KEYWORDS-35)))\n    (DECLARE (MUFFLE-CONDITIONS CODE-DELETION-NOTE))\n    (DECLARE (IGNORABLE #:KEYWORDS-35))\n    (MULTIPLE-VALUE-BIND\n        (#:KEY-PROBLEM-38 #:INFO-39)\n        (SB-KERNEL::VERIFY-KEYWORDS #:KEYWORDS-35 '(:FALLBACK-DEFAULT) 'NIL)\n      (WHEN #:KEY-PROBLEM-38\n        (ERROR 'SB-KERNEL::DEFMACRO-LAMBDA-LIST-BROKEN-KEY-LIST-ERROR :KIND\n               'DEFMACRO :NAME 'SVBRONZE::GET-SESSION-PRODUCT-TEMPLATE :PROBLEM\n               #:KEY-PROBLEM-38 :INFO #:INFO-39)))\n    (LET ((#:ARGS37 (CDR #:WHOLE32)))\n      (UNLESS (SB-INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS37 3)\n        (SB-KERNEL::ARG-COUNT-ERROR 'DEFMACRO\n                                    'SVBRONZE::GET-SESSION-PRODUCT-TEMPLATE\n                                    #:ARGS37\n                                    '(SVBRONZE::PRODUCT-TEMPLATE\n                                      SVBRONZE::PRODUCT-PAGE-ID\n                                      SVBRONZE::PRODUCT-TEMPLATE-ID &KEY #)\n                                    3 NIL)))\n    (LET* ((SVBRONZE::PRODUCT-TEMPLATE (CAR #))\n           (SVBRONZE::PRODUCT-PAGE-ID (CAR #))\n           (SVBRONZE::PRODUCT-TEMPLATE-ID (CAR #))\n           (:FALLBACK-DEFAULT (IF #:SUPPLIEDP-36 # T)))\n      (BLOCK SVBRONZE::GET-SESSION-PRODUCT-TEMPLATE\n        `(PROGN (WHEN # #) (WHEN # #) (WHEN ,SVBRONZE::PRODUCT-TEMPLATE #)))))\nThe variable #:SUPPLIEDP-36 is defined but never used." :severity :style-warning :location (:location ... ... nil) :references nil :short-message "The variable #:SUPPLIEDP-36 is defined but never used.") (:message "The name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant." :severity :error :location (:location ... ... nil) :references nil :short-message "The name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant.") (:message "The variable #:SUPPLIEDP-52 is defined but never used." :severity :style-warning :location (:location ... ... nil) :references nil :short-message "The variable #:SUPPLIEDP-52 is defined but never used.") (:message "--> EVAL-WHEN SB-C::%DEFMACRO MULTIPLE-VALUE-PROG1 PROGN LET* \n==>\n  (LET* ((SVBRONZE::PRODUCT (CAR (CDR #:WHOLE48)))\n         (SVBRONZE::PRODUCT-TEMPLATE-ID (CAR (CDR #)))\n         (SVBRONZE::PRODUCT-ID (CAR (CDR #)))\n         (:FALLBACK-DEFAULT\n          (IF #:SUPPLIEDP-52\n              (SB-KERNEL::LOOKUP-KEYWORD ':FALLBACK-DEFAULT #:KEYWORDS-51) T)))\n    (BLOCK SVBRONZE::GET-SESSION-PRODUCT\n      `(PROGN\n        (WHEN (OR # #) (SETF ,SVBRONZE::PRODUCT #))\n        (WHEN (AND ,SVBRONZE::FALLBACK-DEFAULT #) (SETF ,SVBRONZE::PRODUCT #))\n        (WHEN ,SVBRONZE::PRODUCT\n          (SVBRONZE::SET-SESSION ,SVBRONZE::PRODUCT SVBRONZE::USER-SESSION)))))\nThe name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant." :severity :error :location (:location ... ... nil) :references nil :short-message "The name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant.") (:message "--> EVAL-WHEN SB-C::%DEFMACRO MULTIPLE-VALUE-PROG1 PROGN \n==>\n  (LET* ((#:KEYWORDS-51 (CDR (CDR #)))\n         (#:SUPPLIEDP-52\n          (SB-KERNEL::KEYWORD-SUPPLIED-P ':FALLBACK-DEFAULT #:KEYWORDS-51)))\n    (DECLARE (MUFFLE-CONDITIONS CODE-DELETION-NOTE))\n    (DECLARE (IGNORABLE #:KEYWORDS-51))\n    (MULTIPLE-VALUE-BIND\n        (#:KEY-PROBLEM-54 #:INFO-55)\n        (SB-KERNEL::VERIFY-KEYWORDS #:KEYWORDS-51 '(:FALLBACK-DEFAULT) 'NIL)\n      (WHEN #:KEY-PROBLEM-54\n        (ERROR 'SB-KERNEL::DEFMACRO-LAMBDA-LIST-BROKEN-KEY-LIST-ERROR :KIND\n               'DEFMACRO :NAME 'SVBRONZE::GET-SESSION-PRODUCT :PROBLEM\n               #:KEY-PROBLEM-54 :INFO #:INFO-55)))\n    (LET ((#:ARGS53 (CDR #:WHOLE48)))\n      (UNLESS (SB-INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS53 3)\n        (SB-KERNEL::ARG-COUNT-ERROR 'DEFMACRO 'SVBRONZE::GET-SESSION-PRODUCT\n                                    #:ARGS53\n                                    '(SVBRONZE::PRODUCT\n                                      SVBRONZE::PRODUCT-TEMPLATE-ID\n                                      SVBRONZE::PRODUCT-ID &KEY #)\n                                    3 NIL)))\n    (LET* ((SVBRONZE::PRODUCT (CAR #))\n           (SVBRONZE::PRODUCT-TEMPLATE-ID (CAR #))\n           (SVBRONZE::PRODUCT-ID (CAR #))\n           (:FALLBACK-DEFAULT (IF #:SUPPLIEDP-52 # T)))\n      (BLOCK SVBRONZE::GET-SESSION-PRODUCT\n        `(PROGN (WHEN # #) (WHEN # #) (WHEN ,SVBRONZE::PRODUCT #)))))\nThe variable #:SUPPLIEDP-52 is defined but never used." :severity :style-warning :location (:location ... ... nil) :references nil :short-message "The variable #:SUPPLIEDP-52 is defined but never used.")))
  run-hook-with-args(slime-maybe-list-compiler-notes ((:message "The name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant." :severity :error :location (:location ... ... nil) :references nil :short-message "The name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant.") (:message "The variable #:SUPPLIEDP-4 is defined but never used." :severity :style-warning :location (:location ... ... nil) :references nil :short-message "The variable #:SUPPLIEDP-4 is defined but never used.") (:message "--> EVAL-WHEN SB-C::%DEFMACRO MULTIPLE-VALUE-PROG1 PROGN LET* \n==>\n  (LET* ((SVBRONZE::PRODUCT-CATEGORY (CAR (CDR #:WHOLE0)))\n         (SVBRONZE::PRODUCT-CATEGORY-ID (CAR (CDR #)))\n         (:FALLBACK-DEFAULT\n          (IF #:SUPPLIEDP-4\n              (SB-KERNEL::LOOKUP-KEYWORD ':FALLBACK-DEFAULT #:KEYWORDS-3) T)))\n    (BLOCK SVBRONZE::GET-SESSION-PRODUCT-CATEGORY\n      `(PROGN\n        (WHEN (OR # #) (SETF ,SVBRONZE::PRODUCT-CATEGORY #))\n        (WHEN (AND ,SVBRONZE::FALLBACK-DEFAULT #)\n          (SETF ,SVBRONZE::PRODUCT-CATEGORY #))\n        (WHEN ,SVBRONZE::PRODUCT-CATEGORY\n          (SVBRONZE::SET-SESSION ,SVBRONZE::PRODUCT-CATEGORY\n                                 SVBRONZE::USER-SESSION)))))\nThe name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant." :severity :error :location (:location ... ... nil) :references nil :short-message "The name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant.") (:message "--> EVAL-WHEN SB-C::%DEFMACRO MULTIPLE-VALUE-PROG1 PROGN \n==>\n  (LET* ((#:KEYWORDS-3 (CDR (CDR #)))\n         (#:SUPPLIEDP-4\n          (SB-KERNEL::KEYWORD-SUPPLIED-P ':FALLBACK-DEFAULT #:KEYWORDS-3)))\n    (DECLARE (MUFFLE-CONDITIONS CODE-DELETION-NOTE))\n    (DECLARE (IGNORABLE #:KEYWORDS-3))\n    (MULTIPLE-VALUE-BIND\n        (#:KEY-PROBLEM-6 #:INFO-7)\n        (SB-KERNEL::VERIFY-KEYWORDS #:KEYWORDS-3 '(:FALLBACK-DEFAULT) 'NIL)\n      (WHEN #:KEY-PROBLEM-6\n        (ERROR 'SB-KERNEL::DEFMACRO-LAMBDA-LIST-BROKEN-KEY-LIST-ERROR :KIND\n               'DEFMACRO :NAME 'SVBRONZE::GET-SESSION-PRODUCT-CATEGORY :PROBLEM\n               #:KEY-PROBLEM-6 :INFO #:INFO-7)))\n    (LET ((#:ARGS5 (CDR #:WHOLE0)))\n      (UNLESS (SB-INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS5 2)\n        (SB-KERNEL::ARG-COUNT-ERROR 'DEFMACRO\n                                    'SVBRONZE::GET-SESSION-PRODUCT-CATEGORY\n                                    #:ARGS5\n                                    '(SVBRONZE::PRODUCT-CATEGORY\n                                      SVBRONZE::PRODUCT-CATEGORY-ID &KEY #)\n                                    2 NIL)))\n    (LET* ((SVBRONZE::PRODUCT-CATEGORY (CAR #))\n           (SVBRONZE::PRODUCT-CATEGORY-ID (CAR #))\n           (:FALLBACK-DEFAULT (IF #:SUPPLIEDP-4 # T)))\n      (BLOCK SVBRONZE::GET-SESSION-PRODUCT-CATEGORY\n        `(PROGN (WHEN # #) (WHEN # #) (WHEN ,SVBRONZE::PRODUCT-CATEGORY #)))))\nThe variable #:SUPPLIEDP-4 is defined but never used." :severity :style-warning :location (:location ... ... nil) :references nil :short-message "The variable #:SUPPLIEDP-4 is defined but never used.") (:message "The name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant." :severity :error :location (:location ... ... nil) :references nil :short-message "The name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant.") (:message "The variable #:SUPPLIEDP-20 is defined but never used." :severity :style-warning :location (:location ... ... nil) :references nil :short-message "The variable #:SUPPLIEDP-20 is defined but never used.") (:message "--> EVAL-WHEN SB-C::%DEFMACRO MULTIPLE-VALUE-PROG1 PROGN LET* \n==>\n  (LET* ((SVBRONZE::PRODUCT-PAGE (CAR (CDR #:WHOLE16)))\n         (SVBRONZE::PRODUCT-CATEGORY-ID (CAR (CDR #)))\n         (SVBRONZE::PRODUCT-PAGE-ID (CAR (CDR #)))\n         (:FALLBACK-DEFAULT\n          (IF #:SUPPLIEDP-20\n              (SB-KERNEL::LOOKUP-KEYWORD ':FALLBACK-DEFAULT #:KEYWORDS-19) T)))\n    (BLOCK SVBRONZE::GET-SESSION-PRODUCT-PAGE\n      `(PROGN\n        (WHEN (OR # #) (SETF ,SVBRONZE::PRODUCT-PAGE #))\n        (WHEN (AND ,SVBRONZE::FALLBACK-DEFAULT #)\n          (SETF ,SVBRONZE::PRODUCT-PAGE #))\n        (WHEN ,SVBRONZE::PRODUCT-PAGE\n          (SVBRONZE::SET-SESSION ,SVBRONZE::PRODUCT-PAGE\n                                 SVBRONZE::USER-SESSION)))))\nThe name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant." :severity :error :location (:location ... ... nil) :references nil :short-message "The name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant.") (:message "--> EVAL-WHEN SB-C::%DEFMACRO MULTIPLE-VALUE-PROG1 PROGN \n==>\n  (LET* ((#:KEYWORDS-19 (CDR (CDR #)))\n         (#:SUPPLIEDP-20\n          (SB-KERNEL::KEYWORD-SUPPLIED-P ':FALLBACK-DEFAULT #:KEYWORDS-19)))\n    (DECLARE (MUFFLE-CONDITIONS CODE-DELETION-NOTE))\n    (DECLARE (IGNORABLE #:KEYWORDS-19))\n    (MULTIPLE-VALUE-BIND\n        (#:KEY-PROBLEM-22 #:INFO-23)\n        (SB-KERNEL::VERIFY-KEYWORDS #:KEYWORDS-19 '(:FALLBACK-DEFAULT) 'NIL)\n      (WHEN #:KEY-PROBLEM-22\n        (ERROR 'SB-KERNEL::DEFMACRO-LAMBDA-LIST-BROKEN-KEY-LIST-ERROR :KIND\n               'DEFMACRO :NAME 'SVBRONZE::GET-SESSION-PRODUCT-PAGE :PROBLEM\n               #:KEY-PROBLEM-22 :INFO #:INFO-23)))\n    (LET ((#:ARGS21 (CDR #:WHOLE16)))\n      (UNLESS (SB-INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS21 3)\n        (SB-KERNEL::ARG-COUNT-ERROR 'DEFMACRO\n                                    'SVBRONZE::GET-SESSION-PRODUCT-PAGE\n                                    #:ARGS21\n                                    '(SVBRONZE::PRODUCT-PAGE\n                                      SVBRONZE::PRODUCT-CATEGORY-ID\n                                      SVBRONZE::PRODUCT-PAGE-ID &KEY #)\n                                    3 NIL)))\n    (LET* ((SVBRONZE::PRODUCT-PAGE (CAR #))\n           (SVBRONZE::PRODUCT-CATEGORY-ID (CAR #))\n           (SVBRONZE::PRODUCT-PAGE-ID (CAR #))\n           (:FALLBACK-DEFAULT (IF #:SUPPLIEDP-20 # T)))\n      (BLOCK SVBRONZE::GET-SESSION-PRODUCT-PAGE\n        `(PROGN (WHEN # #) (WHEN # #) (WHEN ,SVBRONZE::PRODUCT-PAGE #)))))\nThe variable #:SUPPLIEDP-20 is defined but never used." :severity :style-warning :location (:location ... ... nil) :references nil :short-message "The variable #:SUPPLIEDP-20 is defined but never used.") (:message "The name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant." :severity :error :location (:location ... ... nil) :references nil :short-message "The name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant.") (:message "The variable #:SUPPLIEDP-36 is defined but never used." :severity :style-warning :location (:location ... ... nil) :references nil :short-message "The variable #:SUPPLIEDP-36 is defined but never used.") (:message "--> EVAL-WHEN SB-C::%DEFMACRO MULTIPLE-VALUE-PROG1 PROGN LET* \n==>\n  (LET* ((SVBRONZE::PRODUCT-TEMPLATE (CAR (CDR #:WHOLE32)))\n         (SVBRONZE::PRODUCT-PAGE-ID (CAR (CDR #)))\n         (SVBRONZE::PRODUCT-TEMPLATE-ID (CAR (CDR #)))\n         (:FALLBACK-DEFAULT\n          (IF #:SUPPLIEDP-36\n              (SB-KERNEL::LOOKUP-KEYWORD ':FALLBACK-DEFAULT #:KEYWORDS-35) T)))\n    (BLOCK SVBRONZE::GET-SESSION-PRODUCT-TEMPLATE\n      `(PROGN\n        (WHEN (OR # #) (SETF ,SVBRONZE::PRODUCT-TEMPLATE #))\n        (WHEN (AND ,SVBRONZE::FALLBACK-DEFAULT #)\n          (SETF ,SVBRONZE::PRODUCT-TEMPLATE #))\n        (WHEN ,SVBRONZE::PRODUCT-TEMPLATE\n          (SVBRONZE::SET-SESSION ,SVBRONZE::PRODUCT-TEMPLATE\n                                 SVBRONZE::USER-SESSION)))))\nThe name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant." :severity :error :location (:location ... ... nil) :references nil :short-message "The name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant.") (:message "--> EVAL-WHEN SB-C::%DEFMACRO MULTIPLE-VALUE-PROG1 PROGN \n==>\n  (LET* ((#:KEYWORDS-35 (CDR (CDR #)))\n         (#:SUPPLIEDP-36\n          (SB-KERNEL::KEYWORD-SUPPLIED-P ':FALLBACK-DEFAULT #:KEYWORDS-35)))\n    (DECLARE (MUFFLE-CONDITIONS CODE-DELETION-NOTE))\n    (DECLARE (IGNORABLE #:KEYWORDS-35))\n    (MULTIPLE-VALUE-BIND\n        (#:KEY-PROBLEM-38 #:INFO-39)\n        (SB-KERNEL::VERIFY-KEYWORDS #:KEYWORDS-35 '(:FALLBACK-DEFAULT) 'NIL)\n      (WHEN #:KEY-PROBLEM-38\n        (ERROR 'SB-KERNEL::DEFMACRO-LAMBDA-LIST-BROKEN-KEY-LIST-ERROR :KIND\n               'DEFMACRO :NAME 'SVBRONZE::GET-SESSION-PRODUCT-TEMPLATE :PROBLEM\n               #:KEY-PROBLEM-38 :INFO #:INFO-39)))\n    (LET ((#:ARGS37 (CDR #:WHOLE32)))\n      (UNLESS (SB-INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS37 3)\n        (SB-KERNEL::ARG-COUNT-ERROR 'DEFMACRO\n                                    'SVBRONZE::GET-SESSION-PRODUCT-TEMPLATE\n                                    #:ARGS37\n                                    '(SVBRONZE::PRODUCT-TEMPLATE\n                                      SVBRONZE::PRODUCT-PAGE-ID\n                                      SVBRONZE::PRODUCT-TEMPLATE-ID &KEY #)\n                                    3 NIL)))\n    (LET* ((SVBRONZE::PRODUCT-TEMPLATE (CAR #))\n           (SVBRONZE::PRODUCT-PAGE-ID (CAR #))\n           (SVBRONZE::PRODUCT-TEMPLATE-ID (CAR #))\n           (:FALLBACK-DEFAULT (IF #:SUPPLIEDP-36 # T)))\n      (BLOCK SVBRONZE::GET-SESSION-PRODUCT-TEMPLATE\n        `(PROGN (WHEN # #) (WHEN # #) (WHEN ,SVBRONZE::PRODUCT-TEMPLATE #)))))\nThe variable #:SUPPLIEDP-36 is defined but never used." :severity :style-warning :location (:location ... ... nil) :references nil :short-message "The variable #:SUPPLIEDP-36 is defined but never used.") (:message "The name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant." :severity :error :location (:location ... ... nil) :references nil :short-message "The name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant.") (:message "The variable #:SUPPLIEDP-52 is defined but never used." :severity :style-warning :location (:location ... ... nil) :references nil :short-message "The variable #:SUPPLIEDP-52 is defined but never used.") (:message "--> EVAL-WHEN SB-C::%DEFMACRO MULTIPLE-VALUE-PROG1 PROGN LET* \n==>\n  (LET* ((SVBRONZE::PRODUCT (CAR (CDR #:WHOLE48)))\n         (SVBRONZE::PRODUCT-TEMPLATE-ID (CAR (CDR #)))\n         (SVBRONZE::PRODUCT-ID (CAR (CDR #)))\n         (:FALLBACK-DEFAULT\n          (IF #:SUPPLIEDP-52\n              (SB-KERNEL::LOOKUP-KEYWORD ':FALLBACK-DEFAULT #:KEYWORDS-51) T)))\n    (BLOCK SVBRONZE::GET-SESSION-PRODUCT\n      `(PROGN\n        (WHEN (OR # #) (SETF ,SVBRONZE::PRODUCT #))\n        (WHEN (AND ,SVBRONZE::FALLBACK-DEFAULT #) (SETF ,SVBRONZE::PRODUCT #))\n        (WHEN ,SVBRONZE::PRODUCT\n          (SVBRONZE::SET-SESSION ,SVBRONZE::PRODUCT SVBRONZE::USER-SESSION)))))\nThe name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant." :severity :error :location (:location ... ... nil) :references nil :short-message "The name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant.") (:message "--> EVAL-WHEN SB-C::%DEFMACRO MULTIPLE-VALUE-PROG1 PROGN \n==>\n  (LET* ((#:KEYWORDS-51 (CDR (CDR #)))\n         (#:SUPPLIEDP-52\n          (SB-KERNEL::KEYWORD-SUPPLIED-P ':FALLBACK-DEFAULT #:KEYWORDS-51)))\n    (DECLARE (MUFFLE-CONDITIONS CODE-DELETION-NOTE))\n    (DECLARE (IGNORABLE #:KEYWORDS-51))\n    (MULTIPLE-VALUE-BIND\n        (#:KEY-PROBLEM-54 #:INFO-55)\n        (SB-KERNEL::VERIFY-KEYWORDS #:KEYWORDS-51 '(:FALLBACK-DEFAULT) 'NIL)\n      (WHEN #:KEY-PROBLEM-54\n        (ERROR 'SB-KERNEL::DEFMACRO-LAMBDA-LIST-BROKEN-KEY-LIST-ERROR :KIND\n               'DEFMACRO :NAME 'SVBRONZE::GET-SESSION-PRODUCT :PROBLEM\n               #:KEY-PROBLEM-54 :INFO #:INFO-55)))\n    (LET ((#:ARGS53 (CDR #:WHOLE48)))\n      (UNLESS (SB-INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS53 3)\n        (SB-KERNEL::ARG-COUNT-ERROR 'DEFMACRO 'SVBRONZE::GET-SESSION-PRODUCT\n                                    #:ARGS53\n                                    '(SVBRONZE::PRODUCT\n                                      SVBRONZE::PRODUCT-TEMPLATE-ID\n                                      SVBRONZE::PRODUCT-ID &KEY #)\n                                    3 NIL)))\n    (LET* ((SVBRONZE::PRODUCT (CAR #))\n           (SVBRONZE::PRODUCT-TEMPLATE-ID (CAR #))\n           (SVBRONZE::PRODUCT-ID (CAR #))\n           (:FALLBACK-DEFAULT (IF #:SUPPLIEDP-52 # T)))\n      (BLOCK SVBRONZE::GET-SESSION-PRODUCT\n        `(PROGN (WHEN # #) (WHEN # #) (WHEN ,SVBRONZE::PRODUCT #)))))\nThe variable #:SUPPLIEDP-52 is defined but never used." :severity :style-warning :location (:location ... ... nil) :references nil :short-message "The variable #:SUPPLIEDP-52 is defined but never used.")))
  slime-compilation-finished((:compilation-result ((:message "The name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant." :severity :error :location ... :references nil :short-message "The name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant.") (:message "The variable #:SUPPLIEDP-4 is defined but never used." :severity :style-warning :location ... :references nil :short-message "The variable #:SUPPLIEDP-4 is defined but never used.") (:message "--> EVAL-WHEN SB-C::%DEFMACRO MULTIPLE-VALUE-PROG1 PROGN LET* \n==>\n  (LET* ((SVBRONZE::PRODUCT-CATEGORY (CAR (CDR #:WHOLE0)))\n         (SVBRONZE::PRODUCT-CATEGORY-ID (CAR (CDR #)))\n         (:FALLBACK-DEFAULT\n          (IF #:SUPPLIEDP-4\n              (SB-KERNEL::LOOKUP-KEYWORD ':FALLBACK-DEFAULT #:KEYWORDS-3) T)))\n    (BLOCK SVBRONZE::GET-SESSION-PRODUCT-CATEGORY\n      `(PROGN\n        (WHEN (OR # #) (SETF ,SVBRONZE::PRODUCT-CATEGORY #))\n        (WHEN (AND ,SVBRONZE::FALLBACK-DEFAULT #)\n          (SETF ,SVBRONZE::PRODUCT-CATEGORY #))\n        (WHEN ,SVBRONZE::PRODUCT-CATEGORY\n          (SVBRONZE::SET-SESSION ,SVBRONZE::PRODUCT-CATEGORY\n                                 SVBRONZE::USER-SESSION)))))\nThe name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant." :severity :error :location ... :references nil :short-message "The name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant.") (:message "--> EVAL-WHEN SB-C::%DEFMACRO MULTIPLE-VALUE-PROG1 PROGN \n==>\n  (LET* ((#:KEYWORDS-3 (CDR (CDR #)))\n         (#:SUPPLIEDP-4\n          (SB-KERNEL::KEYWORD-SUPPLIED-P ':FALLBACK-DEFAULT #:KEYWORDS-3)))\n    (DECLARE (MUFFLE-CONDITIONS CODE-DELETION-NOTE))\n    (DECLARE (IGNORABLE #:KEYWORDS-3))\n    (MULTIPLE-VALUE-BIND\n        (#:KEY-PROBLEM-6 #:INFO-7)\n        (SB-KERNEL::VERIFY-KEYWORDS #:KEYWORDS-3 '(:FALLBACK-DEFAULT) 'NIL)\n      (WHEN #:KEY-PROBLEM-6\n        (ERROR 'SB-KERNEL::DEFMACRO-LAMBDA-LIST-BROKEN-KEY-LIST-ERROR :KIND\n               'DEFMACRO :NAME 'SVBRONZE::GET-SESSION-PRODUCT-CATEGORY :PROBLEM\n               #:KEY-PROBLEM-6 :INFO #:INFO-7)))\n    (LET ((#:ARGS5 (CDR #:WHOLE0)))\n      (UNLESS (SB-INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS5 2)\n        (SB-KERNEL::ARG-COUNT-ERROR 'DEFMACRO\n                                    'SVBRONZE::GET-SESSION-PRODUCT-CATEGORY\n                                    #:ARGS5\n                                    '(SVBRONZE::PRODUCT-CATEGORY\n                                      SVBRONZE::PRODUCT-CATEGORY-ID &KEY #)\n                                    2 NIL)))\n    (LET* ((SVBRONZE::PRODUCT-CATEGORY (CAR #))\n           (SVBRONZE::PRODUCT-CATEGORY-ID (CAR #))\n           (:FALLBACK-DEFAULT (IF #:SUPPLIEDP-4 # T)))\n      (BLOCK SVBRONZE::GET-SESSION-PRODUCT-CATEGORY\n        `(PROGN (WHEN # #) (WHEN # #) (WHEN ,SVBRONZE::PRODUCT-CATEGORY #)))))\nThe variable #:SUPPLIEDP-4 is defined but never used." :severity :style-warning :location ... :references nil :short-message "The variable #:SUPPLIEDP-4 is defined but never used.") (:message "The name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant." :severity :error :location ... :references nil :short-message "The name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant.") (:message "The variable #:SUPPLIEDP-20 is defined but never used." :severity :style-warning :location ... :references nil :short-message "The variable #:SUPPLIEDP-20 is defined but never used.") (:message "--> EVAL-WHEN SB-C::%DEFMACRO MULTIPLE-VALUE-PROG1 PROGN LET* \n==>\n  (LET* ((SVBRONZE::PRODUCT-PAGE (CAR (CDR #:WHOLE16)))\n         (SVBRONZE::PRODUCT-CATEGORY-ID (CAR (CDR #)))\n         (SVBRONZE::PRODUCT-PAGE-ID (CAR (CDR #)))\n         (:FALLBACK-DEFAULT\n          (IF #:SUPPLIEDP-20\n              (SB-KERNEL::LOOKUP-KEYWORD ':FALLBACK-DEFAULT #:KEYWORDS-19) T)))\n    (BLOCK SVBRONZE::GET-SESSION-PRODUCT-PAGE\n      `(PROGN\n        (WHEN (OR # #) (SETF ,SVBRONZE::PRODUCT-PAGE #))\n        (WHEN (AND ,SVBRONZE::FALLBACK-DEFAULT #)\n          (SETF ,SVBRONZE::PRODUCT-PAGE #))\n        (WHEN ,SVBRONZE::PRODUCT-PAGE\n          (SVBRONZE::SET-SESSION ,SVBRONZE::PRODUCT-PAGE\n                                 SVBRONZE::USER-SESSION)))))\nThe name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant." :severity :error :location ... :references nil :short-message "The name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant.") (:message "--> EVAL-WHEN SB-C::%DEFMACRO MULTIPLE-VALUE-PROG1 PROGN \n==>\n  (LET* ((#:KEYWORDS-19 (CDR (CDR #)))\n         (#:SUPPLIEDP-20\n          (SB-KERNEL::KEYWORD-SUPPLIED-P ':FALLBACK-DEFAULT #:KEYWORDS-19)))\n    (DECLARE (MUFFLE-CONDITIONS CODE-DELETION-NOTE))\n    (DECLARE (IGNORABLE #:KEYWORDS-19))\n    (MULTIPLE-VALUE-BIND\n        (#:KEY-PROBLEM-22 #:INFO-23)\n        (SB-KERNEL::VERIFY-KEYWORDS #:KEYWORDS-19 '(:FALLBACK-DEFAULT) 'NIL)\n      (WHEN #:KEY-PROBLEM-22\n        (ERROR 'SB-KERNEL::DEFMACRO-LAMBDA-LIST-BROKEN-KEY-LIST-ERROR :KIND\n               'DEFMACRO :NAME 'SVBRONZE::GET-SESSION-PRODUCT-PAGE :PROBLEM\n               #:KEY-PROBLEM-22 :INFO #:INFO-23)))\n    (LET ((#:ARGS21 (CDR #:WHOLE16)))\n      (UNLESS (SB-INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS21 3)\n        (SB-KERNEL::ARG-COUNT-ERROR 'DEFMACRO\n                                    'SVBRONZE::GET-SESSION-PRODUCT-PAGE\n                                    #:ARGS21\n                                    '(SVBRONZE::PRODUCT-PAGE\n                                      SVBRONZE::PRODUCT-CATEGORY-ID\n                                      SVBRONZE::PRODUCT-PAGE-ID &KEY #)\n                                    3 NIL)))\n    (LET* ((SVBRONZE::PRODUCT-PAGE (CAR #))\n           (SVBRONZE::PRODUCT-CATEGORY-ID (CAR #))\n           (SVBRONZE::PRODUCT-PAGE-ID (CAR #))\n           (:FALLBACK-DEFAULT (IF #:SUPPLIEDP-20 # T)))\n      (BLOCK SVBRONZE::GET-SESSION-PRODUCT-PAGE\n        `(PROGN (WHEN # #) (WHEN # #) (WHEN ,SVBRONZE::PRODUCT-PAGE #)))))\nThe variable #:SUPPLIEDP-20 is defined but never used." :severity :style-warning :location ... :references nil :short-message "The variable #:SUPPLIEDP-20 is defined but never used.") (:message "The name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant." :severity :error :location ... :references nil :short-message "The name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant.") (:message "The variable #:SUPPLIEDP-36 is defined but never used." :severity :style-warning :location ... :references nil :short-message "The variable #:SUPPLIEDP-36 is defined but never used.") (:message "--> EVAL-WHEN SB-C::%DEFMACRO MULTIPLE-VALUE-PROG1 PROGN LET* \n==>\n  (LET* ((SVBRONZE::PRODUCT-TEMPLATE (CAR (CDR #:WHOLE32)))\n         (SVBRONZE::PRODUCT-PAGE-ID (CAR (CDR #)))\n         (SVBRONZE::PRODUCT-TEMPLATE-ID (CAR (CDR #)))\n         (:FALLBACK-DEFAULT\n          (IF #:SUPPLIEDP-36\n              (SB-KERNEL::LOOKUP-KEYWORD ':FALLBACK-DEFAULT #:KEYWORDS-35) T)))\n    (BLOCK SVBRONZE::GET-SESSION-PRODUCT-TEMPLATE\n      `(PROGN\n        (WHEN (OR # #) (SETF ,SVBRONZE::PRODUCT-TEMPLATE #))\n        (WHEN (AND ,SVBRONZE::FALLBACK-DEFAULT #)\n          (SETF ,SVBRONZE::PRODUCT-TEMPLATE #))\n        (WHEN ,SVBRONZE::PRODUCT-TEMPLATE\n          (SVBRONZE::SET-SESSION ,SVBRONZE::PRODUCT-TEMPLATE\n                                 SVBRONZE::USER-SESSION)))))\nThe name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant." :severity :error :location ... :references nil :short-message "The name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant.") (:message "--> EVAL-WHEN SB-C::%DEFMACRO MULTIPLE-VALUE-PROG1 PROGN \n==>\n  (LET* ((#:KEYWORDS-35 (CDR (CDR #)))\n         (#:SUPPLIEDP-36\n          (SB-KERNEL::KEYWORD-SUPPLIED-P ':FALLBACK-DEFAULT #:KEYWORDS-35)))\n    (DECLARE (MUFFLE-CONDITIONS CODE-DELETION-NOTE))\n    (DECLARE (IGNORABLE #:KEYWORDS-35))\n    (MULTIPLE-VALUE-BIND\n        (#:KEY-PROBLEM-38 #:INFO-39)\n        (SB-KERNEL::VERIFY-KEYWORDS #:KEYWORDS-35 '(:FALLBACK-DEFAULT) 'NIL)\n      (WHEN #:KEY-PROBLEM-38\n        (ERROR 'SB-KERNEL::DEFMACRO-LAMBDA-LIST-BROKEN-KEY-LIST-ERROR :KIND\n               'DEFMACRO :NAME 'SVBRONZE::GET-SESSION-PRODUCT-TEMPLATE :PROBLEM\n               #:KEY-PROBLEM-38 :INFO #:INFO-39)))\n    (LET ((#:ARGS37 (CDR #:WHOLE32)))\n      (UNLESS (SB-INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS37 3)\n        (SB-KERNEL::ARG-COUNT-ERROR 'DEFMACRO\n                                    'SVBRONZE::GET-SESSION-PRODUCT-TEMPLATE\n                                    #:ARGS37\n                                    '(SVBRONZE::PRODUCT-TEMPLATE\n                                      SVBRONZE::PRODUCT-PAGE-ID\n                                      SVBRONZE::PRODUCT-TEMPLATE-ID &KEY #)\n                                    3 NIL)))\n    (LET* ((SVBRONZE::PRODUCT-TEMPLATE (CAR #))\n           (SVBRONZE::PRODUCT-PAGE-ID (CAR #))\n           (SVBRONZE::PRODUCT-TEMPLATE-ID (CAR #))\n           (:FALLBACK-DEFAULT (IF #:SUPPLIEDP-36 # T)))\n      (BLOCK SVBRONZE::GET-SESSION-PRODUCT-TEMPLATE\n        `(PROGN (WHEN # #) (WHEN # #) (WHEN ,SVBRONZE::PRODUCT-TEMPLATE #)))))\nThe variable #:SUPPLIEDP-36 is defined but never used." :severity :style-warning :location ... :references nil :short-message "The variable #:SUPPLIEDP-36 is defined but never used.") (:message "The name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant." :severity :error :location ... :references nil :short-message "The name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant.") (:message "The variable #:SUPPLIEDP-52 is defined but never used." :severity :style-warning :location ... :references nil :short-message "The variable #:SUPPLIEDP-52 is defined but never used.") (:message "--> EVAL-WHEN SB-C::%DEFMACRO MULTIPLE-VALUE-PROG1 PROGN LET* \n==>\n  (LET* ((SVBRONZE::PRODUCT (CAR (CDR #:WHOLE48)))\n         (SVBRONZE::PRODUCT-TEMPLATE-ID (CAR (CDR #)))\n         (SVBRONZE::PRODUCT-ID (CAR (CDR #)))\n         (:FALLBACK-DEFAULT\n          (IF #:SUPPLIEDP-52\n              (SB-KERNEL::LOOKUP-KEYWORD ':FALLBACK-DEFAULT #:KEYWORDS-51) T)))\n    (BLOCK SVBRONZE::GET-SESSION-PRODUCT\n      `(PROGN\n        (WHEN (OR # #) (SETF ,SVBRONZE::PRODUCT #))\n        (WHEN (AND ,SVBRONZE::FALLBACK-DEFAULT #) (SETF ,SVBRONZE::PRODUCT #))\n        (WHEN ,SVBRONZE::PRODUCT\n          (SVBRONZE::SET-SESSION ,SVBRONZE::PRODUCT SVBRONZE::USER-SESSION)))))\nThe name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant." :severity :error :location ... :references nil :short-message "The name of the lambda variable :FALLBACK-DEFAULT is already in use to name a constant.") (:message "--> EVAL-WHEN SB-C::%DEFMACRO MULTIPLE-VALUE-PROG1 PROGN \n==>\n  (LET* ((#:KEYWORDS-51 (CDR (CDR #)))\n         (#:SUPPLIEDP-52\n          (SB-KERNEL::KEYWORD-SUPPLIED-P ':FALLBACK-DEFAULT #:KEYWORDS-51)))\n    (DECLARE (MUFFLE-CONDITIONS CODE-DELETION-NOTE))\n    (DECLARE (IGNORABLE #:KEYWORDS-51))\n    (MULTIPLE-VALUE-BIND\n        (#:KEY-PROBLEM-54 #:INFO-55)\n        (SB-KERNEL::VERIFY-KEYWORDS #:KEYWORDS-51 '(:FALLBACK-DEFAULT) 'NIL)\n      (WHEN #:KEY-PROBLEM-54\n        (ERROR 'SB-KERNEL::DEFMACRO-LAMBDA-LIST-BROKEN-KEY-LIST-ERROR :KIND\n               'DEFMACRO :NAME 'SVBRONZE::GET-SESSION-PRODUCT :PROBLEM\n               #:KEY-PROBLEM-54 :INFO #:INFO-55)))\n    (LET ((#:ARGS53 (CDR #:WHOLE48)))\n      (UNLESS (SB-INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS53 3)\n        (SB-KERNEL::ARG-COUNT-ERROR 'DEFMACRO 'SVBRONZE::GET-SESSION-PRODUCT\n                                    #:ARGS53\n                                    '(SVBRONZE::PRODUCT\n                                      SVBRONZE::PRODUCT-TEMPLATE-ID\n                                      SVBRONZE::PRODUCT-ID &KEY #)\n                                    3 NIL)))\n    (LET* ((SVBRONZE::PRODUCT (CAR #))\n           (SVBRONZE::PRODUCT-TEMPLATE-ID (CAR #))\n           (SVBRONZE::PRODUCT-ID (CAR #))\n           (:FALLBACK-DEFAULT (IF #:SUPPLIEDP-52 # T)))\n      (BLOCK SVBRONZE::GET-SESSION-PRODUCT\n        `(PROGN (WHEN # #) (WHEN # #) (WHEN ,SVBRONZE::PRODUCT #)))))\nThe variable #:SUPPLIEDP-52 is defined but never used." :severity :style-warning :location ... :references nil :short-message "The variable #:SUPPLIEDP-52 is defined but never used.")) nil 0.459))
  #[(G34916 G34917 G34912) "‰@	A\nÆ=ƒ8‰GÇUƒ\f@‚#ÈÉÊ\fGD\"J…4JqˆJ
!*‚[\nË=ƒW‰ƒPÈÉÊGÌ\\D\"ˆÍÎ!)‚[ÏÐ	\"+‡" [G34912 tmp-34915 op-34913 rand-34914 --cl-rest-- result :ok 1 signal wrong-number-of-arguments nil :abort 0 message "Evaluation aborted." error "Elisp destructure-case failed: %S" G34917 G34916 --cl-rest--] 6](--buffer-- --cont-- (:ok (:compilation-result (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) nil 0.459)))
  apply(#[(G34916 G34917 G34912) "‰@	A\nÆ=ƒ8‰GÇUƒ\f@‚#ÈÉÊ\fGD\"J…4JqˆJ
!*‚[\nË=ƒW‰ƒPÈÉÊGÌ\\D\"ˆÍÎ!)‚[ÏÐ	\"+‡" [G34912 tmp-34915 op-34913 rand-34914 --cl-rest-- result :ok 1 signal wrong-number-of-arguments nil :abort 0 message "Evaluation aborted." error "Elisp destructure-case failed: %S" G34917 G34916 --cl-rest--] 6] --buffer-- --cont-- (:ok (:compilation-result (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) nil 0.459)))
  (lambda (&rest --cl-rest--) (apply #[... "‰@	A\nÆ=ƒ8‰GÇUƒ\f@‚#ÈÉÊ\fGD\"J…4JqˆJ
!*‚[\nË=ƒW‰ƒPÈÉÊGÌ\\D\"ˆÍÎ!)‚[ÏÐ	\"+‡" [G34912 tmp-34915 op-34913 rand-34914 --cl-rest-- result :ok 1 signal wrong-number-of-arguments nil :abort 0 message "Evaluation aborted." error "Elisp destructure-case failed: %S" G34917 G34916 --cl-rest--] 6] (quote --buffer--) (quote --cont--) --cl-rest--))((:ok (:compilation-result (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) nil 0.459)))
  slime-dispatch-event((:return (:ok (:compilation-result ... nil 0.459)) 47) #<process SLIME Lisp>)
  slime-process-available-input(#<process SLIME Lisp>)
  slime-net-filter(#<process SLIME Lisp> "LTIPLE-VALUE-BIND\n        (#:KEY-PROBLEM-54 #:INFO-55)\n        (SB-KERNEL::VERIFY-KEYWORDS #:KEYWORDS-51 '(:FALLBACK-DEFAULT) 'NIL)\n      (WHEN #:KEY-PROBLEM-54\n        (ERROR 'SB-KERNEL::DEFMACRO-LAMBDA-LIST-BROKEN-KEY-LIST-ERROR :KIND\n               'DEFMACRO :NAME 'SVBRONZE::GET-SESSION-PRODUCT :PROBLEM\n               #:KEY-PROBLEM-54 :INFO #:INFO-55)))\n    (LET ((#:ARGS53 (CDR #:WHOLE48)))\n      (UNLESS (SB-INT:LIST-OF-LENGTH-AT-LEAST-P #:ARGS53 3)\n        (SB-KERNEL::ARG-COUNT-ERROR 'DEFMACRO 'SVBRONZE::GET-SESSION-PRODUCT\n                                    #:ARGS53\n                                    '(SVBRONZE::PRODUCT\n                                      SVBRONZE::PRODUCT-TEMPLATE-ID\n                                      SVBRONZE::PRODUCT-ID &KEY #)\n                                    3 NIL)))\n    (LET* ((SVBRONZE::PRODUCT (CAR #))\n           (SVBRONZE::PRODUCT-TEMPLATE-ID (CAR #))\n           (SVBRONZE::PRODUCT-ID (CAR #))\n           (:FALLBACK-DEFAULT (IF #:SUPPLIEDP-52 # T)))\n      (BLOCK SVBRONZE::GET-SESSION-PRODUCT\n        `(PROGN (WHEN # #) (WHEN # #) (WHEN ,SVBRONZE::PRODUCT #)))))\nThe variable #:SUPPLIEDP-52 is defined but never used.\" :severity :style-warning :location (:location (:file \"/home/ckonstanski/svbronze/web/webapps/shared/admin/admin-products-page.lisp\") (:position 2383) nil) :references nil :short-message \"The variable #:SUPPLIEDP-52 is defined but never used.\")) nil 0.459)) 47)")