X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=random.lisp;h=273817a2ecf9f3ebc05f160c2379b89614dd3d39;hp=cf173fc83b74ee36cbc2aa57451c7954eeb92c3a;hb=a5e8d90b159f1a8dcef4e954a97cae6eb5396423;hpb=5e5cc3c20a925d8af5de153a118fdaf0792dd7e2 diff --git a/random.lisp b/random.lisp index cf173fc..273817a 100644 --- a/random.lisp +++ b/random.lisp @@ -3,19 +3,20 @@ ;;;; 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.3 2002/10/10 16:23:48 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 -;;;; as governed by the terms of the GNU General Public License. +;;;; KMRCL users are granted the rights to distribute and use this software +;;;; as governed by the terms of the Lisp Lesser GNU Public License +;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL. ;;;; ************************************************************************* -(in-package :genutils) +(in-package :kmrcl) (defun seed-random-generator () "Evaluate a random number of items"