# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1479662389 0
# Node ID 919ebd924aac93f643c98dd7ec2531c6d3cef43a
# Parent  8b0e540e23e7ec14717fb37c33100987073399eb
Clean up some style issues

diff -r 8b0e540e23e7 -r 919ebd924aac README.markdown
--- a/README.markdown	Wed Sep 07 14:18:19 2016 +0000
+++ b/README.markdown	Sun Nov 20 17:19:49 2016 +0000
@@ -7,6 +7,8 @@
  \______||_______|    |__| \__| | _| `._____||_______|| _|      |_______|
 ```
 
-An NREPL server for Common Lisp.
+A bare-bones [NREPL][] server for Common Lisp.
 
-**Not ready yet, don't use this.**
+**Not ready yet, don't use unless you want to help me build it.**
+
+[NREPL]: https://github.com/clojure/tools.nrepl/
diff -r 8b0e540e23e7 -r 919ebd924aac nrepl.asd
--- a/nrepl.asd	Wed Sep 07 14:18:19 2016 +0000
+++ b/nrepl.asd	Sun Nov 20 17:19:49 2016 +0000
@@ -1,4 +1,4 @@
-(asdf:defsystem #:nrepl
+(asdf:defsystem :nrepl
   :name "nrepl"
   :description "An implementation of the NREPL protocol for Common Lisp."
 
@@ -8,25 +8,27 @@
   :license "EPL"
   :version "0.0.1"
 
-  :depends-on (#:bencode
-               #:usocket
-               #:flexi-streams
-               #:bordeaux-threads
-               #:uuid
-               #:fset
-               #:cl-ppcre
-               #:split-sequence
-               #:dissect
-               #:trivial-arguments)
+  :depends-on (
+               :bencode
+               :bordeaux-threads
+               :cl-ppcre
+               :dissect
+               :flexi-streams
+               :fset
+               :split-sequence
+               :trivial-arguments
+               :usocket
+               :uuid
+               )
 
   :serial t
   :components
   ((:file "package")
-   (:module "src"
+   (:module "src" :serial t
     :components ((:file "utils")
                  (:file "sockets")
                  (:file "evaluation")
-                 (:module "middleware"
+                 (:module "middleware" :serial t
                   :components ((:file "core")
                                (:file "describe")
                                (:file "documentation")
diff -r 8b0e540e23e7 -r 919ebd924aac package.lisp
--- a/package.lisp	Wed Sep 07 14:18:19 2016 +0000
+++ b/package.lisp	Sun Nov 20 17:19:49 2016 +0000
@@ -1,9 +1,10 @@
-(defpackage #:nrepl
+(defpackage :nrepl
   (:use
-    #:cl
-    #:split-sequence)
+    :cl
+    :split-sequence)
   (:import-from :ppcre
     :regex-replace)
-  (:export #:start-server
-    #:stop-server))
+  (:export
+    :start-server
+    :stop-server))
 
diff -r 8b0e540e23e7 -r 919ebd924aac src/evaluation.lisp
--- a/src/evaluation.lisp	Wed Sep 07 14:18:19 2016 +0000
+++ b/src/evaluation.lisp	Sun Nov 20 17:19:49 2016 +0000
@@ -1,4 +1,4 @@
-(in-package #:nrepl)
+(in-package :nrepl)
 
 (defvar *last-trace* nil)
 
diff -r 8b0e540e23e7 -r 919ebd924aac src/middleware/core.lisp
--- a/src/middleware/core.lisp	Wed Sep 07 14:18:19 2016 +0000
+++ b/src/middleware/core.lisp	Sun Nov 20 17:19:49 2016 +0000
@@ -1,4 +1,4 @@
-(in-package #:nrepl)
+(in-package :nrepl)
 
 (defvar *middleware* (fset:empty-map))
 
diff -r 8b0e540e23e7 -r 919ebd924aac src/middleware/describe.lisp
--- a/src/middleware/describe.lisp	Wed Sep 07 14:18:19 2016 +0000
+++ b/src/middleware/describe.lisp	Sun Nov 20 17:19:49 2016 +0000
@@ -1,4 +1,4 @@
-(in-package #:nrepl)
+(in-package :nrepl)
 
 (defun make-version-map (major minor incremental)
   (make-map "major" major
diff -r 8b0e540e23e7 -r 919ebd924aac src/middleware/documentation.lisp
--- a/src/middleware/documentation.lisp	Wed Sep 07 14:18:19 2016 +0000
+++ b/src/middleware/documentation.lisp	Sun Nov 20 17:19:49 2016 +0000
@@ -1,4 +1,4 @@
-(in-package #:nrepl)
+(in-package :nrepl)
 
 (defun lambda-list-to-string (lambda-list)
   "Return a single-line string of the lambda list."
diff -r 8b0e540e23e7 -r 919ebd924aac src/middleware/eval.lisp
--- a/src/middleware/eval.lisp	Wed Sep 07 14:18:19 2016 +0000
+++ b/src/middleware/eval.lisp	Sun Nov 20 17:19:49 2016 +0000
@@ -1,4 +1,4 @@
-(in-package #:nrepl)
+(in-package :nrepl)
 
 (define-middleware wrap-eval "eval" message
   (evaluate-forms message
diff -r 8b0e540e23e7 -r 919ebd924aac src/middleware/load-file.lisp
--- a/src/middleware/load-file.lisp	Wed Sep 07 14:18:19 2016 +0000
+++ b/src/middleware/load-file.lisp	Sun Nov 20 17:19:49 2016 +0000
@@ -1,4 +1,4 @@
-(in-package #:nrepl)
+(in-package :nrepl)
 
 (define-middleware wrap-load-file "load-file" message
   (let ((path (fset:lookup message "path")))
diff -r 8b0e540e23e7 -r 919ebd924aac src/middleware/macroexpand.lisp
--- a/src/middleware/macroexpand.lisp	Wed Sep 07 14:18:19 2016 +0000
+++ b/src/middleware/macroexpand.lisp	Sun Nov 20 17:19:49 2016 +0000
@@ -1,4 +1,4 @@
-(in-package #:nrepl)
+(in-package :nrepl)
 
 (defun pretty-string (form)
   "Return a prettified string version of `form`, indented nicely."
diff -r 8b0e540e23e7 -r 919ebd924aac src/middleware/session.lisp
--- a/src/middleware/session.lisp	Wed Sep 07 14:18:19 2016 +0000
+++ b/src/middleware/session.lisp	Sun Nov 20 17:19:49 2016 +0000
@@ -1,4 +1,4 @@
-(in-package #:nrepl)
+(in-package :nrepl)
 
 (defvar *sessions* (make-hash-table :test #'equal))
 (defvar *session* nil)
diff -r 8b0e540e23e7 -r 919ebd924aac src/server.lisp
--- a/src/server.lisp	Wed Sep 07 14:18:19 2016 +0000
+++ b/src/server.lisp	Sun Nov 20 17:19:49 2016 +0000
@@ -1,4 +1,4 @@
-(in-package #:nrepl)
+(in-package :nrepl)
 
 ;;;; Config
 (defvar *verbose-debug-output* nil)
diff -r 8b0e540e23e7 -r 919ebd924aac src/sockets.lisp
--- a/src/sockets.lisp	Wed Sep 07 14:18:19 2016 +0000
+++ b/src/sockets.lisp	Sun Nov 20 17:19:49 2016 +0000
@@ -1,4 +1,4 @@
-(in-package #:nrepl)
+(in-package :nrepl)
 
 ;;;; In/out
 (defun write-object (socket-stream lock map)
diff -r 8b0e540e23e7 -r 919ebd924aac src/utils.lisp
--- a/src/utils.lisp	Wed Sep 07 14:18:19 2016 +0000
+++ b/src/utils.lisp	Sun Nov 20 17:19:49 2016 +0000
@@ -1,4 +1,4 @@
-(in-package #:nrepl)
+(in-package :nrepl)
 
 (defvar *log* *error-output*)