mirror of https://codeberg.org/cage/tinmop/
- moved '+octect-type+' to 'constants' package.
This commit is contained in:
parent
b3fc8c58a3
commit
a18c63f3db
|
@ -158,3 +158,5 @@ General Public License for more details."
|
||||||
|
|
||||||
(define-constant +standard-editor+ "ed" :test #'string=
|
(define-constant +standard-editor+ "ed" :test #'string=
|
||||||
:documentation "Ed is the standard editor!")
|
:documentation "Ed is the standard editor!")
|
||||||
|
|
||||||
|
(define-constant +octect-type+ '(unsigned-byte 8) :test #'equalp)
|
||||||
|
|
|
@ -226,8 +226,6 @@
|
||||||
(assert path)
|
(assert path)
|
||||||
(fs:recursive-delete path)))
|
(fs:recursive-delete path)))
|
||||||
|
|
||||||
(define-constant +octect-type+ '(unsigned-byte 8) :test #'equalp)
|
|
||||||
|
|
||||||
(defun make-temporary-file-from-path (path)
|
(defun make-temporary-file-from-path (path)
|
||||||
(let ((extension (fs:get-extension path)))
|
(let ((extension (fs:get-extension path)))
|
||||||
(fs:temporary-file :extension extension)))
|
(fs:temporary-file :extension extension)))
|
||||||
|
|
|
@ -64,7 +64,8 @@
|
||||||
:+folder-tag-prefix+
|
:+folder-tag-prefix+
|
||||||
:+mention-prefix+
|
:+mention-prefix+
|
||||||
:+cache-tls-certificate-type+
|
:+cache-tls-certificate-type+
|
||||||
:+standard-editor+))
|
:+standard-editor+
|
||||||
|
:+octect-type+))
|
||||||
|
|
||||||
(defpackage :conditions
|
(defpackage :conditions
|
||||||
(:use :cl
|
(:use :cl
|
||||||
|
|
Loading…
Reference in New Issue