rename reader2 -> lossless-reader

breeze.asd

@@ -54,7 +54,7 @@
    (:file "syntax-tree")
    #++
    (:file "reader" :depends-on ("syntax-tree" "utils"))
-   (:file "reader2" :depends-on ("utils"))
+   (:file "lossless-reader" :depends-on ("utils"))
    (:file "pattern")
    (:file "command"
     :depends-on (#++"reader"
@@ -112,7 +112,7 @@
    (:file "logging")
    #++
    (:file "reader")
-   (:file "reader2")
+   (:file "lossless-reader")
    (:file "pattern")
    (:file "command")
    (:file "refactor")

kite/kite.lisp

@@ -16,7 +16,7 @@
 ;; Find empty tests
 #++
 (loop
-  :for test :in (parachute:package-tests '#:breeze.test.reader2)
+  :for test :in (parachute:package-tests '#:breeze.test.lossless-reader)
   :for children = (parachute:children test)
   :for tests = (parachute:tests test)
   :when (and (null children)
@@ -26,7 +26,7 @@
 ;; Find tests whose name is a string (I usually use symbols)
 #++
 (loop
-  :for test :in (parachute:package-tests '#:breeze.test.reader2)
+  :for test :in (parachute:package-tests '#:breeze.test.lossless-reader)
   :for name = (parachute:name test)
   :when (stringp name)
     :do (parachute:remove-test test))

src/reader2.lisp → src/lossless-reader.lisp

@@ -28,8 +28,9 @@ parse" begins.
 |#
 
 
-(defpackage #:breeze.reader2
-  (:documentation "")
+(defpackage #:breeze.lossless-reader
+  (:documentation "A fast, lossless, robust and superficial reader for a superset of
+common lisp.")
   (:use #:cl)
   (:import-from #:breeze.utils
                 #:subseq-displaced
@@ -39,7 +40,7 @@ parse" begins.
                 #:when-let
                 #:when-let*))
 
-(in-package #:breeze.reader2)
+(in-package #:breeze.lossless-reader)
 
 
 ;;; Reader state

tests/reader2.lisp → tests/lossless-reader.lisp

@@ -1,16 +1,10 @@
 
 (cl:in-package #:cl-user)
 
-(defpackage #:breeze.test.reader2
-  (:documentation "Test package for #:breeze.reader2")
-  (:use #:cl #:breeze.reader2)
-  (:import-from #:breeze.reader2
-                #:+end+
-                #:at
-                #:block-comment
-                #:donep
-                #:find-all
-                #:line-comment
+(defpackage #:breeze.test.lossless-reader
+  (:documentation "Test package for #:breeze.lossless-reader")
+  (:use #:cl #:breeze.lossless-reader)
+  (:import-from #:breeze.lossless-reader
                 #:make-state
                 #:node
                 #:tree
@@ -52,7 +46,7 @@
  (:import-from #:breeze.kite
                #:is-equalp))
 
-(in-package #:breeze.test.reader2)
+(in-package #:breeze.test.lossless-reader)
 
 #|
 

workbench.lisp

@@ -161,7 +161,7 @@
 
 
 
-;;; reader2.lisp
+;;; lossless-reader.lisp
 
 (trace
  read-string*