
;; Test code to test multiple- source appabilities of the debugger

;; ***************************************************************
;; This is the first source
;; ***************************************************************

(defun test_first ()
  (princ "We call now a function test_second in a second source")
  (terpri)
  (test_second)
  (princ "test_second called , we should now be back in the first source"))