Baguette
/
dodb
3
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

filename->integer: filename must be a pathname

draft
kimory 2022-10-25 12:27:50 +02:00
parent 050db0ed8b
commit c36cad41ab
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/main.lisp
View File

@ -16,10 +16,10 @@
))
(in-package dodb)
(declaim (ftype (function (string) integer) filename->integer))
(declaim (ftype (function (pathname) integer) filename->integer))
(declaim (inline filename->integer))
(defun filename->integer (filename)
(declare (type string filename))
(declare (type pathname filename))
(parse-integer (pathname-name filename))) ; pathname-name returns the basename
(declaim (ftype (function (string) string) to-upper-case))