[Maxima-commits] CVS: maxima/src max_ext.lisp,1.21,1.21.2.1

[Viktor T. <vt...@us...>]

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

Modified Files:
      Tag: RELEASE-5_12_0-BRANCH
	max_ext.lisp 
Log Message:

Improved support for autoloading stringproc/printf.



Index: max_ext.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/max_ext.lisp,v
retrieving revision 1.21
retrieving revision 1.21.2.1
diff -u -d -r1.21 -r1.21.2.1
--- max_ext.lisp	2 Apr 2007 15:34:06 -0000	1.21
+++ max_ext.lisp	18 Apr 2007 21:00:08 -0000	1.21.2.1
@@ -100,6 +100,7 @@
        $opena
        $openr
        $openw
+       $printf
        $readline
        $alphacharp
        $alphanumericp
@@ -151,17 +152,7 @@
        $substring
        $supcase
        $tokens ))
-  (autof f "stringproc"))
-
-;; $printf doesn't work with autol.lisp/autom when calling with streams true and false
-;; don't know if (funcall ... in autom can be replaced by (apply ... 
-;; so here is an intermediate workaround   VvN
-(let ((mf '$printf))
-  (unless (fboundp mf)
-    (setf (macro-function mf)
-          #'(lambda (&rest l)
-              (aload "stringproc")
-              (apply (macro-function mf) l)))))  
+  (setf (get f 'autoload) "stringproc"))
 
 (dolist (f       
      '($read_matrix