error.lisp

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ASD File in Question
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(asdf:defsystem "app"
  :version "0.1.0"
  :author "Atlas Engineer LLC"
  :depends-on ("clack"
               "lack"
               "caveman2"
               "envy"
               "cl-ppcre"
               "cl-smtp"
               "bordeaux-threads"
               "str"
               "uiop"
               "djula"
               "cl-dbi"
               "sxql"
               "mito"
               "parse-float"
               "cl-json"
               "cl-stripe-client"
               "cl-csv")
  :components ((:module "source"
                :components
                ((:file "main" :depends-on ("config" "view" "db"))
                 (:file "db" :depends-on ("web" "config" "utility" "view" "utility" "payment"))
                 (:file "web" :depends-on ("utility" "config" "payment"))
                 (:file "web-back-office" :depends-on ("web"))
                 (:file "view" :depends-on ("config"))
                 (:file "payment" :depends-on ("config"))
                 (:file "config")
                 (:file "utility"))))
  :description "App.co web application.")

(asdf:defsystem "app/seed"
  :depends-on ("app")
  :components ((:module "seed"
                :components
                ((:file "seed")))))

(asdf:defsystem "app/test"
  :depends-on ("app"
               "fiveam")
  :components ((:module "tests"
                :components
                ((:file "app"))))
  :description "Test system for app"
  :perform (test-op (o s)
                    (uiop:symbol-call '#app-test '#:test-all)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Contents of tests/app.lisp
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defpackage app.test
  (:use :cl
        :app)
  (:export :test-all))
(in-package #:app.test)

(defun test-all ()
  ;; (fiveam:run! 'SUITE-NAME)
  (print "Placeholder"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; What the REPL Says
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Error while trying to load definition for system app
from pathname
/Users/jmercouris/Work/Atlas/Consulting/App/app.asd:

   READ error during LOAD:

     non-list following #S

       Line: 47, Column: 42, File-Position: 1574

       Stream: #<SB-INT:FORM-TRACKING-STREAM for "file /Users/jmercouris/Work/Atlas/Consulting/App/app.asd" {10023D8D43}>
   [Condition of type ASDF/FIND-SYSTEM:LOAD-SYSTEM-DEFINITION-ERROR]

Restarts:
 0: [ABORT] Abort loading file "/Users/jmercouris/Work/Atlas/Consulting/App/app.asd".
 1: [RETRY] Retry #<DEFINE-OP > on #<SYSTEM "app">.
 2: [ACCEPT] Continue, treating #<DEFINE-OP > on #<SYSTEM "app"> as having been successful.
 3: [RETRY] Retry ASDF operation.
 4: [CLEAR-CONFIGURATION-AND-RETRY] Retry ASDF operation after resetting the configuration.
 5: [RETRY] Retry ASDF operation.
 --more--

Backtrace:
  0: ((FLET "H0" :IN ASDF/ACTION:PERFORM) #<SB-C::INPUT-ERROR-IN-LOAD {10024FBDF3}>)
  1: (SB-KERNEL::%SIGNAL #<SB-C::INPUT-ERROR-IN-LOAD {10024FBDF3}>)
  2: (ERROR #<SB-C::INPUT-ERROR-IN-LOAD {10024FBDF3}>)
  3: (SB-C:COMPILER-ERROR SB-C::INPUT-ERROR-IN-LOAD :CONDITION #<SB-INT:SIMPLE-READER-ERROR "non-list following #S" {10024FBDA3}> :STREAM #<SB-INT:FORM-TRACKING-STREAM for "file /Users/jmercouris/Work/Atla..
  4: (SB-C::%DO-FORMS-FROM-INFO #<CLOSURE (LAMBDA (SB-KERNEL:FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-INT:LOAD-AS-SOURCE) {10023DB52B}> #<SB-C::SOURCE-INFO {10023DB4E3}> SB-C::INPUT-ERROR-IN-LOAD..
  5: (SB-INT:LOAD-AS-SOURCE #<SB-INT:FORM-TRACKING-STREAM for "file /Users/jmercouris/Work/Atlas/Consulting/App/app.asd" {10023D8D43}> :VERBOSE NIL :PRINT NIL :CONTEXT "loading")
  6: ((FLET SB-FASL::THUNK :IN LOAD))
  7: (SB-FASL::CALL-WITH-LOAD-BINDINGS #<CLOSURE (FLET SB-FASL::THUNK :IN LOAD) {11FCA6B}> #<SB-INT:FORM-TRACKING-STREAM for "file /Users/jmercouris/Work/Atlas/Consulting/App/app.asd" {10..
  8: ((FLET SB-FASL::LOAD-STREAM :IN LOAD) #<SB-INT:FORM-TRACKING-STREAM for "file /Users/jmercouris/Work/Atlas/Consulting/App/app.asd" {10023D8D43}> NIL)
  9: (LOAD #P"/Users/jmercouris/Work/Atlas/Consulting/App/app.asd" :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST T :EXTERNAL-FORMAT :UTF-8)
 10: (UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS #<CLOSURE (LAMBDA NIL :IN UIOP/LISP-BUILD:LOAD*) {10023D5C0B}> ("Overwriting already existing readtable ~S." #(#:FINALIZERS-OFF-WARNING :ASDF-FINALIZERS)))
 11: ((FLET "THUNK" :IN ASDF/ACTION:PERFORM))
 12: (SB-IMPL::%WITH-STANDARD-IO-SYNTAX #<CLOSURE (FLET "THUNK" :IN ASDF/ACTION:PERFORM) {11FCDBB}>)
 13: ((:METHOD ASDF/ACTION:PERFORM (ASDF/FIND-SYSTEM:DEFINE-OP ASDF/SYSTEM:SYSTEM)) #<ASDF/FIND-SYSTEM:DEFINE-OP > #<ASDF/SYSTEM:SYSTEM "app">) [fast-method]
 14: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/FIND-SYSTEM:DEFINE-OP > #<ASDF/SYSTEM:SYSTEM "app">)
 15: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
 16: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/FIND-SYSTEM:DEFINE-OP > #<ASDF/SYSTEM:SYSTEM "app">) [fast-method]
 17: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {10023D3A63}>) [fast-method]
 18: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
 19: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {10023D3A63}>) [fast-method]
 --more--