Replaced uses of shen-cl.exit with cl.exit

Author: rkoeninger

CHANGELOG.md

@@ -13,7 +13,7 @@ The format is based on [Keep a Changelog](http://keepachangelog.com/).
 - `LOAD-SHEN` that loads Shen code from Lisp.
 - `:SHEN` package where Shen code is defined by default.
 - `-r`/`--repl` option to force running REPL even if other options would prevent REPL from running.
-- `cl.exit` (c.f. `shen-cl.exit`) as it is CL-specific function and not shen-cl-specific function.
+- `cl.exit` (cf. `shen-cl.exit`) as it is CL-specific function and not shen-cl-specific function.
 
 ### Changed
 - `absvector?` no longer returns `true` for strings.

README.md

@@ -57,7 +57,7 @@ The `Makefile` automates all build and test operations.
 
 An executable is generated for each platform in its platform-specific output directory under `bin/` (e.g. `bin/sbcl/shen.exe`). Per typical naming conventions, it is named `shen.exe` on Windows systems and just `shen` on Unix-based systems.
 
-Startup scripts can be specified on the command line by preceding them with a `-l` flag. If any startup scripts are specified this way, they will be loaded in order and then `(cl.exit 0)` will be called. If none are, the Shen REPL will start as usual. Either way, all command line arguments will be accessible with `(value *argv*)`.
+Startup scripts can be specified on the command line by preceding them with a `-l` flag. If any startup scripts are specified this way, they will be loaded in order and then `(cl.exit)` will be called. If none are, the Shen REPL will start as usual. Either way, all command line arguments will be accessible with `(value *argv*)`.
 
 When starting Shen via `make`, command line arguments can be passed through like this: `make run-sbcl Args="-l bootstrap.shen -e (run)"`.
 

src/primitives.lsp

@@ -384,7 +384,7 @@
             (shen-cl.interpret-args Args)
             (IF (shen-cl.start-repl? Args)
               (shen.shen)
-              (shen-cl.exit 0))))))
+              (cl.exit 0))))))
 
     #+CCL
     (HANDLER-BIND
@@ -394,15 +394,15 @@
         (shen-cl.interpret-args Args)
         (IF (shen-cl.start-repl? Args)
           (shen.shen)
-          (shen-cl.exit 0))))
+          (cl.exit 0))))
 
     #+ECL
     (LET ((Args (CDR (SI:COMMAND-ARGS))))
       (SETQ *argv* Args)
       (shen-cl.interpret-args Args)
       (IF (shen-cl.start-repl? Args)
         (shen.shen)
-        (shen-cl.exit 0)))
+        (cl.exit 0)))
 
     #+SBCL
     (LET ((Args (CDR SB-EXT:*POSIX-ARGV*)))
@@ -411,5 +411,5 @@
       (IF (shen-cl.start-repl? Args)
         (HANDLER-CASE (shen.shen)
           (SB-SYS:INTERACTIVE-INTERRUPT ()
-            (shen-cl.exit 0)))
-        (shen-cl.exit 0)))))
+            (cl.exit 0)))
+        (cl.exit 0)))))