search

rabbibotton / clog

CLOG - The Common Lisp Omnificent GUI
Other
1.53k stars 104 forks source link

Compile error on (ql:quickload :clog) in Portacle for Windows #107

Closed djon3s closed 2 years ago

djon3s commented 2 years ago

First time running and many years since I last programmed, I saw your clog tutorials and was inspired. I remember how much I enjoyed lisp the few times I used it. Thanks for your offerings. Please let me know if this is the sort of issue you are happy to hear about or if it's a bit much, I can see the beauty of your creation and don't want to impinge on a developer doing good.

the situation is I've got Portacle on windows, I've installed the SQL binaries to the /win/lib subdirectory of portacle, updated quicklisp client (ql:update-dist "quicklisp") and updated the client (ql:update-client) and also installed clog from git where portacle expects quicklisp systems in its /projects directory

running (ql:quickload :clog) after sometime downloading and compiling various packages spits out... 

COMPILE-FILE-ERROR while
compiling #<CL-SOURCE-FILE "clog" "clog-gui">
   [Condition of type UIOP/LISP-BUILD:COMPILE-FILE-ERROR]

looking down at the back trace (skipping the first few lines) 

 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 "clog" "clog-gui">)))
  1: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "clog" "clog-gui">)
  2: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
  3: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS (ASDF/LISP-ACTION:LOAD-OP ASDF/LISP-ACTION:CL-SOURCE-FILE)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "clog" "clog-gui">) [fast-method]
  4: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "clog" "clog-gui">) [fast-method]
  5: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {10046A56D3}>) [fast-method]
  6: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
  7: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {10046A56D3}>) [fast-method]
  8: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "clog"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
  9: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "clog"> :VERBOSE NIL)
 10: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
 11: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "clog"> :VERBOSE NIL) [fast-method]
 12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "clog" :VERBOSE NIL)
 13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
 14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "clog" :VERBOSE NIL) [fast-method]
 15: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100469A33B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
 16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
 17: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100468230B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
 18: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "clog" :VERBOSE NIL) [fast-method]
 19: (ASDF/OPERATE:LOAD-SYSTEM "clog" :VERBOSE NIL)
 20: (QUICKLISP-CLIENT::CALL-WITH-MACROEXPAND-PROGRESS #<CLOSURE (LAMBDA NIL :IN QUICKLISP-CLIENT::APPLY-LOAD-STRATEGY) {100468211B}>)
 21: (QUICKLISP-CLIENT::AUTOLOAD-SYSTEM-AND-DEPENDENCIES "clog" :PROMPT NIL)
 22: ((:METHOD QL-IMPL-UTIL::%CALL-WITH-QUIET-COMPILATION (T T)) #<unused argument> #<CLOSURE (FLET QUICKLISP-CLIENT::QL :IN QUICKLISP-CLIENT:QUICKLOAD) {100466AD4B}>) [fast-method]
 23: ((:METHOD QL-IMPL-UTIL::%CALL-WITH-QUIET-COMPILATION :AROUND (QL-IMPL:SBCL T)) #<QL-IMPL:SBCL {1002F2F8C3}> #<CLOSURE (FLET QUICKLISP-CLIENT::QL :IN QUICKLISP-CLIENT:QUICKLOAD) {100466AD4B}>) [fast-me..
 24: ((:METHOD QUICKLISP-CLIENT:QUICKLOAD (T)) :CLOG :PROMPT NIL :SILENT NIL :VERBOSE NIL) [fast-method]
 25: (QL-DIST::CALL-WITH-CONSISTENT-DISTS #<CLOSURE (LAMBDA NIL :IN QUICKLISP-CLIENT:QUICKLOAD) {100466102B}>)
 26: (SB-INT:SIMPLE-EVAL-IN-LEXENV (QUICKLISP-CLIENT:QUICKLOAD :CLOG) #<NULL-LEXENV>)
 27: (EVAL (QUICKLISP-CLIENT:QUICKLOAD :CLOG))
 28: ((LAMBDA NIL :IN SWANK:INTERACTIVE-EVAL))
 29: (SWANK::CALL-WITH-RETRY-RESTART "Retry SLIME interactive evaluation request." #<CLOSURE (LAMBDA NIL :IN SWANK:INTERACTIVE-EVAL) {100466079B}>)
 30: (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<CLOSURE (LAMBDA NIL :IN SWANK:INTERACTIVE-EVAL) {100466077B}>)
 31: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK:INTERACTIVE-EVAL "(ql:quickload :clog)") #<NULL-LEXENV>)
 32: (EVAL (SWANK:INTERACTIVE-EVAL "(ql:quickload :clog)"))
 33: (SWANK:EVAL-FOR-EMACS (SWANK:INTERACTIVE-EVAL "(ql:quickload :clog)") "COMMON-LISP-USER" 5)
 34: ((LAMBDA NIL :IN SWANK::SPAWN-WORKER-THREAD))
 35: (SWANK/SBCL::CALL-WITH-BREAK-HOOK #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<FUNCTION (LAMBDA NIL :IN SWANK::SPAWN-WORKER-THREAD) {10028F988B}>)
 36: ((FLET SWANK/BACKEND:CALL-WITH-DEBUGGER-HOOK :IN "c:/Users/Administrator/portacle/all/emacsd/elpa/slime-20191224.2328/swank/sbcl.lisp") #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<FUNCTION (LAMBDA NIL :IN..
 37: (SWANK::CALL-WITH-BINDINGS ((*STANDARD-INPUT* . #1=#<SWANK/GRAY::SLIME-INPUT-STREAM {1008EDFA53}>) (*STANDARD-OUTPUT* . #2=#<SWANK/GRAY::SLIME-OUTPUT-STREAM {1008EDFB03}>) (*TRACE-OUTPUT* . #2#) (*ERR..
 38: ((LAMBDA NIL :IN SWANK::SPAWN-WORKER-THREAD))
 39: ((FLET SB-UNIX::BODY :IN SB-THREAD::NEW-LISP-THREAD-TRAMPOLINE))
 40: ((FLET "WITHOUT-INTERRUPTS-BODY-4" :IN SB-THREAD::NEW-LISP-THREAD-TRAMPOLINE))
 41: ((FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD::NEW-LISP-THREAD-TRAMPOLINE))
 42: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-THREAD::CALL-WITH-MUTEX))
 43: (SB-THREAD::CALL-WITH-MUTEX #<CLOSURE (FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD::NEW-LISP-THREAD-TRAMPOLINE) {575FBEB}> #<SB-THREAD:MUTEX "thread result lock" owner: #<SB-THREAD:THREAD "worker" ..
 44: (SB-THREAD::NEW-LISP-THREAD-TRAMPOLINE #<SB-THREAD:THREAD "worker" RUNNING {10046505E3}> NIL #<CLOSURE (LAMBDA NIL :IN SWANK::SPAWN-WORKER-THREAD) {100465056B}> NIL)
 45: ("foreign function: #x438ADB")
 46: ("foreign function: #x404D31")

when it returns to the repl

[package clog-gui]................................
[package clog-gui].

; file: g:/portable windows lisp environment/portacle/portacle/projects/clog/source/clog-gui.lisp
; in: DEFMETHOD CREATE-GUI-MENU-ICON (CLOG-GUI-MENU-BAR)
;     (FORMAT NIL "<button class='~A'>~

;                                   <img height=22 src='~A'></button>"
;             CLASS CLOG-GUI::IMAGE-URL)
; 
; caught ERROR:
;   during macroexpansion of
;   (FORMATTER "<button class='~A'>~

;                                   <img height=22 src='~A'></button>").
;   Use *BREAK-ON-SIGNALS* to intercept.
;   
;    error in FORMAT: Unknown directive (character: Return)
;     <button class='~A'>~

;                                   <img height=22 src='~A'></button>
;                         ^
....
; in: DEFUN ALERT-TOAST
;     (FORMAT NIL
;             "  <div class='w3-panel ~A w3-animate-right w3-display-container'>~

;      <span id=~A-close class='w3-button w3-large w3-display-topright'>&times;</span>~

;      <h3>~A</h3>~

;      <p>~A</p>~

;   </div>"
;             CLOG-GUI::COLOR-CLASS CLOG:HTML-ID CLOG:TITLE CLOG-GUI::CONTENT)
; 
; caught ERROR:
;   during macroexpansion of
;   (FORMATTER "  <div class='w3-panel ~A w3-animate-right w3-display-container'>~

;      <span id=~A-close class='w3-button w3-large w3-display-topright'>&times;</span>~

;      <h3>~A</h3>~

;      <p>~A</p>~

;   </div>").
;   Use *BREAK-ON-SIGNALS* to intercept.
;   
;    error in FORMAT: Unknown directive (character: Return)
;       <div class='w3-panel ~A w3-animate-right w3-display-container'>~

;      <span id=~A-close class='w3-button w3-large w3-display-topright'>&times;</span>~

;      <h3>~A</h3>~

;      <p>~A</p>~

;   </div>
;                                                                       ^
.
; in: DEFUN FORM-DIALOG
;     (FORMAT NIL "<div><label class='w3-text-black'><b>~A</b></label>~

;                      <select class='w3-select w3-border' name='~A-~A'>~A</select></div>"
;             (FIRST CLOG-GUI::L) CLOG:HTML-ID (SECOND CLOG-GUI::L)
;             (FORMAT NIL "~{~A~}"
;                     (MAPCAR
;                      (LAMBDA (CLOG-GUI::S)
;                        (FORMAT NIL "<option value='~A' ~A>~A</option>" # # #))
;                      (FOURTH CLOG-GUI::L))))
; 
; caught ERROR:
;   during macroexpansion of
;   (FORMATTER "<div><label class='w3-text-black'><b>~A</b></label>~

;                      <select class='w3-select w3-border' name='~A-~A'>~A</select></div>").
;   Use *BREAK-ON-SIGNALS* to intercept.
;   
;    error in FORMAT: Unknown directive (character: Return)
;     <div><label class='w3-text-black'><b>~A</b></label>~

;                      <select class='w3-select w3-border' name='~A-~A'>~A</select></div>
;                                                         ^

;     (FORMAT NIL "<div><input type=radio class='w3-radio' name='~A-~A'~

;                                         id='~A-~A-~A' value='~A' ~A> ~

;                                        <label for='~A-~A-~A'>~A</label></div>"
;             CLOG:HTML-ID (SECOND CLOG-GUI::L) CLOG:HTML-ID (SECOND CLOG-GUI::L)
;             (SECOND CLOG-GUI::S) (SECOND CLOG-GUI::S)
;             (IF (THIRD CLOG-GUI::S)
;                 (THIRD CLOG-GUI::S)
;                 "")
;             CLOG:HTML-ID (SECOND CLOG-GUI::L) ...)
; 
; caught ERROR:
;   during macroexpansion of
;   (FORMATTER "<div><input type=radio class='w3-radio' name='~A-~A'~

;                                         id='~A-~A-~A' value='~A' ~A> ~

;                                        <label for='~A-~A-~A'>~A</label></div>").
;   Use *BREAK-ON-SIGNALS* to intercept.
;   
;    error in FORMAT: Unknown directive (character: Return)
;     <div><input type=radio class='w3-radio' name='~A-~A'~

;                                         id='~A-~A-~A' value='~A' ~A> ~

;                                        <label for='~A-~A-~A'>~A</label></div>
;                                                          ^

;     (FORMAT NIL
;             #<(SIMPLE-ARRAY CHARACTER
;                (343)) <div><input class='w3-check' type='checkbox' ~

;                                                     name='~A-~A' id='~A-~A' ~A> ~

;                                                     <label class='w3-text... {100A3B3DFF}>
;             CLOG:HTML-ID (SECOND CLOG-GUI::L) CLOG:HTML-ID (SECOND CLOG-GUI::L)
;             (IF (FOURTH CLOG-GUI::L)
;                 "checked"
;                 "")
;             CLOG:HTML-ID (SECOND CLOG-GUI::L) (FIRST CLOG-GUI::L))
; 
; caught ERROR:
;   during macroexpansion of
;   (FORMATTER "<div><input class='w3-check' type='checkbox' ~

;                                                     name='~A-~A' id='~A-~A' ~A> ~

;                                                     <label class='w3-text-black' for='~A-~A'>~

;                                                     <b>~A</b></label>~

;                                               </div>").
;   Use *BREAK-ON-SIGNALS* to intercept.
;   
;    error in FORMAT: Unknown directive (character: Return)
;     <div><input class='w3-check' type='checkbox' ~

;                                                     name='~A-~A' id='~A-~A' ~A> ~

;                                                     <label class='w3-text-black' for='~A-~A'>~

;                                                     <b>~A</b></label>~

;                                               </div>
;                                                   ^

;     (FORMAT NIL
;             #<(SIMPLE-ARRAY CHARACTER
;                (240)) <div><label class='w3-text-black'><b>~A</b></label>~

;                                                    <input class='w3-input w3-border' type='~A'~

;                                                     n... {100A3B49CF}>
;             (FIRST CLOG-GUI::L) (THIRD CLOG-GUI::L) CLOG:HTML-ID
;             (SECOND CLOG-GUI::L) CLOG:HTML-ID (SECOND CLOG-GUI::L)
;             (IF (FOURTH CLOG-GUI::L)
;                 (FOURTH CLOG-GUI::L)
;                 ""))
; 
; caught ERROR:
;   during macroexpansion of
;   (FORMATTER "<div><label class='w3-text-black'><b>~A</b></label>~

;                                                    <input class='w3-input w3-border' type='~A'~

;                                                     name='~A-~A' id='~A-~A' value='~A'></div>").
;   Use *BREAK-ON-SIGNALS* to intercept.
;   
;    error in FORMAT: Unknown directive (character: Return)
;     <div><label class='w3-text-black'><b>~A</b></label>~

;                                                    <input class='w3-input w3-border' type='~A'~

;                                                     name='~A-~A' id='~A-~A' value='~A'></div>
;                                                         ^

;     (FORMAT NIL "<div><label class='w3-text-black'><b>~A</b></label>~

;                                  <input class='w3-input w3-border' type='text' name='~A-~A' id='~A-~A'></div>"
;             (FIRST CLOG-GUI::L) CLOG:HTML-ID (SECOND CLOG-GUI::L) CLOG:HTML-ID
;             (SECOND CLOG-GUI::L))
; 
; caught ERROR:
;   during macroexpansion of
;   (FORMATTER "<div><label class='w3-text-black'><b>~A</b></label>~

;                                  <input class='w3-input w3-border' type='text' name='~A-~A' id='~A-~A'></div>").
;   Use *BREAK-ON-SIGNALS* to intercept.
;   
;    error in FORMAT: Unknown directive (character: Return)
;     <div><label class='w3-text-black'><b>~A</b></label>~

;                                  <input class='w3-input w3-border' type='text' name='~A-~A' id='~A-~A'></div>
;                                                         ^
..........................
[package clog-gui]................................
[package clog-gui]..

; file: g:/portable windows lisp environment/portacle/portacle/projects/clog/source/clog-gui.lisp
; in: DEFMETHOD CREATE-GUI-MENU-ICON (CLOG-GUI-MENU-BAR)
;     (FORMAT NIL "<button class='~A'>~

;                                   <img height=22 src='~A'></button>"
;             CLASS CLOG-GUI::IMAGE-URL)
; 
; caught ERROR:
;   during macroexpansion of
;   (FORMATTER "<button class='~A'>~

;                                   <img height=22 src='~A'></button>").
;   Use *BREAK-ON-SIGNALS* to intercept.
;   
;    error in FORMAT: Unknown directive (character: Return)
;     <button class='~A'>~

;                                   <img height=22 src='~A'></button>
;                         ^
....
; in: DEFUN ALERT-TOAST
;     (FORMAT NIL
;             "  <div class='w3-panel ~A w3-animate-right w3-display-container'>~

;      <span id=~A-close class='w3-button w3-large w3-display-topright'>&times;</span>~

;      <h3>~A</h3>~

;      <p>~A</p>~

;   </div>"
;             CLOG-GUI::COLOR-CLASS CLOG:HTML-ID CLOG:TITLE CLOG-GUI::CONTENT)
; 
; caught ERROR:
;   during macroexpansion of
;   (FORMATTER "  <div class='w3-panel ~A w3-animate-right w3-display-container'>~

;      <span id=~A-close class='w3-button w3-large w3-display-topright'>&times;</span>~

;      <h3>~A</h3>~

;      <p>~A</p>~

;   </div>").
;   Use *BREAK-ON-SIGNALS* to intercept.
;   
;    error in FORMAT: Unknown directive (character: Return)
;       <div class='w3-panel ~A w3-animate-right w3-display-container'>~

;      <span id=~A-close class='w3-button w3-large w3-display-topright'>&times;</span>~

;      <h3>~A</h3>~

;      <p>~A</p>~

;   </div>
;                                                                       ^
.
; in: DEFUN FORM-DIALOG
;     (FORMAT NIL "<div><label class='w3-text-black'><b>~A</b></label>~

;                      <select class='w3-select w3-border' name='~A-~A'>~A</select></div>"
;             (FIRST CLOG-GUI::L) CLOG:HTML-ID (SECOND CLOG-GUI::L)
;             (FORMAT NIL "~{~A~}"
;                     (MAPCAR
;                      (LAMBDA (CLOG-GUI::S)
;                        (FORMAT NIL "<option value='~A' ~A>~A</option>" # # #))
;                      (FOURTH CLOG-GUI::L))))
; 
; caught ERROR:
;   during macroexpansion of
;   (FORMATTER "<div><label class='w3-text-black'><b>~A</b></label>~

;                      <select class='w3-select w3-border' name='~A-~A'>~A</select></div>").
;   Use *BREAK-ON-SIGNALS* to intercept.
;   
;    error in FORMAT: Unknown directive (character: Return)
;     <div><label class='w3-text-black'><b>~A</b></label>~

;                      <select class='w3-select w3-border' name='~A-~A'>~A</select></div>
;                                                         ^

;     (FORMAT NIL "<div><input type=radio class='w3-radio' name='~A-~A'~

;                                         id='~A-~A-~A' value='~A' ~A> ~

;                                        <label for='~A-~A-~A'>~A</label></div>"
;             CLOG:HTML-ID (SECOND CLOG-GUI::L) CLOG:HTML-ID (SECOND CLOG-GUI::L)
;             (SECOND CLOG-GUI::S) (SECOND CLOG-GUI::S)
;             (IF (THIRD CLOG-GUI::S)
;                 (THIRD CLOG-GUI::S)
;                 "")
;             CLOG:HTML-ID (SECOND CLOG-GUI::L) ...)
; 
; caught ERROR:
;   during macroexpansion of
;   (FORMATTER "<div><input type=radio class='w3-radio' name='~A-~A'~

;                                         id='~A-~A-~A' value='~A' ~A> ~

;                                        <label for='~A-~A-~A'>~A</label></div>").
;   Use *BREAK-ON-SIGNALS* to intercept.
;   
;    error in FORMAT: Unknown directive (character: Return)
;     <div><input type=radio class='w3-radio' name='~A-~A'~

;                                         id='~A-~A-~A' value='~A' ~A> ~

;                                        <label for='~A-~A-~A'>~A</label></div>
;                                                          ^

;     (FORMAT NIL
;             #<(SIMPLE-ARRAY CHARACTER
;                (343)) <div><input class='w3-check' type='checkbox' ~

;                                                     name='~A-~A' id='~A-~A' ~A> ~

;                                                     <label class='w3-text... {100CD7B1BF}>
;             CLOG:HTML-ID (SECOND CLOG-GUI::L) CLOG:HTML-ID (SECOND CLOG-GUI::L)
;             (IF (FOURTH CLOG-GUI::L)
;                 "checked"
;                 "")
;             CLOG:HTML-ID (SECOND CLOG-GUI::L) (FIRST CLOG-GUI::L))
; 
; caught ERROR:
;   during macroexpansion of
;   (FORMATTER "<div><input class='w3-check' type='checkbox' ~

;                                                     name='~A-~A' id='~A-~A' ~A> ~

;                                                     <label class='w3-text-black' for='~A-~A'>~

;                                                     <b>~A</b></label>~

;                                               </div>").
;   Use *BREAK-ON-SIGNALS* to intercept.
;   
;    error in FORMAT: Unknown directive (character: Return)
;     <div><input class='w3-check' type='checkbox' ~

;                                                     name='~A-~A' id='~A-~A' ~A> ~

;                                                     <label class='w3-text-black' for='~A-~A'>~

;                                                     <b>~A</b></label>~

;                                               </div>
;                                                   ^

;     (FORMAT NIL
;             #<(SIMPLE-ARRAY CHARACTER
;                (240)) <div><label class='w3-text-black'><b>~A</b></label>~

;                                                    <input class='w3-input w3-border' type='~A'~

;                                                     n... {100CD7B75F}>
;             (FIRST CLOG-GUI::L) (THIRD CLOG-GUI::L) CLOG:HTML-ID
;             (SECOND CLOG-GUI::L) CLOG:HTML-ID (SECOND CLOG-GUI::L)
;             (IF (FOURTH CLOG-GUI::L)
;                 (FOURTH CLOG-GUI::L)
;                 ""))
; 
; caught ERROR:
;   during macroexpansion of
;   (FORMATTER "<div><label class='w3-text-black'><b>~A</b></label>~

;                                                    <input class='w3-input w3-border' type='~A'~

;                                                     name='~A-~A' id='~A-~A' value='~A'></div>").
;   Use *BREAK-ON-SIGNALS* to intercept.
;   
;    error in FORMAT: Unknown directive (character: Return)
;     <div><label class='w3-text-black'><b>~A</b></label>~

;                                                    <input class='w3-input w3-border' type='~A'~

;                                                     name='~A-~A' id='~A-~A' value='~A'></div>
;                                                         ^

;     (FORMAT NIL "<div><label class='w3-text-black'><b>~A</b></label>~

;                                  <input class='w3-input w3-border' type='text' name='~A-~A' id='~A-~A'></div>"
;             (FIRST CLOG-GUI::L) CLOG:HTML-ID (SECOND CLOG-GUI::L) CLOG:HTML-ID
;             (SECOND CLOG-GUI::L))
; 
; caught ERROR:
;   during macroexpansion of
;   (FORMATTER "<div><label class='w3-text-black'><b>~A</b></label>~

;                                  <input class='w3-input w3-border' type='text' name='~A-~A' id='~A-~A'></div>").
;   Use *BREAK-ON-SIGNALS* to intercept.
;   
;    error in FORMAT: Unknown directive (character: Return)
;     <div><label class='w3-text-black'><b>~A</b></label>~

;                                  <input class='w3-input w3-border' type='text' name='~A-~A' id='~A-~A'></div>
;                                                         ^
.
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 14 ERROR conditions

CL-USER>

Apologies for the verbosity, as I'm just rekindling the fire and love for programming again and haven't yet developed the required eyes to analyse the stack traces Common lisp gives.

Many thanks for your sage guidance and attentions :)

Thank you for your offerings of software I can see from the demos this is potentially quite empowering to newbs and a human way of working.

I'm sure I could get it going just by installing on debian at this stage to follow the demos. Maybe it's something to do with portacle for windows in which case I could give a go at a patch for them if I had any indication what the problem could be. By the way it dumped on a foreign function interface, my guessing is something changed in whatever library that called on the system side.

rabbibotton commented 2 years ago

Really strange. I use portacle often with no issues. It seems to not like return characters in the FORMAT strings which is bizarre. I'll try and reproduce and let you know. It is likely some installation issue some place. How old is the portacle installation?

rabbibotton commented 2 years ago

Issue apparently is with git and the crlf settings. Sbcl doesn’t like crlf when ~ is used to continue strings. Try configure your git to use Unix line endings or use the shell in portacle/emacs and the git that comes with portacle and let me know if solved.

djon3s commented 2 years ago

use the shell in portacle/emacs and the git that comes with portacle and let me know if solved.

ah, brilliant! Yes I just fumbled about trying to install git and a shell externally, that serves me right for leaving emacs xD I think I might have done this with M-x ansi-term which is how I used to roll, but this time I just went with M-x eshell and it worked & first tutorial loaded.

Many thanks