demo-uv-mesh error

Question

demo-uv-mesh error

starkaiser opened this issue 2 years ago · comments

Sorin Cătălin Păștiță commented 2 years ago

Branch: main
Commit: 7ff3015
Platform: Devuan GNU/Linux x86_64, SBCL version 2.1.1

When I try to run the first demo in demo-uv-mesh.lisp I get the following error:

The value
  (#(1.5 0.0 0.0 1.0) #(-1.5 0.0 0.0 1.0))
is not of type
  VECTOR
when binding #:LOOP-ACROSS-VECTOR-0
   [Condition of type TYPE-ERROR]

Restarts:
 0: [ABORT] Abort compilation.
 1: [*ABORT] Return to SLIME's top level.
 2: [ABORT] abort thread (#<THREAD "worker" RUNNING {100454B3B3}>)

Backtrace:
  0: (TRANSFORM-POINTS! (#(1.5 0.0 0.0 1.0) #(-1.5 0.0 0.0 1.0)) #2A((1.0 0.0 0.0 0.0) (0.0 1.0 0.0 0.0) (0.0 0.0 1.0 0.0) (0.0 0.0 -0.75 1.0)))
  1: ((:METHOD SWEEP-EXTRUDE-AUX (UV-MESH T T T T)) #<UV-MESH UV-MESH-10, 0 points, 0 faces, dims (2 2) {100459FC43}> (#(1.5 0.0 0.0 1.0) #(-1.5 0.0 0.0 1.0)) NIL #(#(0.0 0.0 -0.75 1.0) #(0.0 0.0 0.75 1.0)..
  2: (SB-FASL::LOAD-FASL-GROUP #S(SB-FASL::FASL-INPUT :STREAM #<SB-SYS:FD-STREAM for "file /tmp/slimeMEUJRN.fasl" {100459C673}> :TABLE #(8 #<PACKAGE "KONS-9"> CLEAR-SCENE SYMBOL-VALUE *SCENE* ADD-SHAPE .....
  3: (SB-FASL::LOAD-AS-FASL #<SB-SYS:FD-STREAM for "file /tmp/slimeMEUJRN.fasl" {100459C673}> NIL NIL)
  4: ((FLET SB-FASL::THUNK :IN LOAD))
  5: (SB-FASL::CALL-WITH-LOAD-BINDINGS #<FUNCTION (FLET SB-FASL::THUNK :IN LOAD) {7FEA3CB7DE4B}> #<SB-SYS:FD-STREAM for "file /tmp/slimeMEUJRN.fasl" {100459C673}>)
  6: ((FLET SB-FASL::LOAD-STREAM :IN LOAD) #<SB-SYS:FD-STREAM for "file /tmp/slimeMEUJRN.fasl" {100459C673}> T)
  7: (LOAD #P"/tmp/slimeMEUJRN.fasl" :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST T :EXTERNAL-FORMAT :DEFAULT)
  8: ((FLET SWANK/BACKEND:CALL-WITH-COMPILATION-HOOKS :IN "/home/starkaiser/.emacs.d/elpa/slime-20220712.817/swank/sbcl.lisp") #<FUNCTION (LAMBDA NIL :IN SWANK/BACKEND:SWANK-COMPILE-STRING) {100459C52B}>)
  9: ((FLET SWANK/BACKEND:SWANK-COMPILE-STRING :IN "/home/starkaiser/.emacs.d/elpa/slime-20220712.817/swank/sbcl.lisp") "(with-clear-scene ..)
 10: ((LAMBDA NIL :IN SWANK:COMPILE-STRING-FOR-EMACS))
 11: ((LAMBDA NIL :IN SWANK::COLLECT-NOTES))
 12: (SWANK::MEASURE-TIME-INTERVAL #<FUNCTION (LAMBDA NIL :IN SWANK::COLLECT-NOTES) {10023A7ECB}>)
 13: (SWANK::COLLECT-NOTES #<FUNCTION (LAMBDA NIL :IN SWANK:COMPILE-STRING-FOR-EMACS) {10023A7E7B}>)
 14: (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<FUNCTION (LAMBDA NIL :IN SWANK:COMPILE-STRING-FOR-EMACS) {10023A7E2B}>)
 15: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK:COMPILE-STRING-FOR-EMACS "(with-clear-scene ..)
 16: (EVAL (SWANK:COMPILE-STRING-FOR-EMACS "(with-clear-scene ..)
 17: (SWANK:EVAL-FOR-EMACS (SWANK:COMPILE-STRING-FOR-EMACS "(with-clear-scene ..)
 18: ((LAMBDA NIL :IN SWANK::SPAWN-WORKER-THREAD))
 19: (SWANK/SBCL::CALL-WITH-BREAK-HOOK #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<FUNCTION (LAMBDA NIL :IN SWANK::SPAWN-WORKER-THREAD) {52BFC9CB}>)
 20: ((FLET SWANK/BACKEND:CALL-WITH-DEBUGGER-HOOK :IN "/home/starkaiser/.emacs.d/elpa/slime-20220712.817/swank/sbcl.lisp") #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<FUNCTION (LAMBDA NIL :IN SWANK::SPAWN-WORK..
 21: (SWANK::CALL-WITH-BINDINGS ((*STANDARD-INPUT* . #<SWANK/GRAY::SLIME-INPUT-STREAM {1002543E53}>)) #<FUNCTION (LAMBDA NIL :IN SWANK::SPAWN-WORKER-THREAD) {52BFCC3B}>)
 22: ((LAMBDA NIL :IN SWANK::SPAWN-WORKER-THREAD))
 23: ((FLET SB-UNIX::BODY :IN SB-THREAD::RUN))
 24: ((FLET "WITHOUT-INTERRUPTS-BODY-11" :IN SB-THREAD::RUN))
 25: ((FLET SB-UNIX::BODY :IN SB-THREAD::RUN))
 26: ((FLET "WITHOUT-INTERRUPTS-BODY-4" :IN SB-THREAD::RUN))
 27: (SB-THREAD::RUN)
 28: ("foreign function: call_into_lisp")
 29: ("foreign function: funcall1")

Similar for demo 07. All other demos work.

The value
  (#(-0.5 -9.184851e-17 0.0 1.0) #(6.123234e-17 -0.5 0.0 1.0)
   #(0.5 3.061617e-17 0.0 1.0) #(0.0 0.5 0.0 1.0))

is not of type
  VECTOR
when binding #:LOOP-ACROSS-VECTOR-0
   [Condition of type TYPE-ERROR]

Restarts:
 0: [ABORT] Abort compilation.
 1: [*ABORT] Return to SLIME's top level.
 2: [ABORT] abort thread (#<THREAD "worker" RUNNING {10018F3753}>)

Backtrace:
  0: (TRANSFORM-POINTS! (#(-0.5 -9.184851e-17 0.0 1.0) #(6.123234e-17 -0.5 0.0 1.0) #(0.5 3.061617e-17 0.0 1.0) #(0.0 0.5 0.0 1.0)) #2A((0.874994019659956d0 -0.27896714553936425d0 -0.3956803937935073d0 0.0..
  1: ((:METHOD SWEEP-EXTRUDE-AUX (UV-MESH T T T T)) #<UV-MESH UV-MESH-12, 0 points, 0 faces, dims (4 65) {1001977063}> (#(-0.5 -9.184851e-17 0.0 1.0) #(6.123234e-17 -0.5 0.0 1.0) #(0.5 3.061617e-17 0.0 1.0..
  2: (SB-FASL::LOAD-FASL-GROUP #S(SB-FASL::FASL-INPUT :STREAM #<SB-SYS:FD-STREAM for "file /tmp/slimegpC8yR.fasl" {10019712B3}> :TABLE #(17 #<PACKAGE "KONS-9"> CLEAR-SCENE SYMBOL-VALUE *SCENE* MAKE-SINE-CU..
  3: (SB-FASL::LOAD-AS-FASL #<SB-SYS:FD-STREAM for "file /tmp/slimegpC8yR.fasl" {10019712B3}> NIL NIL)
  4: ((FLET SB-FASL::THUNK :IN LOAD))
  5: (SB-FASL::CALL-WITH-LOAD-BINDINGS #<FUNCTION (FLET SB-FASL::THUNK :IN LOAD) {7FEA3CB7DE4B}> #<SB-SYS:FD-STREAM for "file /tmp/slimegpC8yR.fasl" {10019712B3}>)
  6: ((FLET SB-FASL::LOAD-STREAM :IN LOAD) #<SB-SYS:FD-STREAM for "file /tmp/slimegpC8yR.fasl" {10019712B3}> T)
  7: (LOAD #P"/tmp/slimegpC8yR.fasl" :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST T :EXTERNAL-FORMAT :DEFAULT)
  8: ((FLET SWANK/BACKEND:CALL-WITH-COMPILATION-HOOKS :IN "/home/starkaiser/.emacs.d/elpa/slime-20220712.817/swank/sbcl.lisp") #<FUNCTION (LAMBDA NIL :IN SWANK/BACKEND:SWANK-COMPILE-STRING) {100197116B}>)
  9: ((FLET SWANK/BACKEND:SWANK-COMPILE-STRING :IN "/home/starkaiser/.emacs.d/elpa/slime-20220712.817/swank/sbcl.lisp") "(with-clear-scene ..)
 10: ((LAMBDA NIL :IN SWANK:COMPILE-STRING-FOR-EMACS))
 11: ((LAMBDA NIL :IN SWANK::COLLECT-NOTES))
 12: (SWANK::MEASURE-TIME-INTERVAL #<FUNCTION (LAMBDA NIL :IN SWANK::COLLECT-NOTES) {100196076B}>)
 13: (SWANK::COLLECT-NOTES #<FUNCTION (LAMBDA NIL :IN SWANK:COMPILE-STRING-FOR-EMACS) {100196071B}>)
 14: (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<FUNCTION (LAMBDA NIL :IN SWANK:COMPILE-STRING-FOR-EMACS) {10019606CB}>)
 15: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK:COMPILE-STRING-FOR-EMACS "(with-clear-scene ..)
 16: (EVAL (SWANK:COMPILE-STRING-FOR-EMACS "(with-clear-scene ..)
 17: (SWANK:EVAL-FOR-EMACS (SWANK:COMPILE-STRING-FOR-EMACS "(with-clear-scene ..)
 18: ((LAMBDA NIL :IN SWANK::SPAWN-WORKER-THREAD))
 19: (SWANK/SBCL::CALL-WITH-BREAK-HOOK #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<FUNCTION (LAMBDA NIL :IN SWANK::SPAWN-WORKER-THREAD) {52BFC9CB}>)
 20: ((FLET SWANK/BACKEND:CALL-WITH-DEBUGGER-HOOK :IN "/home/starkaiser/.emacs.d/elpa/slime-20220712.817/swank/sbcl.lisp") #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<FUNCTION (LAMBDA NIL :IN SWANK::SPAWN-WORK..
 21: (SWANK::CALL-WITH-BINDINGS ((*STANDARD-INPUT* . #<SWANK/GRAY::SLIME-INPUT-STREAM {1002543E53}>)) #<FUNCTION (LAMBDA NIL :IN SWANK::SPAWN-WORKER-THREAD) {52BFCC3B}>)
 22: ((LAMBDA NIL :IN SWANK::SPAWN-WORKER-THREAD))
 23: ((FLET SB-UNIX::BODY :IN SB-THREAD::RUN))
 24: ((FLET "WITHOUT-INTERRUPTS-BODY-11" :IN SB-THREAD::RUN))
 25: ((FLET SB-UNIX::BODY :IN SB-THREAD::RUN))
 26: ((FLET "WITHOUT-INTERRUPTS-BODY-4" :IN SB-THREAD::RUN))
 27: (SB-THREAD::RUN)
 28: ("foreign function: call_into_lisp")
 29: ("foreign function: funcall1")

Kaveh Kardan · Answer 1 · Sun Sep 04 2022 02:35:22 GMT+0800 (China Standard Time)

@starkaiser Thank you for testing the demo files. :)