This package was debianized by Kevin M. Rosenberg <kmr@debian.org> on
Sat, 5 Oct 2002 13:19:33 -0600.
-It was downloaded from ftp://kmrcl.b9.com
+It was downloaded from ftp://ftp.b9.com/kmrcl
Upstream Author: Kevin M. Rosenberg <kevin@rosenberg.net>
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; Name: genutils.lisp
+;;;; Name: gentils.lisp
;;;; Purpose: Main general utility functions for KMRCL package
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: genutils.lisp,v 1.3 2002/10/10 16:23:48 kevin Exp $
+;;;; $Id: genutils.lisp,v 1.4 2002/10/11 00:27:01 kevin Exp $
;;;;
;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
(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"
+ (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)