r2949: *** empty log message ***
authorKevin M. Rosenberg <kevin@rosenberg.net>
Sun, 6 Oct 2002 13:30:17 +0000 (13:30 +0000)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Sun, 6 Oct 2002 13:30:17 +0000 (13:30 +0000)
attrib-class.lisp
buff-input.lisp
cl-symbols.lisp
genutils.lisp
ml-class.lisp
pipes.lisp
random.lisp
telnet-server.lisp
web-utils-aserve.lisp
web-utils.lisp
xml-utils.lisp

index 4d88e66..215089f 100644 (file)
@@ -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 
 
 
 #||
-(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))
index fe3f311..53f76e0 100644 (file)
@@ -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)))
 
index 3da0a0a..80d9b41 100644 (file)
@@ -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)))
index e35f23d..0a47a73 100644 (file)
@@ -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)))
 
index cfe2ab7..740e610 100644 (file)
 ;;;; 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)))
 
index b97ff07..bd5f93e 100644 (file)
@@ -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."
index cf173fc..80d387f 100644 (file)
@@ -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"
index c285f0e..e3a403c 100644 (file)
@@ -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)
 
index 92a89bd..13782e3 100644 (file)
@@ -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)))
 
 
index c6b9cc8..52d94fb 100644 (file)
@@ -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)))
 
 
index bf3b4de..3214d06 100644 (file)
@@ -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)))