;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Author     : der_Wolfgang@forum@cad.de
;; Date       : 21 Feb. 2018
;;
;; for reference see http://ww3.cad.de/foren/ubb/Forum29/HTML/004652.shtml
;;
;; short comparison of global vars versa LET and the LET initial possibilities
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun unschoen ()
  (progn
    (setq INeedHelp (is-help-needed "Stephan"))  ;; we create a global variable and set its value
    (setq myhelper 42)     ; we create a global variable and set its value
    (setq prefix   "None") ; we create a global variable and set its value
    (mach-anderes-zeugs :radeldidum)
    (when INeedhelp
      (pprint myhelper)
      (display prefix)
      ) ;; end when
  ) ;; progn
 ) ;; end defun

(defun schonGut ()
  (let (INeedHelp myhelper prefix)  ;; list of local variables
    (setq INeedHelp (is-help-needed "Stephan"))
    (setq myhelper 43)     ;; set initial value
    (setq prefix   "GarNix")
    (mach-anderes-zeugs :der-kommissar)
    (when INeedhelp
      (pprint myhelper)
      (display prefix)
      ) ;; end when
  ) ;; let
 ) ;; end defun

(defun schonBesser ()
  (let (INeedHelp         ;; without initial value
        (myhelper 44)     ;; with initial value
        (prefix   "none")
        ) ;; end local variable list
    (setq INeedHelp (is-help-needed "Stephan"))
    (mach-anderes-zeugs :geht-um)
    (when INeedhelp
      (pprint myhelper)
      (display prefix)
      ) ;; end when
  ) ;; let
 ) ;; end defun

(defun naPrima ()
  (let ((INeedHelp (is-help-needed "Stephan")) ;; with initial value
        (myhelper 45)     ;; with initial value
        (prefix   "NONE")
        )
    (mach-anderes-zeugs :radeldidum)
    (when INeedhelp
      (pprint myhelper)
      (display prefix)
      ) ;; end when
  ) ;; let
 ) ;; end defun



(defun is-help-needed (userName)
 (> 3 1) ; also eigentlich :-D immer
)
(defun  mach-anderes-zeugs (kram)
 (pprint kram)
)