From 0e5343fda28c559f11e003805727f4c625d178f3 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sun, 6 Oct 2002 13:30:17 +0000 Subject: [PATCH] r2949: *** empty log message *** --- attrib-class.lisp | 12 ++++++------ buff-input.lisp | 8 ++++---- cl-symbols.lisp | 8 ++++---- genutils.lisp | 10 +++++----- ml-class.lisp | 8 ++++---- pipes.lisp | 8 ++++---- random.lisp | 10 +++++----- telnet-server.lisp | 8 ++++---- web-utils-aserve.lisp | 8 ++++---- web-utils.lisp | 8 ++++---- xml-utils.lisp | 8 ++++---- 11 files changed, 48 insertions(+), 48 deletions(-) diff --git a/attrib-class.lisp b/attrib-class.lisp index 4d88e66..215089f 100644 --- a/attrib-class.lisp +++ b/attrib-class.lisp @@ -7,18 +7,18 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: attrib-class.lisp,v 1.1 2002/10/06 13:21:47 kevin Exp $ +;;;; $Id: attrib-class.lisp,v 1.2 2002/10/06 13:30:17 kevin Exp $ ;;;; -;;;; This file, part of Genutils, is Copyright (c) 2002 by Kevin M. Rosenberg +;;;; This file, part of Kmrcl, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; -;;;; Genutils users are granted the rights to distribute and use this software +;;;; Kmrcl users are granted the rights to distribute and use this software ;;;; as governed by the terms of the GNU General Public License. ;;;; ************************************************************************* ;;;; Defines a metaclass that allows the use of attributes (or subslots) ;;;; on slots. Based on example in AMOP, but modified to use ACL's MOP. -(in-package :genutils) +(in-package :kmrcl) (defclass attributes-dsd (mop::standard-direct-slot-definition) ((attributes :initarg :attributes :initform nil @@ -98,12 +98,12 @@ #|| -(in-package :genutils) +(in-package :kmrcl) (defclass credit-rating () ((level :attributes (date-set time-set)) (id :attributes (person-setting))) - (:metaclass genutils:attributes-class)) + (:metaclass kmrcl:attributes-class)) (defparameter cr (make-instance 'credit-rating)) (format t "~&date-set: ~a" (gu:slot-attribute cr 'level 'date-set)) diff --git a/buff-input.lisp b/buff-input.lisp index fe3f311..53f76e0 100644 --- a/buff-input.lisp +++ b/buff-input.lisp @@ -7,15 +7,15 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: buff-input.lisp,v 1.1 2002/10/06 13:21:47 kevin Exp $ +;;;; $Id: buff-input.lisp,v 1.2 2002/10/06 13:30:17 kevin Exp $ ;;;; -;;;; This file, part of Genutils, is Copyright (c) 2002 by Kevin M. Rosenberg +;;;; This file, part of Kmrcl, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; -;;;; Genutils users are granted the rights to distribute and use this software +;;;; Kmrcl users are granted the rights to distribute and use this software ;;;; as governed by the terms of the GNU General Public License. ;;;; ************************************************************************* -(in-package :genutils) +(in-package :kmrcl) (declaim (optimize (speed 3) (safety 0) (space 0) (debug 0))) diff --git a/cl-symbols.lisp b/cl-symbols.lisp index 3da0a0a..80d9b41 100644 --- a/cl-symbols.lisp +++ b/cl-symbols.lisp @@ -7,15 +7,15 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: cl-symbols.lisp,v 1.1 2002/10/06 13:21:47 kevin Exp $ +;;;; $Id: cl-symbols.lisp,v 1.2 2002/10/06 13:30:17 kevin Exp $ ;;;; -;;;; This file, part of Genutils, is Copyright (c) 2002 by Kevin M. Rosenberg +;;;; This file, part of Kmrcl, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; -;;;; Genutils users are granted the rights to distribute and use this software +;;;; Kmrcl users are granted the rights to distribute and use this software ;;;; as governed by the terms of the GNU General Public License. ;;;; ************************************************************************* -(in-package :genutils) +(in-package :kmrcl) (defun cl-symbols () (append (cl-variables) (cl-functions))) diff --git a/genutils.lisp b/genutils.lisp index e35f23d..0a47a73 100644 --- a/genutils.lisp +++ b/genutils.lisp @@ -3,20 +3,20 @@ ;;;; FILE IDENTIFICATION ;;;; ;;;; Name: genutils.lisp -;;;; Purpose: Main general utility functions for GENUTILS package +;;;; Purpose: Main general utility functions for KMRCL package ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: genutils.lisp,v 1.1 2002/10/06 13:21:47 kevin Exp $ +;;;; $Id: genutils.lisp,v 1.2 2002/10/06 13:30:17 kevin Exp $ ;;;; -;;;; This file, part of Genutils, is Copyright (c) 2002 by Kevin M. Rosenberg +;;;; This file, part of Kmrcl, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; -;;;; Genutils users are granted the rights to distribute and use this software +;;;; Kmrcl users are granted the rights to distribute and use this software ;;;; as governed by the terms of the GNU General Public License. ;;;; ************************************************************************* -(in-package :genutils) +(in-package :kmrcl) (declaim (optimize (speed 3) (safety 1))) diff --git a/ml-class.lisp b/ml-class.lisp index cfe2ab7..740e610 100644 --- a/ml-class.lisp +++ b/ml-class.lisp @@ -11,15 +11,15 @@ ;;;; in Text, HTML, and XML formats. This includes hyperlinking ;;;; capability and sub-objects. ;;;; -;;;; $Id: ml-class.lisp,v 1.1 2002/10/06 13:21:47 kevin Exp $ +;;;; $Id: ml-class.lisp,v 1.2 2002/10/06 13:30:17 kevin Exp $ ;;;; -;;;; This file, part of Webutils, is Copyright (c) 2002 by Kevin M. Rosenberg +;;;; This file, part of Kmrcl, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; -;;;; Webutils users are granted the rights to distribute and use this software +;;;; Kmrcl users are granted the rights to distribute and use this software ;;;; as governed by the terms of the GNU General Public License. ;;;; ************************************************************************* -(in-package :webutils) +(in-package :kmrcl) (declaim (optimize (speed 3) (safety 1))) diff --git a/pipes.lisp b/pipes.lisp index b97ff07..bd5f93e 100644 --- a/pipes.lisp +++ b/pipes.lisp @@ -7,15 +7,15 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: pipes.lisp,v 1.1 2002/10/06 13:21:47 kevin Exp $ +;;;; $Id: pipes.lisp,v 1.2 2002/10/06 13:30:17 kevin Exp $ ;;;; -;;;; This file, part of Genutils, is Copyright (c) 2002 by Kevin M. Rosenberg +;;;; This file, part of Kmrcl, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; -;;;; Genutils users are granted the rights to distribute and use this software +;;;; Kmrcl users are granted the rights to distribute and use this software ;;;; as governed by the terms of the GNU General Public License. ;;;; ************************************************************************* -(in-package :genutils) +(in-package :kmrcl) (defmacro make-pipe (head tail) "create a pipe by eval'ing head and delaying tail." diff --git a/random.lisp b/random.lisp index cf173fc..80d387f 100644 --- a/random.lisp +++ b/random.lisp @@ -3,19 +3,19 @@ ;;;; FILE IDENTIFICATION ;;;; ;;;; Name: random.lisp -;;;; Purpose: Random number functions for GENUTILS package +;;;; Purpose: Random number functions for KMRCL package ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: random.lisp,v 1.1 2002/10/06 13:21:47 kevin Exp $ +;;;; $Id: random.lisp,v 1.2 2002/10/06 13:30:17 kevin Exp $ ;;;; -;;;; This file, part of Genutils, is Copyright (c) 2002 by Kevin M. Rosenberg +;;;; This file, part of Kmrcl, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; -;;;; Genutils users are granted the rights to distribute and use this software +;;;; Kmrcl users are granted the rights to distribute and use this software ;;;; as governed by the terms of the GNU General Public License. ;;;; ************************************************************************* -(in-package :genutils) +(in-package :kmrcl) (defun seed-random-generator () "Evaluate a random number of items" diff --git a/telnet-server.lisp b/telnet-server.lisp index c285f0e..e3a403c 100644 --- a/telnet-server.lisp +++ b/telnet-server.lisp @@ -7,15 +7,15 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: telnet-server.lisp,v 1.1 2002/10/06 13:21:47 kevin Exp $ +;;;; $Id: telnet-server.lisp,v 1.2 2002/10/06 13:30:17 kevin Exp $ ;;;; -;;;; This file, part of Genutils, is Copyright (c) 2002 by Kevin M. Rosenberg +;;;; This file, part of Kmrcl, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; -;;;; Genutils users are granted the rights to distribute and use this software +;;;; Kmrcl users are granted the rights to distribute and use this software ;;;; as governed by the terms of the GNU General Public License. ;;;; ************************************************************************* -(in-package :genutils) +(in-package :kmrcl) (defvar *default-telnet-server-port* 4000) diff --git a/web-utils-aserve.lisp b/web-utils-aserve.lisp index 92a89bd..13782e3 100644 --- a/web-utils-aserve.lisp +++ b/web-utils-aserve.lisp @@ -7,17 +7,17 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: web-utils-aserve.lisp,v 1.1 2002/10/06 13:21:47 kevin Exp $ +;;;; $Id: web-utils-aserve.lisp,v 1.2 2002/10/06 13:30:17 kevin Exp $ ;;;; -;;;; This file, part of Webutils, is Copyright (c) 2002 by Kevin M. Rosenberg +;;;; This file, part of Kmrcl, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; -;;;; Webutils users are granted the rights to distribute and use this software +;;;; Kmrcl users are granted the rights to distribute and use this software ;;;; as governed by the terms of the GNU General Public License. ;;;; ************************************************************************* -(in-package :webutils) +(in-package :kmrcl) (declaim (optimize (speed 3) (safety 1))) diff --git a/web-utils.lisp b/web-utils.lisp index c6b9cc8..52d94fb 100644 --- a/web-utils.lisp +++ b/web-utils.lisp @@ -7,15 +7,15 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: web-utils.lisp,v 1.1 2002/10/06 13:21:47 kevin Exp $ +;;;; $Id: web-utils.lisp,v 1.2 2002/10/06 13:30:17 kevin Exp $ ;;;; -;;;; This file, part of Webutils, is Copyright (c) 2002 by Kevin M. Rosenberg +;;;; This file, part of Kmrcl, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; -;;;; Webutils users are granted the rights to distribute and use this software +;;;; Kmrcl users are granted the rights to distribute and use this software ;;;; as governed by the terms of the GNU General Public License. ;;;; ************************************************************************* -(in-package :webutils) +(in-package :kmrcl) (declaim (optimize (speed 3) (safety 1))) diff --git a/xml-utils.lisp b/xml-utils.lisp index bf3b4de..3214d06 100644 --- a/xml-utils.lisp +++ b/xml-utils.lisp @@ -7,15 +7,15 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: xml-utils.lisp,v 1.1 2002/10/06 13:21:47 kevin Exp $ +;;;; $Id: xml-utils.lisp,v 1.2 2002/10/06 13:30:17 kevin Exp $ ;;;; -;;;; This file, part of Webutils, is Copyright (c) 2002 by Kevin M. Rosenberg +;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; -;;;; Webutils users are granted the rights to distribute and use this software +;;;; Kmrcl users are granted the rights to distribute and use this software ;;;; as governed by the terms of the GNU General Public License. ;;;; ************************************************************************* -(in-package :webutils) +(in-package :kmrcl) (declaim (optimize (speed 3) (safety 1))) -- 2.34.1