Replaced erroneous &key with &aux.

ExaScience · Feb 4, 2015 · fb8e8bb · fb8e8bb
1 parent 43627a2
commit fb8e8bb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/io-utils.lisp b/io-utils.lisp
@@ -358,7 +358,7 @@
 
 #+lispworks
 (progn 
-  (defun writestr (out string &key (end (length string)))
+  (defun writestr (out string &aux (end (length string)))
     "Write a base-string to an output stream."
     (declare (buffered-stream out) (base-string string) (fixnum end) #.*optimization*)
     (multiple-value-bind (string* start) (unwrap-displaced-array string)