File tree Expand file tree Collapse file tree 1 file changed +10
-4
lines changed
Expand file tree Collapse file tree 1 file changed +10
-4
lines changed Original file line number Diff line number Diff line change 812812(defmethod load-settings pc-settings ((obj pc-settings))
813813 " load"
814814 (format (clear *pc-temp-string-1* ) " ~S /pc-settings.gc" *pc-settings-folder* )
815- (if (pc-filepath-exists? *pc-temp-string-1* )
816- (begin
815+ (cond
816+ ((pc-filepath-exists? *pc-temp-string-1* )
817817 (format 0 " [PC] PC Settings found at '~S '...loading!~% " *pc-temp-string-1* )
818818 (unless (read-from-file obj *pc-temp-string-1* )
819819 (format 0 " [PC] PC Settings found at '~S ' but could not be loaded, using defaults!~% " *pc-temp-string-1* )
820- (reset obj #t)))
821- (format 0 " [PC] PC Settings not found at '~S '...initializing with defaults!~% " *pc-temp-string-1* ))
820+ (reset obj #t)
821+ )
822+ )
823+ (else
824+ (format 0 " [PC] PC Settings not found at '~S '...initializing with defaults!~% " *pc-temp-string-1* )
825+ (reset obj #t)
826+ )
827+ )
822828 0 )
823829
824830(defmethod initialize pc-settings ((obj pc-settings))
You can’t perform that action at this time.
0 commit comments