Refactor some examples

Author: opensourcedoc

examples/args.lisp

@@ -3,9 +3,11 @@
 ;; Alternatively, load a local cl-portable.lisp script.
 #-quicklisp (load "cl-portable.lisp" :print nil)
 
-(use-package 'cl-portable)
+(import 'cl-portable::argument-script)
+(import 'cl-portable::argument-vector)
+(import 'cl-portable::quit-with-status)
 
-;; Simulate main function.
+;; Simulate a main function.
 (defun main ()
   ;; Print out unprocessed arguments.
   (write-line "Unprocessed argument vector:")
@@ -17,8 +19,8 @@
   (write-line "Processed argument(s) in scripting mode:")
   (write-line (princ-to-string (argument-script)))
 
-  #+ccl (finish-output)  ;; Trick for Clozure CL.
+  #+ccl (finish-output)  ; Trick for Clozure CL.
   (quit-with-status))
 
-;; Assume args.lisp runs in scripting mode.
+;; Call the main function.
 (main)

examples/compile-program.lisp

@@ -3,20 +3,22 @@
 ;; Alternatively, load a local cl-portable.lisp script.
 #-quicklisp (load "cl-portable.lisp" :print nil)
 
-(use-package 'cl-portable)
+(import 'cl-portable::compile-program)
+(import 'cl-portable::platform)
+(import 'cl-portable::quit-with-status)
 
 ;; Simulate a main function.
 (defun main ()
   (write-line "Hello World")
-  ;; Trick for Clozure CL.
-  #+ccl (finish-output)
+  #+ccl (finish-output)  ; Trick for Clozure CL.
   (quit-with-status 0))
 
-;; Set a proper executable name
-;;  according to current OS.
+;; Set a proper executable name according to current OS.
 (if (equal :windows (platform))
     (defvar *program* "program.exe")
     (defvar *program* "program"))
 
+;; Compile the script into an executable.
 (compile-program *program* #'main)
+;; Quit the script.
 (quit-with-status)

examples/env.lisp

@@ -3,14 +3,17 @@
 ;; Alternatively, load a local cl-portable.lisp script.
 #-quicklisp (load "cl-portable.lisp" :print nil)
 
-(use-package 'cl-portable)
+(import 'cl-portable::env)
+(import 'cl-portable::platform)
+(import 'cl-portable::quit-with-status)
 
 ;; Simulate a main function.
 (defun main ()
-  (if (equal (platform) :windows)
+  (if (equal :windows (platform))
+                       ;; HOME equivalent on Windows
       (write-line (env "USERPROFILE"))
       (write-line (env "HOME")))
-  #+ccl (finish-output)
+  #+ccl (finish-output)  ; Trick for Clozure CL.
   (quit-with-status 0))
 
 ;; Load the main function.

examples/helloworld-cjk.lisp

@@ -3,15 +3,14 @@
 ;; Alternatively, load a local cl-portable.lisp script.
 #-quicklisp (load "cl-portable.lisp" :print nil)
 
-(use-package 'cl-portable)
+(import 'cl-portable::quit-with-status)
 
 ;; Simulate a main function.
 (defun main ()
   (write-line "你好，世界")
   (write-line "こんにちは世界")
   (write-line "안녕 세상")
-  ;; Trick for Clozure CL.
-  #+ccl (finish-output)
+  #+ccl (finish-output)  ; Trick for Clozure CL.
   (quit-with-status 0))
 
 ;; Load the main function.

examples/pwd.lisp

@@ -3,12 +3,13 @@
 ;; Alternatively, load a local cl-portable.lisp script.
 #-quicklisp (load "cl-portable.lisp" :print nil)
 
-(use-package 'cl-portable)
+(import 'cl-portable::pwd)
+(import 'cl-portable::quit-with-status)
 
 ;; Simulate a main function.
 (defun main ()
   (write-line (princ-to-string (pwd)))
-  #+ccl (finish-output)
+  #+ccl (finish-output)  ; Trick for Clozure CL.
   (quit-with-status 0))
 
 ;; Load the main function.