mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

ambrevar: Switch to packages with unquoted symbol.

master
Pierre Neidhardt 2021-01-15 19:10:04 +01:00
parent 900b31d325
commit 0a057edbd4
6 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.local/share/common-lisp/source/ambrevar/debug.lisp
View File

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

2
.local/share/common-lisp/source/ambrevar/emacs.lisp
View File

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

4
.local/share/common-lisp/source/ambrevar/file.lisp
View File

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

2
.local/share/common-lisp/source/ambrevar/guix.lisp
View File

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

2
.local/share/common-lisp/source/ambrevar/shell.lisp
View File

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

2
.local/share/common-lisp/source/ambrevar/syspack.lisp
View File

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