Renamed CL-Ledger fully to :cl-ledger (with :ledger as a nickname)

README

@@ -43,7 +43,7 @@ Now you can run Ledger at the REPL like this:
 
     $ sbcl
     * (require 'asdf)
-    * (asdf:oos 'asdf:load-op :ledger)
+    * (asdf:oos 'asdf:load-op :cl-ledger)
 
 This compiles and loads the Ledger core, and also the textual parser package,
 for parsing standard Ledger text files (other parser packages soon to come).
@@ -267,13 +267,13 @@ how frequently I use them:
 
   SBCL         1.0.12.17       WORKS
   LispWorks    5.02 Personal   WORKS
-  Allegro CL   8.1 Express     WORKS
-  CLISP        2.43            Fails to compile RED-BLACK
+  Allegro CL   8.1 Express     Fails to compile CL-FAD (where is :OSI?)
   Clozure CL   2007-12-07      Fails to compile LOCAL-TIME
   OpenMCL      2007-07-22      Fails to compile LOCAL-TIME
-  CMUCL        19d (2007-11)   Fails to compile PERIODS
   ECL          2007-12-07      Fails to compile SERIES
   ABCL         0.0.10          Fails to compile SERIES
+  CLISP        2.43            Fails to compile RED-BLACK
+  CMUCL        19d (2007-11)   Fails to compile PERIODS
   GCL          2.6.7           <unable to build so far>
 
 

ledger.asd → cl-ledger.asd

@@ -31,23 +31,23 @@
 
 (in-package :cl-user)
 
-(defpackage :ledger-asd
+(defpackage :cl-ledger-asd
   (:use :cl :asdf))
 
-(in-package :ledger-asd)
+(in-package :cl-ledger-asd)
 
-(defvar *ledger-version* "4.0.0-pre-0"
-  "A string denoting the current version of LEDGER.  Used
+(defvar *cl-ledger-version* "4.0.0-pre-0"
+  "A string denoting the current version of CL-LEDGER.  Used
 for diagnostic output.")
 
-(export '*ledger-version*)
+(export '*cl-ledger-version*)
 
 (pushnew :periods-use-series *features*)
 (pushnew :periods-use-parser *features*)
 
-(asdf:defsystem :ledger
+(asdf:defsystem :cl-ledger
   :serial t
-  :version #.*ledger-version*
+  :version #.*cl-ledger-version*
   :depends-on (:local-time :periods :cambl :series :cl-ppcre)
   :components
   ((:module "core"

core/packages.lisp

@@ -1,9 +1,10 @@
 ;; packages.lisp
 
-(in-package :common-lisp)
+(in-package :common-lisp-user)
 
-(defpackage :ledger
+(defpackage :cl-ledger
   (:use :common-lisp :local-time :cambl :periods :series)
+  (:nicknames :ledger)
   (:export binder
 	   binder-commodity-pool
 	   binder-root-account

reports/balance.lisp

@@ -14,6 +14,7 @@
 	       (get-partial-name (concatenate 'string (account-name account)
 					      ":" string)
 				 account (1- count))))))
+
     ;; This printer function returns t if it decided to display the account,
     ;; or nil otherwise.  If an account is not printed, its child will see a
     ;; value for "elided" representing how many generations elected not to
@@ -51,17 +52,18 @@
 		 (incf elided)))
 
 	   (if (account-children account)
-	       (locally #+sbcl(declare (sb-ext:muffle-conditions
-					sb-ext:code-deletion-note))
-			(mapc #'(lambda (cell)
-				  (print-accounts (cdr cell) elided
-						  (1+ real-depth)))
-			      (sort (let (lst)
-				      (maphash #'(lambda (key value)
-						   (push (cons key value) lst))
-					       (account-children account))
-				      lst)
-				    #'string< :key #'car))))))
+	       (locally
+		   #+sbcl (declare (sb-ext:muffle-conditions
+				    sb-ext:code-deletion-note))
+		   (mapc #'(lambda (cell)
+			     (print-accounts (cdr cell) elided
+					     (1+ real-depth)))
+			 (sort (let (lst)
+				 (maphash #'(lambda (key value)
+					      (push (cons key value) lst))
+					  (account-children account))
+				 lst)
+			       #'string< :key #'car))))))
       (when root-account
 	(print-accounts root-account 0 0)
 	(funcall reporter root-account 0 0 t)))))