ambrevar: Switch to packages with unquoted symbol.

.local/share/common-lisp/source/ambrevar/debug.lisp

@@ -3,7 +3,7 @@
   (:use :common-lisp)
   (:import-from #:serapeum #:export-always)
   (:import-from #:cl-ppcre))
-(in-package #:ambrevar/debug)
+(in-package ambrevar/debug)
 
 ;; TODO: Implement SLY function instead.
 ;; https://github.com/joaotavora/sly/issues/362

.local/share/common-lisp/source/ambrevar/emacs.lisp

@@ -4,7 +4,7 @@
   (:use #:trivia)
   (:import-from #:serapeum #:export-always)
   (:import-from #:ambrevar/shell))
-(in-package #:ambrevar/emacs)
+(in-package ambrevar/emacs)
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (trivial-package-local-nicknames:add-package-local-nickname :alex :alexandria)
   (trivial-package-local-nicknames:add-package-local-nickname :sera :serapeum))

.local/share/common-lisp/source/ambrevar/file.lisp

@@ -4,7 +4,7 @@
   (:use #:trivia)
   (:import-from #:hu.dwim.defclass-star #:defclass*)
   (:import-from #:serapeum #:export-always))
-(in-package #:ambrevar/file)
+(in-package ambrevar/file)
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (trivial-package-local-nicknames:add-package-local-nickname :alex :alexandria)
   (trivial-package-local-nicknames:add-package-local-nickname :sera :serapeum))
@@ -70,6 +70,8 @@ This returns the directory name for directories."
     (subseq path
             (1+ last-separator))))
 
+;; TODO: Support `*print-pretty*'?
+;; TODO: `*print-readably*'?
 (defmethod print-object ((file file) stream)
   (print-unreadable-object (file stream :type t :identity t)
     (write-string (str:concat (basename file)

.local/share/common-lisp/source/ambrevar/guix.lisp

@@ -4,7 +4,7 @@
   (:use #:trivia)
   (:import-from #:serapeum #:export-always)
   (:import-from #:ambrevar/shell))
-(in-package #:ambrevar/guix)
+(in-package ambrevar/guix)
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (trivial-package-local-nicknames:add-package-local-nickname :alex :alexandria)
   (trivial-package-local-nicknames:add-package-local-nickname :sera :serapeum))

.local/share/common-lisp/source/ambrevar/shell.lisp

@@ -4,7 +4,7 @@
   (:use #:common-lisp)
   (:use #:trivia)
   (:import-from #:serapeum #:export-always))
-(in-package #:ambrevar/shell)
+(in-package ambrevar/shell)
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (trivial-package-local-nicknames:add-package-local-nickname :alex :alexandria)
   (trivial-package-local-nicknames:add-package-local-nickname :sera :serapeum))

.local/share/common-lisp/source/ambrevar/syspack.lisp

@@ -2,7 +2,7 @@
   (:documentation "ASDF and package management helpers")
   (:use :common-lisp)
   (:import-from #:serapeum #:export-always))
-(in-package #:ambrevar/syspack)
+(in-package ambrevar/syspack)
 
 (export-always 'exported-symbols)
 (declaim (ftype (function ((or symbol package))) exported-symbols))