--- 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/
--- 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")
--- 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))
--- 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)
--- 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))
--- 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
--- 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."
--- 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
--- 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")))
--- 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."
--- 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)
--- 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)
--- 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)
--- 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*)