Renamed abort parameter to abort-flag, since it seems we have a constant named abort.

Pascal J. Bourguignon [2013-06-13 22:09]
Renamed abort parameter to abort-flag, since it seems we have a constant named abort.
Filename
clisp/fifo-stream.lisp
diff --git a/clisp/fifo-stream.lisp b/clisp/fifo-stream.lisp
index 14c9d0c..b5e4ba1 100644
--- a/clisp/fifo-stream.lisp
+++ b/clisp/fifo-stream.lisp
@@ -92,11 +92,12 @@
 ;;; general generic functions defined on streams
 ;;;

-(defmethod close ((stream fifo-stream) &key abort)
+(defmethod close ((stream fifo-stream) &key ((:abort abort-flag) nil))
+  ;; clisp-2.49|asdf|quicklisp seem to have a constant declaration on abort.
   "
 Closes the stream and flushes any associated buffers.
 "
-  (declare (ignore abort))
+  (declare (ignore abort-flag))
   ;; When you define a primary method on this function, do not forget to
   ;; CALL-NEXT-METHOD.
   ;; TODO: (SETF (BUFFERS STREAM) 'NIL)
ViewGit