From: James A. <amu...@us...> - 2005-02-06 02:31:43
|
Update of /cvsroot/maxima/maxima/lisp-utils In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv649 Modified Files: defsystem.lisp-clocc defsystem.lisp Log Message: Updated to CLOCC revision 1.90. Index: defsystem.lisp-clocc =================================================================== RCS file: /cvsroot/maxima/maxima/lisp-utils/defsystem.lisp-clocc,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- defsystem.lisp-clocc 6 Feb 2005 02:27:59 -0000 1.1 +++ defsystem.lisp-clocc 6 Feb 2005 02:31:34 -0000 1.2 @@ -1196,7 +1196,8 @@ (defvar *dont-redefine-require* #+cmu (if (find-symbol "*MODULE-PROVIDER-FUNCTIONS*" "EXT") t nil) #+(or clisp sbcl) t - #-(or cmu sbcl clisp) nil + #+allegro t + #-(or cmu sbcl clisp allegro) nil "If T, prevents the redefinition of REQUIRE. This is useful for lisps that treat REQUIRE specially in the compiler.") @@ -3618,6 +3619,7 @@ #-openmcl (optimize (inhibit-warnings 3))) (unless (component-operation operation) (error "Operation ~A undefined." operation)) + (operate-on-component system operation force)))) (when dribble (dribble)))) @@ -4487,8 +4489,9 @@ #+:allegro #'load #+(or :cmu :scl) #'alien:load-foreign #+:sbcl #'sb-alien:load-foreign - #+(and :lispworks :unix (not :linux)) #'link-load:read-foreign-modules - #+(and :lispworks (or (not :unix) :linux)) #'fli:register-module + #+(and :lispworks :unix (not :linux) (not :macosx)) #'link-load:read-foreign-modules + #+(and :lispworks :unix (or :linux :macosx)) #'fli:register-module + #+(and :lispworks :win32) #'fli:register-module #+(or :ecl :gcl :kcl) #'load ; should be enough. #-(or :lucid :allegro Index: defsystem.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/lisp-utils/defsystem.lisp,v retrieving revision 1.18 retrieving revision 1.19 diff -u -d -r1.18 -r1.19 --- defsystem.lisp 6 Feb 2005 02:27:33 -0000 1.18 +++ defsystem.lisp 6 Feb 2005 02:31:34 -0000 1.19 @@ -1196,7 +1196,8 @@ (defvar *dont-redefine-require* #+cmu (if (find-symbol "*MODULE-PROVIDER-FUNCTIONS*" "EXT") t nil) #+(or clisp sbcl) t - #-(or cmu sbcl clisp) nil + #+allegro t + #-(or cmu sbcl clisp allegro) nil "If T, prevents the redefinition of REQUIRE. This is useful for lisps that treat REQUIRE specially in the compiler.") @@ -3622,6 +3623,7 @@ #-openmcl (optimize (inhibit-warnings 3))) (unless (component-operation operation) (error "Operation ~A undefined." operation)) + (operate-on-component system operation force)))) (when dribble (dribble)))) @@ -4491,8 +4493,9 @@ #+:allegro #'load #+(or :cmu :scl) #'alien:load-foreign #+:sbcl #'sb-alien:load-foreign - #+(and :lispworks :unix (not :linux)) #'link-load:read-foreign-modules - #+(and :lispworks (or (not :unix) :linux)) #'fli:register-module + #+(and :lispworks :unix (not :linux) (not :macosx)) #'link-load:read-foreign-modules + #+(and :lispworks :unix (or :linux :macosx)) #'fli:register-module + #+(and :lispworks :win32) #'fli:register-module #+(or :ecl :gcl :kcl) #'load ; should be enough. #-(or :lucid :allegro |