ahefner (![[info]](http://l-stat.livejournal.com/img/userinfo.gif){kind=small} ahefner) wrote,@ 2008-07-09 17:58:00 |
|
| Entry tags: | lisp |
user-homedir-pathname
CL-USER> (defun ~ (name) (merge-pathnames name (user-homedir-pathname))) ~ CL-USER> (~ "foo") #P"/home/hefner/foo" CL-USER> (~"cl/foo/myhack.lisp") #P"/home/hefner/cl/foo/myhack.lisp" CL-USER>
Not as nice as Zach Beane's approach, of course.
