From 2fd7aee3b19afcf9f2ea26ff163fe82e178bb7a4 Mon Sep 17 00:00:00 2001 From: csr21 Date: Wed, 6 Aug 2003 02:48:24 -0700 Subject: [PATCH] Fix "too many arguments to format" problem -- clearly a rewrite to Fix "too many arguments to format" problem -- clearly a rewrite to FORMAT from PRINC which didn't quite get edited correctly darcs-hash:20030806094824-ed5a3-609426d89653e6da5eee2f68b030f28a01dc3be8.gz --- image.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/image.lisp b/image.lisp index 8ec0352..8eb47af 100644 --- a/image.lisp +++ b/image.lisp @@ -2593,7 +2593,7 @@ (index-incf count) (unless (index= count last) (write-char #\, fstream)))) - (format fstream "};~%" fstream)))))) + (format fstream "};~%")))))) (defun bitmap-image (&optional plist &rest patterns) ;; Create an image containg pattern