Changeset 12968

Timestamp:

Oct 9, 2009, 1:19:12 PM (15 years ago)

Author:

gz

Message:

Tweaks in with-string-vector (r12625, r12841)

File:

• branches/working-0711/ccl/level-1/linux-files.lisp (modified) (1 diff)

branches/working-0711/ccl/level-1/linux-files.lisp

@@ -960 +960 @@
       (funcall function argv))))
 
-(defmacro with-string-vector ((var &rest strings) &body body)
-  `(call-with-string-vector #'(lambda (,var) ,@body) ,@strings))
+(defmacro with-string-vector ((var strings) &body body)
+  `(call-with-string-vector #'(lambda (,var) ,@body) ,strings))
 
 (defloadvar *max-os-open-files* #-windows-target (#_getdtablesize) #+windows-target 32)