Problems with running examples

Question

Problems with running examples

forthe94 opened this issue 3 years ago · 2 comments

Hello! Im trying to run examples from source and getting errors. Could you help me please?
First time I tried to load veq and weird with

(load "/home/tetenkov/projects/common_lisp/cl-veq/veq.asd")
(ql:quickload "veq")

(load "/home/tetenkov/projects/common_lisp/weird/weird.asd")
(ql:quickload "weird")

Everything worked and I got not errors.

Now I'm trying to run:

#!/usr/bin/sbcl --script

(load "~/.quicklisp/setup.lisp")
(load "/home/tetenkov/projects/common_lisp/cl-veq/veq.asd")
(ql:quickload "veq")

(load "/home/tetenkov/projects/common_lisp/weird/weird.asd")
(ql:quickload "weird")

(veq:vdef main (size fn)
 (let ((wer (weir:make))
       (wsvg (wsvg:make*)))

   (weir:2add-path! wer
     (veq:f2$+ (veq:f$_ '((-1f0 -202f0) (400f0 300f0))) 50f0 700f0))
   (weir:2add-path! wer (veq:f$_ '((401f0 2f0) (4f0 300f0))))

   (weir:2add-path! wer
     (veq:f2$+ (veq:f2$square 50f0) 700f0 700f0))
   (weir:2add-path! wer
     (veq:f2$+ (veq:f2$polygon 5 100f0) 800f0 800f0)
     :closed t)

   (weir:2intersect-all! wer)

   (weir:itr-edges (wer e)
     (wsvg:path wsvg (weir:2gvs wer e) :sw 10 :so 0.2))

   (loop for path in (weir:2walk-graph wer)
         do (wsvg:path wsvg (weir:2gvs wer path)))

   (wsvg:rect wsvg 10 100 :xy '(200 200) :sw 3f0 :stroke "red")
   (wsvg:rect wsvg 30 10 :xy '(400 200) :fill "black" :fo 0.5)
   (wsvg:rect wsvg 10 30 :xy '(400 200) :fill "black" :fo 0.5 :sw 4)

   (wsvg:circ wsvg 10 :xy '(200 200))
   (wsvg:wcirc wsvg 20 :xy '(200 200))

   (weir:itr-verts (wer v)
     (wsvg:circ wsvg 3 :xy (veq:lst (weir:2gv wer v)) :fill "black"))

   (wsvg:save wsvg "draw")))


(time (main 1000 (second (weird:cmd-args))))

Errors im getting:

To load "veq":
  Load 1 ASDF system:
    veq
; Loading "veq"

To load "weird":
  Load 1 ASDF system:
    weird
; Loading "weird"
...; 
; caught ERROR:
;   READ error during COMPILE-FILE:
;   
;     Symbol "FVPROGN" not found in the VEQ package.
;   
;       Line: 5, Column: -1, File-Position: 31
;   
;       Stream: #<SB-INT:FORM-TRACKING-STREAM for "file /home/tetenkov/projects/common_lisp/weird/src/rnd/2rnd.lisp" {1004849343}>
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING
                                                          {1000560083}>:
  COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "weird" "rnd/2rnd">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1000560083}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100487B373}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100487B373}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100487B373}>)
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 "weird" "rnd/2rnd">)))
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 "weird" "rnd/2rnd">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weird" "rnd/2rnd">)
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 "weird" "rnd/2rnd">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1003D04DD3}>) [fast-method]
9: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
10: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1003D04DD3}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "weird"> :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 "weird"> :VERBOSE NIL)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "weird"> :VERBOSE NIL) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "weird" :VERBOSE NIL)
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "weird" :VERBOSE NIL) [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1003CFCF3B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1003CF6B5B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "weird" :VERBOSE NIL) [fast-method]
22: (ASDF/OPERATE:LOAD-SYSTEM "weird" :VERBOSE NIL)
23: (QUICKLISP-CLIENT::CALL-WITH-MACROEXPAND-PROGRESS #<CLOSURE (LAMBDA NIL :IN QUICKLISP-CLIENT::APPLY-LOAD-STRATEGY) {1003CF6AAB}>)
24: (QUICKLISP-CLIENT::AUTOLOAD-SYSTEM-AND-DEPENDENCIES "weird" :PROMPT NIL)
25: ((:METHOD QL-IMPL-UTIL::%CALL-WITH-QUIET-COMPILATION (T T)) #<unused argument> #<CLOSURE (FLET QUICKLISP-CLIENT::QL :IN QUICKLISP-CLIENT:QUICKLOAD) {1003C66E3B}>) [fast-method]
26: ((:METHOD QL-IMPL-UTIL::%CALL-WITH-QUIET-COMPILATION :AROUND (QL-IMPL:SBCL T)) #<QL-IMPL:SBCL {1002896EB3}> #<CLOSURE (FLET QUICKLISP-CLIENT::QL :IN QUICKLISP-CLIENT:QUICKLOAD) {1003C66E3B}>) [fast-method]
27: ((:METHOD QUICKLISP-CLIENT:QUICKLOAD (T)) "weird" :PROMPT NIL :SILENT NIL :VERBOSE NIL) [fast-method]
28: (QL-DIST::CALL-WITH-CONSISTENT-DISTS #<CLOSURE (LAMBDA NIL :IN QUICKLISP-CLIENT:QUICKLOAD) {1003C6009B}>)
29: (SB-INT:SIMPLE-EVAL-IN-LEXENV (QUICKLISP-CLIENT:QUICKLOAD "weird") #<NULL-LEXENV>)
30: (EVAL-TLF (QUICKLISP-CLIENT:QUICKLOAD "weird") 4 NIL)
31: ((LABELS SB-FASL::EVAL-FORM :IN SB-INT:LOAD-AS-SOURCE) (QUICKLISP-CLIENT:QUICKLOAD "weird") 4)
32: ((LAMBDA (SB-KERNEL:FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-INT:LOAD-AS-SOURCE) (QUICKLISP-CLIENT:QUICKLOAD "weird") :CURRENT-INDEX 4)
33: (SB-C::%DO-FORMS-FROM-INFO #<CLOSURE (LAMBDA (SB-KERNEL:FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-INT:LOAD-AS-SOURCE) {100183960B}> #<SB-C::SOURCE-INFO {10018395D3}> SB-C::INPUT-ERROR-IN-LOAD)
34: (SB-INT:LOAD-AS-SOURCE #<SB-SYS:FD-STREAM for "file /home/tetenkov/projects/common_lisp/weird/examples/draw.lisp" {100182E9A3}> :VERBOSE NIL :PRINT NIL :CONTEXT "loading")
35: ((FLET SB-FASL::THUNK :IN LOAD))
36: (SB-FASL::CALL-WITH-LOAD-BINDINGS #<CLOSURE (FLET SB-FASL::THUNK :IN LOAD) {7EFC9FE6F69B}> #<SB-SYS:FD-STREAM for "file /home/tetenkov/projects/common_lisp/weird/examples/draw.lisp" {100182E9A3}>)
37: ((FLET SB-FASL::LOAD-STREAM :IN LOAD) #<SB-SYS:FD-STREAM for "file /home/tetenkov/projects/common_lisp/weird/examples/draw.lisp" {100182E9A3}> NIL)
38: (LOAD #<SB-SYS:FD-STREAM for "file /home/tetenkov/projects/common_lisp/weird/examples/draw.lisp" {100182E9A3}> :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST T :EXTERNAL-FORMAT :DEFAULT)
39: ((FLET SB-IMPL::LOAD-SCRIPT :IN SB-IMPL::PROCESS-SCRIPT) #<SB-SYS:FD-STREAM for "file /home/tetenkov/projects/common_lisp/weird/examples/draw.lisp" {100182E9A3}>)
40: ((FLET SB-UNIX::BODY :IN SB-IMPL::PROCESS-SCRIPT))
41: ((FLET "WITHOUT-INTERRUPTS-BODY-2" :IN SB-IMPL::PROCESS-SCRIPT))
42: (SB-IMPL::PROCESS-SCRIPT "./draw.lisp")
43: (SB-IMPL::TOPLEVEL-INIT)
44: ((FLET SB-UNIX::BODY :IN SAVE-LISP-AND-DIE))
45: ((FLET "WITHOUT-INTERRUPTS-BODY-14" :IN SAVE-LISP-AND-DIE))
46: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE))

unhandled condition in --disable-debugger mode, quitting
; 
; compilation unit aborted
;   caught 2 fatal ERROR conditions
;   caught 1 ERROR condition

Answer 1 · 2022-05-17T16:32:15.000Z

@forthe94

im not quite certain that loading veq in the way you do will work. veq is included in quicklisp, and required in the weird system definition. however, the version in ql is older, and wont work with the current version of weird.

to be sure. try to add the most recent version of veq as a local project as instructed here: http://blog.quicklisp.org/2018/01/the-quicklisp-local-projects-mechanism.html

and then don't explicitly load veq in your code. quicklisp should then use the local repo.

let me know if you are certain that you are using the most recent versions of veq and weird (HEAD from github) and i will have a closer look when i can.

Answer 2 · 2022-05-27T10:58:50.000Z

closing since i didn't hear back