From 2969f6daacdf9ed16b1cedeedcc5af33364088c8 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Fri, 6 Sep 2002 11:00:49 +0000 Subject: [PATCH] r2572: Auto commit for Debian build --- debian/changelog | 6 ++++++ uffi.asd | 21 ++++++++++----------- 2 files changed, 16 insertions(+), 11 deletions(-) diff --git a/debian/changelog b/debian/changelog index d4c85a4..77fec51 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-uffi (0.6.3-1) unstable; urgency=low + + * New upstream version, fixes problem with .asd file. + + -- Kevin M. Rosenberg Fri, 6 Sep 2002 04:59:45 -0600 + cl-uffi (0.6.2-1) unstable; urgency=low * New upstream version. Restructure directories once again to handle diff --git a/uffi.asd b/uffi.asd index 48346e5..a170bde 100644 --- a/uffi.asd +++ b/uffi.asd @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Aug 2002 ;;;; -;;;; $Id: uffi.asd,v 1.7 2002/08/28 03:29:01 kevin Exp $ +;;;; $Id: uffi.asd,v 1.8 2002/09/06 11:00:49 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -31,16 +31,11 @@ :device (pathname-device *load-truename*) :directory (pathname-directory *load-truename*))))) -(defconstant +uffi-logical-host+ - #+common-lisp-controller "cl-library" - #-common-lisp-controller "uffi" - "Logical hostname for loading system") - -(defmethod source-file-type ((c cl-source-file) (s (eql (find-system 'uffi)))) - "cl") - -;(defclass uffi-cl-source-file (cl-source-file) ()) -;(defmethod source-file-type ((c uffi-cl-source-file) (s module)) "cl") +(eval-when (:compile-toplevel :load-toplevel :execute) + (defconstant +uffi-logical-host+ + #+common-lisp-controller "cl-library" + #-common-lisp-controller "uffi" + "Logical hostname for loading system")) (defsystem uffi :name "cl-uffi" @@ -67,3 +62,7 @@ (:file "libraries" :depends-on ("package"))) ) + +(defmethod source-file-type ((c cl-source-file) (s (eql (find-system 'uffi)))) + "cl") + -- 2.34.1