Saveload deaktiviert. Beim Laden möchte ich Fehler sehen, wenn welche da sind

This commit is contained in:
2026-05-08 13:32:05 +02:00
parent 34700d30ba
commit cf17e92056
2 changed files with 4 additions and 3 deletions
+1 -1
View File
@@ -17,7 +17,7 @@
;; block-pfad neu setzen
(setq *block-path* (getenv "DXFM_BLOCKS"))
(princ (strcat "\nBlock-Pfad: " block-pfad))
(princ (strcat "\nBlock-Pfad: " *block-path*))
;; Basispunkt: Linker Kreis, linkester Tangentenpunkt (links Mitte)
;; ============================================
+3 -2
View File
@@ -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!")