From e9425347d51ee6933462b0c08c01979eee18c2eb Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sat, 14 Dec 2002 02:36:42 +0000 Subject: [PATCH] r3627: *** empty log message *** --- strings.lisp | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/strings.lisp b/strings.lisp index dce2908..bf91507 100644 --- a/strings.lisp +++ b/strings.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: strings.lisp,v 1.2 2002/11/04 18:02:13 kevin Exp $ +;;;; $Id: strings.lisp,v 1.3 2002/12/14 02:36:42 kevin Exp $ ;;;; ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -25,9 +25,6 @@ (defmacro string-append (outputstr &rest args) `(setq ,outputstr (concatenate 'string ,outputstr ,@args))) -(defmacro string-field-append (outputstr &rest args) - `(setq ,outputstr (concatenate 'string ,outputstr ,@args))) - (defun list-to-string (lst) "Converts a list to a string, doesn't include any delimiters between elements" (format nil "~{~A~}" lst)) -- 2.34.1