[zip-cvs] CVS update: zip/acl.lisp

[David Lichteblau]

Update of /project/zip/cvsroot/zip
In directory common-lisp.net:/tmp/cvs-serv1823

Modified Files:
	acl.lisp 
Log Message:
fixed typo (thanks to Edi Weitz)

Date: Tue Apr  5 16:04:01 2005
Author: dlichteblau

Index: zip/acl.lisp
diff -u zip/acl.lisp:1.1.1.1 zip/acl.lisp:1.2
--- zip/acl.lisp:1.1.1.1	Sun Apr  3 21:36:28 2005
+++ zip/acl.lisp	Tue Apr  5 16:04:01 2005
@@ -4,7 +4,7 @@
   (excl:octets-to-string octets :external-format ef))
 
 (defun string-to-octets (string ef)
-  (excl:string-to-octets octets :external-format ef))
+  (excl:string-to-octets string :external-format ef))
 
 (defun make-buffer-output-stream (outbuf)
   (excl:make-buffer-output-stream outbuf))