ian/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Loose changes

Browse source
This commit is contained in:
Ian Keane 2020-02-25 06:06:49 -05:00
parent 1cb167b597
commit 612c72bae1
57 changed files with 8904 additions and 80 deletions
Download patch file Download diff file Expand all files Collapse all files

32
sbcl/.quicklisp/dists/quicklisp/software/cl-fad-20190813-git/path.lisp Normal file
View file

@ -0,0 +1,32 @@
(in-package :cl-fad)
(defmacro defalias (name args realname)
`(progn
(defun ,name ,args
,(if (eql '&rest (first args))
`(apply #',realname ,(second args))
`(,realname ,@args)))
(define-compiler-macro ,name (&rest args)
(list* ',realname args))))
(defalias path:dirname (pathname) cl-fad:pathname-directory-pathname)
(defun path:basename (pathname) (pathname (file-namestring pathname)))
(defalias path:-e (pathname) cl-fad:file-exists-p)
(defalias path:-d (directory) cl-fad:directory-exists-p)
(defalias path:catfile (&rest pathnames) cl-fad:merge-pathnames-as-file)
(defalias path:catdir (&rest pathnames) cl-fad:merge-pathnames-as-directory)
(defalias path:= (a b) cl-fad:pathname-equal)
(defalias path:absolute-p (pathname) cl-fad:pathname-absolute-p)
(defalias path:relative-p (pathname) cl-fad:pathname-relative-p)
(defalias path:root-p (pathname) cl-fad:pathname-root-p)
(defalias path:rm-r (pathname) cl-fad:delete-directory-and-files)