From: Dieter K. <cra...@us...> - 2010-08-30 17:23:56
|
Update of /cvsroot/maxima/maxima/src In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv2525/src Modified Files: mload.lisp Log Message: 1. Cutting out the defprop's for the symbols $file_search and $file_types. The symbols are not definied, not used and not documented as a variable. 2. Cutting out the function $listp_check. This function is used only as an assignement property for the symbols $file_search and $file_types. The function is not documented. No problems with the testsuite and share_testsuite. Index: mload.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/src/mload.lisp,v retrieving revision 1.63 retrieving revision 1.64 diff -u -d -r1.63 -r1.64 --- mload.lisp 19 May 2010 13:13:06 -0000 1.63 +++ mload.lisp 30 Aug 2010 17:23:47 -0000 1.64 @@ -53,21 +53,9 @@ (declare-top (special $file_search_lisp $file_search_maxima $file_search_demo $loadprint)) -(defmfun $listp_check (var val) - "Gives an MAXIMA-ERROR message including its first argument if its second - argument is not a LIST" - (or ($listp val) - (merror (intl:gettext "assignment: value of ~:M must be a list; found: ~M") - var val))) - -(defprop $file_search $listp_check assign) - -(defprop $file_types $listp_check assign) - (defun $load_search_dir () (to-macsyma-namestring *default-pathname-defaults*)) - (defmfun load-and-tell (filename) (loadfile filename t ;; means this is a lisp-level call, not user-level. $loadprint)) |