r2798: *** empty log message ***

diff --git a/debian/changelog b/debian/changelog
index 1cbecac708eb6e2efcb76dcf4c5f0b8b3cba2f58..89a17a22f2b3dcaef709e771ec992e003db51ff5 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,15 @@
+cl-lml (1.0.9-1) unstable; urgency=low
+
+  * Change default lml-quite exit status to 0
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Fri, 20 Sep 2002 12:46:00 -0600
+
+cl-lml (1.0.8-1) unstable; urgency=low
+
+  * Rework lml-file-name
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Fri, 20 Sep 2002 11:13:05 -0600
+
 cl-lml (1.0.7-1) unstable; urgency=low
 
   * Fix broken upstream source

diff --git a/files.cl b/files.cl
index 75b37730196ecaf2e787a826493678dc40afa61c..fd2366b3ff30961f8174128324b6541a2b7272d8 100644 (file)
--- a/files.cl
+++ b/files.cl
@@ -34,11 +34,11 @@
       (unless (position #\. f)
        (setq f (concatenate 'string f ".html"))))
     (if *sources-dir*
-       `(make-pathname :defaults (ecase ,type
-                                   (:source *sources-dir*)
-                                   (:output *output-dir*))
-                       :name (pathname-name ,f)
-                       :type (pathname-type ,f))
+       (make-pathname :defaults (ecase type
+                                  (:source *sources-dir*)
+                                  (:output *output-dir*))
+                      :name `,(pathname-name f)
+                      :type `,(pathname-type f))
       (if (stringp f)
          (parse-namestring f)
        f))))

diff --git a/utils.cl b/utils.cl
index 8dc05c1f248461addceb72eeba3fb24c8fdcba42..28d739f1a08e7db99f2e9950581dd4f2fecc2062 100644 (file)
--- a/utils.cl
+++ b/utils.cl
@@ -1,4 +1,4 @@
-;;; $Id: utils.cl,v 1.5 2002/09/16 08:44:09 kevin Exp $
+;;; $Id: utils.cl,v 1.6 2002/09/20 18:55:03 kevin Exp $
 ;;;;
 ;;;; General purpose utilities
 
@@ -49,7 +49,7 @@
                year
                hr min sec))))
 
-(defun lml-quit (&optional code)
+(defun lml-quit (&optional (code 0))
   "Function to exit the Lisp implementation. Copied from CLOCC's QUIT function."
     #+allegro (excl:exit code)
     #+clisp (#+lisp=cl ext:quit #-lisp=cl lisp:quit code)