diff --git a/src/constants.lisp b/src/constants.lisp index 7c7df5c..e3c23ee 100644 --- a/src/constants.lisp +++ b/src/constants.lisp @@ -158,3 +158,5 @@ General Public License for more details." (define-constant +standard-editor+ "ed" :test #'string= :documentation "Ed is the standard editor!") + +(define-constant +octect-type+ '(unsigned-byte 8) :test #'equalp) diff --git a/src/filesystem-tree-window.lisp b/src/filesystem-tree-window.lisp index a4414b7..467231e 100644 --- a/src/filesystem-tree-window.lisp +++ b/src/filesystem-tree-window.lisp @@ -226,8 +226,6 @@ (assert path) (fs:recursive-delete path))) -(define-constant +octect-type+ '(unsigned-byte 8) :test #'equalp) - (defun make-temporary-file-from-path (path) (let ((extension (fs:get-extension path))) (fs:temporary-file :extension extension))) diff --git a/src/package.lisp b/src/package.lisp index d177cc0..2d76e4a 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -64,7 +64,8 @@ :+folder-tag-prefix+ :+mention-prefix+ :+cache-tls-certificate-type+ - :+standard-editor+)) + :+standard-editor+ + :+octect-type+)) (defpackage :conditions (:use :cl