example.lsp: rename system-variables (ARGV, PROGRAM_NAME,...)

example.lsp

@@ -1,11 +1,11 @@
 (block main
-  (if (< (length args) 2)
+  (if (< (length ARGV) 2)
     (progn
-      (format (error-output) "Usage: ~A ~A USERNAME@DOMAIN PASSWORD~%" $EXECUTABLE_NAME $PROGRAM_NAME)
+      (format (error-output) "Usage: ~A ~A USERNAME@DOMAIN PASSWORD~%" EXECUTABLE-NAME PROGRAM-NAME)
       (return-from main nil)))
 
-  (let ((account (car args))
-        (password (cadr args))
+  (let ((account (car ARGV))
+        (password (cadr ARGV))
         (sshpid nil))
 
     (with-handler