Fixed SAL effects so that correct line numbers are reported when an error occurs.

nyquist/sal-parse.lsp

@@ -1264,7 +1264,8 @@
     (setf expr (parse-sexpr))
     (if *sal-fn-name*
       (add-line-info-to-stmt (list 'sal-return-from *sal-fn-name* expr) loc)
-      (list 'defun 'main '() (add-line-info-to-stmt expr loc)))))
+      (list 'defun 'main '() (list 'sal-trace-enter '(quote main) '() '())
+                             (add-line-info-to-stmt expr loc)))))
 
 
 (defun parse-load ()

nyquist/sal.lsp

@@ -520,7 +520,7 @@
     (let (output remainder rslt stack)
       (setf stack *sal-call-stack*)
       ;; if first input char is "(", then eval as a lisp expression:
-      ;(display "sal-compile" input)
+      ;(display "sal-compile" input)(setf *sal-compiler-debug* t)
       (cond ((input-starts-with-open-paren input)
              ;(print "input is lisp expression")
              (errset