From 6facb2ee3add31b6401445f9690ae24f31479ea7 Mon Sep 17 00:00:00 2001 From: Ivy Foster Date: Fri, 9 Jan 2009 19:43:56 -0600 Subject: [PATCH] Fixed buggy paths in module.lisp for sbcl users --- module.lisp | 7 ++++--- 1 files changed, 4 insertions(+), 3 deletions(-) diff --git a/module.lisp b/module.lisp index 89952d2..3d80acd 100644 --- a/module.lisp +++ b/module.lisp @@ -82,9 +82,10 @@ :type "lisp")))) (defun find-module (name) - (make-pathname :directory *contrib-dir* - :name name - :type "lisp")) + (make-pathname :directory #+sbcl (namestring *contrib-dir*) + #-sbcl *contrib-dir* + :name name + :type "lisp")) (defcommand load-module (name) ((:module "Load Module: ")) "Loads the contributed module with the given NAME." -- 1.6.1