From 8bf0cbe6076bc4530f165b41735d33d90e2c541a Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Fri, 20 Sep 2002 18:55:03 +0000 Subject: [PATCH] r2798: *** empty log message *** --- debian/changelog | 12 ++++++++++++ files.cl | 10 +++++----- utils.cl | 4 ++-- 3 files changed, 19 insertions(+), 7 deletions(-) diff --git a/debian/changelog b/debian/changelog index 1cbecac..89a17a2 100644 --- 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 Fri, 20 Sep 2002 12:46:00 -0600 + +cl-lml (1.0.8-1) unstable; urgency=low + + * Rework lml-file-name + + -- Kevin M. Rosenberg 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 75b3773..fd2366b 100644 --- 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 8dc05c1..28d739f 100644 --- 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) -- 2.34.1