From e0405e6089892e5d88082bf12838b73e63440125 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Sun, 7 Sep 2003 06:34:45 +0000
Subject: [PATCH] r7061: initial property settings

---
 base.lisp       |   2 +-
 data.lisp       |   2 +-
 downloads.lisp  |   2 +-
 htmlgen.lisp    |   2 +-
 lml2-tests.asd  |   2 +-
 lml2.asd        |   2 +-
 package.lisp    |   2 +-
 read-macro.lisp |   2 +-
 stdsite.lisp    |   2 +-
 tests.lisp      |   2 +-
 utils.lisp      | 178 ++++++++++++++++++++++++------------------------
 11 files changed, 99 insertions(+), 99 deletions(-)

diff --git a/base.lisp b/base.lisp
index ee6598e..91319c2 100644
--- a/base.lisp
+++ b/base.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Aug 2002
 ;;;;
-;;;; $Id: base.lisp,v 1.7 2003/07/12 17:54:05 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of LML2, is Copyright (c) 2000-2003 by Kevin Rosenberg.
 ;;;; Rights of modification and redistribution are in the LICENSE file.
diff --git a/data.lisp b/data.lisp
index 3d4c398..8480e3b 100644
--- a/data.lisp
+++ b/data.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Aug 2002
 ;;;;
-;;;; $Id: data.lisp,v 1.3 2003/07/12 17:54:05 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of LML2, is Copyright (c) 2000-2003 by Kevin Rosenberg.
 ;;;; Rights of modification and redistribution are in the LICENSE file.
diff --git a/downloads.lisp b/downloads.lisp
index f6a0bf4..36af36d 100644
--- a/downloads.lisp
+++ b/downloads.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Aug 2002
 ;;;;
-;;;; $Id: downloads.lisp,v 1.6 2003/07/12 18:13:42 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of LML2, is Copyright (c) 2000-2003 by Kevin Rosenberg.
 ;;;; Rights of modification and redistribution are in the LICENSE file.
diff --git a/htmlgen.lisp b/htmlgen.lisp
index 710b368..7ec4756 100644
--- a/htmlgen.lisp
+++ b/htmlgen.lisp
@@ -1,6 +1,6 @@
 ;; -*- mode: common-lisp; package: lml2 -*-
 ;;
-;; $Id: htmlgen.lisp,v 1.21 2003/08/02 10:03:10 kevin Exp $
+;; $Id$
 ;;
 ;; copyright (c) 1986-2000 Franz Inc, Berkeley, CA 
 ;; copyright (c) 2003 Kevin Rosenberg
diff --git a/lml2-tests.asd b/lml2-tests.asd
index 50f18be..9d220ba 100644
--- a/lml2-tests.asd
+++ b/lml2-tests.asd
@@ -7,7 +7,7 @@
 ;;;; Author:        Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2003
 ;;;;
-;;;; $Id: lml2-tests.asd,v 1.1 2003/06/20 04:12:29 kevin Exp $
+;;;; $Id$
 ;;;; *************************************************************************
 
 (defpackage #:lml2-tests-system
diff --git a/lml2.asd b/lml2.asd
index bfb4520..9f4cfbf 100644
--- a/lml2.asd
+++ b/lml2.asd
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Aug 2002
 ;;;;
-;;;; $Id: lml2.asd,v 1.3 2003/07/15 19:25:28 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of LML2, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
diff --git a/package.lisp b/package.lisp
index 805aa68..51a515c 100644
--- a/package.lisp
+++ b/package.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  June 2003
 ;;;;
-;;;; $Id: package.lisp,v 1.6 2003/07/13 04:56:12 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of LML2, is Copyright (c) 2000-2003 by Kevin Rosenberg.
 ;;;; Rights of modification and redistribution are in the LICENSE file.
diff --git a/read-macro.lisp b/read-macro.lisp
index cea9af9..8e97b9d 100644
--- a/read-macro.lisp
+++ b/read-macro.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Aug 2002
 ;;;;
-;;;; $Id: read-macro.lisp,v 1.2 2003/07/12 17:54:05 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of LML2, is Copyright (c) 2000-2003 by Kevin Rosenberg.
 ;;;; Rights of modification and redistribution are in the LICENSE file.
diff --git a/stdsite.lisp b/stdsite.lisp
index 259bb80..aef383b 100644
--- a/stdsite.lisp
+++ b/stdsite.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Aug 2002
 ;;;;
-;;;; $Id: stdsite.lisp,v 1.7 2003/07/12 17:54:05 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of LML2, is Copyright (c) 2000-2003 by Kevin Rosenberg.
 ;;;; Rights of modification and redistribution are in the LICENSE file.
diff --git a/tests.lisp b/tests.lisp
index 12265fb..a364c75 100644
--- a/tests.lisp
+++ b/tests.lisp
@@ -7,7 +7,7 @@
 ;;;; Author:        Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2003
 ;;;;
-;;;; $Id: tests.lisp,v 1.3 2003/07/15 19:25:28 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of LML2, is Copyright (c) 2000-2003 by Kevin Rosenberg.
 ;;;; Rights of modification and redistribution are in the LICENSE file.
diff --git a/utils.lisp b/utils.lisp
index 0eef8e4..2d2a9d8 100644
--- a/utils.lisp
+++ b/utils.lisp
@@ -1,89 +1,89 @@
-;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
-;;;; *************************************************************************
-;;;; FILE IDENTIFICATION
-;;;;
-;;;; Name:          utils.lisp
-;;;; Purpose:       General purpose utilities
-;;;; Author:        Kevin M. Rosenberg
-;;;; Date Started:  June 2002
-;;;;
-;;;; $Id: utils.lisp,v 1.5 2003/07/15 21:49:36 kevin Exp $
-;;;;
-;;;; This file, part of LML2, is copyrighted and open-source software.
-;;;; Rights of modification and redistribution are in the LICENSE file.
-;;;;
-;;;; *************************************************************************
-
-(in-package #:lml2)
-
-(defmacro aif (test then &optional else)
-  `(let ((it ,test))
-     (if it ,then ,else)))
-
-(defmacro awhen (test-form &body body)
-  `(aif ,test-form
-        (progn ,@body)))
-
-(defun print-file-contents (file &optional (strm *standard-output*))
-  "Opens a reads a file. Returns the contents as a single string"
-  (when (probe-file file)
-    (let ((eof (cons 'eof nil)))
-      (with-open-file (in file :direction :input)
-        (do ((line (read-line in nil eof) 
-                   (read-line in nil eof)))
-            ((eq line eof))
-          (write-string line strm)
-          (write-char #\newline strm))))))
-
-(defun date-string (ut)
-  (check-type ut integer)
-  (multiple-value-bind (sec min hr day mon year dow daylight-p zone)
-      (decode-universal-time ut)
-    (declare (ignore daylight-p zone))
-    (format nil "~[Mon~;Tue~;Wed~;Thu~;Fri~;Sat~;Sun~], ~d ~[Jan~;Feb~;Mar~;Apr~;May~;Jun~;Jul~;Aug~;Sep~;Oct~;Nov~;Dec~] ~d ~2,'0d:~2,'0d:~2,'0d" 
-	    dow day (1- mon) year hr min sec)))
-
-(defun lml-quit (&optional (code 0))
-  "Function to exit the Lisp implementation."
-    #+allegro (excl:exit code)
-    #+clisp (#+lisp=cl ext:quit #-lisp=cl lisp:quit code)
-    #+(or cmu scl) (ext:quit code)
-    #+cormanlisp (win32:exitprocess code)
-    #+gcl (lisp:bye code)
-    #+lispworks (lw:quit :status code)
-    #+lucid (lcl:quit code)
-    #+sbcl (sb-ext:quit :unix-status (typecase code (number code) (null 0) (t 1)))
-    #+openmcl (ccl:quit code)
-    #+(and mcl (not openmcl)) (declare (ignore code))
-    #+(and mcl (not openmcl)) (ccl:quit)
-    #-(or allegro clisp cmu scl cormanlisp gcl lispworks lucid sbcl mcl)
-    (error 'not-implemented :proc (list 'quit code)))
-
-
-(defun lml-cwd ()
-  "Returns the current working directory. Based on CLOCC's DEFAULT-DIRECTORY function."
-  #+allegro (excl:current-directory)
-  #+clisp (#+lisp=cl ext:default-directory #-lisp=cl lisp:default-directory)
-  #+(or cmu scl) (ext:default-directory)
-  #+cormanlisp (ccl:get-current-directory)
-  #+lispworks (hcl:get-working-directory)
-  #+lucid (lcl:working-directory)
-  #+sbcl (sb-unix:posix-getcwd/)
-  #+mcl (ccl:mac-default-directory)
-  #-(or allegro clisp cmu scl sbcl cormanlisp lispworks lucid mcl) (truename "."))
-
-
-#+ignore
-(defun fformat (&rest args)
-  (declare (dynamic-extent args))
-  (apply (if (find-package 'kmrcl)
-	     (symbol-function (intern (symbol-name #:fformat)
-				      (symbol-name #:kmrcl)))
-	     #'format)
-	 args))
-
-(defmacro fformat (stream control-string &rest args)
-  (if stream
-      `(funcall (formatter ,control-string) ,stream ,@args)
-      `(format nil ,control-string ,@args)))
-  
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; *************************************************************************
+;;;; FILE IDENTIFICATION
+;;;;
+;;;; Name:          utils.lisp
+;;;; Purpose:       General purpose utilities
+;;;; Author:        Kevin M. Rosenberg
+;;;; Date Started:  June 2002
+;;;;
+;;;; $Id$
+;;;;
+;;;; This file, part of LML2, is copyrighted and open-source software.
+;;;; Rights of modification and redistribution are in the LICENSE file.
+;;;;
+;;;; *************************************************************************
+
+(in-package #:lml2)
+
+(defmacro aif (test then &optional else)
+  `(let ((it ,test))
+     (if it ,then ,else)))
+
+(defmacro awhen (test-form &body body)
+  `(aif ,test-form
+        (progn ,@body)))
+
+(defun print-file-contents (file &optional (strm *standard-output*))
+  "Opens a reads a file. Returns the contents as a single string"
+  (when (probe-file file)
+    (let ((eof (cons 'eof nil)))
+      (with-open-file (in file :direction :input)
+        (do ((line (read-line in nil eof) 
+                   (read-line in nil eof)))
+            ((eq line eof))
+          (write-string line strm)
+          (write-char #\newline strm))))))
+
+(defun date-string (ut)
+  (check-type ut integer)
+  (multiple-value-bind (sec min hr day mon year dow daylight-p zone)
+      (decode-universal-time ut)
+    (declare (ignore daylight-p zone))
+    (format nil "~[Mon~;Tue~;Wed~;Thu~;Fri~;Sat~;Sun~], ~d ~[Jan~;Feb~;Mar~;Apr~;May~;Jun~;Jul~;Aug~;Sep~;Oct~;Nov~;Dec~] ~d ~2,'0d:~2,'0d:~2,'0d" 
+	    dow day (1- mon) year hr min sec)))
+
+(defun lml-quit (&optional (code 0))
+  "Function to exit the Lisp implementation."
+    #+allegro (excl:exit code)
+    #+clisp (#+lisp=cl ext:quit #-lisp=cl lisp:quit code)
+    #+(or cmu scl) (ext:quit code)
+    #+cormanlisp (win32:exitprocess code)
+    #+gcl (lisp:bye code)
+    #+lispworks (lw:quit :status code)
+    #+lucid (lcl:quit code)
+    #+sbcl (sb-ext:quit :unix-status (typecase code (number code) (null 0) (t 1)))
+    #+openmcl (ccl:quit code)
+    #+(and mcl (not openmcl)) (declare (ignore code))
+    #+(and mcl (not openmcl)) (ccl:quit)
+    #-(or allegro clisp cmu scl cormanlisp gcl lispworks lucid sbcl mcl)
+    (error 'not-implemented :proc (list 'quit code)))
+
+
+(defun lml-cwd ()
+  "Returns the current working directory. Based on CLOCC's DEFAULT-DIRECTORY function."
+  #+allegro (excl:current-directory)
+  #+clisp (#+lisp=cl ext:default-directory #-lisp=cl lisp:default-directory)
+  #+(or cmu scl) (ext:default-directory)
+  #+cormanlisp (ccl:get-current-directory)
+  #+lispworks (hcl:get-working-directory)
+  #+lucid (lcl:working-directory)
+  #+sbcl (sb-unix:posix-getcwd/)
+  #+mcl (ccl:mac-default-directory)
+  #-(or allegro clisp cmu scl sbcl cormanlisp lispworks lucid mcl) (truename "."))
+
+
+#+ignore
+(defun fformat (&rest args)
+  (declare (dynamic-extent args))
+  (apply (if (find-package 'kmrcl)
+	     (symbol-function (intern (symbol-name #:fformat)
+				      (symbol-name #:kmrcl)))
+	     #'format)
+	 args))
+
+(defmacro fformat (stream control-string &rest args)
+  (if stream
+      `(funcall (formatter ,control-string) ,stream ,@args)
+      `(format nil ,control-string ,@args)))
+  
-- 
2.34.1