[Maxima-commits] CVS: maxima/src/numerical f2cl-lib.lisp, 1.13, 1.14

[Andreas E. <ar...@us...>]

Update of /cvsroot/maxima/maxima/src/numerical
In directory sc8-pr-cvs16:/tmp/cvs-serv21846/src/numerical

Modified Files:
	f2cl-lib.lisp 
Log Message:
reverted back the changes to %close and %open-file, as rtay whishes to
keep f2cl versions idetical.


Index: f2cl-lib.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/numerical/f2cl-lib.lisp,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- f2cl-lib.lisp	27 Apr 2007 17:44:45 -0000	1.13
+++ f2cl-lib.lisp	28 Apr 2007 15:17:27 -0000	1.14
@@ -1049,7 +1049,7 @@
 		 (close val)))
 	       *lun-hash*))
 
-(defun %open-file (&key file status access recl blank &allow-other-keys)
+(defun %open-file (&key file status access recl blank unit form)
   ;; We should also check for values of access, form that we don't support.
   (when recl
     (error "F2CL-LIB does not support record lengths"))
@@ -1090,7 +1090,7 @@
 	,(if iostat `(setf ,iostat (if ,result 0 1))))))
 	  
 
-(defun %close (&key unit &allow-other-keys)
+(defun %close (&key unit status)
   (cl:close (lun->stream unit)))
 
 (defmacro close$ (&key unit iostat err status)
@@ -1410,6 +1410,10 @@
 ;;;
 ;;; $Id$
 ;;; $Log$
+;;; Revision 1.14  2007/04/28 15:17:27  are_muc
+;;; reverted back the changes to %close and %open-file, as rtay whishes to
+;;; keep f2cl versions idetical.
+;;;
 ;;; Revision 1.13  2007/04/27 17:44:45  are_muc
 ;;; changed key argument lists to %open-file and %close by removing unused
 ;;; ones and allowing them nevertheless to remove compiler warnings.