Re: I do not know how to ask it properly

Apologies, if I put too much noise here. As I said before it works after
quickload. So did I make all this noise because my assumptions were wrong?

tried
(lisp-implementation-version)
"2.5.1"

It seems to be the same problem. I noticed there is a problem with the
compilation of the system windows-canvas-calculator depends on.

But when I run:(ql:quickload 'window-canvas-calculator)
the (asdf:test-system "window-canvas-calculator") and (asdf:load-system
"window-canvas-calculator") work.

Backtrace:
  0: (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 "window-canvas" "src" "window-canvas">)))
      Locals:
        CONTEXT-ARGUMENTS = ((#<ASDF/LISP-ACTION:COMPILE-OP > .
#<ASDF/LISP-ACTION:CL-SOURCE-FILE "window-canvas" "src" "window-canvas">))
        CONTEXT-FORMAT = "~/asdf-action::format-action/"
        FAILURE-P = T
        OUTPUT = NIL
        WARNINGS-P = T
  1: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused
argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE
"window-canvas" "src" "window-canvas">)
  2: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
  3: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T))
#<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE
"window-canvas" "src" "window-canvas">) [fast-method]
  4: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN
{10072FB5A3}>) [fast-method]
  5: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
  6: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T))
#<ASDF/PLAN:SEQUENTIAL-PLAN {10072FB5A3}>) [fast-method]
  7: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION
ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:TEST-OP >
#<ASDF/SYSTEM:SYSTEM "window-canvas-calculator"> :PLAN-CLASS NIL
:PLAN-OPTIONS NIL) [fa..



asd files -------------------------

;;;; window-canvas.asd

(asdf:defsystem #:window-canvas
  :description "Window-canvas is a system for simple drawing"
  :author "Jacek Podkanski"
  :license  "Public Domain"
  :version "0.0.1"
  :serial t
  :depends-on (#:cl-gtk4
               #:cl-gdk4 #:cl-glib #:cl-cairo2
               #:serapeum
               #:defclass-std)
  :components ((:module "src"
                        :components
                        ((:file "package")
                         (:file "window-canvas")))))

;;; window-canvas-calculator.asd

(asdf/defsystem:defsystem "window-canvas-calculator"
  :depends-on ("window-canvas"
               "alexandria")
  :pathname "src/"
  :components ((:file "packages")
               (:file "calculator"))
  :in-order-to ((test-op (test-op "window-canvas-calculator/test"))))


;; (asdf:test-system "window-canvas-calculator")
(asdf/defsystem:defsystem "window-canvas-calculator/test"
  :depends-on ("window-canvas-calculator" "fiveam")
  :pathname "tests/"
  :components ((:file "tests"))
  :perform (test-op (op c)
                    (symbol-call :calculator/test
                                 :run!)))


On Sat, 1 Feb 2025 at 18:48, Jacek Podkanski <[email protected]>
wrote:

> I run SBCL "2.5.1.9-4a0c615f5".
>
> When I open new slime instance and run:
>  (asdf:test-system "window-canvas-calculator")
>
> I get an error that makes no sense when I try to run it after building new
> lisp or deleting
> ~/.cache/common-lisp
>
> After I run: (ql:quickload 'window-canvas-calculator) running test-system
> again works.
>
> When I run test-system for the first fime after deleting
> ~/.cache/common-lisp, compliation ends with:
> ; wrote
> /home/jacek/.cache/common-lisp/sbcl-2.5.1.9-4a0c615f5-linux-x64/home/jacek/Programming/Lisp/lispy-experiments/window-canvas/src/window-canvas-tmpXO9X6PIG.fasl
> ; compilation finished in 0:00:00.060
>
>
>  I am shown an error like this:
> COMPILE-FILE-ERROR while
> compiling #<CL-SOURCE-FILE "window-canvas" "src" "window-canvas">
>    [Condition of type UIOP/LISP-BUILD:COMPILE-FILE-ERROR]
>
> Restarts:
>  0: [RETRY] Retry compiling #<CL-SOURCE-FILE "window-canvas" "src"
> "window-canvas">.
>  1: [ACCEPT] Continue, treating compiling #<CL-SOURCE-FILE "window-canvas"
> "src" "window-canvas"> as having been successful.
>  2: [RETRY] Retry ASDF operation.
>  3: [CLEAR-CONFIGURATION-AND-RETRY] Retry ASDF operation after resetting
> the configuration.
>  4: [RETRY] Retry ASDF operation.
>  5: [CLEAR-CONFIGURATION-AND-RETRY] Retry ASDF operation after resetting
> the configuration.
>  6: [RETRY] Retry SLIME REPL evaluation request.
>  7: [*ABORT] Return to SLIME's top level.
>  8: [ABORT] Exit debugger, returning to top level.
>
> Backtrace:
>   0: (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 "window-canvas" "src" "window-canvas">)))
>   1: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused
> argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE
> "window-canvas" "src" "window-canvas">)
>   2: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
>   3: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T))
> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE
> "window-canvas" "src" "window-canvas">) [fast-method]
>   4: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN
> {10029587C3}>) [fast-method]
>   5: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
>   6: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T))
> #<ASDF/PLAN:SEQUENTIAL-PLAN {10029587C3}>) [fast-method]
>   7: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION
> ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:TEST-OP >
> #<ASDF/SYSTEM:SYSTEM "window-canvas-calculator"> :PLAN-CLASS NIL
> :PLAN-OPTIONS NIL) [fa..
>   8: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused
> argument> #<ASDF/LISP-ACTION:TEST-OP > #<ASDF/SYSTEM:SYSTEM
> "window-canvas-calculator">)
>   9: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
>  10: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T))
> #<ASDF/LISP-ACTION:TEST-OP > #<ASDF/SYSTEM:SYSTEM
> "window-canvas-calculator">) [fast-method]
>  11: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused
> argument> ASDF/LISP-ACTION:TEST-OP "window-canvas-calculator")
>  12: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
>  13: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T))
> ASDF/LISP-ACTION:TEST-OP "window-canvas-calculator") [fast-method]
>  14: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN
> ASDF/OPERATE:OPERATE) {100289689B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T
> :OVERRIDE-FORCING NIL)
>  15: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
>  16: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN
> ASDF/OPERATE:OPERATE) {1001C5F64B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE
> NIL :OVERRIDE-FORCING NIL)
>  17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T))
> ASDF/LISP-ACTION:TEST-OP "window-canvas-calculator") [fast-method]
>  18: (ASDF/OPERATE:TEST-SYSTEM "window-canvas-calculator")
>  19: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ASDF/OPERATE:TEST-SYSTEM
> "window-canvas-calculator") #<NULL-LEXENV>)
>  20: (EVAL (ASDF/OPERATE:TEST-SYSTEM "window-canvas-calculator"))
>  21: (SWANK::EVAL-REGION "(asdf:test-system \"window-canvas-calculator\")
> ..)
>

_______________________________________________
Sbcl-help mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/sbcl-help