Guest User

Untitled

a guest
Nov 11th, 2025
51
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.05 KB | None | 0 0
  1. Execution of a form compiled with errors.
  2. Form:
  3. #'(SB-INT:NAMED-LAMBDA RECT-FILE
  4. (PATH WIDTH HEIGHT &OPTIONAL (DEFAULT NIL) (PATH (STRING PATH)))
  5. (DECLARE (SB-C::TOP-LEVEL-FORM))
  6. "
  7. "
  8. (BLOCK RECT-FILE
  9. (WITH-OPEN-FILE
  10. (*STANDARD-OUTPUT* PATH :DIRECTION :OUTPUT :IF-DOES-NOT-EXIST
  11. :CREATE)
  12. (FORMAT T "~{~{~s~^ ~}~%~}"
  13. (LOOP :REPEAT HEIGHT
  14. :COLLECT (LOOP :REPEAT WIDTH
  15. :COLLECT DEFAULT))))))
  16. Compile-time error:
  17. The variable PATH occurs more than once in the lambda list.
  18. [Condition of type SB-INT:COMPILED-PROGRAM-ERROR]
  19.  
  20. Restarts:
  21. 0: [RETRY] Retry SLY mREPL evaluation request.
  22. 1: [*ABORT] Return to SLY's top level.
  23. 2: [ABORT] abort thread (#<THREAD tid=37409 "sly-channel-1-mrepl-remote-1" RUNNING {1000B780A3}>)
  24.  
  25. Backtrace:
  26. 0: ("top level form") [toplevel]
  27. 1: (SB-FASL::LOAD-FASL-GROUP #S(SB-FASL::FASL-INPUT :STREAM #<SB-SYS:FD-STREAM for "file /home/ryan/Downloads/nicclim.fasl" {1006F5ECD3}> :TABLE #(2021 #1="~/Downloads/nicclim.lisp" "NICCLIM" #2="top lev..
  28. Locals:
  29. ARG1 = 0
  30. ARG2 = NIL
  31. ARG3 = NIL
  32. BYTE = 56
  33. FASL-INPUT = #S(SB-FASL::FASL-INPUT ..)
  34. N-OPERANDS = 1
  35. STREAM = #<SB-SYS:FD-STREAM for "file /home/ryan/Downloads/nicclim.fasl" {1006F5ECD3}>
  36. TRACE = NIL
  37. Catch-tags:
  38. SB-FASL::FASL-GROUP-END
  39. 2: ((LAMBDA NIL :IN SB-FASL::LOAD-AS-FASL))
  40. 3: (SB-IMPL::CALL-WITH-LOADER-PACKAGE-NAMES #<FUNCTION (LAMBDA NIL :IN SB-FASL::LOAD-AS-FASL) {1006F77CDB}>)
  41. 4: (SB-FASL::LOAD-AS-FASL #<SB-SYS:FD-STREAM for "file /home/ryan/Downloads/nicclim.fasl" {1006F5ECD3}> NIL NIL)
  42. 5: ((LABELS SB-FASL::LOAD-STREAM-1 :IN LOAD) #<SB-SYS:FD-STREAM for "file /home/ryan/Downloads/nicclim.fasl" {1006F5ECD3}> T)
  43. 6: (SB-FASL::CALL-WITH-LOAD-BINDINGS #<FUNCTION (LABELS SB-FASL::LOAD-STREAM-1 :IN LOAD) {74C7C24EDC0B}> #<SB-SYS:FD-STREAM for "file /home/ryan/Downloads/nicclim.fasl" {1006F5ECD3}> T #<SB-SYS:FD-STREAM..
  44. 7: (LOAD "~/Downloads/nicclim.fasl" :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST :ERROR :EXTERNAL-FORMAT :DEFAULT)
  45. 8: (SB-INT:SIMPLE-EVAL-IN-LEXENV (LOAD "~/Downloads/nicclim.fasl") #<NULL-LEXENV>)
  46. 9: (EVAL (LOAD "~/Downloads/nicclim.fasl"))
  47. 10: ((LAMBDA NIL :IN SLYNK-MREPL::MREPL-EVAL-1))
  48. 11: (SLYNK::CALL-WITH-RETRY-RESTART "Retry SLY mREPL evaluation request." #<FUNCTION (LAMBDA NIL :IN SLYNK-MREPL::MREPL-EVAL-1) {1006E5F28B}>)
  49. 12: ((LAMBDA NIL :IN SLYNK-MREPL::MREPL-EVAL-1))
  50. 13: ((LAMBDA NIL :IN SLYNK::CALL-WITH-LISTENER))
  51. 14: (SLYNK::CALL-WITH-BINDINGS ((*PACKAGE* . #<PACKAGE "COMMON-LISP-USER">) (*DEFAULT-PATHNAME-DEFAULTS* . #P"/home/ryan/") (* . #1=#P"/home/ryan/Downloads/nicclim.fasl") (** :MCCLIM) (***) (/ #1# T T) ....
  52. 15: (SLYNK-MREPL::MREPL-EVAL-1 #<SLYNK-MREPL::MREPL mrepl-1-1> "(load \"~/Downloads/nicclim.fasl\")")
  53. 16: (SLYNK-MREPL::MREPL-EVAL #<SLYNK-MREPL::MREPL mrepl-1-1> "(load \"~/Downloads/nicclim.fasl\")")
  54. 17: (SLYNK:PROCESS-REQUESTS NIL)
  55. 18: ((LAMBDA NIL :IN SLYNK::SPAWN-CHANNEL-THREAD))
  56. 19: ((LAMBDA NIL :IN SLYNK::SPAWN-CHANNEL-THREAD))
  57. 20: (SLYNK-SBCL::CALL-WITH-BREAK-HOOK #<FUNCTION SLYNK:SLYNK-DEBUGGER-HOOK> #<FUNCTION (LAMBDA NIL :IN SLYNK::SPAWN-CHANNEL-THREAD) {10047C800B}>)
  58. 21: ((FLET SLYNK-BACKEND:CALL-WITH-DEBUGGER-HOOK :IN "/home/ryan/.emacs.d/elpa/sly-20240809.2119/slynk/backend/sbcl.lisp") #<FUNCTION SLYNK:SLYNK-DEBUGGER-HOOK> #<FUNCTION (LAMBDA NIL :IN SLYNK::SPAWN-CHA..
  59. 22: ((LAMBDA NIL :IN SLYNK::CALL-WITH-LISTENER))
  60. 23: (SLYNK::CALL-WITH-BINDINGS ((*PACKAGE* . #<PACKAGE "COMMON-LISP-USER">) (*DEFAULT-PATHNAME-DEFAULTS* . #P"/home/ryan/") (* . #1=#P"/home/ryan/Downloads/nicclim.fasl") (** :MCCLIM) (***) (/ #1# T T) ....
  61. 24: ((LAMBDA NIL :IN SLYNK::SPAWN-CHANNEL-THREAD))
  62. 25: ((FLET SB-UNIX::BODY :IN SB-THREAD::RUN))
  63. 26: ((FLET "WITHOUT-INTERRUPTS-BODY-" :IN SB-THREAD::RUN))
  64. 27: ((FLET SB-UNIX::BODY :IN SB-THREAD::RUN))
  65. 28: ((FLET "WITHOUT-INTERRUPTS-BODY-" :IN SB-THREAD::RUN))
  66. 29: (SB-THREAD::RUN)
  67. 30: ("foreign function: call_into_lisp_")
  68. 31: ("foreign function: funcall1")
  69.  
Advertisement
Add Comment
Please, Sign In to add comment