From cf17e9205601b7d20a3ebfc3d4a1b862ec5f82ec Mon Sep 17 00:00:00 2001 From: Michael Stangl Date: Fri, 8 May 2026 13:32:05 +0200 Subject: [PATCH] =?UTF-8?q?Saveload=20deaktiviert.=20Beim=20Laden=20m?= =?UTF-8?q?=C3=B6chte=20ich=20Fehler=20sehen,=20wenn=20welche=20da=20sind?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Lisp/KreiselInsert.lsp | 2 +- bin/on_start.lsp | 5 +++-- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/Lisp/KreiselInsert.lsp b/Lisp/KreiselInsert.lsp index 58b087f..eb11f14 100644 --- a/Lisp/KreiselInsert.lsp +++ b/Lisp/KreiselInsert.lsp @@ -17,7 +17,7 @@ ;; block-pfad neu setzen (setq *block-path* (getenv "DXFM_BLOCKS")) -(princ (strcat "\n✅ Block-Pfad: " block-pfad)) +(princ (strcat "\nBlock-Pfad: " *block-path*)) ;; Basispunkt: Linker Kreis, linkester Tangentenpunkt (links Mitte) ;; ============================================ diff --git a/bin/on_start.lsp b/bin/on_start.lsp index 7c11a0b..2336836 100644 --- a/bin/on_start.lsp +++ b/bin/on_start.lsp @@ -35,9 +35,10 @@ (setvar "SRCHPATH" (strcat curr-srch ";" lisp-pfad)) ) - ;; Library laden + ;; Library laden (direkt, damit Fehler sichtbar sind) (if (findfile (strcat lisp-pfad "/ssg_load.lsp")) - (if (ssg-lib-safe-load (strcat lisp-pfad "/ssg_load.lsp")) + (progn + (load (strcat lisp-pfad "/ssg_load.lsp")) (princ "\n[SSG_LIB] ssg_load.lsp geladen.") ) (princ "\n[SSG_LIB] WARNUNG: ssg_load.lsp nicht gefunden!")