[cldoc-cvs] CVS cldoc/src

[ihatchondo]

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.")
 
 ;;;