--- maxima-5.9.0.9beta2/src/maxima-package.lisp.sbcl	2004-07-24 12:13:43.000000000 -0500
+++ maxima-5.9.0.9beta2/src/maxima-package.lisp	2004-08-11 09:41:11.943782288 -0500
@@ -1,7 +1,12 @@
-#+(or sbcl mcl)
+#+mcl
 (or (find-package "LISP")
     (rename-package "COMMON-LISP" "COMMON-LISP" '("LISP" "CL")))
 
+#+:sbcl
+(progn
+  (sb-ext:unlock-package "COMMON-LISP")
+    (rename-package "COMMON-LISP" "COMMON-LISP" '("LISP" "CL"))) 
+
 ;; SI is used for the regex info implementation. This line should be removed
 ;; when the info regex implementation no longer requires SI in all lisps.
 ;; jfa 12/12/2001
--- maxima-5.9.0.9beta2/lisp-utils/defsystem.lisp.sbcl	2004-06-19 15:31:02.000000000 -0500
+++ maxima-5.9.0.9beta2/lisp-utils/defsystem.lisp	2004-08-11 09:45:00.123539703 -0500
@@ -2033,7 +2033,7 @@
   (setq absolute-dir (logical-pathname absolute-dir))
   (etypecase relative-dir
     (string (setq relative-dir (parse-namestring relative-dir)))
-    (pathname #| do nothing |#))
+    (pathname ))
 
   (translate-logical-pathname
    (make-pathname
@@ -3812,12 +3812,11 @@
   (unless *dont-redefine-require*
     (let (#+(or :mcl (and :CCL (not :lispworks)))
 	  (ccl:*warn-if-redefine-kernel* nil))
-      #-(or (and allegro-version>= (version>= 4 1)) :lispworks)
+      #-(or (and allegro-version>= (version>= 4 1)) :lispworks :sbcl)
       (setf (symbol-function
 	     #-(or (and :excl :allegro-v4.0) :mcl :sbcl :lispworks) 'lisp:require
 	     #+(and :excl :allegro-v4.0) 'cltl1:require
 	     #+:lispworks3.1 'common-lisp::require
-	     #+:sbcl 'cl:require
 	     #+(and :lispworks (not :lispworks3.1)) 'system::require
 	     #+:openmcl 'cl:require
 	     #+(and :mcl (not :openmcl)) 'ccl:require
@@ -3836,8 +3835,11 @@
       #+(and allegro-version>= (version>= 4 1))
       (excl:without-package-locks
        (setf (symbol-function 'lisp:require)
-	 (symbol-function 'new-require))))))
-)
+	 (symbol-function 'new-require)))
+      #+:sbcl
+      (sb-ext:without-package-locks
+       (setf (symbol-function 'cl:require)
+         (symbol-function 'new-require)))))))
 
 ;;; ********************************
 ;;; Language-Dependent Characteristics