From 1be7d8c85a999bfa474c90bef8d978085c12460e Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Fri, 6 Sep 2002 10:31:51 +0000 Subject: [PATCH] r2570: Auto commit for Debian build --- clsql-base.asd | 11 ++++++----- clsql-base.system | 11 ++++++----- 2 files changed, 12 insertions(+), 10 deletions(-) diff --git a/clsql-base.asd b/clsql-base.asd index 3642a20..e304a0f 100644 --- a/clsql-base.asd +++ b/clsql-base.asd @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: clsql-base.asd,v 1.6 2002/09/06 10:26:17 kevin Exp $ +;;;; $Id: clsql-base.asd,v 1.7 2002/09/06 10:31:51 kevin Exp $ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -31,10 +31,11 @@ :device (pathname-device *load-truename*) :directory (pathname-directory *load-truename*))))) -(defconstant +clsql-logical-host+ - #+common-lisp-controller "cl-library" - #-common-lisp-controller "clsql" - "Logical hostname for loading system") +(eval-when (:compile-toplevel :load-toplevel :execute) + (defconstant +clsql-logical-host+ + #+common-lisp-controller "cl-library" + #-common-lisp-controller "clsql" + "Logical hostname for loading system")) ;;; System definitions diff --git a/clsql-base.system b/clsql-base.system index 2b74437..c6b28b5 100644 --- a/clsql-base.system +++ b/clsql-base.system @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: clsql-base.system,v 1.10 2002/08/23 19:39:56 kevin Exp $ +;;;; $Id: clsql-base.system,v 1.11 2002/09/06 10:31:51 kevin Exp $ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -31,10 +31,11 @@ :device (pathname-device *load-truename*) :directory (pathname-directory *load-truename*))))) -(defconstant +clsql-logical-host+ - #+common-lisp-controller "cl-library" - #-common-lisp-controller "clsql" - "Logical hostname for loading system") +(eval-when (:compile-toplevel :load-toplevel :execute) + (defconstant +clsql-logical-host+ + #+common-lisp-controller "cl-library" + #-common-lisp-controller "clsql" + "Logical hostname for loading system")) ;;; System definitions -- 2.34.1