1
0
Fork 0

- moved '+octect-type+' to 'constants' package.

This commit is contained in:
cage 2022-12-25 12:04:08 +01:00
parent b3fc8c58a3
commit a18c63f3db
3 changed files with 4 additions and 3 deletions

View File

@ -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)

View File

@ -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)))

View File

@ -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