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