Update of /project/cldoc/cvsroot/cldoc/src In directory clnet:/tmp/cvs-serv29860
Modified Files: cldoc.asd cludg.lisp Log Message: Fixed: wrong system location with some lisp controllers, reported and patch proposed by Kilian Sprotte.
--- /project/cldoc/cvsroot/cldoc/src/cldoc.asd 2005/11/18 14:52:18 1.1.1.1 +++ /project/cldoc/cvsroot/cldoc/src/cldoc.asd 2007/01/11 00:05:06 1.2 @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp; Package: COMMON-LISP-USER -*- -;;; $Id: cldoc.asd,v 1.1.1.1 2005/11/18 14:52:18 ihatchondo Exp $ +;;; $Id: cldoc.asd,v 1.2 2007/01/11 00:05:06 ihatchondo Exp $ ;;; --------------------------------------------------------------------------- ;;; Title: Common Lisp Universal Documentation Generator: system definition ;;; Created: 2005 4 23 2:30 @@ -20,8 +20,6 @@
(in-package :cldoc.system)
-(defparameter *cludg-directory* (directory-namestring *load-truename*)) - (defsystem :cldoc :components ((:file "package") --- /project/cldoc/cvsroot/cldoc/src/cludg.lisp 2006/12/08 10:08:05 1.7 +++ /project/cldoc/cvsroot/cldoc/src/cludg.lisp 2007/01/11 00:05:06 1.8 @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLUDG; -*- -;;; $Id: cludg.lisp,v 1.7 2006/12/08 10:08:05 ihatchondo Exp $ +;;; $Id: cludg.lisp,v 1.8 2007/01/11 00:05:06 ihatchondo Exp $ ;;; --------------------------------------------------------------------------- ;;; Title: Common Lisp Universal Documentation Generator ;;; Created: 2005 10 23 12:30 @@ -17,7 +17,8 @@
;;;
-(defparameter *cludg-directory* common-lisp-user::*load-truename* +(defparameter *cludg-directory* + (asdf:component-pathname (asdf:find-system :cldoc)) "The directory in which CLUDG is stored.")
;;;